学生信息管理系统的设计与实现毕业论文

目录TOC\o"1-2"\h\u20961前言 3281502学生信息管理系统概述 4154613可行性及需求分析 542883.1可行性分析 5225073.2系统需求分析 6276904详细设计 638064.1设计目标 6292774.2项目规划 7264304.3系统流程图 7255824.4数据库需求分析 8195354.5数据库逻辑结构设计 8266745系统实现 9109995.1附加数据库 9230505.2登陆界面设计 10303615.3学生信息录入 13132565.4学生信息修改 14212695.5学生信息查询 155965.6学生成绩录入 16225475.7用户管理 17193415.8修改用户密码 18300616系统测试 20913结论 2111208参考文献 226511致谢 23学生信息管理系统的设计与实现摘要：随着学校的规模不断扩大，学生数量急剧增长，需要管理的各种信息也成倍增加。同时由于计算机和网络技术的普及，建立一个C/S或者B/S结构的学生信息管理系统之后，学生可以通过网络来选课并管理自己的信息，使得学生信息管理工作系统化、规范化高了学校管理学生信息的效率。学生信息管理系统是利用C/S开发设计的。数据库是基于SQLSERVER设计的。学校管理人员可以通过该系统方便、快速、有效的管理学生信息。本系统主要实现了对高校从学生学籍信息录入、学生选课、学生考核、到学生成绩管理。整个系统分为学生信息管理、学生课程信息管理、教师管理、系统管理四大模块。其中，学生信息管理模块包括学生信息录入、学生信息修改。学生课程信息管理模块包括学生选课、学生课程查询。学生成绩管理模块包括学生成绩录入、学生成绩查询。系统管理模块包括用户权限、退出系统。整个系统从操作简便、灵活、实用的目的要求出发完成学生信息管理系统全过程。关键词：计算机网络;数据库;信息管理;学生信息管理系统1前言学生信息管理系统是针对学校人事处的大量业务处理工作而开发的管理软件，是典型的管理信息系统它是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,它能够为用户提供充足的信息和快捷的查询手段。能有效的帮助学校和老师掌握学生的情况，为学生提供成绩跟课程方面的查询。在传统模式下利用人工进行学生信息管理，存在着较多的缺点，如：效率底，保密性差，时间一长将产生大量的文件和数据，更不便于查找，更新，维护等。诸如这些情况，令学校管理者对学生的信息管理带来了很大困难，严重影响了教育工作者的工作效率。随着科学技术的不断提高,计算机科学日渐成熟,使用日趋成熟的计算机技术来代替传统的人工模式，来实现学生信息的现代化管理，其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对学生信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、易修改、可靠性高、存储量大、数据处理快捷、保密性好、寿命长、成本低、便于打印等。这些优点能够极大地提高学生信息管理的效率,也是学校的科学化、正规化管理,与世界接轨的重要条件。用计算机制作的学生信息管理系统还可以通过功能强大的Internet网及时的向学生的家长传递该生在校的最新成绩，有助于学校与家长的信息互动，为更好地把握学校的教育方针起到了一定的促进作用！因此，开发这样一套管理软件成为很有必要的事情。2学生信息管理系统概述管理信息系统是一个由管理人员和计算机组成的用以进行信息的收集、传输、加工、存储、维护和使用的系统。它是一门综合了管理科学，系统理论，计算机科学的系统性边缘科学。管理信息系统的物理组成:计算机硬件系统：包括主机、外部存储器、输入输出设备等。计算机软件系统：包括系统软件和应用软件两大部分。通信系统：包括线路等通信设施和与计算机网络、数据通信有关的软件等。工作人员：包括系统分析员、程序设计员、维护人员、管理员、操作人员等。3可行性及需求分析3.1可行性分析目的：可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能解决。经济性：由于学校等中小型管理系统并不复杂，且VisualBasic6.0本身要求的运行环境不高，所以一般Windows2000以上的系统环境都可以使用。实用性：本学生信息管理系统管理系统无太多复杂的操作要求，也没有过分花哨的装饰品，人性化的设计界面可以使操作者轻易运用自如。3.2系统需求分析系统功能系统的主要功能包括：信息的操作功能、查询功能、统计功能、分析功能和打印功能。信息操作功能：学生基本信息的添加、修改和删除。学生基本信息包括：学号、姓名、性别、出生日期和所在的专业。课程信息的添加、修改和删除:课程信息包括:课程号、所属专业、课程名称、课程类型、开课学期、学时数和学分。学生成绩信息的添加、修改和删除:学生成绩信息包括：学好、课程号、成绩和学分。查询功能：可以通过学号来查学生基本信息，通过学号和学期号查询学生的成绩，通过课程号查询该课程的信息。统计功能:统计当前信息所显示的信息数以及学生某个学期或所有学期课程的总学分。打印功能4详细设计4.1设计目标本系统可以能减少很多不必要的资源，不用象以前那样用冗余的纸张式的管理。大节省了学校能源。并且计算机的存储与快速查询功能大大提高了学籍管理的效率，并且还提高了学籍信息管理的精确度。方便快速的操作，可减少学籍信息管理的漏洞，又减少因工作的冗余出现的错误，并且操作非常简单，可减少许多不很必要的人员，这无论从物质上还是工作人员的工资上都为学校节约了开支。为学校增加了财富。数据库分析用户需求具体有学籍管理系统提供保存、更新、查询、维护，这就需求数据库结构能充分满足各种信息的输入与输出，实现有组织地、动态地存储大量关联数据，方便用户访问系统中的数据，它与文件系统的重要区别是数据的充分共享，交叉访问，与应用程序的高度独立性。4.2项目规划学生管理系统是各大中专院校不可缺少的一部分，是一个VB+SQL数据库开发应用程序，它主要包括用户登录、学生信息输入修改、学生信息查询以及学生成绩输入、学生成绩查询、系统用户管理等几个页面，因而该系统具有较强的实用性。4.3系统流程图系统初始化系统初始化附加数据库附加数据库系统登录系统登录系统主界面系统主界面学生成绩信息管理学生课程信息管理系统管理学生信息管理理学生成绩信息管理学生课程信息管理系统管理学生信息管理理学生成绩录入学生选课课程查询学生信息录入学生信息修改学生成绩查询修改密码用户管理学生成绩录入学生选课课程查询学生信息录入学生信息修改学生成绩查询修改密码用户管理4.4数据库需求分析课程选择课程设置学生注册考核信息课程信息管理其它系统数据接口考核信息管理考核输入学生信息管理个人信息输入课程选择课程设置学生注册考核信息课程信息管理其它系统数据接口考核信息管理考核输入学生信息管理个人信息输入4.5数据库逻辑结构设计（1）kc（课程）见表1表4-1字段名数据类型是否允许为空说明课程号Char（3）Notnull主键课程名Char（16）Notnull开课学期tinyintNotnull只能为1-8学时tinyintNotnull学分tinyintnull（2）xs_kc（学生选课）见表2表4-2字段名数据类型是否允许为空说明学号Char（6）Notnull主键课程号Char（3）Notnull主键成绩tinyintnull学分tinyintnull（3）xs（学生）见表3表4-3字段名数据类型是否允许为空说明学号Char（6）Notnull主键姓名Char（8）Notnull专业名Char(10)null性别BitNull男1，女0出生日期SmallDatetimeNull总学分tinyintnull照片imageNull备注textNull(4)user1（管理员登录）见表4表4-4字段名数据类型说明角色Char(3)用户名Char（6）主键密码Char（6）Notnull5系统实现5.1附加数据库“附加Server数据库”按钮的click事件添加如下的代码PrivateSubCommand2_Click()IfText1.Text=""ThenMsgBox"请选择数据库文件！",,"XSCJ"ExitSubEndIfOnErrorGoTodataerrcn.Open"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;userid=sa;InitialCatalog=master"cn.Execute("sp_attach_db@dbname='"&strdata&"',@filename1='"&m&"'")MsgBox"附加成功！",,"XSCJ"cn.CloseUnloadMeForm1.ShowExitSubdataerr:MsgBoxErr.Description,,"XSCJ"cn.CloseEndSub5.2登陆界面设计“登录”按钮的click事件添加如下的代码:PrivateSubCommand1_Click()IfText1.Text=""OrText2.Text=""ThenMsgBox"请输入完整的登录信息!"Text1.SetFocusExitSubEndIfIfText3.Text=""ThenMsgBox"请输入验证码"Text3.SetFocusExitSubEndIfDimiAsIntegeri=Len(Text1.Text)Ifi<6ThenMsgBox"用户名应为六位数字",,"提示"Text1.SetFocusText1.Text=""ExitSubEndIfi=Len(Text2.Text)Ifi<6ThenMsgBox"密码应为六位",,"提示"Text2.SetFocusText2.Text=""ExitSubEndIfIfUCase(Trim(Text3.Text))<>Trim(Label4.Caption)ThenMsgBox"验证码输入错误"Text3.SetFocusText3.Text=""ExitSubIfoption1.ValueThenSetsqlres=NewADODB.Recordsetsqlres.Open"select*fromdlglwhere用户名='"+Trim(Text1.Text)+"'and密码='"+Trim(Text2.Text)+"'",connectstring,adOpenDynamic,adLockPessimisticIfNotsqlres.EOFThenjuese=option1.Captionyonghuming=Trim(Text1.Text)mima=Trim(Text2.Text)MsgBox"登录成功"sqlres.CloseUnloadMeMDIForm1.ShowExitSubElseRandomizei=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)ExitSubEndIfEndIfIfNotsqlres.EOFThenjuese=Option2.Captionyonghuming=Trim(Text1.Text)mima=Trim(Text2.Text)MsgBox"登录成功"sqlres.CloseUnloadMeMDIForm1.ShowExitSubElsesqlres.CloseMsgBox"用户名或密码错误！"Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusRandomizei=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)EndIfEndIfEndSub5.3学生信息录入“更新”按钮的click事件添加如下的代码:PrivateSubCommand1_Click()'Setsqlres=NewADODB.Recordset'Adodc2.RecordSource="select*fromxswhere学号='"&Trim(Text1.Text)&"'"'Adodc2.CommandType=adCmdText'Adodc2.RefreshDimsAsStringDimbytedata()AsByteDimadofldAsADODB.Fields="select*fromxswhere学号='"&Trim(Text1.Text)&"'"sqlres.Opens,connectstring,adOpenDynamic,adLockPessimisticIfTrim(Text5.Text)<>""Thensqlres.Fields(5)=CInt(Text5.Text)sqlres.UpdateAdodc1.RefreshMsgBox"修改学生信息成功!",vbOKOnly+vbExclamation,"修改学生信息"Elsesqlres.AddNewsqlres.Fields(0)=Trim(Text1.Text)sqlres.Fields(1)=Trim(Text2.Text)sqlres.Fields(2)=Combo1.TextIfOption1.Value=TrueThensqlres.Fields(3)=1Elsesqlres.Fields(3)=0EndIfsqlres.Fields(7)=Trim(Text4.Text)sqlres.Fields(4)=DTPicker1.ValueSetadofld=sqlres.Fields("照片")IfCommonDialog1.filename<>""ThenCallpicsavetodb(adofld,"filename")EndIfsqlres.UpdateAdodc1.RefreshAdodc1.Recordset.MoveLastMsgBox"添加学生信息成功!",vbOKOnly+vbExclamation,"添加学生信息"EndIfCommonDialog1.filename=""sqlres.CloseAdodc1.RecordSource="select*fromxs,cxbwherexs.性别=cxb.性别0"EndSub5.4学生信息修改5.5学生信息查询“查询”按钮的click事件添加如下的代码PrivateSubCommand1_Click()DimstrAsStringstr="select*fromxs,cxbwherexs.性别=cxb.性别0"IfText1.Text=""AndText2.Text=""AndCombo1.Text<>"所有专业"Thenstr="select*fromxs,cxbwhere专业名='"+Trim(Combo1.Text)+"'andxs.性别=cxb.性别0"EndIfIfText1.Text<>""AndText2.Text=""Thenstr="select*fromxs,cxbwhere学号='"&Trim(Text1.Text)&"'andxs.性别=cxb.性别0"EndIfIfText1.Text<>""AndText2.Text<>""Thenstr="select*fromxswhere学号='"&Trim(Text1.Text)&"'and姓名='"&Trim(Text2.Text)&"'"EndIfIfText1.Text=""AndText2.Text<>""Thenstr="select*fromxswhere姓名='"&Trim(Text2.Text)&"'"EndIfIfAdodc1.Recordset.EOFThenText2.Text=""Combo1.Text="所有专业"Adodc1.RecordSource="select*fromxs,cxbwherexs.性别=cxb.性别0"Adodc1.RefreshAdodc1.Recordset.MoveFirstEndIfIfText1.Text<>""OrText2.Text<>""ThenCombo1.Text=Adodc1.Recordset("专业名")EndIfEndSub5.6学生成绩录入“更新”按钮的click事件添加如下的代码PrivateSubCommand1_Click()Dim学号,课程名,成绩,学分IfTrim(Text2.Text)=""ThenMsgBox"成绩不能为空，请输入完整的信息！",,"提示"Text2.SetFocusExitSubEndIfsqlcmd.CommandText="addscore"sqlcmd.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("@学分")=0Adodc1.RecordSource="selectxs_kc.学号,姓名,专业名,课程名,成绩,xs_kc.学分fromxs,kc,xs_kcwhere课程名='"+Trim(Combo2.Text)+"'and专业名='"+Trim(Combo1.Text)+"'andxs.学号=xs_kc.学号andkc.课程号=xs_kc.课程号"Adodc1.RefreshAdodc1.Recordset.MoveLastEndSub5.7用户管理窗体的代码如下PrivatesqlconAsNewADODB.ConnectionPrivatesqlresAsNewADODB.RecordsetPrivateSubCommand1_Click()sqlres.MoveFirstText1.Text=sqlres.Fields(0)Text2.Text=sqlres.Fields(1)Text3.Text=sqlres.Fields(2)EndSubPrivateSubCommand2_Click()sqlres.MovePreviousIfsqlres.BOFThensqlres.MoveFirstsqlres.MoveNextIfsqlres.EOFThensqlres.MoveLastEndIfText1.Text=sqlres.Fields(0)Text2.Text=sqlres.Fields(1)Text3.Text=sqlres.Fields(2)EndSubPrivateSubCommand4_Click()EndSubPrivateSubCommand5_Click()DimaAsIntegera=MsgBox("是否删除角色为:"&Trim(Text1.Text)&"用户名为:"+Trim(Text2.Text)+"记录？",vbYesNo,"提示")Ifa=6Thensqlres.Deletesqlres.UpdateEndIfSetsqlcon=NewADODB.Connectionsqlcon.OpenconnectstringSetsqlres=NewADODB.Recordsetsqlres.Open"select*fromdlgl",connectstring,adOpenDynamic,adLockPessimisticEndIfEndSubPrivateSubForm_Unload(CancelAsInteger)sqlcon.CloseEndSub5.8修改用户密码“确定”按钮的click事件添加如下的代码PrivateSubCommand1_Click()IfText1.Text=""OrText2.Text=""OrText3.Text=""ThenMsgBox"请输入完整信息"Text1.SetFocusExitSubEndIfi=Len(Text1.Text)Ifi<6ThenMsgBox"密码应为六位",,"提示"Text1.SetFocusText1.Text=""ExitSubEndIfi=Len(Text2.Text)Ifi<6ThenMsgBox"密码应为六位",,"提示"Text2.SetFocusText2.Text=""ExitSubEndIfIfTrim(Text3.Text)<>Trim(Text2.Text)ThenMsgBox"前后输入的密码不一致!"Text3.SetFocusText3.Text=""ExitSubEndIfIfjuese="管理员"ThenSetsqlres=NewADODB.Recordsetsqlres.Open"select*fromdlglwhere用户名='"+yonghuming+"'and密码='"+Trim(Text1.Text)+"'",connectstring,adOpenDynamic,adLockPessimisticIfNotsqlres.EOFThensqlres.Fields(2)=Trim(Text2.Text)sqlres.UpdateElseMsgBox"原密码输入有误"Text1.SetFocusEndIfsqlres.Fields(2)=Trim(Text2.Text)ElseMsgBox"原密码输入有误"Text1.SetFocusText1.Text=""Text2.Text=""Text3.Text=""ExitSubEndIfEndIfEndSub6系统测试模块编程完结之后，对界面外观和功能等进行检测。模块测试时，检验模块每个功能是否都能正常使用，界面优化是否完善。对每个模块的测试进行记录，发现BUG时及时修正。修正BUG后应该需要继续测试，继续完善，这个过程是一个测试，修正，再测试，再修正的循环过程。在测试过程中，出现过一些不符合标准的情况，经过修改，都基本与设计书的标准符合，根据界面简洁、干净的原则，重新选择了一种颜色渐淡的背景，一些被遗漏的操作也进行了修改和添加，能够完成正常的功能。由于经验欠缺或其它某些原因，本次完成的系统仍然存在很多问题。测试只能尽量避免错误的产生和消除已经产生的错误，使程序中的错