下面是成绩的表格：
字段名 类型 宽度 取值范围 是否关键字 同名字段数据库
sno Char 10 数学数字 是 Student表中的sno
Cname Char 20 中文字符 是 Course中的cname
grade Char 5 数学数字 否
2.转换成具体的数据库：
由需求分析可以知道，系统的规模不大，管理的学生也只是三个班级中的，那么可以选用Access2000做数据库即可，具体见表过程可以在VB环境中进行。最后我们可以得到一个数据库，名为789.Mdb包含三个表：studen(sno,sname,sage,ssex),course(cname,ccredit),sc(sno,cname,grade).
下图是数据库中的表：
以上是该数据库所建的三个表。是学生表，课程表和成绩表 。
四．程序设计
在我们把数据库得到以后，我们就可以开始进行程序的设计，有时候在设计数据库的同时就已经开始程序的设计，两个阶段可能互相重叠，反复多次。本实验的程序设计可以采用VB进行设计。
在程序设计阶段，我们按照教材的第辣章的方法或按照软件工程的规范进行设计，目前可以先定义数据字典，设计模块图（系统框图），程序流程图等，在设计应用程序时，应该特别注意用户界面的设计。一个优秀的用户界面，首先应该使用户操作简便，操作提示信息应该意义明确。这是关于界面设计的一些要求。
以下是该VB程序的源代码：
（1）是插入按钮的源代码：
Private Sub Command1_Click()
sqlstr = "insert into course values('" & Trim(Text1.Text) & "','" & Trim(Text2.Text) & "')"
Adodc1.Recordset.Close
Ado本文出自辣~文论^文网http://www.751com.cn/ dc1.Recordset.MaxRecords = 0
Adodc1.Recordset.Open sqlstr, , 1, adLockReadOnly
Adodc1.Refresh
Adodc1.Recordset.Requery
End Sub
（2）是删除按钮的源代码：
Private Sub Command2_Click()
sqlstr = "delete from course where cname='" & Trim(Text1.Text) & "'"
'MsgBox sqlstr
Adodc1.Recordset.Close
Adodc1.Recordset.MaxRecords = 0
Adodc1.Recordset.Open sqlstr, , 1, adLockReadOnly
Adodc1.Refresh
Adodc1.Recordset.Requery
End Sub
（3）是查询按钮的源代码：
Private Sub Command3_Click()
sqlstr = "select * from course where cname='" & Trim(Text1.Text) & "'"
'MsgBox sqlstr
Adodc1.Recordset.Close
Adodc1.Recordset.MaxRecords = 0
Adodc1.Recordset.Open sqlstr, , 1, adLockReadOnly
Adodc1.Recordset.Requery
Adodc1.Recordset.Requery
End Sub
（4）是打印按钮的源代码：
Private Sub Command4_Click()
DataEnvironment1.Connection1.ConnectionString = Adodc1.ConnectionString
sqlstr = "select * from student where sno='03003600'"
If DataEnvironment1.Connection1.State <> adStateClosed Then
DataEnvironment1.Connection1.Close
End If
DataEnvironment1.Connection1.Open
DataEnvironment1.rsCommand1.Open sqlstr, DataEnvironment1.Connection1, adOpenStatic, adLockOptimistic
Set DataReport1.DataSource = DataEnvironment1
DataReport1.DataMember = "command1"
DataReport1.Sections("section4").Controls("label4").Caption = "测试报表"