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

admin2013-11-29  24

问题 考生文件夹下存在一个数据库文件"samp3.mdb",里面已经设计了表对象"tEmp"、窗体对象"fEmp"、报表对象"rEmp"和宏对象"mEmp"。同时,给出窗体对象"fEmp"的若干事件代码,试按以下功能要求补充设计:
   (1)调整窗体对象"fEmp"上"报表输出"按钮(名为"bt1")的位置,要求其左边对齐"退出"按钮,下边距离"退出"按钮1厘米(即"bt1"按钮的下边距离"bt2"按钮的上边1厘米);调整上述两个命令按钮的Tab键移动顺序为:先"报表输出"按钮,再"退出"按钮。
   (2)调整报表对象"rEmp",将报表记录数据先按年龄升序,再按姓名降序排列,并打开相关组页眉区域,添加一个文本框控件(命名为"ta"),设置属性,使其显示年龄段信息,如"18"、"19"、......等。
   (3)窗体加载事件实现的功能是显示窗体标题,显示内容为"****年度报表输出",其中四位****为系统当前年份,请补充加载事件代码,要求使用相关函数获取当前年份。
   (4)窗体中"报表输出"和"退出"按钮的功能是单击"报表输出"按钮(名为"bt1")后,首先将"退出"按钮标题变成红色(255),然后以预览方式打开报表"rEmp";单击"退出"按钮(名为"bt2")调用宏"mEmp"。按照以上功能描述补充相关事件代码,要求考虑错误处理。
   注意:不允许修改数据库中的表对象"tEmp"和宏对象"mEmp";不允许修改窗体对象"fEmp"和报表对象"rEmp"中未涉及的控件和属性;已给事件过程,只允许在"****Add****"与"****Add****"之间的空行内补充语句、完成设计,不允许增删和修改其他位置已存在的语句。

选项

答案(1)【操作步骤】 步骤1:选择"窗体"对象,右击"fEmp"并在弹出的快捷菜单中选择"设计视图"命令。 步骤2:按住shift键选中"报表输出"和"退出"命令按钮,然后选择"格式"菜单中的"对齐"子菜单下的"靠左"命令。 步骤3:右击"报表输出"按钮,在弹出的快捷菜单中选择"属性"命令,设置"上边距"为"1cm"。 在"其他"选项卡中设置"tab键索引"为0。按照同样的方法设置"退出"按钮的"tab键索引"为1。关闭"属性"对话框。 (2)【操作步骤】 步骤1:选择"报表"对象,右击"rEmp"并在弹出的快捷菜单中选择"设计视图"命令。 步骤2:选择"视图"菜单中的"排序与分组"命令,在打开的"排序与分组"对话框中,在"字段/表达式"列的第一行选择"年龄","排列次序"列选择"升序",设置"组属性"中的"组页眉"为"是";在第二行中分别选择"姓名"和"降序"。单击"关闭"按钮。 步骤3:在"年龄页眉"区,添加一文本框控件,在其"属性"对话框中,将其"名称"改为"ta","控件来源"选择"年龄"。 步骤4:单击工具栏中的"保存"按钮。 (3)【操作步骤】 在设计视图中打开窗体"fEmp",右击窗体在弹出的快捷菜单中个选择"事件生成器"命令。按照如下添加代码: ’***** Add1 ***** Form.bTitle.Caption = Year(Date) & "年度报表输出" ’***** Add1 ***** (4)【操作步骤】 步骤1:右击"报表输出"按钮,在弹出的快捷菜单中选择"事件生成器"命令,按照如下添加代码: ’***** Add2 ***** bt2.ForeColor = 255 ’***** Add2 ***** ’***** Add3 ***** DoCmd.OpenReport "rEmp", acViewPreview ’***** Add3 ***** 步骤2:选中"退出"命令按钮并右击,调出"属性"对话框,在"事件"选项卡中,选择"单击"下拉列表中的"mEmp"。 步骤3:单击工具栏中的"保存"按钮。

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

最新回复(0)