版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领
文档简介
1、：1）2）Private Sub Form_Timer() ：1）2）Private Sub Form_Timer() End3） 文本框-格式-高度：1cm字体大小：124） 命令按钮d1 的标题改为：确定Click 3） 文本框-格式-高度：1cm字体大小：124） 命令按钮d1 的标题改为：确定Click 事件代码如下；Private 不得删改本行注释 Text1.FontNameCombo1.Value Text1.FontSizeEnd：1）2）文本text1 的默认值：1）2）文本text1 的默认值3）PrivateText1.FontItalic = Text1.FontBol
2、d= Check2.Value Text1.FontUnderline=Check3.ValueADOPrivate Sub Combo1_Change() Dim rs As ADODB.Recordset Setrs=Private Sub Combo1_Change() Dim rs As ADODB.Recordset Setrs=NewADODB.Recordset Dim strSQL As String本行需要补充代码，实现构造SQL If Not rs.EOF() Then Text2 = rs(买入价) Text3 = rs(现价) Text1 =End If Setrs =
3、End 集PrivateSubCombo1_Change() List1.RowSource = DimrsAsDimstrSQLAsstrSQL=PrivateSubCombo1_Change() List1.RowSource = DimrsAsDimstrSQLAsstrSQL=&Combo1.Value&Setrs=Newrs.Open strSQL, CurrentProject.Connection, 2, Do Setrs =EndSubEndPrivate Sub Combo1_Change() Dim rs As ADODB.Recordset Setrs=NewADODB.
4、Recordset Dim strSQL As StringstrSQLPrivate Sub Combo1_Change() Dim rs As ADODB.Recordset Setrs=NewADODB.Recordset Dim strSQL As StringstrSQL= selectavg(成绩as 平均成绩count(课程号as 总门数 from 选修 where 学号= &Combo1.Value&NotText2 = rs(总门数)End If Setrs =End 13”DimH_AvgAsDim Avg_rs As Set Avg_rs = New ADODB.Recordset Avg_rs.Open13”DimH_AvgAsDim Avg_rs As Set Avg_rs = New ADODB.Recordset Avg_rs.Open select avg()a
温馨提示
- 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
评论
0/150
提交评论