问答题
在考生文件夹下有一个数据库文件"samp3.mdb"，里面已经设计了表对象"tEmp"、窗体对象"fEmp"、报表对象"rEmp"和宏对象"mEmp"。试在此基础上按照以下要求补充设计：(1)设置表对象"tEmp"中"年龄"字段的有效性规则为：年龄值在20到50之间(不含20和50)，相应有效性文本设置为"请输入有效年龄"。(2)设置报表"rEmp"按照"性别"字段降序(先女后男)排列输出；将报表页面页脚区域内名为"tPage"的文本框控件设置为"第N页/共M页"形式显示。(3)将"fEmp"窗体上名为"btnP"的命令按钮由灰色无效状态改为有效状态。设置窗体标题为"职工信息输出"。(4)根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。在"fEmp"窗体上单击"输出"命令按钮(名为"btnP")，弹出一个输入对话框，其提示文本为"请输入大于0的整数值"。输入1时，相关代码关闭窗体(或程序)。输入2时，相关代码实现预览输出报表对象"rEmp"。输入>＝3时，相关代码调用宏对象"mEmp"以打开数据表"tEmp"。注意：不要修改数据库中的宏对象"mEmp"；不要修改窗体对象"fEmp"和报表对象"rEmp"中未涉及的控件和属性；不要修改表对象"tEmp"中未涉及的字段和属性。程序代码只允许在"*****Add*****"与"*****Add*****"之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。
【正确答案】正确答案：(1)【操作步骤】 步骤1：选择"表"对象，右键单击"tEmp"，从弹出的快捷菜单中选择【设计视图】。 步骤2：单击"年龄"字段行任一点，在"有效性规则"行输入"＞20 and＜50"，在"有效性文本"行输入"请输入有效年龄"。 步骤3：单击工具栏中"保存"按钮
，关闭设计视图。 (2)【操作步骤】 步骤1：选择"报表"对象，右键单击"rEmp"，从弹出的快捷菜单中选择【设计视图】。 步骤2：单击菜单栏【视图】|【排序与分组】，在对话框的"字段/表达式"下拉列表中选中"性别"字段，在"排序与分组"下拉列表中选中"降序"，关闭"排序与分组"对话框。 步骤3：右键单击"tPage"，从弹出的快捷菜单中选择【属性】，在"全部"选项卡"控件来源"行输入"＝"第 " & [Page] & " 页/共 " & [Pages] & " 页""，关闭属性界面。 步骤4：单击工具栏中"保存"按钮
，关闭设计视图。 (3)【操作步骤】 步骤1：选择"窗体"对象，右键单击"fEmp"，从弹出的快捷菜单中选择【设计视图】。 步骤2：右键单击命令按钮"btnp"，从弹出的快捷菜单中选择【属性】，在"数据"选项卡的"可用"右侧下拉列表中选中"是"，关闭属性界面。 步骤3：右键单击"窗体选择器"，从弹出的快捷菜单中选择【属性】，在"标题"行输入"职工信息输出"。关闭属性界面。 (4)【操作步骤】 步骤1：右键单击命令按钮"输出"，从弹出的快捷菜单中选择【事件生成器】，空行内输入代码： Private Sub btnP Click() Dim k As String '*****Add1***** k=InputBox（"请输入大于0的整数","Msg"） '*****Add1***** If k=""Then Exit Sub Select Case Val(k) Case 2 '*****Add1***** DoCmd.OpenReport"mEmp" Case 1 DoCmd.Close End Select End Sub 步骤2：单击工具栏中"保存"按钮
，关闭设计视图。 (2)【操作步骤】 步骤1：选择"报表"对象，右键单击"rEmp"，从弹出的快捷菜单中选择【设计视图】。 步骤2：单击菜单栏【视图】|【排序与分组】，在对话框的"字段/表达式"下拉列表中选中"性别"字段，在"排序与分组"下拉列表中选中"降序"，关闭"排序与分组"对话框。 步骤3：右键单击"tPage"，从弹出的快捷菜单中选择【属性】，在"全部"选项卡"控件来源"行输入"＝"第 " & [Page] & " 页/共 " & [Pages] & " 页""，关闭属性界面。 步骤4：单击工具栏中"保存"按钮，关闭设计视图。 (3)【操作步骤】 步骤1：选择"窗体"对象，右键单击"fEmp"，从弹出的快捷菜单中选择【设计视图】。 步骤2：右键单击命令按钮"btnp"，从弹出的快捷菜单中选择【属性】，在"数据"选项卡的"可用"右侧下拉列表中选中"是"，关闭属性界面。 步骤3：右键单击"窗体选择器"，从弹出的快捷菜单中选择【属性】，在"标题"行输入"职工信息输出"。关闭属性界面。 (4)【操作步骤】 步骤1：右键单击命令按钮"输出"，从弹出的快捷菜单中选择【事件生成器】，空行内输入代码： Private Sub btnP Click() Dim k As String '*****Add1***** k=InputBox（"请输入大于0的整数","Msg"） '*****Add1***** If k=""Then Exit Sub Select Case Val(k) Case 2 '*****Add1***** DoCmd.OpenReport"mEmp" Case 1 DoCmd.Close End Select End Sub 步骤2：单击工具栏中"保存"按钮【答案解析】