在考生文件夹下存在一个数据库文件samp3.mdb,里面已经设计了表对象tEmp、窗体对象fEmp、报表对象rEmp和宏对象mEmp。同时,给出窗体对象fEmp上一个按钮的单击事件代码,试按以下要求补充设计。
单击“报表输出”按钮(名为bt1),事件代码会弹出以下图例显示的消息框提示,选择是否进行预览报表rEmp;单击“退出”按钮(名为bt2),调用设计好的宏mEmp来关闭窗体。
[注意] 不允许修改数据库中的表对象tEmp和宏对象mEmp;不允许修改窗体对象fEmp和报表对象rEmp中未涉及的控件和属性。程序代码只允许在“* * * * * Add * * * * *”与“* * * * * Add * * * * *”之间的空行内补充一行语句、完成设计,不允许增删和修改其他位置已存在的语句。
参考答案:单击对象列表中的“窗体”对象,选中fEmp窗体,单击[*]按钮,打开窗体设计视图。单击名为“bt1”的“报表输出”按钮,单击鼠标右键,在右键菜单中选择“事件生成器”命令,打开VBA代码窗口。在“* * * Add * * *”与“* * * Add * * *”之间的空行内输入语句“If MsgBox("报表预览",vbYesN0+vbQuestion,"确认")=vbYes Then”,如图7-8所示。保存后关闭VBA代码窗口。单击名称为“bt2”的“退出”按钮,打开属性对话框,单击“事件”标签,在“单击”事件行中单击下拉按钮,选择“mEmp”。保存窗体后,切换到窗体视图,查看窗体的效果是否满足题目要求。完成上述4题的操作后,关闭数据库文件samp3.mdb。
[*]
解析:[考核要点]
本题考核的是窗体、报表的设计。包括控件的Tab键索引顺序,窗体中控件的大小和位置的调整,报表记录的排序与分组,报表页码的设置以及VBA代码设计。