问答题
在考生文件夹下有一个数据库文件“samp3．accdb”，里面已经设计了表对象“tEmp”、窗体对象“fEmp”、宏对象“mEmp”和报表对象“rEmp”。同时，给出窗体对象“fEmp”的“加载”事件和“预览”及“打印”两个命令按钮的单击事件代码，请按以下功能要求补充设计。 (1)将窗体“fEmp”上的标签“bTitle”以“特殊效果：阴影”显示。 (2)已知窗体“fEmp”上的3个命令按钮中，按钮“btl”和“bt3”的大小一致且左对齐。现要求在不更改“bt1”和“bt3”大小位置的基础上，调整按钮“bt2”的大小和位置，使其大小与“bt1”和“bt3”相同，在水平方向左对齐“bt1”和“bt3”，竖直方向在“bt1”和“bt3”之间的位置。 (3)在窗体“fEmp”的“加载”事件中设置标签“bTitle”以红色文本显示；单击“预览”按钮(名为“bt1”)或“打印”按钮(名为“bt2”)，事件过程传递参数调用同一个用户自定义代码(mdPnt)过程，实现报表预览或打印输出；单击“退出”按钮(名为“bt3”)，调用设计好的宏“mEmp”，以关闭窗体。 (4)将报表对象“rEmp”的记录源属性设置为表对象“tEmp”。 注意：不要修改教据库中的表对象“tEmp”和宏对象“mEmp”；不要修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性。 程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其他位置已存在的语句。
【正确答案】正确答案：(1)【操作步骤】 步骤1：选择“窗体”对象，右键单击“fEmp”，从弹出的快捷菜单中选择“设计视图”命令。 步骤2：右键单击标签控件“bTitle”，从弹出的快捷菜单中选择“属性”命令，在“特殊效果”行下拉列表中选择“阴影”，如图3．345所示。
步骤3：关闭属性表。 (2)【操作步骤】 步骤1：右键单击“bt1”按钮，从弹出的快捷菜单中选择“属性”命令，查看“左”、“上边距”、“宽度”和“高度”，并记录下来。关闭属性表。 步骤2：右键单击“bt3”按钮，从弹出的快捷菜单中选择“属性”命令，查看“上边距”，并记录下来。关闭属性表。 步骤3：要设置“bt2”与"bt1”大小一致、左对齐且位于“bt1”和“bt3”之间，右键单击“bt2”按钮，从弹出的快捷菜单中选择“属性”命令，分别在“左”、“上边距”、“宽度”和“高度”行输入“3cm”、“2．5cm”、“3cm”和“1cm”，如图3．346所示，关闭属性表。
步骤4：按Ctrl＋S保存修改，关闭关系界面。 (3)【操作步骤】 步骤1：打开窗体“fEmp”设计视图，右键单击窗体，选择“事件生成器”命令，在弹出的对话框中选择“代码生成器”，进入编码环境。 步骤2：在空行内分别输入以下代码： ′*****Add1***** bTitle．ForeColor＝vbRed ′*****Add1***** ′*****Add2***** mdPnt(acViewPreview) ′*****Add2***** ′*****Add3***** mdPnt(acViewNormal) ′*****Add3***** 关闭界面。 步骤3：右键单击“退出”按钮，选择“属性”命令，在“属性表”界面“事件”选项卡“单击”行的下拉列表中选择“mEmp”，如图3．347所示，关闭属性表。
步骤4：按Ctrl＋S保存修改，关闭设计视图。 (4)【操作步骤】 步骤1：选择“报表”对象，右键单击“rEmp”，从弹出的快捷菜单中选择“设计视图”命令。 步骤2：右键单击“报表选择器”，从弹出的快捷菜单中选择“属性”命令，在“记录源”行下拉列表中选择“tEmp”，关闭属性表。如图3．348所示。
步骤3：关闭属性表。 (2)【操作步骤】 步骤1：右键单击“bt1”按钮，从弹出的快捷菜单中选择“属性”命令，查看“左”、“上边距”、“宽度”和“高度”，并记录下来。关闭属性表。 步骤2：右键单击“bt3”按钮，从弹出的快捷菜单中选择“属性”命令，查看“上边距”，并记录下来。关闭属性表。 步骤3：要设置“bt2”与"bt1”大小一致、左对齐且位于“bt1”和“bt3”之间，右键单击“bt2”按钮，从弹出的快捷菜单中选择“属性”命令，分别在“左”、“上边距”、“宽度”和“高度”行输入“3cm”、“2．5cm”、“3cm”和“1cm”，如图3．346所示，关闭属性表。步骤4：按Ctrl＋S保存修改，关闭关系界面。 (3)【操作步骤】 步骤1：打开窗体“fEmp”设计视图，右键单击窗体，选择“事件生成器”命令，在弹出的对话框中选择“代码生成器”，进入编码环境。 步骤2：在空行内分别输入以下代码： ′*****Add1***** bTitle．ForeColor＝vbRed ′*****Add1***** ′*****Add2***** mdPnt(acViewPreview) ′*****Add2***** ′*****Add3***** mdPnt(acViewNormal) ′*****Add3***** 关闭界面。 步骤3：右键单击“退出”按钮，选择“属性”命令，在“属性表”界面“事件”选项卡“单击”行的下拉列表中选择“mEmp”，如图3．347所示，关闭属性表。步骤4：按Ctrl＋S保存修改，关闭设计视图。 (4)【操作步骤】 步骤1：选择“报表”对象，右键单击“rEmp”，从弹出的快捷菜单中选择“设计视图”命令。 步骤2：右键单击“报表选择器”，从弹出的快捷菜单中选择“属性”命令，在“记录源”行下拉列表中选择“tEmp”，关闭属性表。如图3．348所示。【答案解析】