ACCESS代码.docx
《ACCESS代码.docx》由会员分享,可在线阅读,更多相关《ACCESS代码.docx(10页珍藏版)》请在冰豆网上搜索。
ACCESS代码
第1套:
试根据以下窗体功能要求,对已给的事件过程进行代码补充,并运行调试。
在“fEmp”窗体上单击“输出”命令按钮(名为“btnP”),计算满足表达式1+2+3+…+n<=30000的最大n值,并将n的值显示在窗体上名为“tData”的文本框内并输出到外部文件保存
点击"查看代码"按钮
1.Me.caption=bTitle.Caption
2.DoCmd.RunMacro"mEmp"
3.n=244
注意:
关闭代码窗口,切换到“窗体视图”,点击“输出”按钮。
最后保存并关闭该窗体。
第2套:
"fEmp"窗体上单击"输出"命令按钮(名为"btnP"),实现以下功能:
计算Fibonacci数列第19项的值,将结果显示在窗体上名为"tData"的文本框内并输出到外部文件保存;Fibonacci数列:
调试完毕,必须点击"输出"命令按钮生成外部文件,才能得分。
点击"查看代码"按钮
1.Dimf(19)AsInteger
2.f(i)=f(i-1)+f(i-2)
3.tData=f(19)
注意:
保存窗体,切换到”窗体视图”,点击窗体上”输出”命令按钮。
关闭窗体。
第3套:
(3)在窗体加载事件中实现代码重置窗体标题为标签"bTitle"的标题内容。
(4)"fEmp"窗体上单击"输出"命令按钮(名为"btnP"),实现以下功能:
计算10000以内的素数个数及最大素数两个值,将其显示在窗体上名为"tData"的文本框内并输出到外部文件保存。
点击”查看代码”按钮
2.n=1229
mn=9973
3.DoCmd.RunMacro"mEmp"
1.Me.Caption=bTitle.Caption
注意:
关闭代码窗口,保存窗体,切换到”窗体视图”,点击”输出”按钮,关闭
第4套:
在窗体加载事件中,实现重置窗体标题为当前年月加标签“tTitle”的标题内容,如“2013年06月xxxx”。
其中,当前年月要求用函数获得,xxxx部分是标签“tTitle”的标题内容。
在窗体中有一个组合框控件和一个文本框控件,名称分别为“CItem”和“TxtDetail”;有两个标签控件,名称分别为“Label3”和“Ldetail”;还有三个命令按钮,名称分别为“CmdList”、“CmdRefer”和“CmdClear”。
在“CItem”组合框中选择某一项目后,“Ldetail”标签控件将显示出所选项目名加上“内容:
”。
在“TxtDetail”文本框中输入具体项目值后,单击“CmdRefer”命令按钮,如果“CItem”和“TxtDetail”两个控件中均有值,则在子窗体中显示找出的相应记录,如果两个控件中没有值,显示提示框,提示框标题为“注意”,提示文字为“查询项目或查询内容不能为空!
!
!
”,提示框中只有一个“确定”按钮;单击“CmdList”命令按钮,在子窗体中显示“tStud”表中的全部记录;单击“CmdClear”命令按钮,将清空控件“cItem”和“TxtDetail”中的值。
点击”查看代码”按钮,打开代码窗口:
1.Ldetail.Caption=CItem&”内容:
”
2.fDetail.Form.RecordSource="tStud"
3.MsgBox"查询项目或查询内容不能为空!
!
!
",vbOKOnly,"注意"
4.Caption=Year(Date)&"年"&Month(Date)&"月"&tTitle.Caption
第5套:
在窗体加载时,“tPass”文本框的内容以密码形式显示。
在窗体中有“用户名称”和“用户密码”两个文本框,名称分别为“tUser”和“tPass”,还有“确定”和“退出”两个命令按钮,名称分别为“cmdEnter”和“cmdQuit”。
在“tUser”和“tPass”两个文本框中输入用户名称和用户密码后,单击“确定”按钮,程序将判断输入的值是否正确,如果输入的用户名称为“cueb”,用户密码为“1234”,则显示正确提示框;如果输入不正确,则提示框显示内容为“密码错误!
”,同时清除“tUser”和“tPass”两个文本框中的内容,并将光标置于“tUser”文本框中。
当单击窗体上的“退出”按钮后,关闭当前窗体。
2.Ifpass="1234"Andname="cueb"Then
3.tUser.SetFocus
4.DoCmd.Close
1.tPass.InputMask="PassWord"
第6套:
在窗体中有一个“退出”命令按钮,名称为“CmdQuit”,单击该按钮,弹出提示框。
提示框标题为“提示”,提示框内容为“确认退出?
”,并显示问号图标;提示框中有两个按钮,分别为“是”和“否”,单击“是”按钮,关闭消息框和当前窗体,单击“否”按钮,关闭消息框。
点击"查看代码"按钮
IfMsgBox("确认退出?
",vbYesNo+vbQuestion,"提示")=vbYesThen
第7套:
(1)打开窗体时设置窗体标题为“XXXX年信息输出”显示,其中“XXXX”为系统当前年份(要求用相关函数获取),例如,2013年信息输出。
(4)单击窗体“报表输出”按钮(名为“bt1”),调用事件代码实现以预览方式打开报表“rEmp”。
点击"查看代码"按钮
1.Me.Caption=Year(Date())&"年信息输出"
2.DoCmd.OpenReport"rEmp",acViewPreview
第8套:
在窗体中还有"修改"和"保存"两个命令按钮,名称分别"CmdEdit"和"CmdSave",其中"保存"命令按钮在初始状态为不可用,当单击"修改"按钮后,"保存"按钮变为可用。
当单击"保存"按钮后,输入焦点移到"修改"按钮。
1.CmdSave.Enabled=True
2.DoCmd.GoToControl"cmdedit"
第9套:
按照以下窗体功能,补充事件代码设计。
在窗体中有一个组合框控件和一个文本框控件,名称分别“CItem”和“TxtDetail";有两个标签控件,名称分别为“Label3”和“Ldetail”;还有三个命令按钮,名称分别为“CmdList”、“CmdRefer”和“CmdClear”。
在“CItem”组合框中选择某一项目后,“Ldetail”标签控件将显示出所选项目名加上“内容:
”。
在“TxtDetail"文本框中输入具体项目值后,单击“CmdRefer”命令按钮,如果“CItem”和“TxtDetail"两个控件中均有值,则在子窗体中显示找出的相应记录,如果两个控件中不全有值,显示消息框,消息框标题为“注意”,提示文字为“查询项目和查询内容不能为空!
!
!
”,消息框中只有一个“确定”按钮;单击“CmdList”命令按钮,在子窗体中显示“tStud"表中的全部记录;单击“CmdClear”命令按钮,将“cItem”和“TxtDetail"两个控件中的值清空。
点击"查看代码"按钮
1.Ldetail.Caption=cItem&"内容:
"
2.fDetail.Form.RecordSource="tStud"
3.MsgBox"查询项目和查询内容不能为空!
!
!
",vbOKOnly,"注意"
第10套:
(3)在窗体加载事件中,实现重置窗体标题为标签“tTitle”的标题内容。
(4)试根据以下窗体功能要求,对已给的事件过程进行代码补充,并运行调试。
在窗体中有一个组合框控件和一个文本框控件名称分别“CItem”和“TxtDetail”;有两个标签控件,名称分别为“Label3”和“Ldetail”;还有三个命令按钮,名称分别为“CmdList”、“CmdRefer”和“CmdClear”。
在“CItem”组合框中选择某一项目后,“Ldetail”标签控件将显示出所选项目名加上“内容:
”。
在“TxtDetail”文本框中输入具体项目值后,单击“CmdRefer”命令按钮,如果“CItem”和“TxtDetail”两个控件中均有值,则在子窗体中显示找出的相应记录,如果两个控件中没有值,显示提示框,提示框标题为“注意”,提示文字为“查询项目或查询内容不能为空!
!
!
”,提示框中只有一个“确定”按钮;单击“CmdList”命令按钮,在子窗体中显示“tStud”表中的全部记录;单击“CmdClear”命令按钮,将清空控件“cItem”和“TxtDetail”中的值。
点击”查看代码”按钮
1.Ldetail.Caption=CItem&"内容:
"
2.fDetail.Form.RecordSource="tStud"
3.MsgBox"查询项目或查询内容不能为空!
!
!
",vbOKOnly,"注意"
4.Me.Caption=tTitle.Caption
第11套:
单击命令按钮bList,要求运行宏对象m1;
窗体加载时,将“Tda”标签标题设置为“YYYY年雇员信息”,其中“YYYY”为系统当前年份(要求使用相关函数获取),例如,2013年雇员信息。
点击"查看代码"按钮
2.DoCmd.RunMacro"m1"
1.Tda.Caption=Year(Date())&"年雇员信息"
第12套:
(3)在窗体加载事件中,实现重置窗体标题为标签"bTitle"的标题内容。
(4)"fEmp"窗体上单击"男性最大年龄"命令按钮(名为"btnP")查找表对象"tEmp"中男性员工的最大年龄,将其输出显示在控件tData内;统计年龄在30以下(不含30)男性员工的人数,将其值写入外部文件"out.dat"中。
单击"打开员工报表"命令按钮(名为"btnQ"),通过代码调用宏对象"mEmp"以打开报表"rEmp"。
点击"查看代码"按钮
2.MAgeMax=rs.Fields("年龄")
3.rs.MoveNext
4.DoCmd.RunMacro"mEmp"
1.Me.Caption=bTitle.Caption
注意:
关闭代码窗口,保存窗体,切换到”窗体视图”,点击”男性最大年龄”按钮,最后保存并运行该窗体。
第13套:
在窗体对象“fEmp”上有“刷新”和“退出”两个命令按钮,名称分别为“bt1”和“bt2”。
单击“刷新”按钮,窗体记录源为查询对象“qEmp”;单击“退出”按钮,关闭窗体。
点击"查看代码"按钮
1.Me.recordSource="qEmp"
2.DoCmd.Close
第14套:
(3)在窗体加载事件中实现代码重置窗体标题为"**年度报表输出"显示,其中**为两位的当前年显示,要求用相关函数获取。
(4)单击"报表输出"按钮(名为"bt1"),调用事件代码先设置"退出"按钮标题为粗体显示,然后以预览方式打开报表"rEmp"
点击”查看代码”按钮
1.Me.Caption=year(date())mod100&"年度报表输出"
2.bt2.FontBold=True
3.DoCmd.OpenReport"rEmp",acViewPreview
4.ErrHanle:
第15套:
(3)窗体加载事件实现的功能是显示窗体标题,显示内容为"****年度报表输出",其中四位****为系统当前年份
(4)窗体中"报表输出"和"退出"按钮的功能是单击"报表输出"按钮(名为"bt1")后,首先将"退出"按钮标题变为红色,然后以预览方式打开报表"rEmp"
点击”查看代码”按钮
1.Me.Caption=Year(Date())&"年度报表输出"
2.bt2.ForeColor=255
3.DoCmd.OpenReport"rEmp",acViewPreview
4.ErrHanle:
第16套:
(3)在"fStud"窗体中有一个年龄文本框和一个退出命令按钮,名称分别为"tAge"和"CmdQuit"。
年龄文本框的功能是显示学生的年龄,对年龄文本框进行适当的设置,使之能够实现此功能;退出命令按钮的功能是关闭"fStud"窗体,
(5)在"fStud"窗体和"fScore子窗体"子窗体中各有一个平均成绩文本框控件,名称分别为"txtMAvg"和"txtAvg",对两个文本框进行适当设置,使"fStud"窗体中的"txtMAvg"文本框能够显示出每名学生所选课程的平均成绩。
点击”查看代码”按钮,
DoCmd.Close
5.选择"txtMAvg"文本框,设置"控件来源"属性为:
=[fScore子窗体]!
txtavg;选择"txtAvg"文本框,设置"控件来源"属性为:
=Avg([成绩]),保存关闭窗体。
第17套:
按照以下窗体功能,补充事件代码设计。
窗体运行后,在窗体右侧显示可以修改的用户名、密码等内容的列表,同时在窗体左侧显示列表中所指用户的信息。
三个命令按钮,名称分别"CmdEdit"、"CmdSave"和"cmdquit"。
当单击"修改"按钮后,在窗体左侧显示出该窗体右侧光标所指用户的口令信息,同时"保存"按钮变为可用;在"口令"和"确认口令"文本框中输入口令信息后,单击"保存"按钮,若在两个文本框中输入的信息相同,则保存修改后的信息,并先将"保存"命令按钮变为不可用,再将除用户名外的其他文本框控件和标签控件全部隐藏,最后将用户名以只读方式显示;若在两个文本框中输入的信息不同,则显示提示框,显示内容为"请重新输入口令!
",提示框中只有一个"确定"按钮。
单击窗体上的"退出"按钮,关闭当前窗体。
点击"查看代码"按钮
4.DoCmd.Close
1.CmdSave.Enabled=False
2.tUser_1.Enabled=False
3.MsgBox"请重新输入口令!
",vbOKquit
第18套:
(4)单击"报表输出"按钮(名为"bt1"),事件代码会弹出以下图例显示的消息框提示,选择是否进行预览报表"rEmp";
点击“查看代码”按钮
IfMsgBox("报表预览",vbYesNo+vbQuestion,"确认")=vbYesThen
第19套:
窗体加载时设置窗体标题属性为"****年职工信息输出",其中****为系统当前年。
点击"查看代码"按钮
Me.Caption=Year(Date())&"年职工信息输出"
第20套:
(4)窗体加载时将考生文件夹下的图片文件"test.bmp"设置为窗体"fEmp"的背景。
要求背景图像文件当前路径必须用CurrentProject.Path获得。
点击“查看代码”按钮
Me.Picture=CurrentProject.Path+"\test.bmp"
第21套:
单击"刷新"按钮(名为"bt1"),事件过程动态设置窗体记录源为查询对象"qEmp",实现窗体数据按性别条件动态显示退休职工的信息
点击"查看代码"按钮
Me.RecordSource="qEmp"
第22套:
在窗体"fEmp"的"加载"事件中设置标签"bTitle"以红色文本显示;单击"预览"按钮(名为"bt1")或"打印"按钮(名为"bt2"),事件过程传递参数调用同一个用户自定义代码(mdPnt)过程,实现报表预览或打印输出;单击"退出"按钮(名为"bt3"),调用设计好的宏"mEmp"来关闭窗体。
点击"查看代码"按钮
1.bTitle.ForeColor=255
2.mdPntacViewPreview
第23套:
窗体加载时设置窗体标题属性为系统当前日期。
点击”查看代码”按钮Me.Caption=Date
第24套:
在“fEmp”窗体的窗体页眉节区有一个文本框控件和一个命令按钮,名称分别为“TxtDetail”和“CmdRefer”;在主体节区有多个文本框控件,显示“tBook”表中的相关信息。
在“TxtDetail”文本框中输入具体值后,单击“CmdRefer”命令按钮。
如果“TxtDetail”文本框中没有值,则显示提示框,提示文字为“对不起!
未输入雇员姓名,请输入!
”;如果“TxtDetail”文本框中有值,则在“tBook”表中进行查找,如果找到了相应记录,则显示在主体节对应的文本框控件中,如果没有找到,则显示提示框,提示框显示标题为“查找结果”,提示文字为“对不起!
没有这个雇员!
”,提示框中只有一个“确定”按钮,然后清除“TxtDetail”文本框中的内容,并将光标置于“TxtDetail”文本框中。
点击"查看代码"按钮
1.Setrs=NewADODB.Recordset
2.Ifrs.EOFThen
3.Me.TxtDetail=""