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

admin2016-07-06  3

问题 考生文件夹下存在一个数据库文件“samp3.accdb’’,里面已经设计好表对象“tEmployee’’和查询对象“qEmployee”,同时还设计出以“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:展开“页面页脚”节区,选择“设计”选项卡下“控件”组中的“文本框”控件,单击“页面页脚”节区任一点,弹出“Text”标签和“未绑定”文本框。 步骤3:选中“Text”标签,按住键盘上的“Delete”键,删除“Text”标签;右键单击“未绑定”文本框,从弹出的快捷菜单中选择“属性”命令,单击“全部”选项卡,在该选项卡的“名称”行中输入“tPage”,在“控件来源”行中输入“=[Page]&”/”&[Pages]”,在“上边距”行中输入“0.3cm”,在“左”行中输入“7cm”。 步骤4:单击快速工具栏中的“保存”按钮,然后关闭“属性表”。 (2)【操作步骤】 步骤1:展开报表页眉节区,选择“设计”选项卡下“控件”组中的“标签”控件,单击报表页眉节区任一点,出现标签控件,单击标签控件并输入“Employee基本信息”,右键单击该标签控件,从弹出的快捷菜单中选择“属性”命令,打开“属性表”对话框,在该对话框的“全部”选项卡下的“名称”行中输入“bTitle”,在“字号”行中输入“24”。 步骤2:单击快速工具栏中的“保存”按钮,然后关闭“属性表”。 (3)【操作步骤】 步骤1:双击标尺相交处的“报表选择器”,弹出“属性表”对话框,在该对话框中单击“事件”选项卡,然后再单击该选项卡下的“打开”行的事件生成器按钮,进入VBA代码编辑区。 步骤2:在“*****Addl*****”区域的空白行中输入“Me.Caption=UCase(Me.bTitle.Caption)”。 (4)【操作步骤】 步骤1:在“*****Add2*****”区域的空白行处输入“tStatus.ControlSource=”=IIf((2012一Year(r聘用时间]))>=30,‘老员工’,‘普通员工’)””。 步骤2:单击快速工具栏中的“保存”按钮,关闭VBA代码编辑区。 步骤3:单击快速工具栏中的“保存”按钮。

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

相关试题推荐
最新回复(0)