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

admin2018-09-20  26

问题 在考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、宏对象“mEmp”和报表对象“rEmp”。同时,给出窗体对象“fEmp”的“加载”事件和“预览”及“打印”两个命令按钮的单击事件代码,试按以下功能要求补充设计。
    (1)将窗体“fEmp”上标签“bTitle”以特殊效果:阴影显示。
    (2)已知窗体“fEmp”的三个命令按钮中,按钮“btl”和“bt3”的大小一致、且左对齐。现要求在不更改“bt1”和“bt3”大小位置的基础上,调整按钮“bt2”的大小和位置,使其大小与“bt1”和“bt3”相同,水平方向左对齐“bt1”和“bt3”,竖直方向在“bt1”和“bt3”之间的位置。
    (3)设置系统相关属性,实现窗体对象“fEmp”打开时以重叠窗口形式显示;设置报表对象“rEmp”的记录源属性为表对象“tEmp”。
    (4)在窗体“fEmp”的“加载”事件中设置标签“bTitle”以红色文本显示;单击“预览”按钮(名为“bt1”)或“打印”按钮(名为“bt2”),事件过程传递参数调用同一个用户自定义代码(mdPnt)过程,实现报表预览或打印输出;单击“退出”按钮(名为“bt3”),调用设计好的宏“mEmp”来关闭窗体。

选项

答案【操作步骤】 (1)步骤1:双击“samp3.accdb”数据库,在对象导航窗格中右键单击“fEmp”窗体,选择右键菜单“设计视图”,进入窗体的设计视图。 步骤2:在<窗体设计工具>选项卡的<工具>命令组中单击“属性表”命令,打开<属性表>对话框。在<属性表>对话框上方的对象选择器中选中“bTitle”标签,单击“格式”选项卡,设置“特殊效果”为“阴影”。 步骤3:单击快速访问工具栏中的“保存”按钮,保存设置。 (2)步骤1:在“fEmp”窗体的设计视图中,在<属性表>对话框上方的对象选择器中选中“bt1”按钮,看到其高度为1厘米、宽度为3厘米、左边距为3厘米。 步骤2:在<属性表>对话框上方的对象选择器中选中“bt2”按钮,在“格式”选项卡设置“高度”为“1cm”“宽度”为“3cm”“左”为“3cm”。 步骤3:按住单击三个按钮,将其同时选中。切换到<窗体设计工具>的<排列>选项卡,在“调整大小和排序”命令组中单击“大小/空格”的下拉箭头,在弹出的下拉列表中选择“垂直相等”命令。 步骤4:单击快速访问工具栏中的“保存”按钮,保存设置。 (3)步骤1:单击<文件>选项卡进入<后台视图>。单击“选项”命令按钮,弹出对话框,在对话框左侧选择“当前数据库”,在右侧详细项目设置中,将“文档窗口选项”设置为“重叠窗口”,如图10-11所示,单击“确定”按钮。 [*] 步骤2:关闭“samp1.accdb”数据库,再重新打开。双击窗体对象“fEmp”打开时,即以重叠窗口形式显示了。 步骤3:在对象导航窗格中右键单击“rEmp”报表,选择右键菜单“设计视图”,进入报表的设计视图,在<报表设计工具>选项卡的<工具>命令组中单击<属性表>命令,在“属性表”对话框上方的对象选择器中选中“报表”。在“数据”选项卡中设置“数据源”为“tEmp”。 步骤4:单击快速访问工具栏中的“保存”按钮,保存设置。 (4)步骤1:在对象导航窗格中右键单击“fEmp”窗体,选择右键菜单“设计视图”,进入窗体的设计视图。 步骤2:在<属性表>对话框上方的对象选择器中选中“窗体”,单击“事件”选项卡,在“加载”行内选择“:事件过程”,单击“代码生成器”按钮,进入到VBA代码编辑界面。 步骤3:在“****Add1****”之间输入: bTitle.ForeColor=vbRed 步骤4:在“****Add2****”之间输入: mdPnt acViewPreview 说明:调用mdPnt子过程,并传递字符常量ViewPreview采用打印预览的方式打开报表。 步骤5:在“****Add3****”之间输入: mdPnt acViewNormal 步骤6:单击“bt3”退出命令按钮控件,单击<属性表>对话框的“事件”选项卡,单击“单击”事件后的向下黑色小箭头,在下拉列表中选择宏名“mEmp”。 步骤7:单击快速访问工具栏中的“保存”按钮,关闭代码窗口。单击<窗体设计工具>选项卡中<视图>命令组的“窗体视图”命今运行窗体。如图10-12所示。 [*] 步骤8:关闭“fEmp”窗体。并关闭“samp3.accdb”窗口。

解析
转载请注明原文地址:https://jikaoti.com/ti/iW10FFFM
0

最新回复(0)