考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tBand”和“tLine”,同时还设计出以“tBand”和“tLine”为数据源的报表对象“rBand”。试在此基础上...
(1)在报表的报表页眉节区位置添加一个标签控件,其名称为“bTitle”,标题显示为“旅游线路信息表”,字体名称为“宋体”,字体大小为22,字体粗细为“加粗”,倾斜字体为“是”。
(2)预览报表时,报表标题显示为:“**月#######”,请按照VBA代码中的指示将代码补充完整。
注意:①显示标题中的月为本年度当月,“#######”为标签控件“bTitle”的内容;②如果月份小于10,按实际位数显示。
要求:本年度当月的时间必须使用函数获取。
(3)在“导游姓名”字段标题对应的报表主体区位置添加一个控件,显示出“导游姓名”字段值,并命名为“tName”。
(4)在报表适当位置添加一个文本框控件,计算并显示每个导游带团的平均费用,文本框控件名称为tAvg。
注意:报表适当位置是指报表页脚、页面页脚或组页脚。
注意:不允许改动数据库文件中的表对象“tBand”和“tLine”,同时也不允许修改报表对象“rBand”中已有的控件和属性。程序代码只允许在“*******Add******”与“*******Add******”之间的空行内补充一行语句、完成设计,不允许增删和修改其它位置已存在的语句。
参考解析: (1)【操作步骤】
步骤1:单击“报表”对象,右键单击“rBand”报表,在弹出的快捷菜单中选择“设计视图”命令。
步骤2:展开报表页眉节区,选择“设计”选项卡下“控件”组中的“标签”控件 ,单击报表页眉节区任一点,出现标签控件,单击标签控件并输入“旅游线路信息表”。
步骤3:右键单击此标签控件,选择“属性”命令,在“全部”选项卡下的“名称”行中输入“bTitle”,在“字体名称”行中选择“宋体”,在“字号”行中输入“22”,在“字体粗细”行中选择“加粗”,在“倾斜字体”选择“是”。
步骤4:然后关闭属性表,按Ctrl+S保存修改。
(2)【操作步骤】
步骤1:在设计视图中的任意位置右击,在弹出的快捷菜单中选择“事件生成器”命令,在弹出的对话框中选择“代码生成器”选项,然后单击“确定”按钮,在空行输入如下代码:
'显示标签控件“bTitle”的内容
'************ Add ************
Me.Caption = Month(Date) & "月" & bTitle.Caption
'************ Add ************
步骤2:按Ctrl+S保存修改,关闭代码生成器。
(3)【操作步骤】
步骤1:选择“设计”选项卡中“控件”组中的“文本框”控件,单击报表主体节区任一点,弹出“Text”标签和“未绑定”文本框。
步骤2:选中“Text”标签按DELETE键将其删除,右键单击“未绑定”文本框在弹出的快捷菜单中选择“属性”命令,在“全部”选项卡下的“名称”行输入“tName”,在“控件来源”行下拉列表中选择“导游姓名”,然后关闭属性表。
步骤3:拖动tName文本框至合适位置。然后按Ctrl+S保存修改。
(4)【操作步骤】
步骤1:在“rBand”报表下端的“分组、排序和汇总”界面中选择“添加组”(如不出现“分组、排序和汇总”界面,单击“设计”选项卡“分组和汇总”组中的“分组和排序”按钮),在“分组形式”右侧的下拉列表中选择“导游姓名”并点击“更多”,然后分别选择“无页眉节”、“有页脚节”,关闭“分组、排序和汇总”选项。
步骤2:选择“设计”选项卡下“控件”组中的“文本框”控件,单击导游姓名页脚节区任一点,弹出“Text”标签和“未绑定”文本框。右键单击“Text”标签,在弹出的快捷菜单中选择“属性”命令,在“全部”选项卡下“标题”行中输入“平均费用:”,然后关闭属性表。
步骤3:右键单击“未绑定”文本框,在弹出的快捷菜单中选择“属性”命令,在“全部”选项卡下“名称”行中输入“tAvg”,在“控件来源”行输入“=Avg([费用])”,然后关闭属性表。
步骤4:按Ctrl+S保存修改,关闭设计视图。