全国计算机等级考试二级ACCESS—vba操作题参考答案

等级考试中的vba操作题

操作说明：不允许修改窗体等对象中未涉及的控件、属性；程序代码只允许在“**********”与“**********”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。

要求：打开窗体，查看代码的实际效果。

1.

数据库：samp01.mdb

实现功能：

单击“刷新”按钮（名为“bt1”），在事件过程中补充语句，动态设置窗体记录源为查询对象“qEmp”，并刷新窗体记录，实现窗体数据按性别条件动态显示退休职工的信息；单击“退出”按钮（名为“bt2”），关闭窗体。

参考答案：

数据库：samp02.mdb

实现功能：

在窗体中有一个“显示全部记录”命令按钮（名称为bList），单击该按钮后，应实现将“tStudent”表中的全部记录显示出来的功能。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。

3.

数据库：samp03.mdb

实现功能：

窗体加载时设置窗体标题属性为系统当前日期。

单击“显示借书信息”按钮（名称为blist），以打印预览方式打开报表“rReader”。

Me.Caption = date()

Docmd.Openreport “rReader”,acviewpreview

数据库：samp04.mdb

实现功能：

在窗体对象“fEmp”上有“刷新”和“退出”两个命令按钮，名称分别为“bt1”和“bt2”。单击“刷新”按钮，窗体记录源改为查询对象“qEmp”；单击“退出”按钮，关闭窗体。

5.

数据库：samp05.mdb

实现功能：

窗体加载时，将标签”Tda”的标题设置为系统当前日期。

单击“显示雇员情况”按钮（名称为blist），运行宏“m1”

数据库：samp06.mdb

实现功能：

在“fEmp”窗体上单击“输出”命令按钮（名为“btnP”），弹出一输入对话框，其提示文本为“请输入大于0的整数值”。

➢输入1时，相关代码关闭窗体（或程序）。

➢输入2时，相关代码实现预览输出报表对象“rEmp”。

➢输入>=3时，相关代码调用宏对象“mEmp”以打开数据表“tEmp”。

数据库：samp07.mdb

实现功能：

fEdit窗体运行后，在窗体右侧显示可以修改的用户名、密码等内容的列表，同时在窗体左侧显示列表中所指用户的信息。另外，在窗体中还有“修改”、“保存”和“退出”三个命令按钮，名称分别为“CmdEdit”、“CmdSave”和“cmdquit”。

➢当单击“修改”按钮后，在窗体左侧显示出该窗体右侧光标所指用户的口令信息，同时“保存”按钮变为可用；

➢在“口令”和“确认口令”文本框中输入口令信息后，单击“保存”按钮，若在两个文本框中输入的信息相同，则保存修改后的信息，并先将“保存”命令按钮变为不可用，再将除用户名外的其他文本框控件和标签控件全部隐藏，最后将用户名以只读方式显示；

➢若在两个文本框中输入的信息不同，则显示提示框，显示内容为“请重新输入口令！”，提示框中只有一个“确定”按钮。

➢单击窗体上的“退出”按钮，关闭当前窗体。

数据库：samp08.mdb

实现功能：

设置命令按钮bC的单击事件，使用户单击该命令按钮后，bTitle标签的显示颜色改为红色（代码255）。

bTitle.forecolor = 255

9.

数据库：samp09.mdb

实现功能：

单击“退出”命令按钮，名称为“CmdQuit”,其功能为关闭“fStud”窗体。

DoCmd.close

数据库：samp10.mdb

实现功能：

在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“tUser”和“tPass”，还有“确定”和“退出”两个命令按钮，名称分别为“cmdEnter”和“cmdQuit”。在“tUser”和“tPass”两个文本框中输入用户名称和用户密码后，单击“确定”按钮，程序将判断输入的值是否正确，如果输入的用户名称为“cueb”，用户密码为“1234”，则显示提示框，提示框标题为“欢迎”，显示内容为“密码输入正确，欢迎进入系统！”，提示框中只有一个“确定”按钮，当单击“确定”按钮后，关闭该窗体；如果输入不正确，则提示框显示内容为“密码错误！”，同时清除“tUser”和“tPass”两个文本框中的内容，并将光标置于“tUser”文本框中。

当单击窗体上的“退出”按钮后，关闭当前窗体。

数据库：samp11.mdb

实现功能：

在窗体“fEmp”的“加载”事件中设置标签“bTitle”以红色（代码为255）文本显示；单击“预览”按钮（名为“bt1”）或“打印”按钮（名为“bt2”），事件过程传递参数调用同一个用户自定义代码（mdPnt）过程，实现报表预览或打印输出；

单击“退出”按钮（名为“bt3”），关闭窗体。

数据库：samp12.mdb

实现功能：

窗体加载时将考生文件夹下的图片文件“test.jpg”设置为窗体“fEmp”的背景。

要求背景图像文件当前路径必须用CurrentProject.Path获得。

13.

数据库：samp13.mdb

实现功能：

单击窗体上“报表输出”按钮（名为“bt1”），调用事件代码实现以预览方式打开报表“rEmp”；单击“退出”按钮（名为“bt2”），关闭窗体。

参考用书：

真正好的朋友，从来不需要这些表面功夫。走在这漫漫俗尘，形如微尘的我们，每天忙碌的像只蝼蚁，哪有时间去整那些虚假的表面文章。那些沉淀在岁月里的真情实意，哪一个不是无事各自忙，有事时，却又从不问回报几何的真心相助？