编程汇总.docx
- 文档编号:2810363
- 上传时间:2022-11-15
- 格式:DOCX
- 页数:23
- 大小:443.70KB
编程汇总.docx
《编程汇总.docx》由会员分享,可在线阅读,更多相关《编程汇总.docx(23页珍藏版)》请在冰豆网上搜索。
编程汇总
PrivateSubCommand1_Click()
'''不得删改本行注释
DimrsAsADODB.Recordset
DimstrSQLAsString
Setrs=NewADODB.Recordset
strSQL="select课程编号,课程名称,学时,学分fromcoursewhere课程编号='"&Text1.Value&"'"'本行需要补充代码
rs.OpenstrSQL,CurrentProject.Connection,2,2'本行需要补充代码
Ifrs.EOFThen
rs.AddNew
rs("课程编号")=Text1
rs("课程名称")=Text2
rs("学时")=Text3
rs("学分")=Text4'本行需要补充代码
rs.Update
EndIf
rs.Close
Setrs=Nothing
EndSub
PrivateSubCombo1_Change()
'''不得删改本行注释
DimrsAsADODB.Recordset
DimstrSQLAsString
Setrs=NewADODB.Recordset
strSQL="select书名,单价,数量frombookwhere书号='"&Combo1.Value&"'"'本行需要补充代码"
rs.OpenstrSQL,CurrentProject.Connection,2,2'本行需要补充代码
IfNotrs.EOF()Then
Text1=rs("书名")
Text2=rs("单价")
Text3=rs("数量")
Text4=rs("单价")*rs("数量")'本行需要补充代码
EndIf
rs.Close
Setrs=Nothing
EndSub
PrivateSubCommand1_Click()
DimrsAsADODB.Recordset
DimstrSQLAsString'用于存储SQL语句
strSQL="select姓名fromexamstuwhere生源='"&Text1.Value&"'"'本行需要补充代码
Setrs=NewADODB.Recordset'本行需要补充代码
rs.OpenstrSQL,CurrentProject.Connection,2,2
DoWhileNotrs.EOF()'本行需要补充代码
List1.AddItemrs("姓名")
rs.MoveNext
Loop
rs.Close
Setrs=Nothing
EndSub
PrivateSubCommand1_Click()
DimrsAsadodb.Recordset
Setrs=Newadodb.Recordset'本行需补充代码
rs.Open"select*fromStu",CurrentProject.Connection,2,2
DoWhileNotrs.EOF()'本行需补充代码
SelectCasers("综合分")
CaseIs>=90
rs("等级")="优秀"
CaseIs>=80
rs("等级")="良好"'本行需补充代码
CaseIs>=70
rs("等级")="中等"
CaseIs>=60
rs("等级")="及格"
CaseElse
rs("等级")="不及格"
EndSelect
rs.Update
rs.MoveNext
Loop
rs.Close
Setrs=Nothing
AFT.Form.RecordSource="select*fromStu"
EndSub
PrivateSubCommand1_Click()
DimH_AvgAsSingle
DimAvg_rsAsADODB.Recordset
SetAvg_rs=NewADODB.Recordset'本行需补充代码
Avg_rs.Open"selectavg(身高)as平均身高fromstu",CurrentProject.Connection,2,2'本行需补充代码
H_Avg=Avg_rs("平均身高")
Text1.Value=H_Avg
Avg_rs.Close
SetAvg_rs=Nothing'本行需补充代码
EndSub
PrivateSubCombo1_Change()
'''不得删改本行注释
DimrsAsADODB.Recordset
Setrs=NewADODB.Recordset'本行需补充代码,初始化一个Recordset对象
DimsqlstrAsString
sqlstr="select*fromscorewhere课程名称='"&Me.Combo1&"'"
rs.Opensqlstr,CurrentProject.Connection,2,2'本行需补充代码,和当前数据库创建连接
n=0
x=0
y=0
DoWhileNotrs.EOF()
n=n+1
Ifrs("成绩")>=60Then
x=x+1
Else
y=y+1
EndIf
rs.MoveNext
Loop
Me.Text1.Value=n'本行需补充代码,将参加人数显示在文本框Text1中
Me.Text2.Value=x
Me.Text3.Value=y
rs.Close
Setrs=Nothing
EndSub
PrivateSubCombo1_Change()
'''不得删改本行注释
DimrsAsADODB.Recordset
DimstrSQLAsString
Setrs=NewADODB.Recordset
strSQL="select姓名fromplayerwhere组别='"&Combo1.Value&"'"'本行需要补充代码,实现构造SQL语句
rs.OpenstrSQL,CurrentProject.Connection,2,2
Fori=List1.ListCount-1To0Step-1
List1.RemoveItem(i)
Nexti
DoWhileNotrs.EOF()'本行需补充代码,设置循环终止条件
List1.AddItemrs("姓名")
rs.MoveNext'本行需补充代码,实现移到下一条记录
Loop
rs.Close
Setrs=Nothing
EndSub
PrivateSubList1_Click()
'''不得删改本行注释
DimrsAsADODB.Recordset
DimstrSQLAsString
Setrs=NewADODB.Recordset
strSQL="select姓名fromemployeewhere部门='"&List1.Value&"'"'本行需要补充代码,实现构造SQL语句
rs.OpenstrSQL,CurrentProject.Connection,2,2'本行需要补充代码,实现打开记录集
i=0
DoWhileNotrs.EOF
i=i+1
rs.MoveNext
Loop
Label2.Caption="人数:
"&i
rs.Close'本行需要补充代码,实现关闭记录集
Setrs=Nothing
EndSub
PrivateSubCombo1_Change()
List1.RowSource=""
DimrsAsADODB.Recordset
DimstrSQLAsString
strSQL="select姓名fromTeacherwhere职称='"&Combo1.Value&"'"
Setrs=NewADODB.Recordset
rs.OpenstrSQL,CurrentProject.Connection,2,2'本行需补充代码,和当前数据库创建连接
DoWhileNotrs.EOF()'本行需补充代码,设置循环终止条件
List1.AddItemrs("姓名")
rs.MoveNext'本行需补充代码,实现移到下一条记录
Loop
rs.Close
Setrs=Nothing
EndSub
PrivateSubCombo1_Change()
DimrsAsADODB.Recordset
Setrs=NewADODB.Recordset
DimstrSQLAsString
strSQL="select买入价,现价,持有数量fromstockwhere股票代码='"&Combo1.Value&"'"'本行需要补充代码,实现构造SQL语句
rs.OpenstrSQL,CurrentProject.Connection,2,2'本行需要补充代码,实现打开记录集
IfNotrs.EOF()Then
Text2=rs("买入价")
Text3=rs("现价")
Text4=rs("持有数量")
Text1=rs("持有数量")*(rs("现价")-rs("买入价"))'本行需要补充代码,将计算出的盈亏金额赋值给text1
EndIf
rs.Close
Setrs=Nothing
EndSub
PrivateSubCombo1_Change()
DimrsAsADODB.Recordset
Setrs=NewADODB.Recordset
DimstrSQLAsString
strSQL="SELECTAvg(选修.成绩)AS平均成绩,Count(课程.课程号)AS总门数FROM学生,课程,选修where学生.学号=选修.学号and课程.课程号=选修.课程号and学生.学号='"&Combo1.Value&"'"'本行需要补充代码,实现构造SQL语句
rs.OpenstrSQL,CurrentProject.Connection,2,2'本行需要补充代码,实现打开记录集
IfNotrs.EOF()Then'本行需补充代码,设置循环终止条件
Text1=rs("平均成绩")
Text2=rs("总门数")
EndIf
rs.Close
Setrs=Nothing
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 编程 汇总