华侨大学SQL学生成绩管理(第一次上机实验).doc

第一次上机实验：要求：1. 创建一个“学生成绩管理“数据库2. 创建四张表（1）学生（学号、姓名、性别、出生日期、所属院系、专业、联系电话、家庭地址）（2）教师（教师编号、姓名、职称、联系电话、邮箱）（3）课程（课程编号、课程名称、课程性质、学分、学时数、教师编号）（4）选课（学号、课程编号、成绩）3.对四张表分别插入四条记录4.使用数据库查询语句（1）.查询在19891990年之间出生的学生信息（2）.查询有不及格成绩的学生学号及姓名（3）.查询学生选课信息，将结果按学号升序排列，学号相同时再按照成绩降序排列显示。（4）.查询选修数据库基础（10001）课的学生人数以及该课的最高、最低成绩、平均成绩。（5）.查询选修数据库基础（10001）课成绩为90分以上的学生的学号和姓名。1.创建“学生成绩管理“数据create database 学生成绩管理on (name =学生成绩管理, filename=d:学生成绩管理.mdf, size=10,maxsize=100,filegrowth=5%)log on (name =学生成绩管理_log,filename=d:学生成绩管理.ldf,size=10,maxsize=100,filegrowth=5%)2创建四张表use 学生成绩管理create table 学生 ( 学号 char(10) not null,姓名 char(8) not null,性别 char(2),出生日期 smalldatetime,所属院系 varchar(50),专业 varchar(50),联系电话 varchar(20),家庭地址 varchar(50),primary key (学号)use 学生成绩管理create table 教师 ( 教师编号 char(5) not null,姓名 char(8) not null,职称 char(10),联系电话 varchar(20),邮箱 varchar(50),primary key (教师编号)use 学生成绩管理create table 课程( 课程编号 char(5) not null,课程名称 varchar(50) not null,课程性质 char(10),学分 real,学时数 int,教师编号 char(5),primary key (课程编号),foreign key (教师编号) references 教师(教师编号)use 学生成绩管理create table 选课(学号 char(10) NOT NULL,课程编号 char(5) NOT NULL,成绩 Smallint CHECK(成绩 BETWEEN 0 AND 100) , FOREIGN KEY(学号) REFERENCES 学生(学号), FOREIGN KEY(课程编号) REFERENCES 课程(课程编号) )3.对四张表分别插入四条记录use 学生成绩管理insert into 学生 values(1002102001,陈岚,男,89-01-01,电气系,电气及其自动化,12345678901,福建泉州)insert into 学生 values(1002102002,陈坚鹏,男,90-01-01,电气系,电气及其自动化,12345678901,福建泉州)insert into 学生 values(1002102030,杨雨茜,女,89-01-01,电气系,电气及其自动化,12345678901,福建厦门)insert into 学生values(1002102040,郑昕怡,女,89-01-01,电气系,电气及其自动化,12345678901,福建厦门)use 学生成绩管理insert into 教师 values(00001,郑义民,讲师zh_)insert into 教师 values(00002,罗金盛,讲师,12345678901,luo_)insert into 教师 values(00003,戴茵茵,讲师,12345678901,)insert into 教师values(00004,旷建军,副教授,12345678901,)use 学生成绩管理insert into 课程 values(10001,数据库基础,专业必修,2.5,40,00001)insert into 课程 values(10002,单片机原理,专业必修,3,48,00002)insert into 课程 values(10003,高电压技术,专业选修,2.5,40,00003)insert into 课程 values(10004,电路原理,专业基础,4,60,00004)use 学生成绩管理insert into 选课 values(1002102001,10001,80)insert into 选课 values(1002102001,10002,70)insert into 选课 values(1002102001,10003,90)insert into 选课 values(1002102001,10004,50)insert into 选课 values(1002102002,10001,50)insert into 选课 values(1002102002,10002,80)insert into 选课 values(1002102002,10003,80)insert into 选课 values(1002102002,10004,90)insert into 选课 values(1002102030,10001,80)insert into 选课 values(1002102030,10002,80)insert into 选课 values(1002102030,10003,90)insert into 选课 values(1002102030,10004,75)insert into 选课 values(1002102040,10001,98)insert into 选课 values(1002102040,10002,50)insert into 选课 values(1002102040,10003,95)insert into 选课values(1002102040,10004,90)（1）.查询在19891990年之间出生的学生信息use 学生成绩管理SELECT * FROM 学生WHERE YEAR(出生日期) BETWEEN 1989 AND 1990（2）.查询有不及格成绩的学生学号及姓名use 学生成绩管理SELECT DISTINCT 选课.学号,学生.姓名 FROM 选课,学生WHERE 成绩=90Dim objRS As Recordset 定义需要的窗体级Recordset对象Private Sub Form_Load() Dim objCn As New Connection 定义一个Connection对象,并进行实例化 With objCn 建立数据库连接 .Provider = SQLOLEDB .ConnectionString = User ID=zheven;PWD=123;Data Source=(local); & Initial Catalog=学生成绩管理 .Open End WithSet objRS = New Recordset 创建客户端的记录集 With objRS .CursorLocation = adUseClient 指定使用客户端光标 .CursorType = adOpenStatic 指定使用静态光标 .Open SELECT * FROM 学生, objCn Set .ActiveConnection = Nothing End With objCn.Close 释放数据库连接 Set objCn = Nothing 显示第一个记录数据 xingming = objRS.Fields(姓名).Value xuehao = objRS.Fields(学号).Value xingbie = objRS.Fields(性别).Value chushengriqi = objRS.Fields(出生日期).Value yuanxi = objRS.Fields(所属院系).Value zhuanye = objRS.Fields(专业).Value dianhua = objRS.Fields(联系电话).Value jiatingdizhi = objRS.Fields(家庭地址).Value txtMsg = objRS.AbsolutePosition & / & objRS.RecordCountEnd SubPrivate Sub cmdNext_Click() 使后一记录成为当前记录 objRS.MoveNext 如果记录指针指向最后一个记录之后，则使其指向最后记录 If objRS.EOF Then objRS.MoveLast End If 显示当前记录数据 xingming = objRS.Fields(姓名).Value xuehao = objRS.Fields(学号).Value xingbie = objRS.Fields(性别).Value chushengriqi = objRS.Fields(出生日期).Value yuanxi = objRS.Fields(所属院系).Value zhuanye = objRS.Fields(专业).Value dianhua = objRS.Fields(联系电话).Value jiatingdizhi = objRS.Fields(家庭地址).Value txtMsg = objRS.AbsolutePosition & / & objRS.RecordCountEnd SubPrivate Sub cmdPre_Click() objRS.MovePrevious 使前一记录成为当前记录 如果记录指针指向最后一个记录之后，则使其指向最后一个记录 If objRS.BOF Then objRS.MoveFirst End If 显示当前记录数据 xingming = objRS.Fields(姓名).Value xuehao = objRS.Fields(学号).Value xingbie = objRS.Fields(性别).Value chushengriqi = objRS.Fields(出生日期).Value yuanxi = objRS.Fields(所属院系).Value zh