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

admin2017-03-21  20

问题 在考生文件夹下“samp3.accdb”数据库中已设计好表对象“tEmployee”和“tGroup”及查询对象“qEmployee”,同时还设计出以“qEmployee”为数据源的报表对象“rEmployee”。试在此基础上按照以下要求补充报表设计:
    (1)在报表的报表页眉节区位置添加一个标签控件,其名称为“bTitle”,标题显示为“职工基本信息表”。
    (2)预览报表时,报表标题显示标签控件“bTitle”的内容,请按照VBA代码中的指示将代码补充完整。
    (3)在“性别”字段标题对应的报表主体节区距上边0.1厘米、距左侧5.2厘米位置添加一个文本框,显示出“性别”字段值,并命名为“tSex”;在报表适当位置添加一个文本框,计算并显示每类职务的平均年龄,文本框名为tAvg。
    注意:报表适当位置是指报表页脚、页面页脚或组页脚。
    (4)设置报表主体节区内文本框“tDept”的控件来源属性为计算控件。要求该控件可以根据报表数据源里的“所属部门”字段值,从非数据源表对象“tGroup”中检索出对应的部门名称并显示输出(提示:考虑使用DLookup函数)。
    注意:不允许修改数据库中的表对象“tEmployee”和“tGroup”及查询对象“qEmployee”;不允许修改报表对象“qEmployee”中未涉及的控件和属性。程序代码只允许在“***Add***与“***Add***”之间的空行内补充一行语句完成设计,不允许增删和修改其它位置已存在的语句。

选项

答案【操作步骤】 (1)步骤1:双击“samp3.accdb”数据库,在对象导航窗格中右键单击“rEmployee”报表,选择右键菜单“设计视图”,进入报表的设计界面。 步骤2:在<报表设计工具>选项卡的<控件>命令组中单击“标签”控件,在报表页眉区内单击鼠标绘制,在光标闪动处输入“职工基本信息表”,右击标签,在弹出的快捷菜单上选择“属性”命令,在<属性表>对话框内修改“名称”为:bTitle。如图1-14所示。 [*] 步骤3:单击快速访问工具栏中的“保存”按钮,保存本步骤设计。 (2)步骤1:在<属性表>对话框上方的对象选择器中选中“报表”,单击“事件”选项卡,在“加载”行内选择“事件过程”,单击“代码生成器”按钮,进入到VBA代码编辑界面。 在“***Add***”之间输入:Me.Caption=bTitle.Caption 步骤2:单击快速访问工具栏中的“保存”按钮,关闭代码窗口,单击<报表设计工具>选项卡中<视图>命令组的“打印预览”命令查看报表打印情况。 (3)步骤1:在报表设计视图中,直接复制主体节中任一现有文本框并粘贴,选中粘贴后的文本框,在其在<属性表>对话框中修改“名称”为“tSex”,“控件来源”为“性别”,“上边距”为“0.1cm”,“左”为“5.2cm”,如图1.15所示。 [*] 步骤2:单击快速访问工具栏中的“保存”按钮。 步骤3:添加计算每类职务的平均年龄文本框。由于需要对报表主体中的记录进行分组并做统计,因此需要为报表添加组,这里添加组页脚。单击<报表设计工具>选项卡中<分组和汇总>命令组的“分组和排序”命令,在报表下方出现<分组、排序和汇总>设计窗格;点击“添加组”按钮,设置“分组形式”为“职务”字段,设置“汇总”选项中“汇总方式”为“年龄”、类型为“平均值”、勾选“在组页脚中显示小计"项,设置“无页眉节”和“有页脚节”,设置后的<分组 排序和汇总>设计窗格如图1-16所示。 [*] 步骤4:通过步骤3的设计,在报表中添加了“职务页脚”的组页脚,其中包含了一个统计了各职务平均年龄的文本框,点击该文本框,在其在<属性表>对话框中修改“名称”为“tAvg”。适当调整“职务页脚”节的高度。单击<报表设计工具>选项卡中<视图>命令组的“打印预览”命令查看报表打印情况。 步骤5:单击快速访问工具栏中的“保存”按钮。 (4)步骤1:在报表设计视图中,选中主体节中的文本框“tDept”,在其在<属性表>对话框中设置“控件来源”为表达式:=DL,ookUp(”名称”,”tGroup,”部门编号=…&[所属部门]&…”),单击<报表设计工具>选项卡中<视图>命令组的“打印预览”命令查看报表打印情况。 步骤2:单击快速访问工具栏中的“保存”按钮,关闭代码窗口,关闭设计视图窗口。关闭“samp3.accdb”窗口。

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

最新回复(0)