SQL学生信息管理系统

毕业设计（论文）

题目 学生信息管理系统设计与实现

系 别 软件工程系

专 业 软件技术 班 级 姓 名 学 号 指导老师（职称） 日 期

兰州工业高等专科学校

毕业设计（论文）任务书

软件工程 系 2008 届 计算机软件 专业

毕业设计（论文）任务书

毕业设计（论文）题目 VB学生管理系统 课题内容性质 课题来源性质 校内（外）指职 称 导教师 工作单位及部门 联系方式 软件开发 教师收集的结合生产实际的课题 设计/论文 一、题目说明（目的和意义）： Visual Basic 是一个强有力的系统开发软件之一，以其实用、方便、快捷、开发周期短，越来越被广大编程人员所青睐。VB更容易上手，进而提高软件开发的效率。 通过实际设计，掌握VB应用程序开发软件的设计方法，理解软件工程思想。本次设计的主要目的是提高学生综合分析问题和解决实际问题的能力，为将来走上工作岗位打下一个良好的基础。学生信息管理系统主要包括对学生信息的查询和修改等操作。 二、设计（论文）要求（工作量、内容）： （一）系统需求分析（占全部工作量的20%） 1、认真阅读毕业设计任务书，对设计题目的实用性、可行性进行论证。 2、收集资料：认真阅读毕业设计任务书。了解设计目标及要求与开发环境。主要是软件环境，即系统中将采用的开发工具，如有异议，可及时与指导老师进行交流。 3、设计目标及要求：实现对学生信息的查询和修改。 主要实现以下几方面功能： 用户登录系统：实现用户可以以各种身份登录。 信息查询：包括单项查询和综合查询。 系统维护：包括系统中涉及到的规范化数据字典表的管理、用户管理等。 （二）数据库系统分析、设计（占全部工作量的20%） 1、采用VB数据库系统 VB+ACCESS 2、设计数据库中需要的表 设计表结构，设计表中的字段、类型、长度等。 3、分析系统中表之间的关系 （三）程序设计、调试（占全部工作量的30%） （四）系统测试（占全部工作量的20%） （五）书写设计论文（占全部工作量的10%） 三、进度表 日 期 1。系统的实用性、可行性分析 2。业务分析 3。设计目标 第15周 4。功能设计 第二阶段：数据库设计 1。数据库设计：设计数据库结构 第16周 2。给出E—R图及相应数据流图 第三阶段：程序设计、调试和系统测试 1. 程序编制 第17-18周 2. 系统测试 3. 系统打包、完成 第四阶段：写毕业论文 第19-20周 内 容 第一阶段：系统需求分析 完成日期 答辩日期 四、主要参考文献、资料、设备和实习地点及翻译工作量： 1主要参考文献： [1] 萨师煊 王珊。数据库系统概论。第三版。北京：高等教育出版社，2000。 [2]周霭如、官士鸿、林伟健。Visual Basic程序设计。北京：电子工业出版社，2003。1。 [3]尹贵祥。 Visual Basic6。0程序设计案例教程。 。北京：中国铁道出版社，2005。1 [4] (美) Stephen R。Schach。软件工程。北京： 机械工业出版社，1999。9 2设备：计算机一台，自己解决。 3翻译工作量：论文摘要。 指导教师签字 年 月 日 日 教研室主任签字 年 月 日 年 月 主管系领导签字 注：本任务书要求一式两份，一份系部留存，一份报教务处实践教学科。

摘要

随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。

学生成绩管理系统主要提供方便高效的管理功能，该实现以下一些基本功能： 1。系统管理模块：维护系统的正常运行和安全性设置，包括添加用户、修改密码、删除用户等等。

2。学院信息模块：实现对学校院系、专业、班级操作。包括：添加、修改、删除院系、专业、班级等信息。这三个功能模块各自，完成学校的全部班级的管理。

3。学生学籍管理模块：实现对学生的个人信息的管理工作，包括学籍添加、 学籍查询、学籍修改等功能，从而方便学校管理部门对学校的基本情况的快速查询和了解。

4。课程管理模块：该模块对各个班级的课程进行设置，并可在其中设置各门 课程的教材选用情况，方便了学校教材管理部门和教务处的教学管理人员的工作。该模块包括基本课程设置和班级课程设置两个模块。

5。成绩管理模块：检验学生学习情况的一个主要手段，本模块包括考试类型 设置，共有期中考试和期未考试两种类型，还设置了成绩添加、成绩查询、成绩浏览、成绩修改等功能模块。

6。 退出模块：此模块完成程序的退出。

该程序界面友好，功能强大，适合实际应用。 关键字：数据库 ACCESS 数据库

第一章 绪论

1.概述

该信息管理系统可以说是一个综合性的学校学生管理系统，它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统等多种功能，因而具有较强的实用性和先进性。 项目提出的意义

现在我国的大中专院校的学生信息管理水平普遍不高，有的还停留在纸介质基础上，这种管理手段已不能适应时代的发展，因为它浪费了许多的人力和物力。在当今信息时代这种传统的管理方法必然被计算机为基础的信息管理系统所代替。如果本系统能被学校所采用，将会改变以前靠手工管理 学生成绩的状况，可以树立良好的办学形象，提高工作效率。

项目开发背景

学生信息管理系统是一个教育单位不可缺少的部分，它的内容对于学校的决策者和管理者来说都至关重要，对学生来说也可以轻松的查阅自己在校的成绩以及信息等。但是一直以来人们都是靠传统人工的方式管理学生成绩，这种管理方式存在着许多缺点，如：效率低，保密性差，另外时间一长，将产生大量的文件和数据，这对于查找，更新和维护都带来了不少的困难。随着科学技术的不断提高，计算机对学生信息进行管理，有着手工管理所无法比拟的优点。例如：检索迅速，查找方便，可靠性高，存储量大，保密性好，寿命长，成本低等。这些优点能够极大地提高学生信息管理的效率，方便系统管理员对学 生成绩等信息的添加，修改，删除，查询，留言等操作，同时一样的方面学生对自己各科成绩查询，学习的交流。 项目开发的目标

建立学生信息管理系统，采用计算机对学生信息进行管理，进一步提高办学效益和现代化水平。帮助广大教师提高工作效率，实现学生信息管理工作流程的系统化、规范化和自动化。

二、相关技术与开发工具介绍

本系统采用面向对象的软件开发办法，以Microsoft公司的可视开发环境 Visual Basic6.0 作为主要开发工具，使用Microsoft Access 2000作为关系数据库，并为VB编程语言中采用ADO数据库编程模型，配合功能强大的SQL查询语言实现建立关系数据库，放问数据库，对数据库的更新，较好地实现了预定的需求功能。

第二章 需求分析

通过调查，要求系统需要有以下功能： ⑴要求有良好的人机界面； ⑵较好的权限管理；

⑶原始数据修改简单方便，支持多条件修改； ⑷方便的数据查询，支持多条件查询；

⑸相应的权限下，删除数据方便简单，数据稳定性好； ⑹数据计算自动完成，尽量减少人工干预；

可行性分析：

由于本系统管理的对象单一，都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是奔腾 3 以上的机器，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。数据库是 MIS 中的重要支持技术，在 MIS 开发过程中，如何选择数据库管理 是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言介绍如下： Visual Basic 是一种可视化的、面对对象和调用事件驱动方式的结构化 高级程序设计，可用于开发 Windows 环境下的种类应用程序。它简单易学、效率 高，且功能强大。在 Visual Basic 环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，可以高效、快速地开发出 Windows 环境下功能强大、图 形界面丰富的应用软件系统。 第三章 功能设计 2.3 业务流程分析

学生信息管理系统 普通用户 中级用户 管理员 查询个人信息 查询个人成绩 查询个人信息 改查学生成绩 修改密码 添加学生教师 添加管理员 查询数据 设置学院信息

2.4 数据流程分析：

普通用户（学生）：提供查询（需登录，仅显示登录用户信息） 中等用户（教师）：提供增删改查（需登录，只可操作成绩表，并且教师工号对自己对应的成绩） 管理员（教务处）：提供增删改查（可对学生，教师，成绩等操作）

普通用学生信中级用息管理系管理员 统 教师表 成绩表 学生表 管理员表 普通用户：登录账户为学生学号

中级用户：登录账号为教师工号，密码自定义，可修改 管理员：登录账号为特定，密码可修改，可增加特殊账号

管理员 增查个人信增查教师信修改学院信院系表 专业表 班级表 管理教师表

软件功能设计

第四章 详细设计 数据库设计

学生表(student): 列 字段名 类型 长度 是否为空 主键 学号 姓名 性别 出生年月 民族 籍贯 入学时间 院系编号 专业编号 班级编号 教师表：（） 列 教师工号 教师姓名 性别 名族 籍贯 政治面貌 职称 所属部门 登陆密码 管理员表：（） 列 管理员编号 管理员账号 密码 所属部门 成绩表：（） 列 学生编号 学科编号 平时成绩 期末 总评 教师工号 Id name sex birthday nation native enterTime fID speID cID 字段名 tID tName tSex tNation tNative Political tital department password 字段名 adID adName adPassword adDepart 字段名 stuID subID usual final eff teacherID Char Char Char Date/time Text text Date/time text text text 类型 text text text text text text text text text 类型 text text text text 类型 text text text text text text 20 20 2 8 10 10 8 5 5 5 长度 20 10 2 10 10 10 10 10 50 长度 10 50 50 10 长度 12 10 10 10 10 20 否 否 是 是 是 是 是 是 是 是 是否为空 否 否 是 是 是 是 是 是 是 是否为空 否 否 否 否 是否为空 否 否 否 否 是 否 是 否 否 否 否 否 否 否 否 否 主键 是 否 否 否 否 否 否 否 否 主键 是 否 否 否 主键 否 否 否 否 否 否

院系表（faculty）： 列 院系编号 院系名称 字段名 fID fName 类型 text text 长度 2 10 是否为空 否 否 主键 是 否

专业表（special）： 列 专业编号 字段名 speID 类型 text 长度 2 是否为空 否 主键 是 专业名称 所属院系 sName sfID text text 50 2 否 否 否 否

学科表（subject）： 列 编号 名称 字段名 subID subName 类型 text text 长度 5 50 是否为空 否 否 主键 是 否

班级表（class）： 列 班级编号 班级名称 所属院系 所属专业 字段名 cID cName fID sID 类型 text text text text 长度 2 50 2 2 是否为空 是 是 是 是 主键 否 否 否 否

程序代码设计要求：

根据系统的主要功能及上一章的总体设计，系统开发进入第二个阶段：详细设计。在这一阶段的工作中，主要任务有以下几项：

1、根据原型化的开发原则，为系统的每个模块功能进行界面设计，作为进一步优化的基础。

2、进行系统的流程分析，为模块的细化做好准备。 3、对每个模块进行详细的算法设计。 详细代码设计 公共模块：

解决登陆用户信息以及数据库标志等公共信息，所以定义通用变量 Public gUserName As String '保存用户名称 Public gTid As String '保存教师信息 Public gStuID As String '保存学生登录信息

Public flag As Integer '添加和修改的标志 Public gSQL As String '保存SQL语句

Public kqsql2 As String '保存查询其他考勤结果SQL语句 Public ArecordID As Integer Public LrecordID As Integer Public orecordID As Integer Public ErecordID As Integer

Public iflag As Integer '数据库是否打开标志

数据库连接选用ADODB连接方式，首先先编写一公共模块，用于存放数据库访问类。

Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset

Dim con As ADODB.Connection Dim rs As ADODB.Recordset Dim strConnection As String Dim strArray() As String

Set con = New ADODB.Connection Set rs = New ADODB.Recordset On Error GoTo TransactSQL_Error

strConnection = \"Provider=Microsoft.jet.oledb.4.0;Data Source=\" & App.Path & \"\\DB\\StuData.mdb\"

strArray = Split(sql) con.Open strConnection

If StrComp(UCase$(strArray(0)), \"select\vbTextCompare) = 0 Then

rs.Open Trim$(sql), con, adOpenKeyset, adLockOptimistic Set TransactSQL = rs iflag = 1 Else

con.Execute sql iflag = 1 End If TransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit Function TransactSQL_Error:

MsgBox \"查询错误：\" & Err.Description iflag = 2

Resume TransactSQL_Exit

End Function

解决关闭窗口后程序任在后台运行类：

Public Sub Shutdown(Optional ByVal Force As Boolean = False)

Dim I As Long On Error Resume Next

For I = Forms.Count - 1 To 0 Step -1 If Not Force Then

If Forms.Count > I Then Exit Sub End If End If Next I

If Force Or (Forms.Count = 0) Then Close If Force Or (Forms.Count > 0) Then End End Sub 识别tab键

Public Sub TabToEnter(Key As Integer) If Key = 13 Then SendKeys \"{TAB}\" End If End Sub 登陆界面设计

由于有三类用户同时登陆

其中，学生输入学号登陆，教师登陆由教工号于密码登陆，管理员由账号密码登陆。 代码如下：

Private Sub cmdOK_Click() Dim sql As String

Dim rs As ADODB.Recordset If Trim(UserName.Text = \"\") Then

MsgBox \"没有输入用户名，请重新输入！\vbOKOnly + vbExclamation, \"警告\" UserName.SetFocus Else

sql = \"select * from Administrator where adName='\" & UserName.Text & \"'\"

Set rs = TransactSQL(sql) If iflag = 1 Then

If rs.EOF = True Then

MsgBox \"没有这个用户，请重新输入！\vbOKOnly + vbExclamation, \"警告\"

UserName.SetFocus Else

If Trim(rs.Fields(2)) = Trim(adPassWord.Text) Then rs.Close Me.Hide

gUserName = Trim(UserName.Text) '记录用户

adminFrm.Show Unload Me Else

MsgBox \"密码不正确，请重新输入！\vbExclamation, \"警告\"

adPassWord.SetFocus adPassWord.Text = \"\" End If End If Else

Unload Me End If End If

End Sub 主窗体设计

系统选项中提供管理员注册，修改，删除功能 其中，注册界面代码如下：

代码：

Private Sub cmdOK_Click() Dim sql As String

Dim rs As ADODB.Recordset If Trim(adName.Text) = \"\" Then

MsgBox \"请输入用户名称\警告\" Exit Sub

adName.SetFocus Else

sql = \"select * from Administrator where adName= '\" & adName.Text & \"'\"

Set rs = TransactSQL(sql)

'判断用户名是否存在 If rs.EOF = False Then

MsgBox \"这个用户已存在，请重新输入！\vbOKOnly + vbExclamation, \"警告\"

adName.SetFocus adName.Text = \"\" passW1.Text = \"\" passW2.Text = \"\" Exit Sub Else

If Trim(passW1.Text) = \"\" Then

MsgBox \"请输入密码\警告\"

passW1.SetFocus Exit Sub

ElseIf Trim(passW2.Text) = \"\" Then

MsgBox \"请再次输入密码！\vbOKOnly + vbExclamation, \"警告\"

passW2.SetFocus Exit Sub

ElseIf Trim(passW1.Text) <> Trim(passW2.Text) Then MsgBox \"两次输入不一致，请重新输入\vbOKOnly + vbExclamation, \"警告\"

passW2.Text = \"\" passW2.SetFocus Exit Sub Else

sql = \" insert into Administrator

( adID,adName,adPassword,adDepart )values('\" & id.Text & \"','\" & adName.Text & \"','\" & passW1.Text & \"','\" & Depart.Text & \"')\" Call TransactSQL(sql)

MsgBox \"注册成功！\添加结果\"

Call init End If End If End If End Sub 学生注册页面

优化功能：

为用户提供便捷的操作，以及在目标中提到的要求，在学生注册系统中加入了一些便捷操作：

1， 由于没个学生由于院系，专业，班级不同学号有所不同所以学号由系统

自动生成，以减少人工干预，降低系统出错率。 Private Sub cmdID_Click() Dim sql As String

Dim rs As New ADODB.Recordset Dim endID As String Dim tempID As String Dim eID As String Dim rsa As String

' Dim faculty, special, class As String

If facultyID = \"\" Then

MsgBox \"请输入院系！\警告\"

faculty.SetFocus Exit Sub

ElseIf specialID = \"\" Then

MsgBox \"请输入专业！\警告\"

special.SetFocus Exit Sub

ElseIf classID = \"\" Then

MsgBox \"请输入班级！\警告\"

class.SetFocus

Exit Sub Else

enterTime = Mid(entTime.Value, 1, 4)

sql = \"select id from student where id and fID='\" & facultyID & \"' and speID='\" & specialID & \"' and cID='\" & classID & \"' order by id desc\"

Set rs = TransactSQL(sql)

eID = rs(0)

eID = Right(eID, 2) + 1 ' native.Text = classID 'native.Text = sql

endID = Right(Format(1000 + eID), 2) ' rs.Close

tempID = enterTime & facultyID & specialID & classID & endID

id.Text = tempID End If

End Sub

2， 院系，专业，班级都从数据库中提取，在学生表中只存储编号代码。 Dim sql As String

Dim rs As ADODB.Recordset

sql = \"select * from special where sName='\" & special.Text & \"' Set rs = TransactSQL(sql) classID = rs(0) rs.Close

3， 由于院系，专业，班级有包含关系所以在这里combobox控件加入代

码，实现选择院系后所包含的专业自动加入队列。 Private Sub faculty_click() Dim sql As String

Dim rs As ADODB.Recordset ' Dim fID As String Dim s As String

special.Clear '选定院系后刷新获得院系所含专业 specialID = \"\" class.Clear classID = \"\"

sql = \"select * from faculty where fName='\" & faculty.Text & \"' Set rs = TransactSQL(sql) facultyID = rs(0)

' rs.Close

sql = \"select * from special where sfID='\" & facultyID & \"'\" Set rs = TransactSQL(sql) Do While Not rs.EOF s = rs(1)

special.AddItem (s) rs.MoveNext Loop rs.Close End Sub

4， 由于在表中只存储编号信息，程序中显示名称我们以添加新的班级为

例。

在窗口加载时得将院系信息加入到combobox控件队列，实现代码如下： Private Sub Form_Load() Dim sql As String

Dim rs As ADODB.Recordset Dim f As String

sql = \"select * from faculty where fName \" Set rs = TransactSQL(sql) Do While Not rs.EOF f = rs(1) fID.AddItem (f) rs.MoveNext Loop rs.Close End Sub

在选取院系信息后要将院系所包含的专业信息加入到队列，实现代码如下： Private Sub fID_Click() Dim sql As String

Dim rs As ADODB.Recordset Dim s As String

sID.Clear '选定院系后刷新获得院系所含专业

sql = \"select * from faculty where fName='\" & fID.Text & \"' \" Set rs = TransactSQL(sql) facID = rs(0) ' rs.Close

sql = \"select * from special where sfID='\" & facID & \"'\" Set rs = TransactSQL(sql)

Do While Not rs.EOF s = rs(1) sID.AddItem (s) rs.MoveNext Loop rs.Close End Sub

由于班级编号在同一专业不能重复，所以编号由系统自动生成。

当选定院系，专业后系统将从所数据库获得选定院系，专业现存的班级编号，按倒序排列后获得最后的编码，由系统自动加1显示在控件上。实现代码如下：

Private Sub init()

Dim tempID As String Dim sql As String

Dim rs As ADODB.Recordset Dim num As Integer

sql = \"select cID from class where fID='\" & facID & \"' and sID='\" & speID & \"' order by cID desc\" Set rs = TransactSQL(sql) num = rs(0) num = num + 1 + 0 rs.Close cID.Text = num

End Sub

其中参数facID，speID在选取时记录如以下代码： Private Sub sID_Click() Dim sql As String

Dim rs As ADODB.Recordset

sql = \"select * from special where sfID='\" & facID & \"'\" Set rs = TransactSQL(sql) speID = rs(0)

rs.Close Call init End Sub

5， 修改用户信息由严谨的逻辑关系控制，确保数据库中信息安全。以修改

管理员密码为例。

基本流程为：验证原密码-新密码与确认密码相同然后执行修改。 代码实现如下：

Private Sub cmdOK_Click()

Dim sql As String

Dim rs As ADODB.Recordset If Trim(oldPas.Text) = \"\" Then

MsgBox \"请输入旧密码！\警告\" oldPas.SetFocus Exit Sub

ElseIf Trim(newPas1.Text) = \"\" Then

MsgBox \"请输入新密码！\警告\" newPas1.SetFocus Exit Sub

ElseIf Trim(newPas2.Text = \"\") Then

MsgBox \"请再次输入新密码\警告\"

newPas2.Text = \"\" newPas2.SetFocus Exit Sub

ElseIf Trim(newPas1.Text) <> Trim(newPas2.Text) Then

MsgBox \"两次输入不一致！\警告\"

newPas2.Text = \"\" newPas2.SetFocus Else

sql = \"select * from Administrator where adName='\" &

gUserName & \"'\"

Set rs = TransactSQL(sql) If iflag = 1 Then

If rs.EOF = True Then

MsgBox \"登陆信息出错请重新登陆！\vbOKOnly + vbExclamation, \"警告\" Else

If Trim(rs.Fields(2)) = Trim(oldPas.Text) Then

sql = \" update Administrator set adPassword='\" & newPas1.Text & \"' where adName='\"

sql = sql & gUserName & \"'\" TransactSQL (sql) rs.Close Me.Hide

MsgBox \"密码修改成功！\修改结果\"

Unload Me Else

MsgBox \"原密码不正确，请重新输入！\\"警告\"

oldPas.SetFocus oldPas.Text = \"\" End If

End If Else

Unload Me End If End If End Sub 第五章 结束语

在本系统的开发过程中，由于本人是初次开发软件，在知识、经验方面都存在着不足。因此，该系统必然会存在一些缺陷和不足。因为对学生管理的整个流程不够熟悉，在需求分析时未能做到完全满足用户的需求。虽然网络在学生管理系统中的应用不是很多，但是未来的发展方向，在本次开发过程由于硬件的，未能实现网络功能，因此在以后的系统更新过程中可能会造成一些不必要的数据损失。通过开发这个系统，我掌握了项目的基本开发过程，了解了的基本知识巩固 了我对 Visual Basic 的学习，但在这次设计中的最大收获并不是掌握这几门开发工具的应用，而是学会了设计系统的思维方法，以及与同学们之间相互帮助的 精神。 致 谢

在论文即将完成之际，回顾紧张但又充实的和开发过程，本人在此向所有关心我的及帮助我的老师和同学们致以最真诚的感谢。

在本次毕业设计中，我从指导老师--------**老师，身上学到了很多东西。他认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中，都给与我很大的帮助，使我得到很大的提高，

这对于我以后的工作和学习都有一种巨大的帮助，在此感谢他耐心的辅导。在撰写论文阶段，邹老师几次审阅我们的论文，提出了许多宝贵意见，没有他的指导，我们就不能较好的完成课题设计的任务。

另外，我还要感谢在这几年来对我有所教导的老师，他们孜孜不倦的教诲不但让我学到了很多知识，而且让我掌握了学习的方法，更教会了我做人处事的道理，在此表示感谢。同时，在系统开发过程中还有同组的同学也给了我不少帮助，这里一并表示感谢。 主要参考文献

本系统的过程中，主要的参考文献有：

《Visual Basic6.0》 林陈雷 人民邮电出版社

《面向对象程序设计系列教材》 龚沛曾 高等教育出版社

《Visual Basic6.0编程实例精解》 何文俊

《Visual Basic 企业办公系统实例导航开发》 刘蒙 人民邮电出版社 《Visual Basic6.0 数据库开发与专业应用》 敬 铮 国防工业出版社

《Visual Basic6.0 数据库程序设计高手》 温贤发 科学出版社

《Visual Basic6.0 程序设计》 陈明 广播电视大学出版社