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

admin2013-11-29  34

问题 考生文件夹下存在一个数据库文件"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:打开报表对象"rEmp"的设计视图。 步骤2:选择"视图"菜单中的"排序与分组",在"字段/表达式"中输入"性别","排序次序"选择"降序","组页眉"选择" 是",分组形式选择"每一个值"。关闭"排序与分组"窗口。 步骤3:在工具栏中选择文本框控件,放到"性别页眉"中。 步骤4:单击工具栏上的"属性"按钮,在弹出的"属性"对话框中设置名称为SS。 步骤5:在"控件来源"属性中输入:=[性别]。 步骤6:选中"tPage"文本框控件,在"控件来源"属性中输入:=[Page] & "/" & [Pages],保存报表。 (2)【操作步骤】 步骤1:打开窗体对象"fEmp"的设计视图。 步骤2:选中"btnQ"命令按钮,单点击工具栏上的"属性"按钮,设置"可用"属性为"是"。 步骤3:选中"tData"控件,并点击"视图"菜单下的"属性"子菜单,将"Tab键索引"属性设置为0;选中"btnP",将"Tab键 索引"属性设置为1,保存窗体。 (3)【操作步骤】 步骤1:选中窗体,并单击工具栏上的"属性"按钮,打开窗体属性窗口。 步骤2:单击"事件"选项卡中"加载"属性右边的"…"打开代码生成器。 设置窗体标题为标签"bTitle"的标题内容的语句为:Caption = bTitle.Caption。 (4)【操作步骤】 步骤1:选择窗体设计视图中的"输出"按钮,右击选择"属性"。 步骤2:单击"事件"右边的"..."按钮。 计算10000以内的素数个数及最大素数两个值的语句为: For i = 2 To 10000 If sushu(i) Then n = n + 1 If i > mn Then mn = i End If End If Next i 步骤3: 代码调用宏对象"mEmp"的语句为:DoCmd.RunMacro "mEmp"。 步骤4: 最后保存并运行该窗体。

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

最新回复(0)