编程汇总.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
升级会员 