在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“TEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计。 (1)将报表“rEmp”按照聘用时间的年代分组排列输出,

admin2018-08-16  28

问题 在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“TEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计。
    (1)将报表“rEmp”按照聘用时间的年代分组排列输出,同时在其对应组页眉区添加一个文本框,命名为“SS”,内容输出为聘用时间的年代值(如“1960年代”“1970年代”…)。这里规定,1960年~1969年为1960年代,以此类推。
    要求:年代分组用表达式year([聘用时间])/10的结果来分析。
    (2)将窗体对象“fErnp”上的命令按钮(名为“btnQ”)从运行不可见状态设为可见,然后设置控件的Tab键焦点移动顺序为:控件tData→btnP→btnQ。
    (3)在窗体加载事件中,实现重置窗体标题为标签“bTitle”的标题内容。
    (4)在“fErnp”窗体上单击“男性最大年龄”命令按钮(名为“btnP”),实现以下功能。
    查找表对象“tErnp”中男性员工的最大年龄,将其输出显示在控件tData内;统计年龄在30以下(不含30)男性员工的人数,将其值写入外部文件“out.dat”中。
    单击“打开员工报表”命令按钮(名为“btnQ”),通过代码调用宏对象“mEmp”以打开报表“rEinp”。
    试根据上述功能要求,对已给的命令按钮事件过程进行补充和完善。
    注意:不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”;不允许修改窗体对象“fErnp”和报表对象“rEinp”中未涉及的控件和属性;只允许在“*****Add*****”与“*  *  *  *  *Add*  *  *  *  *”之间的空行内补充语句、完成设计,不允许增删和修改其他位置已存在的语句。

选项

答案(1)【操作步骤】 步骤1:单击“报表”对象,选择“rEmp”报表,单击鼠标右键,在弹出的快捷菜单中选择“设计视图”。 步骤2:单击“设计”选项卡中“分组和排序”,在“分组、排序和汇总”中选择“添加组”,在“选择字段”中选择“表达式”,在弹出的对话框中输入“=year([聘用时间])/10”,单击“确定”按钮,选择“升序”,单击“更多”,选择“有页眉节”,选择“按整个值”,关闭“分组、排序和汇总”窗口。 步骤3:选中“控件”组中的“文本框”控件,单击组页眉区适当位置,出现“Text”和“未绑定”两个文本框,右键单击“Text”文本框,选择“属性”,弹出属性表。选中“全部”选项卡,在“标题”行输入“聘用年代:”,然后关闭对话框。 步骤4:右键单击“未绑定”文本框,选择“属性”,弹出属性表。选中“全部”选项卡,在“名称”行输入“SS”,在“控件来源”行输入“=(Year([聘用时间])/10)*10&"年代"”,然后关闭属性表。 步骤5:按Ctrl+S键保存修改,关闭设计视图。 (2)【操作步骤】 步骤1:单击“窗体”对象,选择“f=Emp”窗体,单击鼠标右键,在弹出的快捷菜单中选择“设计视图”。 步骤2:右键单击“btnQ”按钮,选择“属性”,弹出属性表。选中“格式”选项卡,在“可见”行选择“是”,关闭属性表。 步骤3:在窗体的任意位置右击,在弹出的快捷菜单中选择“Tab键次序”命令,打开“Tab键次序”对话框,在“自定义次序”列表中通过拖动各行来调整Tab键的次序,第一行为“tData”,第二行为“btnP”,第三行为“btnQ”。单击“确定”按钮,关闭“Tab键次序”对话框。 步骤4:按Ctrl+S键保存修改。 (3)【操作步骤】 步骤1:右键单击窗体空白处,在弹出的菜单中选择“属性”。 步骤2:单击“事件”选项卡中“加载”行右边的“…”打开代码生成器。设置窗体标题为标签“bTitle”的标题内容的代码语句,在Addl空行内输入:Caption=bTitle.Caption。 步骤3:按Ctrl+S键保存修改。 (4)【操作步骤】 步骤1:右键单击“男性最大年龄”命令按钮,在弹出的快捷菜单中选择“事件生成器”,进入代码编辑环境。 步骤2:在Add2空行中输入:MAgeMax=rs.Fields(“年龄”)。 步骤3:在Add3空行中输入:rs.MoveNext,用来实现记录集遍历。 步骤4:在Add4空行内输入:DoCmd.RunMacro"mEmpt"用来调用宏对象“mEmp”。 步骤5:按Ctrl+S键保存修改,关闭代码生成器及设计视图。

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

最新回复(0)