在考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tEmployee”和查询对象“qErrqaloyee”,同时还设计出以"qEmployee”为数据源的报表对象“rEmployee”。试在此基础上按照以下要求补充报表设计:

admin2017-03-21  34

问题 在考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tEmployee”和查询对象“qErrqaloyee”,同时还设计出以"qEmployee”为数据源的报表对象“rEmployee”。试在此基础上按照以下要求补充报表设计:
    (1)在报表的合适页脚区域添加一个计算控件,以输出页码。计算控件放置在距上边0.3厘米、距左侧7厘米位置,并命名为“tPage”。规定页码显示格式为“当前页/总页数”,如1/20、2/20、…、20/20等。
    (2)报表的报表页眉节区位置添加一个标签控件,其标题显示为“Employee基本信息”,字号为24,并命名为“bTitle”。
    (3)在相关事件代码中,设置报表标题为引用标签“bTitle”的值。同时,将其中的英文内容部分大写输出。
    (4)在相关事件代码中,依据报表“聘用时间”字段值情况,设置报表文本框“tStatus”的输出内容。具体规定是:截止2012年,聘用期在30年(含)以上的员工,输出“老员工”标示信息;否则,输出“普通员工”标示信息。
    注意:不允许修改数据库中的表对象“tEmployee”和查询对象“qEmployee”;不允许修改报表对象“rEmployee”中未涉及的控件和属性;代码只允许在“***Add***”与“***Add***”之间的空行内补充一条语句完成设计。

选项

答案【操作步骤】 (1)步骤1:双击“samp3.accdb”数据库,在对象导航窗格中右键单击“rEmployee”报表,选择右键菜单“设计视图”,进入报表的设计界面。 步骤2:单击<报表设计工具>选项卡中<页眉/页脚>命令组的“页码”命令,弹出<页码>对话框,如图9-11所示设置,单击“确定”则在报表的页面页脚节添加了一个文本框。 [*] 步骤3:鼠标右击该文本框,右键菜单选择“属性”,弹出的<属性表>对话框。设置“名称”为“tPage”“上边距”为“0.3cm”“左”为“7cm”“控件来源”修改为“=[Page]&”/”&[Pages]”。 步骤4:单击<报表设计工具>选项卡中<视图>命令组的“打印预览”命令查看报表页码情况。 步骤5:单击快速访问工具栏中的“保存”按钮。 (2)步骤1:在报表设计视图中,适当地拖动报表页面以增加其高度。 步骤2:在<报表设计工具>选项卡的<控件>命令组中单击“标签”控件,在报表页眉区内单击鼠标绘制,在光标闪动处输入“Employee基本信息”;单击标签,在<属性表>对话框内修改“名称”为“bTitle”“字号”为24。 步骤3:单击快速访问工具栏中的“保存”按钮,保存本步骤设计。 (3)步骤1:在<属性表>对话框上方的对象选择器中选中“报表”,单击“事件”选项卡,在“打开”行内选择“事件过程”,单击“代码生成器”按钮,进入到VBA代码编辑界面。在“****Add1****”之间输入:Me.Caption=[JCase(bTitle.Caption) 步骤2:单击快速访问工具栏中的“保存”按钮,关闭代码窗口,单击<报表设计工具>选项卡中<视图>命令组的“打印预览”命令查看报表打印情况。 (4)步骤1:进入VBA代码编辑界面中。 在“****Add2****”之间输入: tStatus.ControlSource==If(2012一Year([聘用时间1)>=30,‘老员工’,’普通员工’)” 步骤2:单击快速访问工具栏中的“保存”按钮,关闭代码窗口,单击<报表设计工具>选项卡中<视图>命令组的“打印预览”命令查看报表打印情况,关闭报表。关闭“samp3.accdb”窗口。

解析
转载请注明原文地址:https://kaotiyun.com/show/m0gp777K
0

最新回复(0)