2014-6模拟1

更新时间:2023-12-23 15:36:01 阅读量: 教育文库 文档下载

说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。

基本操作(20分)

考生文件夹下有一个Sample1.mdb数据库,已有“学生”表。请按以下要求完成相关操作:

1、在“学生”表中,在“班级编号”字段后面插入“综合测评”字段,数据类型为“整型”,有效性规则设置为大于等于零,小于等于99。

2、在“学生”表中,将已有三位学生的“综合测评”字段值分别设置为93、82、86;另外再增加两条记录,内容分别是(201131, 张立业, A1101,89)和(201132,王爱民,E9901,91)。 略… 3、将考生文件夹下文本文件Class.txt导入到当前数据库中,在导入文本向导对话框中选择“第一行包含字段名称”,以“班级编号”为主键,保存为“班级”表,其余选择默认操作。

关闭表,选菜单“文件-获取外部数据-导入…”,在弹出的“导入”表中,“查找范围”选K盘考号文件夹,文件类形选“文本文件”,双击要导入的文字,按题目要求设置导入的文本,如图:

K盘考号文件夹 文件类型选“文本

4、在“班级”表中,将“班级编号”字段大小改成5,将“专业”字段大小改成20,并设置为必填字段。

5、以”班级“为主表,“学生”为子表,“班级编号”为关联字段,建立一对多的关系,在编辑关系对话框选中“实施参照完整性”。

简单应用(30分)

考生文件夹下有一个Sample2.mdb数据库,已经设计“成绩”表、 “课程”表和“学生”表。创建并运行以下查询:

1、创建一个名为“SQ1”的选择查询,依次显示“姓名”、“课程名称”、“课程性质”、“专业”和“成绩”等五个字段,按“课程性质”升序排列,课程性质相同时按“专业”升序排列,专业相同时按“成绩”降序排列;

2、创建一个名为“SQ2”的总计查询,依次显示“学号”、“姓名”、“总成绩”等三个字段,其中“总成绩”为该学生所有课程“成绩”字段的总和,并按“总成绩”降序排列;

3、创建一个名为“SQ3”的交叉表查询,以“课程名称”为行标题、“专业”为列标题,交叉点统计各专业学生选修课程人数;

4、创建一个名为“SQ4”的生成表查询,将成绩小于60分的学生考试信息存入“补考名单”表中,新表包括“学号”、“姓名”、“课程名称”和“成绩”等四个字段,按“成绩”降序排列。

按下图创建生成表查询,保存后点运行按钮“!”

5、创建一个名为“SQ5”的SQL查询,实现将“补考名单”表中成绩小于45分的记录删除。

先按下图建删除查询,再切换到SQL视图,复制里面的代码,关闭后重新建查询,把代码粘贴,保存为SQ5后按运行按钮“!”

综合应用(30分)

考生文件夹下有一个Sample3.mdb数据库,已经设计“学生” 表、“课程”表、“成绩” 表、“课程信息”窗体和宏Micro。请按以下要求完成相关操作:

1、创建一个以“学生”表为数据源的报表,报表的名称为“学生信息”,报表按“班级”字段分组,“学号”字段升序排列;

切换到“报表”对象下,双击“报表向导”,在向导窗口中选“学生” 表,并选全部字段,单击“下一步”,按题目要求逐步设置,如图:

2、在“课程信息”的窗体页眉节中添加一个标签控件,标题为“课程基本信息”,字号大小为14,字体为“隶书”;

单击“工具箱”中的“标签”,在窗体页眉处拖一个框,输入“课程基本信息”,单击“工具箱”中的“选中对象”,选中文字,在工具栏中设置为隶书,14号,如图

3、在“课程信息” 窗体的主体节中添加一个文本框控件,名称为KCH,相应标签的标题为“课程号”,该文本框显示的内容与“课程”表的“课程号”字段绑定; 在工具箱中选“文本框”,在窗体的主体拖一个文本框,在属性窗口中改文字框的名称为KCH,控件来源为课程号,改标签文字为课程号

4、在“课程信息”的窗体页脚节中添加一个命令按钮控件,标题为“打开”,单击事件为运行宏Micro。

在工具箱中选“命令按钮”,在窗体页脚下面拖出一个按钮,改按钮文字为“打开”,选中按钮,在属性窗口中设置事件单击为打开宏Micro

程序设计(20分)

考生文件夹下有一个Sample4.mdb数据库,已经设计“判断闰年”窗体。窗体样式如下图所示。

请按以下要求设计相关程序:

1、在txtIn文本框中输入一个四位年份,单击“判断”按钮,判断输入的年份是否是闰年。如果是闰年,在txtOut文本框中显示“是闰年”,否则显示“不是闰年”; 提示:闰年是指能被4整除但不能被100整除或者能被400整除的年份

打开窗体,切换到设计视图,选中“判断”按钮,在属性窗口中选“事件”标签,在“单击”一栏的事件过程编辑窗口中输入以下代码: Private Sub btnC_Click() Dim y As Integer y = txtIn

If ((y Mod 4 = 0) And (y Mod 100 <> 0)) Or (y Mod 400 = 0) Then txtOut = \是闰年\Else

txtOut = \不是闰年\End If End Sub

2、单击“清除”按钮,将txtIn和txtOut文本框清空; 选中“清除”按钮,在事件过程的窗口中输入: Private Sub BtnS_Click() txtIn = \txtOut = \End Sub

3、单击“退出”按钮,退出Access。 Private Sub BtnS_Click() quit End Sub

注意:输入完程序后,切换到窗体视图,按题目图示要求输入2013,单击“判断”按钮,看得到的结果是否与题目中的图示结果一样,再单击“清除”按钮,“退出”按钮,验证功能。

本文来源:https://www.bwwdw.com/article/i875.html

Top