高校学生信息管理系统毕业论文.docx
《高校学生信息管理系统毕业论文.docx》由会员分享,可在线阅读,更多相关《高校学生信息管理系统毕业论文.docx(36页珍藏版)》请在冰豆网上搜索。
高校学生信息管理系统毕业论文
####X学院
《高校学生信息管理系统》
毕业论文
系别信息工程系
专业班级
学生
指导教师
指导教师职称
2014年4月日
高校学生信息管理系统设计说明
摘要:
学生信息管理系统是从学生的学生信息管理,学生学籍管理,院系信息管理,学生奖惩管理,成绩管理与系统用户管理的全部业务功能进行管理的系统。
该系统能够自动地收集,存储,加工处理,查询检索和统计制表,方便有效地提高学生工作办公自动化管理的水平,解决了日常繁杂的数据,文件与历史资料的统计处理的重复性劳动。
使过去许多只能定性管理的项目变为定量管理,从而提高学生工作管理的水平和质量。
关键字:
学生信息管理系统开发
引言:
为加强学生的管理工作,我们为某校开发了“学生管理信息系统”,解决了该校学生管理工作程序复杂、不规等问题,优化了管理流程,实现了该校学生管理工作的无纸化办公。
1前言
高校学生信息管理(Universitystudents'informationmanagement)是高校教学管理的一项重要工作,现代化的高校学生信息管理需要现代化的信息管理系统支持,是典型的管理信息系统(ManagementInformationSystem)。
从20世纪九十年代开始,为适应新世纪人才培养的目标,国高校教育体制进行了大规模的改革。
我国的教育事业蓬勃发展,升学率普遍提高,各类大专院校规模不断扩大,对于学生管理工作的高效性和规化提出了更高的要求。
作为学校管理工作的一个重要组成部分——学生信息管理,所涉与到的信息量之大,数据之繁琐,可以想像用手工对这些数据进行操作有多么的复杂与繁琐,因此自动化的学生信息管理系统应运而生。
而学生信息管理的工作量非常大,为保证学生管理工作的顺利进行,改善管理手段,有必要开发一套适合高等院校实际情况,能解决实际问题的学生管理信息系统。
与时,准确的为管理人员提供学生,班级等各类信息,并提供标准化,查询,修改等管理功能。
。
学生信息管理系统是在大,中学校中很通用的信息管理系统,本项目用于实现学生信息管理的电子化,减轻管理人员的工作负担,规,高效地管理大量的学生信息。
它具备高校学生工作部门的学生管理的日常事务性工作与各类数据的自动化处理功能。
从学生的学生信息管理,学生学籍管理,院系信息管理,学生奖惩管理,成绩管理与系统用户管理的全部业务功能。
该系统能够自动地收集,存储,加工处理,查询检索和统计制表,方便有效地提高学生工作办公自动化管理的水平,解决了日常繁杂的数据,文件与历史资料的统计处理的重复性劳动。
使过去许多只能定性管理的项目变为定量管理,使传统的由人工事务性管理模式转化为借助现代化技术和手段实现的科学化管理模式,不仅节省人力和物力,提高办公效率,而且使管理的方式从过程管理转变为目标管理,从数量管理转变为质量管理,有助于提高学生工作管理的水平和质量。
本系统将采用java,jspjavaee技术、MVC模式进行开发,,采用SQLServer作为学生信息管理系统的后台数据管理工具,课题以学生信息管理为背景,通过研究当前学生成绩信息管理系统的管理现状、存在问题以与现实需求,设计一个针对学生成绩信息管理系统工作的管理信息系统。
2系统技术与运行环境
2.1VisualBasic6.0简介
VisualBasic6.0是Microsoft公司成功的变成语言产品之一,在全世界有数以百万计的用户。
它之所以受到人们的青睐,原因是多方面的,但主要的有两点,一是功能强大,二是容易掌握。
随着版本的更新,VisualBasic已成为真正专业化的大型开发语言和环境,不公功能越来越强,而且更容易使用VisualBasic6.0所提供的开发环境与Windows具有完全一致的界面,使用更方便,其代码效率已达到VisualC++的水平。
2.2系统开发与运行环境
该运行环境的规定是保证本需求说明的功能得到实际真正表达的基础。
(1)运行环境WindowsXP或更高版本的操作系统
数据库系统:
MicrosoftSQLServer2000
(2)开发环境:
开发工具:
MicrosoftVisualBasic6.0
数据库系统:
MicrosoftSQLServer2000
3系统分析
3.1需求分析
21世纪以来,人类经济高速发展,人们发生了日新月异的变化,特别是计算机的应用与普与到经济和社会生活的各个领域。
使原本的旧的管理方法越来越不适应现在社会的发展。
许多人还停留在以前的手工操作。
这大阻碍了人类经济的发展。
为了适应现代社会人们高度强烈的时间观念,学校信息管理系统软件为学校办公室带来了极大的方便。
(一)教育系统学生管理现状分析
学校工作流程分析
学校工作总体规划由教务人员在学生信息管理系统中完成对运行教务处所需的基本数据的维护,包括这些信息的增加、修改与对各项信息的变动都将在这进行操作。
新的学年,教务人员首先加入年级信息,然后编排班级,再对来校学生进行基本的信息录入,新生入学后由教务人员在学籍系统中完成新学生信息的维护。
(二)学校具体需求分析
学生:
对各科成绩的查询
任课老师:
输入并维护所教科目的学生成绩
教务处:
学校全体成员的信息管理,并对任课老师,班主任等输入的信息进行存库,对学生的信息进行必要的维护。
通过研究调查,本系统需以下功能:
综合学生信息、学生成绩以与信息查询等信息。
方便用户了解和管理学生的全面动态信息。
良好的界面设计,更人性化的设计理念,使用户拥有更轻松的使用心情。
3.2可行性分析
目的:
可行性研究的目的是用最小的代价在尽可能的时间确定问题是否能解决。
经济性:
由于学校等中小型管理系统并不复杂,且VisualBasic6.0本身要求的运行环境不高,所以一般Windows2000以上的系统环境都可以使用。
实用性:
本学生信息管理系统管理系统无太多复杂的操作要求,也没有过分花哨的装饰品,人性化的设计界面可以使操作者轻易运用自如
4系统设计
4.1设计目标
本系统可以能减少很多不必要的资源,不用象以前那样用冗余的纸式的管理。
大节省了学校能源。
并且计算机的存储与快速查询功能大大提高了学籍管理的效率,并且还提高了学籍信息管理的精确度。
方便快速的操作,可减少学籍信息管理的漏洞,又减少因工作的冗余出现的错误,并且操作非常简单,可减少许多不很必要的人员,这无论从物质上还是工作人员的工资上都为学校节约了开支。
为学校增加了财富。
数据库分析
用户需求具体有学籍管理系统提供保存、更新、查询、维护,这就需求数据库结构能充分满足各种信息的输入与输出,实现有组织地、动态地存储大量关联数据,方便用户访问系统中的数据,它与文件系统的重要区别是数据的充分共享,交叉访问,与应用程序的高度独立性。
4.2项目规划
学生管理系统是各大中专院校不可缺少的一部分,是一个VB+SQL数据库开发应用程序,它主要包括用户登录、学生信息输入修改、学生信息查询以与学生成绩输入、学生成绩查询、系统用户管理等几个页面,因而该系统具有较强的实用性。
4.3系统流程图
5系统详细设计
5.1数据库需求分析
5.2数据库逻辑结构设计
(1)kc(课程)见表1
表5-1
字段名
数据类型
是否允许为空
说明
课程号
Char(3)
Notnull
主键
课程名
Char(16)
Notnull
开课学期
tinyint
Notnull
只能为1-8
学时
tinyint
Notnull
学分
tinyint
null
(2)xs_kc(学生选课)见表2
表5-2
字段名
数据类型
是否允许为空
说明
学号
Char(6)
Notnull
主键
课程号
Char(3)
Notnull
主键
成绩
tinyint
null
学分
tinyint
null
(3)xs(学生)见表3
表5-3
字段名
数据类型
是否允许为空
说明
学号
Char(6)
Notnull
主键
Char(8)
Notnull
专业名
Char(10)
null
性别
Bit
Null
男1,女0
出生日期
SmallDatetime
Null
总学分
tinyint
null
照片
image
Null
备注
text
Null
(4)user1(管理员登录)见表4
表5-4
字段名
数据类型
说明
角色
Char(3)
用户名
Char(6)
主键
密码
Char(6)
Notnull
(5)user2(学生登录)见表5
表5-5
字段名
数据类型
说明
角色
Char(3)
用户名
Char(6)
主键
密码
Char(6)
6.系统实现
6.1系统初始界面
图6-1
“系统初始界面代码”
DimstarttimeAsString
DimendtimeAsString
DimiAsInteger
PrivateSubForm_Load()
starttime=Format(Now,"hh:
mm:
ss")
EndSub
PrivateSubTimer1_Timer()
DimretAsInteger
endtime=Format(Now,"hh:
mm:
ss")
IfDateDiff("s",starttime,endtime)=10Then
DimAsADODB.Connection
Set=NewADODB.Connection
DimsqlresAsADODB.Recordset
.Open"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;userid=sa;InitialCatalog=master"
Setsqlres=NewADODB.Recordset
sqlres.Open"SELECT*FROMmaster..sysdatabasesWHEREname='xscj'",,adOpenDynamic,adLockPessimistic
Ifsqlres.EOF=FalseThen
'Label1.Caption="登陆成功"
.Close
UnloadMe
Form1.Show
Else
ret=MsgBox("是否加载数据库",vbYesNo,"XSCJ")
Ifret=vbYesThen
.Close
UnloadMe
Form12.Show
Else
.Close
End
EndIf
EndIf
EndIf
EndSub
PrivateSubTimer2_Timer()
DimstrAsString
str="系统加载中,请等待..."
i=i+1
Ifi=20Then
i=0
Label1.Caption=""
Else
Label1.Caption=Label1.Caption&Mid(str,i,1)
EndIf
EndSub
主界面
图6-2
软件主界面采用下拉菜单和按钮两种形式来完成软件功能的操作,两者功能一致,以满足操作者的不同习惯。
6.2附加数据库
图6-2
“附加Server数据库”按钮的click事件添加如下的代码
PrivateSubCommand2_Click()
IfText1.Text=""Then
MsgBox"请选择数据库文件!
",,"XSCJ"
ExitSub
EndIf
OnErrorGoTodataerr
cn.Open"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;userid=sa;InitialCatalog=master"
cn.Execute("sp_attach_dbdbname='"&strdata&"',filename1='"&m&"'")
MsgBox"附加成功!
",,"XSCJ"
cn.Close
UnloadMe
Form1.Show
ExitSub
dataerr:
MsgBoxErr.Description,,"XSCJ"
cn.Close
EndSub
6.3登陆界面设计
图6-3
“登录”按钮的click事件添加如下的代码:
PrivateSubCommand1_Click()
IfText1.Text=""OrText2.Text=""Then
MsgBox"请输入完整的登录信息!
"
Text1.SetFocus
ExitSub
EndIf
IfText3.Text=""Then
MsgBox"请输入验证码"
Text3.SetFocus
ExitSub
EndIf
DimiAsInteger
i=Len(Text1.Text)
Ifi<6Then
MsgBox"用户名应为六位数字",,"提示"
Text1.SetFocus
Text1.Text=""
ExitSub
EndIf
i=Len(Text2.Text)
Ifi<6Then
MsgBox"密码应为六位",,"提示"
Text2.SetFocus
Text2.Text=""
ExitSub
EndIf
IfUCase(Trim(Text3.Text))<>Trim(Label4.Caption)Then
MsgBox"验证码输入错误"
Text3.SetFocus
Text3.Text=""
ExitSub
EndIf
DimsqlconAsNewADODB.Connection
DimsqlresAsNewADODB.Recordset
Setsqlcon=NewADODB.Connection
sqlcon.Openconnectstring
Ifoption1.ValueThen
Setsqlres=NewADODB.Recordset
sqlres.Open"select*fromdlglwhere用户名='"+Trim(Text1.Text)+"'and密码='"+Trim(Text2.Text)+"'",connectstring,adOpenDynamic,adLockPessimistic
IfNotsqlres.EOFThen
juese=option1.Caption
yonghuming=Trim(Text1.Text)
mima=Trim(Text2.Text)
MsgBox"登录成功"
sqlres.Close
UnloadMe
MDIForm1.Show
ExitSub
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)
ExitSub
EndIf
EndIf
IfOption2.ValueThen
Setsqlres=NewADODB.Recordset
sqlres.Open"select*fromdlwhere用户名='"+Trim(Text1.Text)+"'and密码='"+Trim(Text2.Text)+"'",connectstring,adOpenDynamic,adLockPessimistic
IfNotsqlres.EOFThen
juese=Option2.Caption
yonghuming=Trim(Text1.Text)
mima=Trim(Text2.Text)
MsgBox"登录成功"
sqlres.Close
UnloadMe
MDIForm1.Show
ExitSub
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)
EndIf
EndIf
EndSub
6.4学生信息录入
图6-4
“更新”按钮的click事件添加如下的代码:
PrivateSubCommand1_Click()
'Setsqlres=NewADODB.Recordset
'Adodc2.RecordSource="select*fromxswhere学号='"&Trim(Text1.Text)&"'"
'Adodc2mandType=adCmdText
'Adodc2.Refresh
DimsAsString
Dimbytedata()AsByte
DimadofldAsADODB.Field
s="select*fromxswhere学号='"&Trim(Text1.Text)&"'"
sqlres.Opens,connectstring,adOpenDynamic,adLockPessimistic
IfNotsqlres.EOFThen
sqlres.Fields
(1)=Trim(Text2.Text)
sqlres.Fields
(2)=Combo1.Text
IfOption1.Value=TrueThen
sqlres.Fields(3)=1
Else
sqlres.Fields(3)=0
EndIf
IfTrim(Text5.Text)<>""Then
sqlres.Fields(5)=CInt(Text5.Text)
EndIf
sqlres.Fields(7)=Trim(Text4.Text)
sqlres.Fields(4)=DTPicker1.Value
Setadofld=sqlres.Fields("照片")
IfCommonDialog1.filename<>""Then
Callpicsavetodb(adofld,"filename")
EndIf
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
IfOption1.Value=TrueThen
sqlres.Fields(3)=1
Else
sqlres.Fields(3)=0
EndIf
IfTrim(Text5.Text)<>""Then
sqlres.Fields(5)=CInt(Text5.Text)
EndIf
sqlres.Fields(7)=Trim(Text4.Text)
sqlres.Fields(4)=DTPicker1.Value
Setadofld=sqlres.Fields("照片")
IfCommonDialog1.filename<>""Then
Callpicsavetodb(adofld,"filename")
EndIf
sqlres.Update
Adodc1.Refresh
Adodc1.Recordset.MoveLast
MsgBox"添加学生信息成功!
",vbOKOnly+vbExclamation,"添加学生信息"
EndIf
CommonDialog1.filename=""
sqlres.Close
Adodc1.RecordSource="select*fromxs,cxbwherexs.性别=cxb.性别0"
EndSub
6.5学生信息修改
图6-5
6.6学生信息查询
图6-6
“查询”按钮的click事件添加如下的代码
PrivateSubCommand1_Click()
DimstrAsString
str="select*fromxs,cxbwherexs.性别=cxb.性别0"
IfText1.Text=""AndText2.Text=""AndCombo1.Text<>"所有专业"Then
str="select*fromxs,cxbwhere专业名='"+Trim(Combo1.Text)+"'andxs.性别=cxb.性别0"
EndIf
IfText1.Text=""AndText2.Text=""AndCombo1.Text="所有专业"Then
str="select*fromxs,cxbwherexs.性别=cxb.性别0"
EndIf
IfText1.Text<>""AndText2.Text=""Then
str="select*fromxs,cxbwhere学号='"&Trim(Text1.Text)&"'andxs.性别=cxb.