考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。同时,给出窗体对象“fEmp”的若干事件代码,试按以下功能要求补充设计。 功能: (

admin2015-08-20  37

问题  考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。同时,给出窗体对象“fEmp”的若干事件代码,试按以下功能要求补充设计。
    功能:
    (1)将报表记录数据按姓氏分组升序排列,同时要求在相关组页眉区域添加一个文本框控件(命名为“tnum”),设置其属性输出显示各姓氏员工的人数。
    注意:这里不用考虑复姓情况,所有姓名的第一个字符视为其姓氏信息。
    要求用*号或“编号”字段来统计各姓氏人数。
    (2)设置相关属性,将整个窗体的背景显示为考生文件夹内的图像文件“bk.bmp”。
    (3)在窗体加载事件中实现代码重置窗体标题为“**年度报表输出”显示,其中**为两位的当前年显示,要求用相关函数获取。
    (4)在btl命令按钮单击事件中补充缺少的代码,要求单击btl按钮后,将“退出”命令按钮标题设置为粗体;以预览方式输出rEmp报表;且出现错误时,弹出指定的错误提示。

选项

答案(1)步骤1:打开“samp3.accdb”数据库窗口。在【开始】功能区的“报表"面板中右击“rEmp”报表,选择“设计视图”快捷菜单命令,打开rEmp的报表设计视图。单击【报表设计工具.设计】功能区中【分组和汇总】分组中的“分组与排序”按钮,将在窗口下方打开“分组、排序和汇总】对话框。在该对话框单击“添加组”按钮,在弹出的“分组形式”的选择框中选择最下方的“表达式”选项,将会弹出表达式生成器对话框,输入:=Left([姓名],1)。单击“确定”按钮关闭【排序与分组】对话框。如图3-31所示。 [*] 步骤2:单击【报表设计工具-设计】功能区下【控件】分组中的“文本框”控件,在组页眉区域(即=Left([姓名],1)页眉)内拖动画出一个文本框(删除文本框前新增的标签),在文本框内输入统计函数:=C0unt([编号])。如图3-32所示。选中文本框,右键单击并在弹出的快捷菜单上选择“属性”命令,在【属性表】对话框内修改“名称”为“tnum”。 步骤3:单击快速访问工具栏中的“保存”按钮保存设置。关闭报表视图设计器。 [*] (2)步骤1:在【开始】功能区的“窗体”面板中右击“fEmp”窗体,选择“设计视图”快捷菜单命令,打开“fEmp”窗体设计视图。在窗体设计视图下的空白处右键单击鼠标,在弹出的快捷菜单选择“表单属性”命令,在“图片”所在的行单击查找所要插入的图片“bk.bmp”(图片文件在考生文件夹下),单击“确定”按钮。 步骤2:单击快速访问工具栏中的“保存”按钮保存设置。 (3)步骤1:单击【窗体设计工具-设计】功能区的【工具】分组中的“查看代码”命令按钮,弹出代码生成器窗口。 步骤2:在***Add1***行之间添加代码: Caption=Format(Date,“yy”)&”年度报表输出” (4)步骤1:接上小题操作,在代码生成器窗口中添加btl按钮Click事件中缺少代码。 在***Add2***行之间添加代码: bt2.FontBold=True 在***Add3***之间添加代码: DoCmd.OpenReport“rEmp”,acViewPreview 在***Add4***行之间添加代码: errhanle: 结果如图3-33所示。 步骤2:关闭“VBA”窗口。单击快速访问工具栏中的“保存”按钮保存设置。 [*]

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

最新回复(0)