access数据库编程题题目共10套Word文件下载.docx
- 文档编号:15864531
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:31
- 大小:864.79KB
access数据库编程题题目共10套Word文件下载.docx
《access数据库编程题题目共10套Word文件下载.docx》由会员分享,可在线阅读,更多相关《access数据库编程题题目共10套Word文件下载.docx(31页珍藏版)》请在冰豆网上搜索。
DimrsAsADODB.Recordset
DimstrSQLAsString
Setrs=NewADODB.Recordset
strSQL="
Select*fromcoursewhere课程编号='
&
Text1.Value&
"
'
本行需要补充代码
rs.OpenstrSQL,CurrentProject.Connection,2,2'
Ifrs.EOFThen
rs.AddNew
rs("
课程编号"
)=Text1
课程名称"
)=Text2
学时"
)=Text3
学分"
)=Text4'
rs.Update
EndIf
rs.Close
Setrs=Nothing
二-1
Label1.Visible=True
PrivateSubCommand2_Click()
Label1.Visible=False
二-2
DimxAsInteger,yAsInteger,zAsInteger
x=Text1.Value
y=Text2.Value
IfFrame1.Value=1Then
z=x+y
ElseIfFrame1.Value=2Then
z=x-y
Else
z=x*y
Label6.Caption=z
二-3
成绩等级评定
***UserCodeBegin***
Setrs=NewADODB.Recordset'
本行需补充代码
rs.Open"
select*from学生"
CurrentProject.Connection,2,2
DoWhileNotrs.EOF()'
SelectCasers("
综合分"
)
CaseIs>
=90
等级"
)="
优秀"
=80
良好"
=70
中等"
=60
及格"
CaseElse
不及格"
EndSelect
rs.Update'
rs.MoveNext
Loop
***UserCodeEnd***
等级评定后学生信息.Form.RecordSource="
MsgBox"
完成等级评定!
0+64,"
提示"
三-1
Label1.ForeColor=RGB(255,0,0)
Label1.ForeColor=RGB(0,0,255)
三-2
DimaAsInteger,bAsInteger
a=Text1.Value
b=Text2.Value
Ifa>
bThen
Label1.Caption="
a>
b"
ElseIfa=bThen
a=b"
a<
三-3
PrivateSubCombo1_Change()
Select*Frombookwhere书号='
Combo1.Value&
IfNotrs.EOF()Then
Text1=rs("
书名"
Text2=rs("
单价"
Text3=rs("
数量"
Text4=rs("
)*rs("
)'
四-1
TxtEnabled.Enabled=True
TxtEnabled.Enabled=False
四-2
按分段函数求y
DimxAsSingle,yAsSingle
***CodeBegin***
Ifx<
=0Then
y=Abs(x-5)
ElseIfx<
=5Then
y=Sqr(x^2-1)
y=3*x-2
Label3.Caption=y
***CodeEnd***
四-3
按姓名查找教师信息
Dimf_markAsBoolean
DimSQLstrAsString
DimrsAsADODB.Recordset'
SQLstr="
select教师.姓名,教师.性别,教师.出生日期,教师.职称,专业.专业名称from教师,专业where教师.专业编号=专业.专业编号"
rs.OpenSQLstr,CurrentProject.Connection,2,2'
f_mark=False
DoWhileNotrs.EOF()AndNotf_mark
Ifrs("
姓名"
)=Text1.ValueThen'
Text2.Value=rs("
Text3.Value=rs("
性别"
Text4.Value=rs("
出生日期"
Text5.Value=rs("
专业名称"
职称"
Case"
讲师"
Frame1.Value=1
副教授"
Frame1.Value=2
教授"
Frame1.Value=3'
f_mark=True
rs.MoveNext'
IfNotf_markThen
查无此人!
***UserCodeEnd***
五-1
PrivateSubComboFont_Change()
TxtTest.FontName=ComboFont.Value
五-2
DimxAsInteger
0Then
请输入一个自然数"
ElseIfxMod2=0Then
Label1.Caption=x&
是偶数"
是奇数"
五-3
DimstrSQLAsString'
用于存储SQL语句
Select姓名FromExamStuWhere生源='
rs.OpenstrSQL,CurrentProject.Connection,2,2
DoWhileNotrs.EOF'
List1.AddItemrs("
六-1
PrivateSubListFontS_Click()
TxtTest.FontSize=ListFontS.Value
六-2
字符串转换
Dimstr1AsString,str2AsString,charAsString
DimnAsInteger
str1=
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- access 数据库 编程 题目 10