问答题在考生文件夹下“samp3．accdb”数据库中已设计好表对象“tEmployee”和“tGroup”及查询对象“qEmployee”，同时还设计出以“qEmployee”为数据源的报表对象“rEmployee”。试在此基础上按照以下要求补充报表设计：

问答题在报表的报表页眉节区位置添加一个标签控件，其名称为“bTitle”，标题显示为“职工基本信息表”。

【正确答案】正确答案：步骤1：双击“samp3．accdb”数据库，在对象导航窗格中右键单击“rEmployee”报表，选择右键菜单“设计视图”，进入报表的设计界面。步骤2：在＜报表设计工具＞选项卡的＜控件＞命令组中单击“标签”控件，在报表页眉区内单击鼠标绘制，在光标闪动处输入“职工基本信息表”；右击标签，在弹出的快捷菜单上选择“属性”命令，在＜属性表＞对话框内修改“名称”为：bTitle。如图1-14所示。

【答案解析】

问答题预览报表时，报表标题显示标签控件“bTitle”的内容，请按照VBA代码中的指示将代码补充完整。

【正确答案】正确答案：步骤1：在＜属性表＞对话框上方的对象选择器中选中“报表”，单击“事件”选项卡，在“加载”行内选择“事件过程”，单击“代码生成器”按钮，进入到VBA代码编辑界面。在“料Add**”之间输入：Me．Caption=bTitle．Caption 步骤2：单击快速访问工具栏中的“保存”按钮，关闭代码窗口，单击＜报表设计工具＞选项卡中＜视图＞命令组的“打印预览”命令查看报表打印情况。

【答案解析】

问答题在“性别”字段标题对应的报表主体节区距上边0．1厘米、距左侧5．2厘米位置添加一个文本框，显示出“性别”字段值，并命名为“tSex”；在报表适当位置添加一个文本框，计算并显示每类职务的平均年龄，文本框名为tAvg。注意：报表适当位置是指报表页脚、页面页脚或组页脚。

【正确答案】正确答案：步骤1：在报表设计视图中，直接复制主体节中任一现有文本框并粘贴，选中粘贴后的文本框，在其在＜属性表＞对话框中修改“名称”为“tSex”，“控件来源”为“性别”，“上边距”为“0．1cm”，“左”为“5．2cm”，如图1-15所示。

步骤2：单击快速访问工具栏中的“保存”按钮。步骤3：添加计算每类职务的平均年龄文本框。由于需要对报表主体中的记录进行分组并做统计，因此需要为报表添加组，这里添加组页脚。单击＜报表设计工具＞选项卡中＜分组和汇总＞命令组的“分组和排序”命令，在报表下方出现＜分组、排序和汇总＞设计窗格；点击“添加组”按钮，设置“分组形式”为“职务”字段，设置“汇总”选项中“汇总方式”为“年龄”、类型为“平均值”、勾选“在组页脚中显示小计”项，设置“无页眉节”和“有页脚节”，设置后的＜分组，排序和汇总＞设计窗格如图1-16所示。

【答案解析】

问答题设置报表主体节区内文本框“tDept”的控件来源属性为计算控件。要求该控件可以根据报表数据源里的“所属部门”字段值，从非数据源表对象“tGroup”中检索出对应的部门名称并显示输出(提示：考虑使用DLookup函数)。注意：不允许修改数据库中的表对象“tEmployee”和“tGroup”及查询对象“qEmployee”；不允许修改报表对象“qEmployee”中未涉及的控件和属性。程序代码只允许在“***Add***”与“***Add***”之间的空行内补充一行语句完成设计，不允许增删和修改其它位置已存在的语句。

【正确答案】正确答案：步骤1：在报表设计视图中，选中主体节中的文本框“。tDept”，在其在＜属性表＞对话框中设置“控件来源”为表达式：=DLookUp(''名称''，''tGroup''，''部门编号='''&[所属部门]＆'''')，单击＜报表设计工具＞选项卡中＜视图＞命令组的“打印预览”命令查看报表打印情况。步骤2：单击快速访问工具栏中的“保存”按钮，关闭代码窗口，关闭设计视图窗口。关闭“samp3．accdb”窗口。

【答案解析】