学生成绩管理系统

课程设计报告

课程名称：Visual basic 实用教程

设计题目：设计学生成绩管理系统

指导教师：吴晓诗

时间：2010 ～2011学年第一学期南京人口学院信息科学

课程设计题目设计学生成绩管理系统，系统要求包括课程管理、学生管理、选课管理、成绩管理的功能。

后台数据库包括三张表，学生基本情况表（学好、姓名、性别、年龄、专业）、课程表（课程编号、课程名、学分）、成绩表（学号、课程号、成绩）

系统包含5个窗体：

1主窗体。包含课程管理、学生管理、选课管理、成绩管理、退出5个按钮，通过单击各个按钮，启动不同窗体实现各自的功能。

2 课程管理窗体。主要功能是对课程表的记录进行浏览、添加、编辑、删除、实现对课程信息的管理，界面自行设计

3学生管理窗体。主要功能是对学生表的记录进行浏览、添加、编辑、删除、实现对课程信息的管理，界面自行设计

4选课管理窗体。主要功能是每个学生通过选择课程表中所设定的课程，产生选课纪录，并在成绩表中记录选课情况，形成一个只有学号、课程号，而成绩为空的空白成绩表。界面自行设计

5成绩管理窗体。主要功能是用来录入、修改不同课程的学生成绩。

当选择某一课程时，只显示选修该课程的学生名单。

课程设计目的及要求：

1、使学生了解VB中各部件的功能及如何使用；

2、掌握使用控件显示数据库表数据，并掌握查询的基本方法；

3、掌握对数据库操作的基本方法（增、删、改）；

4、掌握VB中调用SQL Server存储过程的基本方法；

5、掌握Parameter参数对象的使用。

课程设计详细内容：

设计思路

1 表结构：

2 模块功能：

主窗体。包含课程管理、学生管理、选课管理、成绩管理、退出5个按钮，通过单击各个按钮，启动不同窗体实现各自的功能。

2 课程管理窗体。主要功能是对课程表的记录进行浏览、添加、编辑、删除、实现对课程

信息的管理，界面自行设计

3 学生管理窗体。主要功能是对学生表的记录进行浏览、添加、编辑、删除、实现对课程

信息的管理，界面自行设计

4 选课管理窗体。主要功能是每个学生通过选择课程表中所设定的课程，产生选课纪录，

并在成绩表中记录选课情况，形成一个只有学号、课程号，而成绩为空的空白成绩表。

界面自行设计

5 成绩管理窗体。主要功能是用来录入、修改不同课程的学生成绩。

注：可另附页

3 代码

窗体一：学生成绩管理系统

Private Sub Command1_Click()

Form2.Show

Form1.Hide

End Sub

Private Sub Command2_Click()

Form3.Show

Form1.Hide

End Sub

Private Sub Command3_Click()

Form4.Show

Form1.Hide

End Sub

Private Sub Command4_Click()

Form5.Show

Form1.Hide

End Sub

te Private Sub Command5_Click()

End

End Sub

窗体二：欢迎进入课程管理系统

Option Explicit

Private Sub Command1_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

End Sub

Private Sub Command2_Click()

Data1.Recordset.Edit

Data1.Recordset.Update

End Sub

Private Sub Command3_Click()

Dim mag

mag = MsgBox("要删除吗？", vbYesNo, "删除记录")

If mag = vbYes Then

Data1.Recordset.Delete

Data1.Recordset.MoveLast

End If

End Sub

Private Sub Command4_Click()

Form2.Hide

Form1.Show

End Sub

Private Sub data1_validate(action As Integer, save As Integer) Dim mag

If save = True Then

mag = MsgBox("要保存吗？", vbYesNo, "保存记录")

If mag = vbNo Then

save = False

Data1.UpdateControls

End If

End If

End Sub

窗体三：欢迎进入学生管理系统

Option Explicit

Private Sub Command1_Click()

Data1.Recordset.AddNew

Data1.Recordset.Update

Data1.Recordset.MoveLast

End Sub

Private Sub Command2_Click()

Data1.Recordset.Edit

Data1.Recordset.Update

End Sub

Private Sub Command3_Click()

Dim mag

mag = MsgBox("要删除吗？", vbYesNo, "删除记录")

If mag = vbYes Then

Data1.Recordset.Delete

Data1.Recordset.MoveLast

End If

End Sub