ACCESS代码.docx

ACCESS代码.docx

《ACCESS代码.docx》由会员分享，可在线阅读，更多相关《ACCESS代码.docx（8页珍藏版）》请在冰豆网上搜索。

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=""