VB+Access学生信息管理系统.docx
《VB+Access学生信息管理系统.docx》由会员分享，可在线阅读，更多相关《VB+Access学生信息管理系统.docx（34页珍藏版）》请在冰豆网上搜索。
VB+Access学生信息管理系统
2013年12月29
绪论
高校学生信息的管理是一项既重要又繁琐的工作。
我们小组成员通过调查研究发现，学生学籍信息管理很是普及，这不仅为学员、教员提提供了查询信息的平台，还大大提高了信息的获取速度，有利于对学员信息的管理。
为更好的做好这项工作，提过工作效率，更好的为学校的发展和一线教学服务，我们小组决定：
结合普通高校校实际情况，自行研制一个学生信息管理系统。
该信息管理系统结合学员、教员的需求，提供查询学员学籍信息等多项功能，对学员的学籍信息实时更新，掌握学员的实际修课情况。
前言
（一）作业背景
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。
作为计算机应用的一部分,使用计算机对学生档案信息进行管理,具有着手工管理所无法比拟的优点.例如:
检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。
这些优点能够极大地提高学生档案管理的效率,也是学校的科学化、正规化管理,与世界接轨的重要条件。
因此，开发这样一套管理软件成为很有必要的事情,结合管理信息系统这门课程的学习，我们掌握了一定的编程技术，为此次作业设计和实施提供了基础。
我们组通过了解教员和学员的实际状况和需求，对学员的学习信息的管理常规流程进行了调查，发现还有很多模块可以改进。
（二）选题说明
由于高校学籍管理信息系统具有极大可使用性，并且对于我们初学者较易完成。
并且学生选课系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生档案管理系统应该能够为用户提供充足的信息和快捷的查询手段。
但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:
效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。
现在我国的大部分学校中档案的管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。
我们作为一个系统工程专业的本科生，我们希望可以在这方面有自己的设计，检验自己的课程学习情况和程序设计能力。
同时，我们是有这方面的技术优势的，在大学系统工程教研室教员的谆谆教导下，我们指挥类学员掌握了一定的技术知识，因此我们将利用系统工程专业优势编制出一个实用的程序来帮助学生进行更有效的学籍管理。
（三）主要内容
本系统主要由VB6.0和access2003完成，主要内容有本系统两类用户：
系统管理员和学生（教员就为管理员的一种）。
三种不同的用户所具有的操作权限以及操作内容均不一样。
学员需自行注册，教员由已有的管理员注册。
通过此种方法来进行。
课程等均有教员（管理员）添加，学员只能注册功能以及查询信息功能。
管理员管理（包括添加、修改、删除等）学员的各种信息。
归纳起来，功能大约有以下几点：
1．学生信息的录入。
学员信息的录入有管理员执行，只有管理员才能对学员的信息进行修改和补充。
学生通过各种途径不择地点、不择时间地自主查看自己的基本档案（不合要求的档案可以由管理员及时清除），但是不能修改自己的档案和文档，没有相应的权限。
2.学生信息的查询。
学生的学籍信息发在网上可以让学员来查询。
使用者可以通过用户名和输入密码，查看自己需要的学生信息。
3．学生信息的修改。
管理员均可的学生的课程信息进行添加和删除，实现了信息的动态管理。
此系统具有显而易见的优势：
1．可以存储学员的课程信息，安全、高效；2．只需一到二名管理员即可操作系统，节省大量人力；3．可以迅速查到所需信息。
一、系统分析
（一）系统目标
由于现今的学生信息管理非常繁琐，行政人员付出大量的工作时间，得到的效率很低。
因此为提高工作效率，减轻校方人员的工作负担，决定开发学生信息管理系统。
计算机已经成为我们学习和工作的得力助手：
今天，计算机的价格已经十分低廉，性能有了长足的进步。
它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：
首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏感文档更加安全等等。
为了解决传统学生信息的管理正面临着的这些问题，我所设计的学生信息管理系统也就应运而生了。
（二）可行性分析
由于本系统管理的对象单一，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。
因此，比较适合于采用数据管理。
在技术难度方面，由于有指导教员的指导和相关参考文献，特别是网络资料。
因此我那全可以实现本程序。
经济可行性分析：
随着科学技术的不断发展与创新，计算机的作用日益突出，，计算机软件成为人们解决问题的恶一个有效手段，当然，他的作用也越来越重要在当今信息时代，国民经济和国防建设，社会发展，人民生活都离不开软件。
软件也无处不在。
软件产业也是一个新兴产业，尽管起步晚，但发展迅速。
已经成为增长最快的产业是具有高投入/高产出、无污染、低能耗的绿色产业学生成绩管理系统是一个教务处数据库的一个管理系统，对已经使用的类似的系统进行调查、类比，本课题具有的特点：
开发工作量小，可以有两个合作开发或一个人对开发，开发周期短，有熟练的开发人员一个月就可以完成系统的开发与预测。
技术可行性分析
从技术方面来说，VB6.0是一个企业级的、面向对象的快速应用开发工具，是数据库最优秀的开发工具之一。
同时，它是完全支持面向对象的开发，它拥有多种数据库接口，可以非常方便的连接的各种数据源。
VB6.0基于组件的开发增强了面向对象的技术，它提供了一个更有效的封装、管理、重用和扩展企业规则和处理的高层途径。
在数据操作方面，选择灵活、易用的access2003数据源。
（三）管理业务调查
1.组织结构调查
随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。
面对庞大的信息量就需要有一个学生信息管理系统来提高学生管理工作的效率。
通过这样的系统可以做到信息的规范管理、快速查询、修改、增加、删除等，从而减少管理方面的工作量。
设计内容为管理员或学生登录该系统进行六个模块操作：
1）、系统管理：
用户管理、修改密码、退出系统
2）、院系管理：
添加院系、修改院系、查询院系
3）、学籍管理：
添加学籍、修改学籍、查询学籍
4）、班级管理：
添加班级、修改班级、查询班级
5）、课程管理：
添加课程、修改课程、查询课程、设置年级
6）、成绩管理：
添加成绩、修改成绩、查询成绩
2.功能流程调查
Access2003就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。
Access的优点在于它能使用数据表示图或自定义窗体收集信息。
数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。
另外，Access允许创建自定义报表用于打印或输出数据库中的信息。
Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。
Access是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。
如上所述，Access作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。
系统主要建立了学生基本信息表、用户信息表、课程信息表、班级信息表、成绩信息表、院系信息表、年级课程设置表本系统的数据库实体主要有“学生”、“教师”、“教室”、“课程”等。
其中“教师”与“课程”存在“开设”联系，并且一个教师可以开设N门课程，即“教师”与“课程”之间是一对多的关系。
同样“教学楼”与“教室”也存在一对多的关系。
一个学生可以学习N门课程，一门课程可以有M个学生学习，即“学生”与“课程”之间是多对多的关系。
同样“课程”与“教室”之间也是多对多的关系。
整个数据库可以用一个E-R图表示，如图所示：
图1总体E-R图
3.数据流程调查
二、系统设计
（一）新系统的功能结构图
本系统主要包括系统管理、院系管理、学籍管理、班级管理、课程管理和成绩管理6个大的模块，各个模块的具体功能如下图所示：
（二）新系统的流程设计图
（三）代码设计
：
4.我们接下来仅以介绍院系管理为例，介绍一下我们的一些基础设置。
分为添加院系、管理院系、查询院系。
而普通用户只有查询院系。
添加院系：
添加院系代码如下：
OptionExplicit
DimconnAsADODB.Connection
DimrsAsADODB.Recordset
PrivateSubcmdCancel_Click（）
XgClsfrm.Show
UnloadMe
EndSub
PrivateSubcmdOK_Click（）
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&_
"DataSource="&App.Path&"\stu.mdb;"&_
"PersistSecurityInfo=False"
conn.Open
rs.Open"select*fromclsIno",conn,adOpenKeyset,adLockOptimistic
rs.AddNew
txtName.SetFocus
IftxtGender.Text=""Then
MsgBox"课程名称不能为空！
"
txtGender.SetFocus
ExitSub
Else
rs.Fields（0）.Value=Val（txtID.Text）
rs.Fields
（1）.Value=txtName.Text
rs.Fields
（2）.Value=txtGender.Text
rs.Fields（3）.Value=txtAddr.Text
rs.Fields（4）.Value=Text1.Text
rs.Fields（5）.Value=Text2.Text
rs.Fields（6）.Value=Text3.Text
rs.Update
MsgBox"课程添加成功"
EndIf
rs.Close
conn.Close
txtID.Text=""
txtName.Text=""
txtGender.Text=""
txtAddr.Text=""
Text1.Text=""
Text2.Text=""
Text3.Text=""
FrmMainGul.Show
EndSub
修改院系：
代码如下：
OptionExplicit
DimconnAsADODB.Connection
DimrsAsADODB.Recordset
PublicSubReShow（）
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&_
"DataSource="&App.Path&"\stu.mdb;"&_
"PersistSecurityInfo=False"
conn.Open
rs.Open"select*fromclsIno",conn,adOpenKeyset
SetMSHFlexGrid1.DataSource=rs
MSHFlexGrid1.Sort=3
rs.Close
conn.Close
EndSub
PrivateSubForm_Load（）
ReShow
EndSub
PrivateSubcmdExit_Click（）
UnloadMe
FrmMainGul.Show
EndSub
PrivateSubcmdDel_Click（）
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
DimstrAsString
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&_
"DataSource="&App.Path&"\stu.mdb;"&_
"PersistSecurityInfo=False"
conn.Open
rs.Open"select*fromclsInowhere课程名称='"&_
MSHFlexGrid1.TextMatrix（MSHFlexGrid1.Row,2）&"'",_
conn,adOpenKeyset,adLockOptimistic
str=MsgBox（"是否真的删除该信息？
",vbYesNo,"警告"）
Ifstr=vbYesThen
rs.Delete
rs.Update
EndIf
rs.Close
conn.Close
ReShow
EndSub
PrivateSubcmdAdd_Click（）
frmCurAdd.Show
EndSub
PrivateSubcmdModify_Click（）
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&_
"DataSource="&App.Path&"\stu.mdb;"&_
"PersistSecurityInfo=False"
conn.Open
rs.Open"select*fromclsInowhere课程名称='"&_
MSHFlexGrid1.TextMatrix（MSHFlexGrid1.Row,2）&"'",_
conn,adOpenKeyset,adLockOptimistic
frmModifyCls.txtID.Text=rs.Fields（0）
frmModifyCls.txtName.Text=rs.Fields
（1）
frmModifyCls.txtGender.Text=rs.Fields
（2）
frmModifyCls.txtAddr.Text=rs.Fields（3）
frmModifyCls.Text1.Text=rs.Fields（4）
frmModifyCls.Text2.Text=rs.Fields（5）
frmModifyCls.Text3.Text=rs.Fields（6）
rs.Close
conn.Close
frmModifyCls.Show
EndSub
查询院系
查询院系代码
OptionExplicit
'Command对象使用演示
DimconnAsADODB.Connection'定义Connection对象
DimrsAsADODB.Recordset'定义Recordset对象
DimcmdAsADODB.Command'定义Command对象
PrivateSubCommand1_Click（）
UnloadMe
FrmMainUser.Show
EndSub
PrivateSubForm_Load（）
cboSelect.AddItem"课程名称"
cboSelect.AddItem"班号"
EndSub
PrivateSubcmdQuery_Click（）
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
Setcmd=NewADODB.Command
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&_
"DataSource="&App.Path&"\stu.mdb;"&_
"PersistSecurityInfo=False"
conn.Open
cmd.CommandType=adCmdText
cmd.ActiveConnection=conn
IfcboSelect.Text="课程名称"Then
cmd.CommandText="select*fromclsInowhere课程名称='"&txtQuery.Text&"'"
Else
cmd.CommandText="select*fromclsInowhere班号='"&txtQuery.Text&"'"
EndIf
Setrs=cmd.Execute
SetMSHFlexGrid1.DataSource=rs
rs.Close
conn.Close
EndSub
1.登陆页面
设置窗体的startposition属性为centerscreen。
让登陆窗口在屏幕的中央显示。
图4-2登陆界面
“登录”按钮代码：
PublicOkAsBoolean
PublicguserNameAsString
PublicguserTypeAsString
DimconnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
DimsqlAsString
PrivateSubcmdOK_Click（IndexAsInteger）
conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\stu.mdb"
sql="Select*fromuserFormwhere"
IfTrim（txtUserName.Text）=""Then'如果用户名为空
MsgBox"用户名不能为空！
",vbOKOnly+vbCritical,"错误"
txtUserName.SetFocus
miCount=miCount+1'累加输入次数
ExitSub
EndIf
IfTrim（txtPassWord.Text）=""Then'如果密码为空
MsgBox"密码不能为空！
",vbOKOnly+vbCritical,"错误"
txtPassWord.SetFocus
ExitSub
EndIf
IfTrim（cmbType.Text）="选择类别"Then'如果密码为空
MsgBox"请选择用户类别！
",vbOKOnly+vbCritical,"错误"
cmbType.SetFocus
ExitSub
EndIf
sql=sql+"userName='"&txtUserName.Text&"'"
sql=sql+"ANDPwd='"&txtPassWord.Text&"'"
sql=sql+"ANDType='"&cmbType.Text&"'"
rs.Opensql,conn,1,1
Ifrs.RecordCount=1Then'找到记录
PName=rs（"userName"）
PWord=rs（"Pwd"）
pType=rs（"Type"）
UnloadMe
IfpType="管理员"Then
FrmMainGul.Show
Else
FrmMainUser.Show
EndIf
Else
MsgBox"用户名或密码不对！
",vbOKOnly+vbInformation,"错误"
UnloadMe
EndIf
guserName=Trim（txtPassWord.Text）
guserType=Trim（txtPassWord.Text）
rs.Close
Setrs=Nothing
conn.Close
Setconn=Nothing
miCount=miCount+1
IfmiCount=3Then
Me.Hide
EndIf
ExitSub
EndSub
PrivateSubCmdZc_Click（IndexAsInteger）
FrmZcUser.Show
UnloadMe
EndSub
PrivateSubcomExit_Click（）
Ok=False
Me.Hide
EndSub
3.注册页面
我们分为用户注册页面与管理员注册页面；用户注册页面打开系统即可注册，而管理员注册，我们设置为只有现有的管理员才能添加（注册）管理员
图4-3用户注册界面
用户注册代码如下：
PrivateSubcmbType_Change（）
cmbType.AddItem"普通用户"
cmbType.AddItem"管理员"
EndSub
PrivateSubCmdHh_Click（IndexAsInteger）
frmlogin.Show
UnloadMe
EndSub
PrivateSubCmdRt_Click（IndexAsInteger）
Text1.Text=""
Text2.Text=""
Text3.Text=""
cmbType.Text=""
EndSub
PrivateSubCmdTj_Click（IndexAsInteger）
DimconnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
DimsqlAsString
DimstrAsString
DimstrIAsString
conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\stu.mdb"
sql="Select*fromuserFormwhere"
IfTrim（Text1.Text）=""Then'如果用户名为空
MsgBox"请输入真实姓名",vbOKOnly+vbCritical
升级会员 