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