考生文件夹下存在一个数据库文件“samp3.mdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计: (1)设置报表“rEmp”按照“性别”字段分组降序排列输出,

admin2010-05-12  12

问题 考生文件夹下存在一个数据库文件“samp3.mdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计:
    (1)设置报表“rEmp”按照“性别”字段分组降序排列输出,同时在其对应组页眉区添加一个文本框,命名为“SS”,内容输出为性别值;将报表页面页脚区域内名为“tPage”的文本框控件设置为“页码/总页数”形式的页码显示(如1/15、2/15、…)。
    (2)将窗体对象“fEmp”上的命令按钮(名为“btnQ”)从灰色状态设为可用,然后设置控件的Tab键焦点移动顺序为:控件tData→btnP→btnQ。
    (3)在窗体加载事件中实现代码重置窗体标题为标签“bTitle”的标题内容。
    (4)“fEmp”窗体上单击“输出”命令按钮(名为“btnP”),实现以下功能:计算10000以内的素数个数及最大素数两个值,将其显示在窗体上名为“tData”的文本框内并输出到外部文件保存。单击“打开表”命令按钮(名为“btnQ”),代码调用宏对象“mEmp”以打开数据表“tEmp”。
    试根据上述功能要求,对已给的命令按钮事件过程进行代码补充并调试运行。
    注意:不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”;不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性;只允许在“*****Add*****”与“****Add*****”之间的空行内补充语句、完成设计,不允许增删和修改其他位置已存在的语句。

选项

答案【操作步骤】 (1)步骤1:打开“samp3.mdb”数据库窗口,选中“报表”对象,右键单击“rEmp”,选择快捷菜单中的“设计视图”命令。 步骤2:单击工具栏上的“排序与分组”按钮,在“字段/表达式”的下拉选项中选择“性别”字段,在“排序次序”中相应行中选择“降序”,在“组页眉”中选择“是”, 关闭“排序与分组”对话框。 步骤3:单击“工具箱”中的“文本框”控件,在“性别页眉”中相应的区域拖动出文本框,右键单击该文本框,在弹出的快捷菜单中选择“属性”命令,在对话框中的“名称”中输入“SS”,在“数据”选项卡中“控件来源”里选择“性别”字段,关闭当前对话框。 步骤4:右键单击页面页脚中的“tPage”文本框,选择快捷菜单中的“属性”项,在对话框中“数据”选项卡中“控件来源”里输入:=[Page]&〝/〞﹠[Pages],单击工具栏中的“保存”按钮,关闭报表视图。 (2)步骤1:在“samp3.mdb”数据库窗口下,选中“窗体”对象,单击“fEmp”窗体。单击“设计”按钮,右键单击“打开表”命令按钮,选择快捷菜单中的“属性”命令,在“可用”属性中将属性值设置为“是”。 步骤2:在窗体视图的空白处右键单击鼠标,在弹出的快捷菜单中选择“属性”命令。在“属性”对话框的左上角的下拉菜单选择“tDam”,在其对应的“Tab索引”行输入:0。 步骤3:在“属性”对话框的左上角的下拉菜单选择“btnP”,在其对应的“Tab索引”行输入:1。 步骤4:在“属性”对话框的左上角的下拉菜单选择“btnQ”,在其对应的“Tab索引”行输入:2。 步骤5:关闭“属性”对话框。单击“保存”按钮保存设置。 (3)步骤1:在窗体“fEmp”设计视图下,在窗体空白处右键单击,在快捷菜单中选择选择“事件生成器”,在空行内输入代码: *****Add1***** Caption=bTitle.Caption *****Add1***** 步骤2:单击工具栏中的“保存”按钮。 (4)步骤1:在“计算”按钮上右键单击鼠标,在快捷菜单中选择“事件生成器”命令,在空行内输入代码: *****Add2***** DimiAs Integer n=0 Fori=0 To 10000 If sushu(i)=True Then n=n+l mn=i End If Nexti *****Add2***** 步骤2:右键单击命令按钮“打开表”,选择快捷菜单中的“事件生成器”命令,在空行内输入代码: *****Add3***** DoCmd.RunMacro〝mEmp〞 *****Add3***** 步骤3:单击“保存”按钮,关闭代码窗口。

解析 本题考点:报表字段排序、组页眉设置、标签控件属性的设置;窗体中命令按钮控件属性的设置;VBA编程。
转载请注明原文地址:https://jikaoti.com/ti/QyXiFFFM
0

最新回复(0)