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

admin2015-08-20  22

问题  考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计:
    (1)设置报表“rEmp”按照“年龄”字段升序排列输出;将报表页面页脚区域内名为“tPage”的文本框控件设置为“页码/总页数”形式的页码显示(如1/15、2/15、…)。
    (2)设置窗体对象“fEmp”背景图像为考生文件夹下的图像文件“photo.bmp”。
    (3)在窗体加载事件中实现代码重置窗体标题为标签“bTitle”的标题内容。
    (4)“fErnp”窗体上单击“输出”命令按钮(名为“btnP”),实现以下功能:计算满足表达式1+2+3+…+n<=30000的最大n值,将n的值显示在窗体上名为“tData”的文本框内并输出到外部文件保存。
    单击“打开表”命令按钮(名为“btnQ”),代码调用宏对象“mEmp”以打开数据表“tEmp”。
    试根据上述功能要求,对已给的命令按钮事件过程进行代码补充并调试运行。
    注意:不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”;不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性;
只允许在“*****Add*****”与“****Add******”之间的空行内补充语句、完成设计,不允许增删和修改其他位置已存在的语句。

选项

答案(1)步骤1:打开“samp3.accdb”数据库,在【开始】功能区的“报表”面板中右击“rEmp”报表,选择“设计视图”快捷菜单命令,打开“rEmp”的设计视图。 步骤2:单击【分组和汇总】分组中的“分组和排序”命令,在下方打开“分组、排序和汇总”窗口。在窗口中单击“添加排序”按钮,在弹出的字段选择器中选择“年龄”字段,然后设置“排序次序”选择“升序”。右键单击报表页面页脚区域内名为“tPage”的文本框,选择快捷菜单中的“属性”命令,在【属性表】对话框的“控件来源”行中输入:=[page]&“/”&[pages]。 步骤3:单击快速访问工具栏中的“保存”按钮。 (2)步骤1:在【开始】功能区的“窗体”面板中右击“fEmp”窗体,选择“设计视图”快捷菜单命令。 步骤2:右键单击窗体空白处,选择快捷菜单中的“表单属性”命令,在【属性表】对话框中,设置背景图像为:photo.bmp。 步骤3:单击快速访问工具栏中的“保存”按钮。 (3)步骤1:单击【窗体设计工具-设计】功能区的【工具】分组中的“查看代码”按钮,打开“代码设计器”窗口。 在“****Add1****”行之间输入代码: Caption=bTitle.Caption 在“****Add2****”行之间输入代码: Dim i As Integer Dim sum As LOng sum=0 For i=0 To 30000 sum=sum+i Ifsum<=30000 Then n=i End If Nexti 在“****Add3****”行之间输入代码: DoCmd.RunMacro“mEmp” 步骤2:关闭代码窗口。单击快速访问工具栏中的“保存”按钮,关闭设计视图。

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

最新回复(0)