问答题
在考生文件夹下有一个数据库文件“samp3．accdb”，里面已经设计好了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计。 (1)设置表对象“tEmp”中“年龄”字段的有效性规则为：年龄值在20～50岁之间(不含20岁和50岁)，相应有效性文本设置为“请输入有效年龄”。 (2)设置报表“rEmp”按照“性别”字段降序(先女后男)排列输出；将报表贞面页脚区域内名为“tPage”的文本框控件设置为“第N页／共M页”形式显示。 (3)将“fEmp”窗体上名为“btmP”的命令按钮由灰色无效状态改为有效状态。设置窗体标题为“职工信息输出”。 (4)根据以下窗体功能要求，对已给的命令按钮事件过程进行补允和完善。在“fEmp”窗体上单击“输出”命令按钮(名为“btnP”)，弹出一个输入对话框，其提示文本为“请输入大于0的整数值”。 .输入1时，相关代码关闭窗体(或程序)。 .输入2时，相关代码实现预览输出报表对象“rEmp”。 .输入≥3时，相关代码调用宏对象“mEmp”，以打开数据表“tEmp”。 注意：不要修改数据库中的宏对象“mEmp”；不要修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性；不要修改表对象“tEmp”中未涉及的字段和属性。 程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句。完成设计，不允许增删和修改其他位置已存在的语句。
【正确答案】正确答案：(1)步骤1：选择“表”对象，右键单击“tEmp”表，从弹出的快捷菜单中选择“设计视图”命令。 步骤2：单击“年龄”字段行任一点，在“有效性规则”行输入“>20 and <50”，在“有效性文本”行输入“请输入有效年龄”，如图3．278所示。
步骤3：按Ctrl+S保存修改，关闭设计视图。 (2)步骤1：选择“报表”对象，右键单击“rEmp”报表，从弹出的快捷菜单中选择“设计视图”命令。 步骤2：单击“报表设计工具”的“设计”选项卡“分组和汇总”组中的“分组和排序”按钮，在“分组、排序和汇总”界面选择“添加排序”，选择”排序依据”下拉列表中的“性别”字段，选择“降序”，如图3．279所示，关闭界面。 步骤3：右键单击“Wage”，从弹出的快捷菜单中选择“属性”命令，在“全部”选项卡“控件来源”行输入“="第"＆[Page]＆"页／共"＆[Pagesj＆"页"”，如图3．280所示。关闭属性表。将该控件调整到合适的大小。
步骤4：按Ctrl+S保存修改，关闭设计视图。 (3)步骤1：选择“窗体”对象，右键单击“fEmp”窗体，从弹出的快捷菜单中选择“设计视图”命令。 步骤2：右键单击命令按钮“btnP”，从弹出的快捷菜单中选择“属性”命令，在“数据”选项卡的“可用”行下拉列表中选择“是”，如图3．281所示。关闭属性表。
步骤3：右键单击“窗体选择器”，从弹出的快捷菜单中选择“属性”命令，在“标题”行输入“职上信息输出”。关闭属性表。 (4)步骤1：右键单击命令按钮“输出”，从弹出的快捷菜单中选择“事件生成器”命令，在弹出的对话框中选择“代码生成器”，单击“确定”按钮，进入编程环境，在空行内输入以下代码： Pfivme Sub btnP-Click() Dim k As String '*****Add1***** k=InputBox("请输入大于0的整数"，"Msg") '*****Add1***** If k=" "Then Exit Sub Select Case Val(k) Case Is>=3 DoCmd．RunMacro"mEmp" Case 2 '*****Add2***** DoCmd．OpenRepon"mEmp" '*****Add2***** Case 1 DoCmd．Close End Select End Sub 如图3．282所示。
步骤3：按Ctrl+S保存修改，关闭设计视图。 (2)步骤1：选择“报表”对象，右键单击“rEmp”报表，从弹出的快捷菜单中选择“设计视图”命令。 步骤2：单击“报表设计工具”的“设计”选项卡“分组和汇总”组中的“分组和排序”按钮，在“分组、排序和汇总”界面选择“添加排序”，选择”排序依据”下拉列表中的“性别”字段，选择“降序”，如图3．279所示，关闭界面。 步骤3：右键单击“Wage”，从弹出的快捷菜单中选择“属性”命令，在“全部”选项卡“控件来源”行输入“="第"＆[Page]＆"页／共"＆[Pagesj＆"页"”，如图3．280所示。关闭属性表。将该控件调整到合适的大小。
步骤4：按Ctrl+S保存修改，关闭设计视图。 (3)步骤1：选择“窗体”对象，右键单击“fEmp”窗体，从弹出的快捷菜单中选择“设计视图”命令。 步骤2：右键单击命令按钮“btnP”，从弹出的快捷菜单中选择“属性”命令，在“数据”选项卡的“可用”行下拉列表中选择“是”，如图3．281所示。关闭属性表。
步骤3：右键单击“窗体选择器”，从弹出的快捷菜单中选择“属性”命令，在“标题”行输入“职上信息输出”。关闭属性表。 (4)步骤1：右键单击命令按钮“输出”，从弹出的快捷菜单中选择“事件生成器”命令，在弹出的对话框中选择“代码生成器”，单击“确定”按钮，进入编程环境，在空行内输入以下代码： Pfivme Sub btnP-Click() Dim k As String '*****Add1***** k=InputBox("请输入大于0的整数"，"Msg") '*****Add1***** If k=" "Then Exit Sub Select Case Val(k) Case Is>=3 DoCmd．RunMacro"mEmp" Case 2 '*****Add2***** DoCmd．OpenRepon"mEmp" '*****Add2***** Case 1 DoCmd．Close End Select End Sub 如图3．282所示。
【答案解析】解析：第1小题在表设计视图中设置字段属性；第2、3小题分别在窗体和报表设计视图单击控件名，从弹出的快捷菜单中选择“属性”命令，设置属性；第4小题直接用右键单击控件，从弹出的快捷菜雌中选择“事件生成器”命令，在弹出的对话框中选择“代码生成器”，进入编程环境，输入代码。