42考生文件夹下存在一个数据库文件“samp2.accdb”，里面已经设计好三个关联表对象“tStud”、“tCourse”和“tScore”。此外，还提供窗体“fTest”，试按以下要求完成设计。

(1)创建一个查询，查找第三季度入校的学生信息，输出其“姓名”、“年龄”和“性别”三个字段内容，所建查询命名为“qTl”。

(2)创建一个查询，查找年龄在所有学生平均年龄上下2岁(含)范围内的信息，输出其“姓名”、“课程名”和“成绩”三个字段内容，所建查询命名为“qT2”。

(3)创建生成表查询，组成字段是没有任何爱好学生的“学号”、“姓名”和“入校年”三列内容(其中“入校年”数据由‘‘入校时间”字段计算得到，显示为四位数字年的形式)，生成的数据表命名为“tTemp”，所建查询命名为“qT3”。

(4)补充窗体“fTest”上“testl”按钮(名为“btl”)的单击事件代码，实现以下功能：

当单击按钮“testl”，将文本框中输入的内容与文本串“等级考试测试”连接并消除连接串的前导和尾随空白字符，用标签“bTitle”显示连接结果。

注意：不允许修改窗体对象“fTest’’中未涉及的控件和属性;只允许在“*****Addl*****”与“*****Addl*****”之间的空行内补充语句、完成设计。

参考解析：

【考点分析】本题考点：创建条件查询、生成表查询和窗体控件单击事件设置。

【解题思路】第1、2、3小题在查询设计视图中创建不同的查询，按题目要求添加字段和条件表达式，第4题在窗体的设计视图里设置按钮的单击事件。

(1)【操作步骤】

步骤l：单击“创建”选项卡下“查询”组中的“查询设计”按钮。在“显示表”对话框中双击“tStud”表，然后单击“关闭”按钮.关闭“显示表”对话框。

步骤2：双击添加“姓名”、“年龄”、“性别”、“入校时间”字段，在“入校时间”字段的“条件”行中输入“Month([入校时间])>=7 And Month([入校时间])

步骤3：单击快速访问工具栏中的“保存”按钮，另存为“qTl”，然后关闭“设计视图”。

(2)【操作步骤】

步骤l;单击“创建”选项卡下“查询”组中的“查询设计”按钮。在弹出的“显示表”对话框中双击“tStud”、“tCourse”和“tScore”表，然后单击“关闭”按钮，关闭“显示表”对话框。

步骤2：选中“tStud”表中的“学号”字段，然后拖动鼠标到“tScore”表中的“学号”字段，然后放开鼠标，实现“tStud”表和“tScore”表的关联;选中“tCourse”表中的“课程号”字段，然后拖动鼠标到“tScore”表中的“课程号”字段，放开鼠标，实现“tCourse”表和“tScore”表的关联。

步骤3：双击“tStud”表中的“姓名”字段，“tCourse”表中的“课程名”字段，“tScore”表中的“成绩”字段和“tStud”表中的“年龄”字段;取消“年龄”字段“显示”行复选框的勾选;在“年龄”字段的“条件”行中输入“>一(select avg([年龄])一2 fromtStud)And

步骤4：单击快速访问工具栏中的“保存”按钮，另存为“qT2”，然后关闭“设计视图”。

(3)【操作步骤】

步骤l：单击“创建”选项卡下“查询”组中的“查询设计”按钮。在弹出的“显示表”对话框中双击“tStud”表，然后单击“关闭”按钮，关闭“显示表”对话框。

步骤2：双击“学号”、“姓名”字段，在“姓名”字段的下一行的“字段名称”处输人“入校年：Year([入校时间])”，再双击“简历”字段，并取消“简历”字段“显示”行复选框的勾选;在“简历”字段的“条件”行中输入“Not Like”*爱好*””。

步骤3：单击“查询工具”的“设计”选项卡，在“查询类型”组中单击“生成表”按钮，弹出“生成表”对话框，在该对话框的“表名称(N)”行中输入“tTemp”，然后再单击“确定”按钮。

步骤4：单击工具栏中的“运行”按钮，在弹出的对话框中单击“是”按钮。

步骤5：单击快速访问工具栏中的“保存”按钮，另存为‘qT3”，然后关闭“设计视图”。

(4)【操作步骤】

步骤l：选择“窗体”对象，右键单击“{Test”窗体，在弹出的捷菜单中选择“设计视图”命令，打开窗体的设计视图。步骤2：右键单击命令按钮“btl”，在弹出的快捷菜单中选择属性”命令。在该对话框中单击“事件”选项卡，然后再单击该选项卡下的“加载”行的事件生成器按钮，进入VBA代码编辑区。

步骤3：在“*****Addl*****”区域的空白行中输入“Me.bTitle.Caption=Trim(Me.tText)&”等级考式测试””。

步骤4：单击快速工具栏中的“保存”按钮，关闭VBA代码编辑区。

步骤5：单击快速工具栏中的“保存”按钮，关闭“属性表”，关闭“设计视图”。

第42题 笔记记录我的笔记(0) | 精选笔记(0)选择笔记标签：试题内容(0)答案解析(0)

限500字保存记录本题难易程度：12345点击查看试题笔记(0)

43考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对象“tBorrow”、“tReader”和‘tBook”，查询对象“qT”，窗体对象“fReader”和报表对象“rReader”。请在此基础上按照以下要求补充设计。’(1)在报表“rReader”的报表页眉节区内添加一个标签控件，其名称为“bTitle”，标题显示为“高级读者借阅情况”，字体名称为“黑体”，字体大小为22，同时将其安排在距上边0.5厘米、距左侧2厘米的位置。

(2)设计报表“rReader”的主体节区为“tSex”文本框控件设置数据来源显示性别信息，并要求按“借书日1期”字段升序显示，“借书日期”的显示格式为“长日期”的形式。

(3)设置窗体“bList”按钮的标题为“高级读者信息”;单击该按钮，其事件代码预览方式打开“rReader”报‘表，条件输出高级读者(职称为“教授”和“副教授”的读者)借阅信息。

(4)窗体加载时设置窗体标题属性为系统当前日期，设置“fTitle”标签的标题为“读者借阅信息”。

注意：不允许修改窗体对象“fReader”和报表对象“rReader”中未涉及的控件和属性;不允许修改表对象l"tBorrow”、“tReader”和“tBook”及查询对象“qT”的内容;程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。

参考解析：

【考点分析】本题考点：窗体中通过VBA编码和宏命令设置命令按钮的单击事件。在报表设置字段排序和页码显示。

【解题思路】第1、2小题在报表的设计视图中，右键单击控件选择“属性”命令，设置相关属性。第3小题在窗体的设计视图中右键单击该控件属性，对控件属性进行设置;第4小题直接右键单击窗体选择器，选择属性，设置加载事件，在vBA代码编辑页面实现代码编辑。

(1)【操作步骤】

步骤l：选择“报表”对象，右键单击“rReader”报表，在弹出的快捷菜单中选择“设计视图”命令，打开设计视图。

步骤2：右键单击“页面页眉”节的任一点，在弹出的快捷菜单中选择“报表页眉/页脚(H)”命令。

步骤3：单击“报表设计工具”下的“设计”选项卡，然后再单击该选项卡下“控件”组中的“标签”控件。

步骤4：在“报表页眉”节区中单击任一点，即可出现标签控件。右键单击该控件，在弹出的快捷菜单中选择“属性”命令，弹出“属性表”对话框，然后单击该对话框中的“全部”选项卡，在该选项卡下的“名称”行中输入“bTitle”，在“标题”行中输入“高级读者借阅情况”，在“字体名称”行的下拉列表中选择“黑体”，在“字号”行中输入“22”，单击快速工具栏中的“保存”按钮，关闭属性表。

(2)【操作步骤】

步骤l：右键单击文本框控件“tSex”(即未绑定)，在弹出的快捷菜单中选择“属性”命令，弹出“属性表”对话框，然后单击该对话框的“全部”选项卡，在该选项卡的“控件来源”下拉列表框中选择“性别”，单击快速]：具栏中的“保存”按钮，关闭属性表。

步骤2：在报表主体节区中右键单击文本框控件“借书日期”，在弹出的快捷菜单中选择“属性”命令，打开“属性表”对话框，然后单击该对话框的“全部”选项卡，在该选项卡的“格式”下拉列表中选择“长日期”，然后单击快速工具栏中的“保存”按钮，关闭属性表。

步骤3：在“分组、排序和汇总”窗口中单击“添加排序”按钮，在“排序依据”行的“选择字段”下拉列表中选择“借书日期”字段，在“排序次序”下拉列表中选择“升序”。

步骤4：单击快速工具栏中的“保存”按钮，然后关闭“设计视图”。

(3)【操作步骤】

步骤l：选择“窗体”对象，右键单击“fReader”窗体，在弹出的快捷菜单中选择“设计视图”命令，打开窗体的设计视图。步骤2：在“窗体页脚”区中，右键单击命令按钮“blit”，在弹出的快捷菜单中选择“属性”命令，打开“属性表”对话框，然后单击该对话框的“全部”选项卡，在该选项卡下的“标题”行中输入“高级读者信息”;在该窗口中，单击“事件”选项卡，单击“单击”行右侧的事件生成器按钮，进入VBA代码编辑区。

步骤3：在“’*****Add3*****”区域的空白行输入“DoCmd.OpenReport”rReader”，acViewPreview，”qT”，”职称一7教授’or职称一’副教授“…。

步骤4：单击快速工具栏中的“保存”按钮，关闭VBA代码编辑区。

(4)【操作步骤】

步骤l：双击标尺相交的“窗体选择器”，弹出“属性表”对话框，在该对话框中单击“事件”选项卡，然后再单击该选项卡“加载”行的事件生成器按钮，进入VBA代码编辑区。

步骤2：在“*****Addl*****”区域的空白行中输入“Me.Caption—Date”;在“*****Add2*****”区域的空白行中输入“Me.fTitle.Caption一″读者借阅信息″”。

步骤3：单击快速工具栏中的“保存”按钮，然后关闭VBA代码编辑区。

步骤4：单击快速工具栏中的“保存”按钮，然后关闭“设计视图”。

相关推荐：