2. 计算机
  3. 考生文件夹下存在一个数据库文件"samp3.mdb"，里面已经设计好表对象"tStud"、查询对象"qStud"、窗体对象"fStud"和子窗体对象"fDetail"，同时还设计出以"qStud"数据源的报表对象"rStud"。请在此基础上按照以下要求补充

考生文件夹下存在一个数据库文件"samp3.mdb"，里面已经设计好表对象"tStud"、查询对象"qStud"、窗体对象"fStud"和子窗体对象"fDetail"，同时还设计出以"qStud"数据源的报表对象"rStud"。请在此基础上按照以下要求补充

admin2013-11-29  24
问题 考生文件夹下存在一个数据库文件"samp3.mdb"，里面已经设计好表对象"tStud"、查询对象"qStud"、窗体对象"fStud"和子窗体对象"fDetail"，同时还设计出以"qStud"数据源的报表对象"rStud"。请在此基础上按照以下要求补充"fStud"窗体和"rStud"报表的设计：
(1)在报表的报表页眉节区位置添加一个标签控件，其名称为"bTitle"，标题显示为"团员基本信息表"；将名称为"tSex"的文本框控件的输出内容设置为"性别"字段值。在报表页脚节区添加一个计算控件，其名称为"tAvg"，设置相关属性，输出学生的平均年龄。
(2)将"fStud"窗体对象主体节中控件的Tab键焦点移动顺序设置为："CItem"->"TxtDetail"->"CmdRefer"->"CmdList"->"CmdClear"->"fDetail"->"简单查询"。
(3)在窗体加载事件中，实现重置窗体标题为标签"tTitle"的标题内容。
(4)试根据以下窗体功能要求，对已给的事件过程进行代码补充，并运行调试。
在窗体中有一个组合框控件和一个文本框控件，名称分别为"CItem"和"TxtDetail"；有两个标签控件，名称分别为"Label3"和"Ldetail"；还有三个命令按钮，名称分别为"CmdList"、"CmdRefer"和"CmdClear"。在"CItem"组合框中选择某一项目后，"Ldetail"标签控件将显示出所选项目名加上"内容："。在"TxtDetail"文本框中输入具体项目值后，单击"CmdRefer"命令按钮，如果"CItem"和"TxtDetail"两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中没有值，显示提示框，提示框标题为"注意"，提示文字为"查询项目或查询内容不能为空！！！"，提示框中只有一个"确定"按钮；单击"CmdList"命令按钮，在子窗体中显示"tStud"表中的全部记录；单击"CmdClear"命令按钮，将清空控件"cItem"和"TxtDetail"中的值。
注意：不允许修改窗体对象"fStud"和子窗体对象"fDetail"中未涉及的控件、属性和任何VBA代码；不允许修改报表对象"rStud"中已有的控件和属性；不允许修改表对象"tStud"和查询对象"qStud"。只允许在"*****Add*****"和"*****Add*****"之间的空行内补充一条代码语句、完成设计，不允许增删和修改其他位置已存在的语句。
选项
答案(1)【操作步骤】 步骤1：单击"报表"对象，选择"rStud"报表，单击"设计"按钮，打开"设计视图"。 步骤2：选中工具箱中"标签"控件 ，单击报表页眉节区任一点，出现标签控件，输入"团员基本信息表"。右键单击此标签控件，选择"属性"，弹出属性对话框。选择"全部"选项卡，在"名称"行输入"bTitle"，然后关闭属性对话框。 步骤3：右键单击"tSex"文本框控件选择"属性"，弹出属性对话框。选择"全部"选项卡，在"控件来源"行右侧下拉列表中选择"性别"，然后关闭属性对话框。 步骤4：选择工具箱中"文本框"控件，单击报表页脚节区任一点，弹出"Text"和"未绑定"两个文本框。右键单击"Text"文本框，选择"属性"，弹出属性对话框。选择"全部"选项卡，在"标题"行输入"平均年龄："，然后关闭对话框。 步骤5：右键单击"未绑定"文本框选择"属性"，弹出属性对话框。选择"全部"选项卡，在"名称"行输入"tAvg"，在"控件来源"行输入"=Avg([年龄])"，然后关闭属性对话框。 步骤6：单击工具栏中的"保存"按钮，之后关闭设计视图。 (2)【操作步骤】 步骤1：单击"窗体"对象，选择"fStud"窗体，单击"设计"按钮，打开"设计视图"。 步骤2：在窗体的任意位置右击，在弹出的快捷菜单中选择"Tab键次序"命令，打开"Tab键次序"对话框，在"自定义顺序"列表中通过拖动各行来调整Tab键的次序，第一行为"CItem"，第二行为"TxtDetail"，第三行为"CmdRefer"，第四行为"CmdList"，第五行为"CmdClear"，第六行为"fDetail"，第七行为"简单查询"。单击"确定"按钮，关闭"Tab键次序"对话框。 步骤3：单击工具栏中的"保存"按钮。 (3)【操作步骤】 步骤1：右键单击窗体设计左上角的"窗体选择器"，在弹出的菜单中选择"属性"。 步骤2：单击"事件"选项卡中"加载"属性右边的"…"打开代码生成器。设置窗体标题为标签"tTitle"的标题内容的代码语句，在Add4空行内输入：Caption = tTitle.Caption。 步骤3：单击工具栏中"保存"按钮，关闭代码生成器。 (4)【操作步骤】 步骤1：在设计视图中的任意位置右击，在弹出的快捷菜单中选择"事件生成器"命令，在弹出的对话框中选择"代码生成器"选项，单击"确定"按钮. 步骤2：在Add1空行输入代码： ’************************* Add1 ************************ Dim aa aa = cItem.Value Ldetail.Caption = aa + "内容：" ’************************* Add1 ************************ 步骤3：Add2空行输入代码： ’************************* Add2 ************************ fDetail.Form.RecordSource = "tStud" ’************************* Add2 ************************ 步骤4：Add3空行输入代码： ’************************* Add3 ************************* MsgBox "查询项目或查询内容不能为空", vbOKOnly, "注意" ’************************* Add3 ************************* 步骤5：单击工具栏中"保存"按钮，关闭代码生成器。
解析
转载请注明原文地址:https://jikaoti.com/ti/f2V0FFFM
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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