考生文件夹下存在一个数据库文件"samp3.mdb",里面已经设计了两个表对 象"tEmp"和"tGroup",同时还设计了窗体对象"fEmp"、报表对象"rEmp"和宏对象"mEmp",试...
(1)将报表"rEmp"中的记录数据按姓氏分组升序排列,并在相关的组页眉节区域添加一个文本框控件(命名为"tNum"),计算并显示各姓氏员工的人数。
注意:这里不需考虑复姓情况。所有姓名的第一个字符视为其姓氏信息。
要求:使用分组表达式进行分组;用"编号"字段统计各姓氏人数。
(2)将报表"rEmp"主体节区内文本框"tDept"的控件来源属性设置为计算控件。要求该控件可以根据报表数据源里的"所属部门"字段值,从非数据源表对象"tGroup"中检索出对应的部门名称并显示输出。
提示:考虑使用DLookup函数。
(3)设置相关属性,将"fEmp"窗体的整个背景显示为考生文件夹内的图像文件"bk.bmp"。在窗体加载事件中设置窗体标题为显示"××年度报表输出"。
说明:"××"为两位的当前年显示。
要求:当前年的年份使用相关函数获取。
(4)在"fEmp"窗体中单击"报表输出"按钮(名为"bt1"),调用事件代码先将"退出"按钮标题设为粗体显示,再以预览方式打开报表"rEmp",请按VBA代码指示将代码补充完整。设置"退出"按钮(名为"bt2")的相关事件,当单击该按钮时,调用设计好的宏"mEmp"来关闭窗体。
注意:不允许修改数据库中的表对象"tEmp"、 "tGroup"和宏对象"mEmp";不允许修改窗体对象"fEmp"和报表对象"rEmp"中未涉及的控件和属性;已给事件过程,只允许在"*****Add*****"与 "*****Add*****"之间的空行内补充语句、完成设计,不允许增删和修改其它位置已存在的语句。
参考解析: (1)【操作步骤】
步骤1:选择"报表"对象,右键单击"rEmp"报表,在弹出的快捷菜单中选择"设计视图"命令。
步骤2:单击"设计"选项卡下"分组和汇总"组中的"分组和排序"按钮,弹出"分组、排序和汇总"窗口。
步骤3:在"分组、排序和汇总"窗口中单击"添加组"按钮,在"分组形式"行的"选择字段"的下拉列表中选择 "表达式"。弹出"表达式生成器"对话框,在该对话框中输入"=Left([姓名],1)",然后单击"确定"按钮。
步骤4:单击 "分组、排序和汇总"窗口的"更多"按钮,然后再单击"无页脚节"右侧的下三角按钮,在弹出的下拉列表中选择"有页脚节"。
步骤5:单击"设计"选项卡下"控件"组中的"其他"下三角按钮,单击控件组中的"文本框"控件,单击"=Left([姓名],1)页眉"节的任意区域。弹出"Text"标签和"未绑定"文本框。
步骤6:选中"Text"标签,然后按"Delete"键将其删除。右键单击"未绑定"文本框控件,在弹出的快捷菜单中选择"属性"命令,打开"属性表"对话框,在该对话框中单击"全部"选项卡,在该选项卡的"名称"行中输入"tNum",在 "控件来源"行中输入"=Count([编号])"。
步骤7:关闭属性表。单击快速工具栏中的"保存"按钮。
(2) 【操作步骤】
步骤1:右键单击 "tDept"文本框控件,在弹出的快捷菜单中选择"属性"命令,打开"属性表"对话框,在该对话框中单击"数据"选项卡,在该选项卡的"控件来源"行中输入"=DLookUp("名称","tGroup","部门编号='" & [所属部门] & "'")"。步骤2:关闭属性表。单击快速工具栏中的"保存"按钮。
(3) 【操作步骤】
步骤1:选择"窗体"对象,右键单击"fEmp"窗体,在弹出的快捷菜单中选择"设计视图"命令。
步骤2:双击标尺相交处的"窗体选定器",打开"属性表"对话框,在该对话框中单击"格式"选项卡,在该选项卡下的"图片"行中输入"bk.bmp",在"图片平铺"行中选择"是"。
步骤3:在该"属性表"对话框中单击"事件"选项卡,然后再单击该选项卡下的"加载"行右侧的事件生成器按钮,进入VBA代码编辑区。
步骤4:在"'*****Add1*****"区域的空白行中输入"Form.Caption = Right(Year(Date), 2) & "年度报表输出""。
步骤5:单击快速工具栏中的"保存"按钮,然后关闭VBA代码编辑区。
步骤6:单击快速工具栏中的"保存"按钮,然后关闭"设计视图"。
(4) 【操作步骤】
步骤1:右键单击 "bt1"按钮,在弹出的快捷菜单中选择"属性"命令,打开"属性表"对话框,在该对话框中单击"事件"选项卡,然后再单击该选项卡下的"单击"行右侧的事件生成器按钮,进入VBA代码编辑区。
步骤2:在"'*****Add2*****"区域的空白行输入"Form.bt2.FontBold = True",在"'*****Add3*****"区域的空白行中输入"DoCmd.OpenReport "rEmp", acViewPreview"。
步骤3:单击快速工具栏中的"保存"按钮,然后关闭VBA代码编辑区。
步骤4:右键单击 "bt2"按钮,在弹出的快捷菜单中选择"属性"命令,打开"属性表"对话框,在该对话框中单击"事件"选项卡,然后再单击该选项卡下的"单击"行右侧的下拉列表按钮,选择"mEmp",然后关闭属性表。
步骤5:单击快速工具栏中的"保存"按钮,然后关闭"设计视图"。