在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、宏对象“mEmp”和报表对象“rEmp”。同时,给出窗体对象“fEmp”的“加载”事件和“预览”及“打印”两个命令按钮的单击事件代码,请按以下

admin2017-07-27  24

问题 在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、宏对象“mEmp”和报表对象“rEmp”。同时,给出窗体对象“fEmp”的“加载”事件和“预览”及“打印”两个命令按钮的单击事件代码,请按以下功能要求补充设计。
(1)将窗体“fEmp”上的标签“bTitle”以“特殊效果:阴影”显示。
(2)已知窗体“fEmp”上的3个命令按钮中,按钮“bt1”和“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:按Ctrl+S保存修改,关闭设计视图。

解析 本题考点:窗体中标签和命令按钮控件属性的设置;报表属性设置等。
第1、2题通过在窗体的设计视图中用鼠标右键单击该控件,从弹出的快捷菜单中选择“属性”命令,设置属性;第3小题直接用鼠标右键单击控件名,从弹出的快捷菜单中选择“事件生成器”命令,输入代码;第4小题直接用鼠标右键单击“报表选择器”,从弹出的快捷菜单中选择“属性”命令,设置属性。设置命令按钮“bt2”时,要查看另外两个命令按钮数据的设置,运用简单的计算得出“bt2”的位置参数。
转载请注明原文地址:https://jikaoti.com/ti/c510FFFM
0

最新回复(0)