高校学生信息管理系统毕业论文.docx

高校学生信息管理系统毕业论文目录1前 言52系统技术及运行环境52.1 Visual Basic 6.0简介52.2系统开发及运行环境53 系统分析53.1需求分析53.2可行性分析54系统设计54.1 设计目标54.2项目规划54.3系统流程图55系统详细设计55.1数据库需求分析55.2数据库逻辑结构设计56.系统实现56.1系统初始界面56.2附加数据库56.3登陆界面设计56.4学生信息录入56.5 学生信息修改56.7学生成绩录入56.8 修改学生成绩56.10用户管理56.11修改用户密码56.12关于系统5结论5致 谢5参考文献51前 言 高校学生信息管理（University students information management）是高校教学管理的一项重要工作，现代化的高校学生信息管理需要现代化的信息管理系统支持，是典型的管理信息系统（Management Information System）。从20世纪九十年代开始，为适应新世纪人才培养的目标，国内高校教育体制进行了大规模的改革。我国的教育事业蓬勃发展，升学率普遍提高，各类大专院校规模不断扩大，对于学生管理工作的高效性和规范化提出了更高的要求。作为学校管理工作的一个重要组成部分学生信息管理，所涉及到的信息量之大，数据之繁琐，可以想像用手工对这些数据进行操作有多么的复杂与繁琐，因此自动化的学生信息管理系统应运而生。而学生信息管理的工作量非常大，为保证学生管理工作的顺利进行，改善管理手段，有必要开发一套适合高等院校实际情况，能解决实际问题的学生管理信息系统。及时，准确的为管理人员提供学生，班级等各类信息，并提供标准化，查询，修改等管理功能。 学生信息管理系统是在大，中学校中很通用的信息管理系统，本项目用于实现学生信息管理的电子化，减轻管理人员的工作负担，规范，高效地管理大量的学生信息。它具备高校学生工作部门的学生管理的日常事务性工作及各类数据的自动化处理功能。从学生的学生信息管理，学生学籍管理，院系信息管理，学生奖惩管理，成绩管理及系统用户管理的全部业务功能。该系统能够自动地收集，存储，加工处理，查询检索和统计制表，方便有效地提高学生工作办公自动化管理的水平,解决了日常繁杂的数据，文件及历史资料的统计处理的重复性劳动。使过去许多只能定性管理的项目变为定量管理，使传统的由人工事务性管理模式转化为借助现代化技术和手段实现的科学化管理模式，不仅节省人力和物力，提高办公效率，而且使管理的方式从过程管理转变为目标管理，从数量管理转变为质量管理，有助于提高学生工作管理的水平和质量。 本系统将采用java,jsp javaee技术、MVC模式进行开发,，采用SQL Server作为学生信息管理系统的后台数据管理工具，课题以学生信息管理为背景，通过研究当前学生成绩信息管理系统的管理现状、存在问题以及现实需求，设计一个针对学生成绩信息管理系统工作的管理信息系统。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 Sub主界面 图6-2软件主界面采用下拉菜单和按钮两种形式来完成软件功能的操作，两者功能一致，以满足操作者的不同习惯。6.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) +