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

admin2018-07-06  18

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

选项

答案(1)【操作步骤】 步骤1:打开考生文件夹下的数据库文件samp3.accdb,右键单击“rEmployee”报表,在弹出的快捷菜单中选择“设计视图”命令。 步骤2:单击“设计”选项卡下“控件”功能组中的“标签”控件,在报表页眉区上绘制一个矩形区域,输入内容“职工基本信息表”;右键单击“职工基本信息表”控件,在弹出的快捷菜单中选择“属性”命令。 步骤3:在“属性表”对话框中单击“全部”选项卡,在“名称”行中输入“bTitle”,按Ctrl+S组合键保存修改,如图5.17所示,关闭“属性表”对话框。 [*] (2)【操作步骤】 步骤1:单击“设计”选项卡下“工具”功能组中的“查看代码”按钮进入VBA代码编辑界面。 步骤2:在“*****Add*****”行之间添加代码“Me.Caption=bTide.Caption”,如图5.18所示。 [*] 步骤3:按Ctrl+S组合键保存修改,关闭VBA代码编辑器。 (3)【操作步骤】 步骤1:单击“设计”选项卡下“控件”功能组中的“文本框”控件,在主体节区内拖动,产生一个“文本框”(删除“文本框”前新增的“标签”控件)。 步骤2:右键单击该“文本框”,在弹出的快捷菜单中选择“属性”命令,在“属性表”对话框中单击“全部”选项卡,在“名称”行中输入“tSex”;单击“控件来源”下三角按钮,在下拉的列表框中选择“性别”,将“上边距”属性值修改为“0.1cm”,将“左”属性值修改为“5.2cm”,如图5.19所示,关闭“属性表”对话框。 [*] 步骤3:单击“设计”选项卡下“分组和汇总”功能组中的“分组和排序”按钮,打开“分组、排序和汇总”窗口。 步骤4:单击“添加组”按钮,在弹出的字段选择器中选择“职务”字段,单击“更多”按钮,设置“无页眉节”“有页脚节”,如图5.20所示。 [*] 步骤5:单击“设计”选项卡下“控件”功能组中的“文本框”控件,在“职务页脚”区域内拖动,产生一个“文本框”(删除“文本框”前新增的“标签”控件)。 步骤6:右键单击该“文本框”,在弹出的快捷菜单中选择“属性”命令,在“属性表”对话框中单击“全部”选项卡,在“名称”行中输入“tAvg”;在“控件来源”行中输入“=Avg([年龄])”。如图5.21所示。 [*] 步骤7:按Ctrl+S组合键保存修改,关闭“属性表”对话框。 (4)【操作步骤】 步骤1:右键单击“tDept”控件,在弹出的快捷菜单中选择“属性”命令,在弹出的“属性表”对话框中单击“全部”选项卡,在“控件来源”行中输入表达式“= DLookup("名称","tGroup",”部门编号=’"&[所属部门]&"’")”。如图5.22所示。 [*] 步骤2:按Ctrl+S组合键保存修改,关闭“属性表”对话框,关闭“rEmployee”报表的设计视图。

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

最新回复(0)