如何用SQL建立一个学生成绩管理系统数据库？

首先在SQL中利用企业管理器或向导建立一个数据库，命名为学生管理系统，

启动SQL Sever服务，运行企业管理器，单击要创建数据库的服务器左边的加号图标，展开树形目录，在“数据库”节点上右击鼠标，在d出的快捷菜单中选则“新建数据库”命令，然后按照提示一步步建立数据库，不再详细叙述。

假设学生管理系统下有三个表，分别为学生表、课程表、修课表，表的结构分别如下：

学生表(student) (

学号(sno) 普通编码定长字符类型，长度7，主码，

姓名(sname) 普通编码定长字符类型，长度8，非空，

性别(ssex) 统一编码定长字符类型，长度1，

年龄(sage) 微整型，

所在系(sdept) 统一编码可变长字符类型，长度20

）

课程表(course) (

课程号(cno) 普通编码定长字符类型，长度6，主码，

课程名(cname) 统一编码定长字符类型，长度10，非空，

学分(credit) 小整型，

学期(semester) 小整型

）

修课表（sc）(

学号(sno) 普通编码定长字符类型，长度7，主码，外码

课程号(cno) 普通编码定长字符类型，长度6，主码，外码

成绩(grade) 小整型，

修课类别（type）普通编码定长字符类型，长度4

）

则创建表的语句分别为：

create table Student(

Sno char(7) primary key,

Sname char(8) not null,

Ssex nchar(1),

Sage tinyint,

Sdept nvarchar(20)

)

create table Course(

Cno char(6) primary key,

Cname nchar(10) not null,

Credit smallint,

Semester smallint

)

create table SC(

Sno char(7),

Cno char(6),

Grade smallint,

Type char(4),

primary key(Sno,Cno),

Foreign key(Sno)    References Student (Sno),

Foreign key(Cno)    References Course (Cno)

)

各表的结构大体如此，如有变化可自行修改。 以上数据库和表就基本建立好了，然后就可以通过数据导入或SQL语句等向数据库中添加学生的各项具体数据了。

SQL语言，是结构化查询语言(Structured Query Language)的简称。SQL语言是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统；同时也是数据库脚本文件的扩展名。

代码如下

Option Explicit

Dim rs As Integer

Dim cj As Long

Dim zcj As Integer

Dim pjz As Integer

Dim bjg As Integer

Dim jg As Integer

Private Sub Command1_Click()

Dim i As Integer

rs = InputBox("请问你要输入几个人的成绩?", "输入人数")

For i = 1 To rs

cj = InputBox("输入成绩")

If cj >= 60 Then jg = jg + 1

If cj < 60 Then bjg = bjg + 1

zcj = zcj + cj

Next i

Label1.Caption = "及格人数为：" & jg

Label2.Caption = "不及格人数为：" & bjg

Label3.Caption = "平均分" & zcj / rs

End Sub

---