考生文件夹下存在一个数据库文件“samp3．accdb” 里面已经设计好表对象“tEmplo
问题详情
考生文件夹下存在一个数据库文件“samp3．accdb”，里面已经设计好表对象“tEmployee”和查询对象
“qEmployee”，同时还设计出以“qEmployee”为数据源的报表对象“rEmployee”。试在此基础上按照以下要求补充报表设计。
(1)在报表的合适页脚区域添加一个计算控件，以输出页码。计算控件放置在距上边0．3厘米、距左侧7厘米位置，并命名为“tPage”。规定页码显示格式为“当前页／总页数”，如l／20、2／20…．、20／20等。
(2)报表的报表页眉节区位置添加一个标签控件，其标题显示为“Employee基本信息”，字号为24，并命名为“bTitle”。
(3)在相关事件代码中，设置报表标题为引用标签“bTitle”的值。同时，将其中的英文内容部分大写输出。
(4)在相关事件代码中，依据报表“聘用时间”字段值情况，设置报表文本框“tStatus”的输出内容。具体规定是：截止2012年，聘用期在30年(含)以上的员工，输出“老员工”标示信息；否则，输出“普通员工”标示信息。
注意：不允许修改数据库中的表对象“tEmployee”和查询对象“qEmployee”；不允许修改报表对象“rEm—ployee”中未涉及的控件和属性；代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一条语句、完成设计。 请帮忙给出正确答案和分析，谢谢！
参考答案
正确答案：
【考点分析】本题考点：在报表中设置增加控件，设置贞码，VBA编码。【解题思路】第1、2小题在报表的设计视图里增加控件，并对控件属性进行设置；第3小题直接右键单击报表选择器，选择属性，设置加载事件，在VBA代码编辑页面实现代码编辑。第4小题通过条件函数对控件数据来源进行设置。(1)【操作步骤】步骤l：双击打开“samp3．accdb”数据库，选择“报表”对象，右键单击“rEmployee”报表，从弹出的快捷菜单中选择“设计视图”命令，打开报表的设计视图。步骤2：展开“页面页脚”节区，选择“设计”选项卡F“拧件”组中的“文本框”控件，单击“页面页脚”节区任一点，弹出“Text”标签和“未绑定”文本框。步骤3：选中“Text”标签，按住键盘上的“Delete”键，删除“Text”标签；右键单击“未绑定”文本框，从弹出的快捷菜单中选择“属性”命令，单击“全部”选项卡，在该选项卡的“名称”行中输入“tPage”，在“控件来源”行中输入“一LPage]&”／”&[Pages]”，在“上边距”行中输入“0．3cm”，在“左”行中输入“7cm”。步骤4：单击快速工具栏中的“保存”按钮，然后关闭“属性表”。(2)【操作步骤】步骤l：展开报表页眉节区，选择“设计”选项卡下“控件”组中的“标签”控件，单击报表页眉节区任一点，出现标签控件，单击标签控件并输入“Employee基本信息”，右键单击该标签控件，从弹出的快捷菜单中选择“属性”命令，打开“属性表”对话框，在该对话框的“全部”选项卡下的“名称”行中输入“bTitle”，在“字号”行中输入“24”。步骤2：单击快速工具栏中的“保存”按钮，然后关闭‘霭性表”。(3)【操作步骤】步骤l：双击标尺相交处的“报表选择器”，弹出“属性表”对话框，在该对话框中单击“事件”选项卡，然后再单击该选项卡下的“打开”行的事件生成器按钮，进入VBA代码编辑区。步骤2：在“’*****Addl*****”区域的空白行中输入“Me．Caption—UCase(Me．bTitle．Caption)”。(4)【操作步骤】步骤l：在“*****Add2*****”区域的空白行处输入“tStatus．ControlSource=”=Hf((2012一Year([聘用时间]))>一30，’老员工‘，’普通员工7)””。步骤2：单击快速工具栏中的“保存”按钮，关闭VBA代码编辑区。步骤3：单击快速工具栏中的“保存”按钮。
