学生信息管理系统毕业设计论文

.湖北轻工职业技术学院毕业设计(论文)题目： 学生信息管理系统毕业论文系 部： 信息工程系专业： 软件开发学生姓名： 李 海学 号： 20130301112指导教师： 程 宁2016年 5 月 28 日.学生信息管理系统摘要随着学校的规模不断扩大，学生数量急剧增长，需要管理的各种信息也成倍增加。同时由于计算机和网络技术的普及，建立一个C/S或者B/S结构的学生信息管理系统之后，学生可以通过网络来选课并管理自己的信息，使得学生信息管理工作系统化、规范化高了学校管理学生信息的效率。学生信息管理系统是利用Visual Basic开发设计的。数据库是基于SQL SERVER设计的。学校管理人员可以通过该系统方便、快速、有效的管理学生信息。本系统主要实现了对高校从学生学籍信息录入、学生选课、学生考核、到学生成绩管理。整个系统分为学生信息管理、学生课程信息管理、学生成绩管理、系统管理四大模块。其中，学生信息管理模块包括学生信息录入、学生信息修改。学生课程信息管理模块包括学生选课、学生课程查询。学生成绩管理模块包括学生成绩录入、学生成绩查询。系统管理模块包括用户权限、密码修改、退出系统。整个系统从操作简便、灵活、实用的目的要求出发完成学生信息管理系统全过程。关键字：计算机网络、数据库、信息管理、学生信息管理系统 STUDENTS INFORMATION MANAGEMENT SYSTEM ABSTRACTWith the scale enlargement of the school, the number of students has increased dramatically, need to manage all of the information also increase exponentially. At the same time because the computer and popularization of the network technology, build a C/S or B/S structure of students information management system after a student can through the network and management of their course information, the students information management system, the high school students standardized management information efficiency. Students information management system is to use Visual Basic development of the design. The database is based on SQL SERVER of the design. The school management personnel may through this system, convenient, fast, and the effective management of the students information. This system mainly for college students realize from the student status information recorded, students course selection, students appraisal, to student performance management. The whole system is divided into students information management, students course information management, student performance management, system management four modules. Among them, students information management modules including student information recorded, students information changes. Students course information management module includes students course selection, students course inquiry. Students performance management module includes students achievements recorded, students scores query. System management module including user permissions, and password changing, exit system. The whole system from simple operation, flexible, practical purpose finish requirement student information management system process. KEY WORDS: computer networks, database, the information management, the students information management system.目录1前 言12系统技术及运行环境22.1 Visual Basic 6.0简介22.2系统开发及运行环境23 系统分析23.1需求分析23.2可行性分析34系统设计34.1 设计目标34.2项目规划44.3系统流程图45系统详细设计55.1数据库需求分析55.2数据库逻辑结构设计66.系统实现76.1系统初始界面86.2附加数据库106.3登陆界面设计116.4学生信息录入146.5 学生信息修改176.6 学生信息查询186.7学生成绩录入206.8 修改学生成绩226.9学生成绩查询236.10用户管理246.11修改用户密码276.12关于系统29结论29致 谢30参考文献30.1前 言学生信息管理系统（Student Information Management System）,以下简称SIMS，是针对学校人事处的大量业务处理工作而开发的管理软件，是典型的管理信息系统（Management Information System）。它是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,它能够为用户提供充足的信息和快捷的查询手段。能有效的帮助学校和老师掌握学生的情况，为学生提供成绩跟课程方面的查询。在传统模式下利用人工进行学生信息管理，存在着较多的缺点，如：效率底，保密性差，时间一长将产生大量的文件和数据，更不便于查找，更新，维护等。诸如这些情况，令学校管理者对学生的信息管理带来了很大困难，严重影响了教育工作者的工作效率。随着科学技术的不断提高,计算机科学日渐成熟, 使用日趋成熟的计算机技术来代替传统的人工模式，来实现学生信息的现代化管理，其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对学生信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、易修改、可靠性高、存储量大、数据处理快捷、保密性好、寿命长、成本低、便于打印等。这些优点能够极大地提高学生信息管理的效率,也是学校的科学化、正规化管理,与世界接轨的重要条件。用计算机制作的学生信息管理系统还可以通过功能强大的Internet网及时的向学生的家长传递该生在校的最新成绩，有助于学校与家长的信息互动，为更好地把握学校的教育方针一定的促进作用！因此，开发这样一套管理软件成为很有必要的事情。2系统技术及运行环境2.1 Visual Basic 6.0简介Visual Basic 6.0是Microsoft公司成功的变成语言产品之一，在全世界有数以百万计的用户。它之所以受到人们的青睐，原因是多方面的，但主要的有两点，一是功能强大，二是容易掌握。随着版本的更新，Visual Basic已成为真正专业化的大型开发语言和环境，不公功能越来越强，而且更容易使用Visual Basic6.0所提供的开发环境与Windows具有完全一致的界面，使用更方便，其代码效率已达到VisualC+的水平。2.2系统开发及运行环境该运行环境的规定是保证本需求说明的功能得到实际真正体现的基础。（1）运行环境WindowsXP或更高版本的操作系统数据库系统：Microsoft SQL Server 2000（2）开发环境：开发工具：Microsoft Visual Basic 6.0数据库系统：Microsoft SQL Server 20003 系统分析3.1需求分析21世纪以来，人类经济高速发展，人们发生了日新月异的变化，特别是计算机的应用及普及到经济和社会生活的各个领域。使原本的旧的管理方法越来越不适应现在社会的发展。许多人还停留在以前的手工操作。这大大地阻碍了人类经济的发展。为了适应现代社会人们高度强烈的时间观念，学校信息管理系统软件为学校办公室带来了极大的方便。（一）教育系统学生管理现状分析学校工作流程分析学校工作总体规划由教务人员在学生信息管理系统中完成对运行教务处所需的基本数据的维护，包括这些信息的增加、修改及对各项信息的变动都将在这进行操作。新的学年，教务人员首先加入年级信息，然后编排班级，再对来校学生进行基本的信息录入，新生入学后由教务人员在学籍系统中完成新学生信息的维护。（二）学校具体需求分析学生：对各科成绩的查询任课老师：输入并维护所教科目的学生成绩教务处： 学校全体成员的信息管理，并对任课老师，班主任等输入的信息进行存库，对学生的信息进行必要的维护。通过研究调查，本系统需以下功能：综合学生信息、学生成绩以及信息查询等信息。方便用户了解和管理学生的全面动态信息。良好的界面设计，更人性化的设计理念，使用户拥有更轻松的使用心情。3.2可行性分析目的：可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能解决。经济性：由于学校等中小型管理系统并不复杂，且Visual Basic 6.0本身要求的运行环境不高，所以一般Windows 2000以上的系统环境都可以使用。实用性：本学生信息管理系统管理系统无太多复杂的操作要求，也没有过分花哨的装饰品，人性化的设计界面可以使操作者轻易运用自如 4系统设计4.1 设计目标本系统可以能减少很多不必要的资源，不用象以前那样用冗余的纸张式的管理。大节省了学校能源。并且计算机的存储与快速查询功能大大提高了学籍管理的效率，并且还提高了学籍信息管理的精确度。方便快速的操作，可减少学籍信息管理的漏洞，又减少因工作的冗余出现的错误，并且操作非常简单，可减少许多不很必要的人员，这无论从物质上还是工作人员的工资上都为学校节约了开支。为学校增加了财富。数据库分析用户需求具体有学籍管理系统提供保存、更新、查询、维护，这就需求数据库结构能充分满足各种信息的输入与输出，实现有组织地、动态地存储大量关联数据，方便用户访问系统中的数据，它与文件系统的重要区别是数据的充分共享，交叉访问，与应用程序的高度独立性。4.2项目规划学生管理系统是各大中专院校不可缺少的一部分，是一个VB+SQL数据库开发应用程序，它主要包括用户登录、学生信息输入修改、学生信息查询以及学生成绩输入、学生成绩查询、系统用户管理等几个页面，因而该系统具有较强的实用性。4.3系统流程图系统初始化附加数据库系统登录系统主界面学生成绩信息管理学生课程信息管理系统管理学生信息管理理学生成绩录入学生选课课程查询学生信息录入学生信息修改学生成绩查询修改密码用户管理5系统详细设计5.1数据库需求分析课程设置学生注册考核信息课程信息管理其它系统数据接口考核信息管理考核输入课程选择学生信息管理个人信息输入 5.2数据库逻辑结构设计（1）kc（课程）见表1表5-1字段名数据类型是否允许为空说明课程号Char（3）Not null主键课程名Char（16）Not null开课学期tinyintNot null只能为1-8学时tinyintNot null学分tinyintnull（2）xs_kc（学生选课）见表2表5-2字段名数据类型是否允许为空说明学号Char（6）Not null主键课程号Char（3）Not null主键成绩tinyintnull学分tinyintnull（3）xs（学生）见表3表5-3字段名数据类型是否允许为空说明学号Char（6）Not null主键姓名Char（8）Not null专业名Char(10)null性别Bit Null男1，女0出生日期SmallDatetimeNull总学分tinyintnull照片imageNull备注textNull(4)user1（管理员登录）见表4表5-4 字段名数据类型说明角色Char(3)用户名Char（6）主键 密码Char（6）Not null（5）user2(学生登录)见表5 表5-5字段名数据类型说明角色Char(3)用户名Char（6）主键密码Char（6）6.系统实现6.1系统初始界面图6-1“系统初始界面代码”Dim starttime As StringDim endtime As StringDim i As IntegerPrivate Sub Form_Load()starttime = Format(Now, hh:mm:ss)End SubPrivate Sub Timer1_Timer()Dim ret As Integerendtime = Format(Now, hh:mm:ss)If DateDiff(s, starttime, endtime) = 10 Then Dim cn As ADODB.Connection Set cn = New ADODB.Connection Dim sqlres As ADODB.Recordset cn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;userid=sa;Initial Catalog=master Set sqlres = New ADODB.Recordset sqlres.Open SELECT * FROM master.sysdatabases WHERE name = xscj, cn, adOpenDynamic, adLockPessimistic If sqlres.EOF = False Then Label1.Caption = 登陆成功 cn.Close Unload Me Form1.Show Else ret = MsgBox(是否加载数据库, vbYesNo, XSCJ) If ret = vbYes Then cn.Close Unload Me Form12.Show Else cn.Close End End If End IfEnd IfEnd SubPrivate Sub Timer2_Timer()Dim str As Stringstr = 系统加载中，请等待.i = i + 1If i = 20 Then i = 0 Label1.Caption = Else Label1.Caption = Label1.Caption & Mid(str, i, 1)End IfEnd Sub6.2附加数据库图6-2“附加Server数据库”按钮的click事件添加如下的代码Private Sub Command2_Click()If Text1.Text = Then MsgBox 请选择数据库文件！, , XSCJ Exit SubEnd IfOn Error GoTo dataerrcn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;userid=sa;Initial Catalog=mastercn.Execute (sp_attach_db dbname= & strdata & ,filename1= & m & )MsgBox 附加成功！, , XSCJcn.CloseUnload MeForm1.ShowExit Subdataerr:MsgBox Err.Description, , XSCJcn.CloseEnd Sub6.3登陆界面设计图6-3“登录”按钮的click事件添加如下的代码:Private Sub Command1_Click()If Text1.Text = Or Text2.Text = Then MsgBox 请输入完整的登录信息! Text1.SetFocus Exit SubEnd IfIf Text3.Text = Then MsgBox 请输入验证码 Text3.SetFocus Exit SubEnd IfDim i As Integeri = Len(Text1.Text)If i 6 Then MsgBox 用户名应为六位数字, , 提示 Text1.SetFocus Text1.Text = Exit SubEnd Ifi = Len(Text2.Text)If i 6 Then MsgBox 密码应为六位, , 提示 Text2.SetFocus Text2.Text = Exit SubEnd IfIf UCase(Trim(Text3.Text) Trim(Label4.Caption) Then MsgBox 验证码输入错误 Text3.SetFocus Text3.Text = Exit SubEnd IfDim sqlcon As New ADODB.ConnectionDim sqlres As New ADODB.RecordsetSet sqlcon = New ADODB.Connectionsqlcon.Open connectstringIf option1.Value Then Set sqlres = New ADODB.Recordset sqlres.Open select * from dlgl where 用户名= + Trim(Text1.Text) + and 密码= + Trim(Text2.Text) + , connectstring, adOpenDynamic, adLockPessimistic If Not sqlres.EOF Then juese = option1.Caption yonghuming = Trim(Text1.Text) mima = Trim(Text2.Text) MsgBox 登录成功 sqlres.Close Unload Me MDIForm1.Show Exit Sub Else sqlres.Close MsgBox 用户名或密码错误！ Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus Randomize i = Int(Rnd * 25 + 65) j = Int(Rnd * 25 + 65) k = Int(Rnd * 25 + 65) l = Int(Rnd * 25 + 65) Label4.Caption = Chr(i) & Chr(j) & Chr(k) & Chr(l) Exit Sub End IfEnd IfIf Option2.Value Then Set sqlres = New ADODB.Recordset sqlres.Open select * from dl where 用户名= + Trim(Text1.Text) + and 密码= + Trim(Text2.Text) + , connectstring, adOpenDynamic, adLockPessimistic If Not sqlres.EOF Then juese = Option2.Caption yonghuming = Trim(Text1.Text) mima = Trim(Text2.Text) MsgBox 登录成功 sqlres.Close Unload Me MDIForm1.Show Exit Sub Else sqlres.Close MsgBox 用户名或密码错误！ Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus Randomize i = Int(Rnd * 25 + 65) j = Int(Rnd * 25 + 65) k = Int(Rnd * 25 + 65) l = Int(Rnd * 25 + 65) Label4.Caption = Chr(i) & Chr(j) & Chr(k) & Chr(l) End IfEnd IfEnd Sub6.4学生信息录入图6-4“更新”按钮的click事件添加如下的代码:Private Sub Command1_Click()Set sqlres = New ADODB.RecordsetAdodc2.RecordSource = select * from xs where 学号= & Trim(Text1.Text) & Adodc2.CommandType = adCmdTextAdodc2.RefreshDim s As StringDim bytedata() As ByteDim adofld As ADODB.Fields = select * from xs where 学号= & Trim(Text1.Text) & sqlres.Open s, connectstring, adOpenDynamic, adLockPessimisticIf Not sqlres.EOF Then sqlres.Fields(1) = Trim(Text2.Text) sqlres.Fields(2) = Combo1.Text If Option1.Value = True Then sqlres.Fields(3) = 1 Else sqlres.Fields(3) = 0 End If If Trim(Text5.Text) Then sqlres.Fields(5) = CInt(Text5.Text) End If sqlres.Fields(7) = Trim(Text4.Text) sqlres.Fields(4) = DTPicker1.Value Set adofld = sqlres.Fields(照片) If CommonDialog1.filename Then Call picsavetodb(adofld, filename) End If sqlres.Update Adodc1.Refresh MsgBox 修改学生信息成功!, vbOKOnly + vbExclamation, 修改学生信息Else sqlres.AddNew sqlres.Fields(0) = Trim(Text1.Text) sqlres.Fields(1) = Trim(Text2.Text) sqlres.Fields(2) = Combo1.Text If Option1.Value = True Then sqlres.Fields(3) = 1 Else sqlres.Fields(3) = 0 End If If Trim(Text5.Text) Then sqlres.Fields(5) = CInt(Text5.Text) End If sqlres.Fields(7) = Trim(Text4.Text) sqlres.Fields(4) = DTPicker1.Value Set adofld = sqlres.Fields(照片) If CommonDialog1.filename Then Call picsavetodb(adofld, filename) End If sqlres.Update Adodc1.Refresh Adodc1.Recordset.MoveLast MsgBox 添加学生信息成功!, vbOKOnly + vbExclamation, 添加学生信息End If CommonDialog1.filename = sqlres.Close Adodc1.RecordSource = select * from xs,cxb where xs.性别=cxb.性别0End Sub6.5 学生信息修改图6-56.6 学生信息查询图6-6“查询”按钮的click事件添加如下的代码Private Sub Command1_Click()Dim str As Stringstr = select * from xs,cxb where xs.性别=cxb.性别0 If Text1.Text = And Text2.Text = And Combo1.Text 所有专业 Then str = select * from xs,cxb where 专业名= + Trim(Combo1.Text) + and xs.性别=cxb.性别0 End IfIf Text1.Text = And Text2.Text = And Combo1.Text = 所有专业 Then str = select * from xs,cxb where xs.性别=cxb.性别0End IfIf Text1.Text And Text2.Text = Thenstr = select * from xs,cxb where 学号= & Trim(Text1.Text) & and xs.性别=cxb.性别0End IfIf Text1.Text And Text2.Text Thenstr = select * from xs where 学号= & Trim(Text1.Text) & and 姓名= & Trim(Text2.Text) & End IfIf Text1.Text = And Text2.Text Thenstr = select * from xs where 姓名= & Trim(Text2.Text) & End Ifstr = select * from xs where 学号= & Trim(Text1.Text) & or 姓名= & Trim(Text2.Text) & or 专业名= & Trim(Combo1.Text) & Adodc1.RecordSource = strAdodc1.CommandType = adCmdTextAdodc1.RefreshIf Adodc1.Recordset.EOF Then Text2.Text = Combo1.Text = 所有专业 Adodc1.RecordSource = select * from xs,cxb where xs.性别=cxb.性别0 Adodc1.Refresh Adodc1.Recordset.MoveFirstEnd IfIf Text1.Text Or Text2.Text Then Combo1.Text = Adodc1.Recordset(专业名)End IfEnd Sub6.7学生成绩录入图6-7“更新”按钮的click事件添加如下的代码Private Sub Command1_Click()Dim 学号, 课程名, 成绩, 学分If Trim(Text2.Text) = Then MsgBox 成绩不能为空，请输入完整的信息！, , 提示 Text2.SetFocus Exit SubEnd Ifsqlcmd.CommandText = addscoresqlcmd.CommandType = adCmdStoredProcSet 学号 = sqlcmd.CreateParameter(学号, adVarChar, adParamInput, 6)sqlcmd.Parameters.Append (学号)Set 课程名 = sqlcmd.CreateParameter(课程名, adVarChar, adParamInput, 16)sqlcmd.Parameters.Append (课程名)Set 成绩 = sqlcmd.CreateParameter(成绩, adInteger, adParamInput)sqlcmd.Parameters.Append (成绩)Set 学分 = sqlcmd.CreateParameter(学分, adInteger, adParamInput)sqlcmd.Parameters.Append (学分)sqlcmd(学号) = Combo3.Textsqlcmd(课程名) = Combo2.Textsqlcmd(成绩) = CInt(Text2.Text)sqlcmd(学分) = 0Set sqlres = sqlcmd.ExecuteMsgBox 更新选课成绩成功, , 提示sqlcmd.Parameters.Delete (学号)sqlcmd.Parameters.Delete (课程名)sqlcmd.Parameters.Delete (成绩)sqlcmd.Parameters.Delete (学分)Adodc1.RecordSource = select xs_kc.学号,姓名,专业名,课程名,成绩,xs_kc.学分 from xs,kc,xs_kc where 课程名= + Trim(Combo2.Text) + and 专业名= + Trim(Combo1.Text) + and xs.学号=xs_kc.学号 and kc.课程号=xs_kc.课程号Adodc1.RefreshAdodc1.Recordset.MoveLastEnd Sub6.8 修改学生成绩图6-86.9学生成绩查询图6-96.10用户管理图6-10窗体的代码如下Private sqlcon As New ADODB.ConnectionPrivate sqlres As New ADODB.RecordsetPrivate Sub Command1_Click()sqlres.MoveFirstText1.Text = sqlres.Fields(0)Text2.Text = sqlres.Fields(1)Text3.Text = sqlres.Fields(2)End SubPrivate Sub Command2_Click()sqlres.MovePreviousIf sqlres.BOF Then sqlres.MoveFirstEnd IfText1.Text = sqlres.Fields(0)Text2.Text = sqlres.Fields(1)Text3.Text = sqlres.Fields(2)End SubPrivate Sub Command3_Click()sqlres.MoveNextIf sqlres.EOF Then sqlres.MoveLastEnd IfText1.Text = sqlres.Fields(0)Text2.Text = sqlres.Fields(1)Text3.Text = sqlres.Fields(2)End SubPrivate Sub Command4_Click()sqlres.MoveLastText1.Text = sqlres.Fields(0)Text2.Text = sqlres.Fields(1)Text3.Text = sqlres.Fields(2)End SubPrivate Sub Command5_Click()Dim a As Integera = MsgBox(是否删除角色为: & Trim(Text1.Text) & 用户名为: + Trim(Text2.Text) + 记录？, vbYesNo, 提示)If a = 6 Thensqlres.Deletesqlres.UpdateEnd IfEnd SubPrivate Sub Command6_Click()Unload MeFrmMain.ShowEnd SubPrivate Sub Form_Load()Me.Height = 5355Me.Left = 5000Me.Top = 2000Me.Width = 7515Set sqlcon = New ADODB.Connectionsqlcon.Open connectstringSet sqlres = New ADODB.Recordset sqlres.Open select * from dlgl , connectstring, adOpenDynamic, adLockPessimisticIf Not sqlres.EOF Then Text1.Text = sqlres.Fields(0) Text2.Text = sqlres.Fields(1) Text3.Text = sqlres.Fields(2)Else MsgBox 无记录 Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Exit SubEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)sqlcon.CloseEnd Sub6.11修改用户密码图6-11“确定”按钮的click事件添加如下的代码Private Sub Command1_Click()If Text1.Text = Or Text2.Text = Or Text3.Text = Then MsgBox 请输入完整信息 Text1.SetFocus Exit SubEnd Ifi = Len(Text1.Text)If i 6 Then MsgBox 密码应为六位, , 提示 Text1.SetFocus Text1.Text = Exit SubEnd Ifi = Len(Text2.Text)If i 6 Then MsgBox 密码应为六位, , 提示 Text2.SetFocus Text2.Text = Exit SubEnd IfIf Trim(Text3.Text) Trim(Text2.Text) Then MsgBox 前后输入的密码不一致! Text3.SetFocus Text3.Text = Exit SubEnd IfIf juese = 管理员 Then Set sqlres = New ADODB.Recordset sqlres.Open select * from dlgl where 用户名= + yonghuming + and 密码= + Trim(Text1.Text) + , connectstring, adOpenDynamic, adLockPessimistic If Not sqlres.EOF Then sqlres.Fields(2) = Trim(Text2.Text) sqlres.Update Else MsgBox 原密码输入有误 Text1.SetFocus Text1.Text = Text2.Text = Text3.Text = Exit Sub End IfEnd IfIf juese = 学生 Then Set sqlres = New ADODB.Recordset sq