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

admin2013-05-08  14

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

选项

答案(1)步骤1;打开“samp3.mdb”数据库,选中“报表”对象,右键单击报表“rEmp”,选择下拉菜单中的“设计视图”命令。 步骤2:右键单击报表,选择下拉菜单中的“排序与分组”命令.选择“年龄”字段。右键单击报表页面页脚区域内名为“tFage”的文本框,选择下拉菜单中的“属性”命令,在“控件来源”中输入:=[page]&”/”&[pages]。 步骤3:关闭“属性”对话框。 (2)步骤1:选中“窗体”对象,右键单击窗体“/Emp”,选择下拉菜单中的“设计视图”命令。 步骤2:右键单击“窗体选择器”,选择下拉菜单中的“属性”命令,在“属性”对话框中,设置背景图像为“photo.bmp”。 步骤3:关闭“属性”对话框。 (3)步骤1:右键单击选择“事件生成器”命令,输入代码: *********Add1******** Caption=bTitle.Caption *********Add1********* 步骤2:关闭窗口。 (4)步骤1:右键单击选择“事件生成器”命令,输入代码: **********Add2********** DimiAsInteger Dim sum As Long sum=0 Fori=OTo 30000 sum=slim+i Ifsum<=30000 Then n=i EndIf Nexti ********** Add2********** *************Add3*********** DoCmd.RunMacro“mEmp” ************Add3********* 步骤2:关闭代码窗口。单击“保存”按钮,关闭设计视图。

解析 本题考点:窗体中文本框控件的设计、命令按钮设计、控件属性的设置;VBA编程技术的应用。
转载请注明原文地址:https://kaotiyun.com/show/0PBD777K
0

相关试题推荐
随机试题
最新回复(0)