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

admin2015-08-20  22

问题  考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计了表对象“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.accdb”数据库窗口,在【开始】功能区的“报表”面板中右击“rEmp”报表,选择“设计视图”快捷菜单命令,打开“rEmp”的设计视图。 步骤2:单击【分组和汇总】分组中的“分组和排序”命令,在下方打开“分组、排序和汇总”窗口。在窗口中单击“添加组”按钮,在弹出的字段选择器中选择“性别”字段,然后依次设置“排序次序”选择“降序”,单击“更多”按钮,设置“有页眉节”。 步骤3:单击【控件】分组中的“文本框”按钮,在“性别页眉”中相应的区域拖动出文本框(删除文本框前新增的标签),右键单击该文本框,在弹出的快捷菜单中选择“属性”命令,在对话框中的“名称”中输入“SS”,在“数据”选项卡中“控件来源”里选择“性别”字段,关闭当前对话框。 步骤4:选中页面页脚中的“tPage”文本框,在【属性表】对话框的“控件来源”行输入:=[Page]&“/”&[Pages],单击快速访问工具栏中的“保存”按钮,关闭报表视图。 (2)步骤1:在【开始】功能区的“窗体”面板中右击“fEmp”窗体,选择“设计视图”快捷菜单命令,打开“fEmp”的设计视图。单击“打开表”命令按钮,在【属性表】对话框中,修改“可用”属性的值为“是”。 步骤2:在【属性表】对话框的左上角的下拉菜单选择“tData”,在其对应的“Tab索引”行输入:0。 步骤3:在【属性表】对话框的左上角的下拉菜单选择“btnF”,在其对应的“Tab索引”行输入:1。 步骤4:在【属性表】对话框的左上角的下拉菜单选择“btnQ”,在其对应的“Tab索引”行输入:2。 步骤5:单击快速访问工具栏中的“保存”按钮保存设置。 (3)步骤1:单击【窗体设计工具-设计】功能区的【工具】分组中的“查看代码”按钮,打开“代码设计器”窗口。 在“*****Add1****”行之间输入代码: Caption=bTitle.Caption 在“*****Add2****”行之间输入代码: Dim iAs Integer n=0 For i=0 TO 10000 Ifsushu(i)=True Then n=n+1 inn=i End If Nexti 在“*****Add3****”行之间输入代码: DoCmd.RunMacro“mEmp” 步骤2:双击“窗体”面板中的“fEmp”窗体,运行窗体文件,然后单击窗体中的“输出”按钮,输出结果。 步骤3:单击快速访问工具栏中的“保存”按钮,关闭代码窗口。

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

随机试题
最新回复(0)