学生选课信息管理系统VB+MySQL

目录

一、引言 (2)

二、需求分析 (2)

2.1 业务需求 (2)

2.2 功能需求 (3)

2.3 数据需求 (3)

2.3.1 实体数据需求 (3)

2.3.2 数据库系统设计 (4)

2.3.3逻辑设计 (4)

三、概要设计 (4)

3.1 系统结构与组成 (4)

3.2逻辑数据库设计 (5)

3.3 物理数据库实现 (7)

四、详细设计与实现 (8)

4.1 建立数据库数据表 (8)

4.1.1 建立数据库 (8)

4.1.2 建立数据表 (9)

4.2 主要功能模块实现 (10)

4.2.1 登陆模块 (10)

4.2.1 系统管理界面模块 (11)

4.2.3 查询模块 (11)

4.2.3 修改模块 (13)

4.2.4 删除模块 (14)

五、结束语 (16)

六、参考文献 (16)

一、引言

学生选课系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生档案管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。

随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。

作为计算机应用的一部分,使用计算机对学生档案信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率,也是学校的科学化、正规化管理,与世界接轨的重要条件。

因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套学生档案管理系统的子模块学生信息管理为例,叙述其开发过程和所涉及到的问题及解决方法。

二、需求分析

2.1 业务需求

在本系统中，有三类用户：系统管理员，教师和学生。三种不同的用户所具有的操作权限以及操作内容均不一样。

本选课系统给予教师很大的自主权，系统管理员只负责向系统中添加学生和教师的个人信息以及教学楼教室信息。系统管理员不参与开设课程、选择课程等，一切均由教师、学生登录网站自行完成。系统管理员设置一个选课时间段，在到达时间段以前，教师可以开设课程；到达时间段以后，学生可以登陆网站选择课程。

教师用户登陆网站后可以开设课程，为自己的课程编辑上课时间和地点，当系统中出现时间地点冲突的时候，系统向教师用户报告并推荐一个时间地点。每门课程可以是必修或则选修，教师为每门课程设置一个学分，并可以在课程结束后给予分数，如果学生及格，学生将获得该课程的学分。

对于学生用户，每个学生都可以用自己的学号和密码登入到选择系统中，至少还要选

择一门选修课程，学生也可以对自己课程情况进行查询，例如总学分，成绩，以及知道授课老师的信息。

根据上面的要求，从操作功能上可以分为两个类：一个是登入操作，主要实现用户的登录注销和修改密码等；另一种是为不同用户定制不同操作。

2.2 功能需求

系统管理员：录入学生与教师个人信息：通过此项功能可以实现对教师和学生的个人信息添加删除。

录入教学楼教室信息：通过此项功能可以把学校里所有的教学楼教室的信息录入到系统中，以便教师在开设课程时候设置上课的教室。

教师用户：显示和修改个人信息：教师用户登录系统后，可以查看和修改教师的个人信息，如姓名，电话，学号，学历，职称等。

开设课程：教师用户登录系统后，可以开设课程，可以设置该课程为必修课程或则选修课程，可以设置该课程的最大人数。教师还可以为该课程设置一个前导课程，若学生没有学习或则选择前导课程则不能选择该课程。

给学生分数：课程结束后，教师用户登录系统，可以为学过课程的学生给予相应的成绩，若及格，给予学生学分。

学生用户：显示和修改个人信息：学生登录系统后，可以查看和修改学生的个人信息，如姓名，性别，学号等。

查看所选课程情况：学生登录后，可以查看所有的必修课程。查看该课程的信息，上课时间地点，开课教师信息等。

查看最终选课信息：学生登录系统后，可列出已选择的课程，

查看学分和成绩：课程结束后，学生登录系统可查看自己学习课程的成绩和已获的学分。

2.3 数据需求

通过调查,总结出用户对数据的需求如下:

(1)学生信息：包括:学号,姓名,性别,年龄,院系等。

(2)课程信息：包括:课程号,课程名称,课程性质,学时数,学分等。

(3)教师信息：包括:教师编号,教师姓名,性别,职称,通信地址,电话，健康状况，毕业院校

(4)选课信息：包括:学号,学生姓名,课程号,课程名称,开课时间,成绩，学分等。

(5)登录信息：包括:学号,密码（第一次默认为学号）

(6)选课专业信息：包括:专业编号,专业名称,所属系,备注.

(7)教师任课信息：包括:教师编号,课程编号

2.3.1 实体数据需求

(1)基础数据录入：基础数据包括学生数据,课程数据,教师数据和学生选课数据和教室使用数据以及编码数据等.要求系统能录入这些数据,并且进行数据录入和修改时应该注意保持数据的参照完整性。

(2)查询：能够查询出学生数据,课程数据,教师数据以及学生选课数据，教室容纳的人数。

2.3.2 数据库系统设计

(1).项目设计：一个典型的数据库应用程序有数据结构,用户界面,查询选项和报表组成.在设计应用程序时,应仔细考虑每个组件将提供的功能以及与其他组件之间的关系。

(2).数据库的设计：数据库设计的任务是确定系统所需的数据库.数据库是表的集合,通常一个系统只需一个数据库.数据库的设计一般可分为逻辑设计和物理设计两步.逻辑设计的任务是根据需求分析,确定数据库所包含的表及字段,表间的关系,物理设计就是具体确定表的结构,包括字段名,字段类型及宽度,需要的索引等.

2.3.3逻辑设计

根据对需求得到的数据结构进行分析,按数据输入输出的要求,确定表和表间的关系,并进行验证,调整,修改,完善,使其能够实现用户对数据和功能的要求,学生选课系统设置如下表:

(1)学生基本表：包括字段：学号，姓名，性别，年龄，院系，以学号为主键；

(2)教师基本表：包括字段：教师编号,教师姓名,性别,职称,电话,毕业院校，健康状况，所在院系以教师编号为主键；

(3)课程基本表：包括字段：课程编号，课程名称，课程性质，学时，学分，课程编号为主键；

(4)学生选课表：字段包括：学号，学生姓名，课程编号，课程名称，开课时间，成绩。学号,课程编号和开课时间共同做主键，通过学号和学生基本表建立关联,通过课程编号和课程基本表建立关联,开课时间和成绩用于做统计计算。

(5)教师任课表：包括字段:教师编号，课程编号。分别为教师编号和课程编号建立主键，通过教师编号和教师基本表建立关联，通过课程编号和课程基本表建立关联。

三、概要设计

3.1 系统结构与组成

本系统的数据库实体主要有“学生”、“教师”、“教室”、“课程”等。其中“教师”与“课程”存在“开设”联系，并且一个教师可以开设N门课程，即“教师”与“课程”之间是一对多的关系。同样“教学楼”与“教室”也存在一对多的关系。一个学生可以学习N 门课程，一门课程可以有M个学生学习，即“学生”与“课程”之间是多对多的关系。同样“课程”与“教室”之间也是多对多的关系。整个数据库可以用一个E-R图表示，如图所示：

图1 总体E-R 图

3.2逻辑数据库设计

E-R 图转换成系统的关系模型，并进行表结构的优化。 表11.1 student 字段名 类型 宽度 允许空 说明 s_no char 8 学号 s_name varchar 8 姓名 s_dept

varchar

8

Y

系别

表12.2 classroom 字段名

类型

宽度

允许空

说明

学号 性别

学号

学分

性别

年龄

教师

课程

学生

选修

教学

授课

n

m

m

n

性别

已选课情况

密码

课程

学时

职称

教师名称

教师编号

学历

健康状况

毕业院校

成绩

t_no nvarchar 6 Y 班级编号c_no nvarchar 4 Y 班级名称classtime datetime 8 Y 专业代码number int 4 Y 专业名称教师信息表teacher，其结构如下：

表12.3 teacher

字段名类型宽度允许空说明

t_no char 6 教师编号t_name varchar 8 姓名

t_sex char 2 Y 性别

t_age int 4 Y 年龄

t_education varchar 8 Y 学历

t_title char 10 Y 职称

t_shooltag varchar 12 Y 毕业学校t_heath varchar 8 Y 身体状况学生选课信息表choice

表12.4 choice

字段名类型宽度允许空说明

s_no char 8 Y 学号

c_no char 4 Y 课程编号score numeric 5 Y 成绩

学生选课信息表course

表12.4 course

字段名类型宽度允许空说明

c_no char 4 课程编号c_name varchar 10 课程名c_score int 4 Y 学分

3.3 物理数据库实现

经过数据库系统分析和逻辑设计后，数据库的结构已经非常清晰，剩下的就是用一种数据库软件实现这样的结构。本系统中数据库采用Microsoft SQL Server 2000作为数据库。首先我们在Microsoft SQL Server 2000的“企业管理器”创建一个数据库，我们命名为“student-data”。

选中“student-data”数据库，向数据库中添加7个表：

Student,Teacher,Course,，classroom ,dept,resultS，每个表与逻辑设计中一种的关系模式相对应。下面是每个数据表中的属性，包括属性列的名称、数据类型、长度、是否可以为空和备注说明等内容。

（1）Student表。Student表用来存储学生的个人信息，使用学号作为主键，如图2：

图2

（2）Teacher表。Teacher表用来存储教师的个人信息，用学校分配给教师的教师编号作为主键，这样可以避免重复，如图5-2：

图3

(3)Course表。Course表用来存储课程信息，Course表以课程编号为主键，设置课程编号自动增加1（通过建表的时候对属性列设置“标识”，并设置“标识递增量”为1）。如图4：

图4

（4）results表。SC表用于存储学生的选课信息，在results表中学号和课程编号是主键，同时也是外键。如图5：

图5

（5）dept表。dept表用来存放课程的院系名和院系号信息，如图6：

图6

（6）classRoom表。classRoom表用来存放教室信息，在classRoom表中，教室编号为主键，自动增加1。如图7：

图7

四、详细设计与实现

4.1 建立数据库数据表

4.1.1 建立数据库

1)数据库名称：学生选课信息管理系统；

2)标识：Manage.

4.1.2 建立数据表 1) 表名：教师信息表

2) 表名：学生信息表

3) 表名：教室信息表

教室

可纳人数 空闲时间

学生

学号

姓名

院系 已选课状况

教师

编号

姓名

年龄

学历

性别

职称

健康状况

毕业院校

4) 表名：选课信息表

4.2 主要功能模块实现

4.2.1 登陆模块

选课信息

课程编号

名称 任课老师 选课学生

4.2.1 系统管理界面模块

4.2.3 查询模块

模块功能描述：该模块是查询教师信息和选课信息，为用户更方便的使用学生选课管理系统。

查询界面图如下所示：

模块代码实现：

1.查询教师代码：

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub Command1_Click()

Set conn = New ADODB.Connection

conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=Manager"

Dim sqlcmd As String

Dim sqlcmmd

sqlcmd = "SELECT * FROM L WHERE L_No='" & Text1.Text & "'"

Dim rss As New ADODB.Recordset

rss.CursorLocation = adUseClient

rss.Open sqlcmd, conn, 1, 1

If Not rss.EOF Then

Text4.Text = rss.Fields(0)

Text5.Text = rss.Fields(1)

Text6.Text = rss.Fields(2)

Text7.Text = rss.Fields(3)

Text8.Text = rss.Fields(4)

Text9.Text = rss.Fields(5)

Text10.Text = rss.Fields(6)

Text11.Text = rss.Fields(7)

rss.Close

Else

MsgBox "没有记录"

End If

End Sub

2.查询选课信息代码：

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub Command1_Click()

Set conn = New ADODB.Connection

conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=Manager"

sqlcmd = "SELECT * FROM B WHERE B_No='" & Text1.Text & "' "

Dim rss As New ADODB.Recordset

rss.CursorLocation = adUseClient

rss.Open sqlcmd, conn, 1, 1

If Not rss.EOF Then

Text2.Text = rss.Fields(0)

Text3.Text = rss.Fields(1)

Text4.Text = rss.Fields(2)

Text5.Text = rss.Fields(3)

rss.Close

Else

MsgBox "没有记录"

Text1.Text = ""

Text1.SetFocus

End If

End Sub

4.2.3 修改模块

模块功能描述：修改是让用户更好的管理自己的信息，对自己的信息进行一些修改，使自己的信息更加精准。

模块界面图：

模块代码实现：

Private Sub Command1_Click()

Set conn = New ADODB.Connection

conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=Manager"

Dim sqlcmd As String

sqlcmd = "SELECT * FROM B WHERE B_No='" & Combo1.Text & "'"

Dim rss As New ADODB.Recordset

rss.CursorLocation = adUseClient

rss.Open sqlcmd, conn, 1, 3

If Not rss.EOF Then

rss.Fields(0) = Text1.Text

rss.Fields(1) = Text2.Text

rss.Fields(2) = Text3.Text

rss.Fields(3) = Text4.Text

rss.Update

rss.Close

MsgBox "修改成功！"

Else

MsgBox "没有记录"

End If

Unload Me

End Sub

Private Sub Form_Load()

Set conn = New ADODB.Connection

conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=Manager"

Dim sqlcmd As String

sqlcmd = "SELECT B_No FROM B "

Dim rss As New ADODB.Recordset

rss.CursorLocation = adUseClient

rss.Open sqlcmd, conn, 1, 1

Combo1.Clear

While Not rss.EOF

Combo1.AddItem (rss.Fields("B_No"))

rss.MoveNext

Wend

rss.Close

End Sub

4.2.4 删除模块

模块功能描述：删除模块给用户提供了一个能对自己信息删除的功能，能让用户对一些不必要的信息进行删除。

模块界面图：

模块代码实现：

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub Command1_Click()

Set conn = New ADODB.Connection

conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=Manager"

Dim sqlcmmd As String

If MsgBox("真的要删除该课程吗?", vbYesNo + vbQuestion + vbDefaultButton1, "确认窗口") = vbYes Then

sqlcmmd = "DELETE FROM B WHERE B_No='" & Combo1 & "'"

Dim rst As New ADODB.Recordset

rst.CursorLocation = adUseClient

rst.Open sqlcmmd, conn, 1, 3

MsgBox "已删除该记录!", vbOKOnly, "提示"

End If

End Sub

Private Sub Form_Load()

Set conn = New ADODB.Connection

conn.Open "Provider=SQLOLEDB.1;Data Source=(local);User ID=sa;password=sa;Initial Catalog=Manager"

Dim sqlcmd As String

sqlcmd = "SELECT B_No FROM B "

Dim rss As New ADODB.Recordset

rss.CursorLocation = adUseClient

rss.Open sqlcmd, conn, 1, 1

Combo1.Clear

While Not rss.EOF

Combo1.AddItem (rss.Fields("B_No"))

rss.MoveNext

Wend

rss.Close

End Sub

五、结束语

通过这周的课程设计，让我不但对数据库在生活中的广泛应用有了更深的体会，加深了对SQL的认识，而且还复习了一些相关的VB编程知识，尤其对数据库与开发程序的链接有了进一步的认识。

这次课程设计对我最大的收获并不仅是对书本知识的巩固，还通过实验很好的锻炼了我的自学能力，同时实践能力也提高了不少。由于之前很久没有接触过VB，对这门语言很多知识都不记得了，在实验的开始阶段进展很慢。但是通过查阅书本，网上查资料，与同学讨论，互相学习中渐渐的掌握了一定的知识。后来的实验也就没有那么摸不着门路了。

当然，在这次课程设计中我还有很多没有解决的问题：不会使用存储过程返回结果给变量；也没能掌握两个表以上的查询功能，只能基于单表的查询，添加，删除等，以至功能不是很完善。对于这一点我有很大的遗憾，如果可以实现的话，相信我可以实现更加完善的功能。如实现对班级专业的成绩统计，实现灵活的成绩查询等等。

总结以上，这次课程设计，我收获很多，感触很深。不管怎样，今后我会更加努力学习这门课程，不断提高自己。

六、参考文献

[1]. 陈志泊，王春玲.数据库原理及应用教程（第二版）.人民邮电出版社，2008.

[2]. 莫德举，夏涛.Visual Basic 程序设计. 北京邮电大学出版社，2008.