在考生文件夹下存在一个数据库文件samp3.mdb,里面存在已经设计了表对象tEmp、查询对象qEmp、窗体对象fEmp和宏对象mEmp。同时,给出窗体对象fEmp上一个按钮的单击事件代码,试按以下要求补充设计。
单击“刷新”按钮(名为bt1),在事件过程中补.充语句,动态设置窗体记录源为查询对象qEmp,实现窗体数据按性别条件动态显示退休职工的信息;单击“退出”按钮(名为bt2),调用设计好的宏mEmp来关闭窗体。
注意:不允许修改数据库中的表对象tEmp和宏对象mEmp;不允许修改查询对象qEmp中未涉及的属性和内容;不允许修改窗体对象fEmp中未涉及的控件和属性。程序代码只允许在“* * * * * Add * * * * *”与“* * * * * Add * * * * *”之间的空行内补充一行语句完成设计,不允许增删和修改其他位置已存在的语句。
参考答案:单击对象列表中的“窗体”对象,选中fEmp窗体,单击“设计”按钮,打开窗体设计视图。单击名为bt1的“刷新”按钮,单击工具栏中的[*]属性按钮打开属性对话框。单击“事件”标签,光标定位在“单击”属性行“[事件过程]“中,单击右侧的[*]按钮,打开VBA代码窗口。在“* * ** * Add * * * * *”与“* * * * * Add * * * * *”之间的空行内输入语句“Me.RecordSource="qEmp"”,如图6-8所示。保存后关闭VBA代码窗口。单击名称为bt2的“退出”按钮,打开属性对话框,单击“事件”标签,在“单击”事件行中单击下拉按钮,选择“mEmp”。保存后将窗体切换到窗体视图,查看以上操作的结果。完成上述4题的操作后,关闭数据库文件samp3.mdb。
[*]
解析:[考核要点]
本题主要考核的是窗体的设计。包括组合框控件和复选框控件的设计,查询条件的设置以及VBA代码的编写。