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

考生文件夹下存在一个数据库文件“samp3．mdb”，里面已经设计好表对象“tStud”、查询对象“qStud”和“fTimer”窗体对象，同时还设计出以“qStud”为数据源的报表对象“rStud”。试在此基础上按照以下要求补充报表和窗体设计。 (1)在

admin2018-09-25  47
问题 考生文件夹下存在一个数据库文件“samp3．mdb”，里面已经设计好表对象“tStud”、查询对象“qStud”和“fTimer”窗体对象，同时还设计出以“qStud”为数据源的报表对象“rStud”。试在此基础上按照以下要求补充报表和窗体设计。
(1)在报表的报表页眉节区添加一个标签控件，其名称为“bTitle”，显示内容为“学生信息表”；预览报表时，报表标题显示内容为“*****年度#####”，请按照VBA代码中的指示将代码补充完整。
说明：
①显示标题中，“****”为本年度年份，要求使用函数获取。
②显示标题中，“#####”为标签控件“bTitle”中的内容。
要求：标题显示内容中间和前后不允许出现空格。
(2)在报表的主体节区添加一个文本框控件，显示“姓名”字段值。该控件放置在距上边0．1厘米、距左边3．2厘米，并命名为“tName”。
(3)按“编号”字段前四位分组统计每组记录的平均年龄，并将统计结果显示在组页脚节区。计算控件命名为“tAvg”。
要求：使用分组表达式进行分组。
(4)有一个名为“fTimer”的计时器窗体。运行窗体后，窗体标题自动显示为“计时器”；单击“设置”按钮(名称为“cmdSet”)，在弹出的输入框中输入计时秒数(10以内的数)，单击“确定”按钮；单击“开始”按钮(名称为“cmdStar”)开始计时，同时在文本框(名称为“txtList”)中显示计时的秒数。计时时间到时，停止计时并响铃，同时将文本框清零。根据以上描述，按照VBA代码中的指示将代码补充完整。
注意：不允许改动数据库中的表对象“tStud”和查询对象“qStud”，同时也不允许修改报表对象“rStud”和窗体对象“fTimer”中已有的以及未涉及的控件和属性。
程序代码只允许在“*******Add*******”与“*******Add*******”之间的空行内补充一行语句、完成设计，不允许增删和修改其他位置已存在的语句。
选项
答案【操作步骤】 (1)步骤1：选择“报表”对象，右键单击“rStud”报表，在弹出的快捷菜单中选择“设计视图”命令。 步骤2：单击“设计”选项卡下“控件”组中的“标签”按钮，然后单击报表页眉节的任意区域，在新添加的控件文本框中输入“学生信息表”，如图4—247所示。 [*] 步骤3：右键单击刚创建的“学生信息表”标签控件，在弹出的快捷菜单中选择“属性”命令，打开“属性表”对话框，在该对话框中单击“全部”选项卡，然后在该选项卡的“名称”行中输入“bTitle”，如图4—248所示。 [*] 步骤4：双击标尺相交处的“报表选定器”，弹出“属性表”对话框，在该对话框中单击“事件”选项卡，再单击该选项卡下的“加载”行右侧的事件生成器按钮，如图4—249所示，进入VBA代码编辑区。 [*] 步骤5：在“’*****Add*****”区域的空白行输入如下代码： Report．Caption=Trim(Year(Date)&"年度"&bTitle．Caption) 代码输入位置如图4—250所示。 [*] 步骤6：单击快速工具栏中的“保存”按钮，然后关闭VBA代码编辑区。 步骤7：关闭属性表。然后单击快速工具栏中的“保存”按钮。 (2)步骤1：单击“设计”选项卡下“控件”组中的“文本框”按钮，再单击主体节区的任意一点，弹出“Text”标签和“未绑定”文本框。 步骤2：选中“Text”标签，然后按Delete键将其删除。右键单击“未绑定”文本框，弹出的快捷菜单中选择“属性”命令，在打开的“属性表"对话框中单击“全部”选项卡，在该选项卡下的“名称”行中输入“tName”，在“控件来源”行中选择“姓名”，在“上边距”行中输入“0．1cm”，在“左”行中输入“3．2cm”，如图4—251所示。 [*] 步骤3：关闭属性表。然后单击快速工具栏中的“保存”按钮。 (3)步骤1：单击“设计”选项卡下“分组和汇总”组中的“分组和排序”按钮，弹出“分组、排序和汇总”窗口，如图4—252所示。 [*] 步骤2：在“分组、排序和汇总”窗口中单击“添加组”按钮，在“分组形式”行的“选择字段”下拉列表中选择“表达式”，弹出“表达式生成器”对话框，在该对话框中输入“=Left([编号]，4)”，如图4—253所示，然后单击“确定”按钮。 [*] 步骤3：单击“分组、排序和汇总”窗口的“更多”按钮，然后再单击“无页脚节”右侧的下三角按钮，在弹出的下拉列表中选择“有页脚节”，如图4—254所示。 [*] 步骤4：单击“设计”选项卡下“控件”组中的“文本框”控件，单击“=Left([编号]，4)页脚”节的任意区域，弹出“Text”标签和“未绑定”文本框。 步骤5：选中“Text”标签，然后按Delete键将其删除。右键单击“未绑定”文本框控件，在弹出的快捷菜单中选择“属性”命令，打开“属性表”对话框，在该对话框中单击“全部”选项卡，在该选项卡的“名称”行中输入“tAvg”，在“控件来源”行中输入“=Avg([年龄])”，如图4—255所示。 [*] 步骤6：关闭属性表，单击快速工具栏中的“保存”按钮，关闭设计视图。 (4)步骤1：选择“窗体”对象，右键单击“fTimer”窗体，在弹出的快捷菜单中选择“设计视图”命令。 步骤2：双击标尺相交处的“窗体选定器”，打开“属性表”对话框，在该对话框中单击“事件”选项卡下“加载”行右侧的事件生成器按钮，进入VBA代码编辑区。 步骤3：在“’*****add2*****”区域的空白行输入如下代码： Form．Caption="计时器" 代码输入位置如图4—256所示。 [*] 步骤4：右键单击“cmdStar”按钮，在弹出的快捷菜单中选择“属性”命令，打开“属性表”对话框，在该对话框中单击“事件”选项卡下“单击”行右侧的事件生成器按钮，进入VBA代码编辑区。 步骤5：在“’*****add1*****”区域的空白行输入如下代码： Dim f As Integer 在“’*****add3*****”区域的空白行输入“Beep”。 在“’*****add4*****”区域的空白行输入“txtList=s”。 代码输入位置如图4—257所示。 [*] 步骤6：单击快速工具栏中的“保存”按钮，然后关闭VBA代码编辑区。 步骤7：单击快速工具栏中的“保存”按钮，然后关闭“设计视图”。 补充：①双击左侧导航窗格中的窗体“tTimer”，弹出如图4—258所示的“计时器”窗口界面。 [*] ②单击“设置”按钮，在弹出的对话框中的“请输入计时范围：”下方的文本框中输入10以内的数，比如输入8，如图4—259所示，单击“确定”按钮。 [*] ③单击“开始按钮”，在左边的文框中显示计时秒数，如图4—260所示，是计时到第4秒的时候。计时停止后，铃声响起，并且文本框中内容清零。 [*] 以上补充内容不写入操作步骤，只是为了演示前面的操作结果。
解析
转载请注明原文地址:https://kaotiyun.com/show/nAMp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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