在考生文件夹下存在一个数据库文件“samp2.accdb”,里面已经设计好三个关联表对象“tStud”、“tCourse”和“tScore”。此外,还提供窗体“tTest”,试按以下要求完成设计: (1)创建一个查询,查找第三季度入校的学生信息,输

admin2018-09-20  15

问题 在考生文件夹下存在一个数据库文件“samp2.accdb”,里面已经设计好三个关联表对象“tStud”、“tCourse”和“tScore”。此外,还提供窗体“tTest”,试按以下要求完成设计:
    (1)创建一个查询,查找第三季度入校的学生信息,输出其“姓名”“年龄”和“性别”三个字段内容,所建查询命名为“qT1”。
    (2)创建一个查询,查找年龄在所有学生平均年龄上下2岁(含)范围内的信息,输出其“姓名”“课程名”和“成绩”三个字段内容,所建查询命名为“qT2”。
    (3)创建生成表查询,组成字段是没有任何爱好学生的“学号”“姓名”和“入校年”三列内容(其中“入校年”数据由“入校时间”字段计算得到,显示为四位数字年的形式),生成的数据表命名为“tTemp”,所建查询命名为“qT3”。
    (4)补充窗体“fTest”上“test1”按钮(名为“bt1”)的单击事件代码,实现以下功能:当单击按钮“test1”,将文本框中输入的内容与文本串“等级考试测试”连接并消除连接串的前导和尾随空白字符,用标签“bTitle”显示连接结果。注意:不允许修改窗体对象“fTest”中未涉及的控件和属性;只允许在“***Add1***”与“***Add1***”之间的空行内补充语句、完成设计。

选项

答案【操作步骤】 (1)步骤1:双击打开“samp2,accdb”数据库,在<创建>选项卡的<查询>命令组中单击“查询设计”按钮,系统弹出查询设计器。在<显示表>对话框中添加“tStud”表,关闭<显示表>对话框。 步骤2:双击“姓名”“性别”“年龄”“入校时间”字段添加到查询设计网格中。 步骤3:在“入校时间”字段条件行输入:Month([入校时间])Between 7 And 9,并取消学号字段显示行的勾选(即不显示),查询设计视图如图9-6所示。 [*] 步骤4:单击<查询工具>选项卡中<结果>命令组的“数据表视图”命令查看查询结果。 步骤5:单击快速访问工具栏中的“保存”按钮,输入查询名称“qT1”,单击“确定”按钮,关闭设计窗口。 (2)步骤1:在<创建>选项卡的<查询>命令组中单击“查询设计”按钮,系统弹出查询设计器。在<显示表>对话框中添加tStud、tScore、’tCourse表,关闭<显示表>对话框。 步骤2:建立各表之间的连接。单击tStud表中的“学号”字段按住鼠标左键拖动到tScore表的“学号”上方释放,单击tScore表中的“课程号”字段拖动到tCourse表的“课程号”上方释放。 步骤3:双击“姓名”“课程名”“成绩”“年龄”字段添加到设计网格字段行,在“年龄”条件行输入:Between DAvg("年龄","tstud")-2 And DAvg("年龄","tstud")+2,并取消学号字段显示行的勾选(即不显示)。如图9-7所示。 [*] 步骤4:单击<查询工具>选项卡中<结果>命令组的“数据表视图”命令查看查询结果。 步骤5:单击快速访问工具栏中的“保存”按钮,输入查询名称“qT2”。单击“确定”按钮,关闭设计窗口。 (3)步骤1:在<创建>选项卡的<查询>命令组中单击“查询设计”按钮,系统弹出查询设计器。在<显示表>对话框中添加tStud表,关闭<显示表>对话框。 步骤2:双击“学号”“姓名”“入校时间”“简历”字段,取消学号字段显示行的勾选(即不显示)。 步骤3:将“入校时间”字段行修改为:入校年:Year([入校时间]),即计算“入校年”;在“简历”字段条件行输入:Not Like"*爱好"。如图9-8所示。 [*] 步骤4:单击<查询工具>选项卡中<结果>命令组的“数据表视图”命令查看查询结果。 步骤5:单击<查询工具>选项卡中<查询类型>命令组的“生成表”命令,弹出<生成表>对话框,如图9-9所示,指定将包含查询结果的数据表名称为“tTemp”,单击“确定”。 [*] 步骤6:单击<查询工具>选项卡中<结果>命令组的“运行”命令,执行查询,产生“tTemp”表。 步骤7:单击快速访问工具栏中的“保存”按钮,输入“qT3”文件名。单击“确定”按钮,关闭设计窗口。 (4)步骤1:在对象导航窗格中右键单击“frest”窗体,选择右键菜单“设计视图”,进入窗体的设计视图。 步骤2:鼠标右键单击“test1”文本框,在弹出的快捷菜单上选择“属性”命令,在<属性表>对话框“事件”选项卡的“单击”行内选择“事件过程”,单击“代码生成器”按钮,进入到VBA代码编辑界面。 在“****Add1****”之间输入:bTitle.Caption=Triml[tText+"等级考试测试") 步骤3:单击快速访问工具栏中的“保存”按钮。 步骤4:单击<窗体设计工具>选项卡中<视图>命令组的“窗体视图”运行窗体,如图9-10所示。 [*] 步骤5:关闭窗体,关闭“samp2.aeedb”窗口。

解析
转载请注明原文地址:https://kaotiyun.com/show/ZjMp777K
0

最新回复(0)