VB课程设计学生信息管理系统.docx
《VB课程设计学生信息管理系统.docx》由会员分享，可在线阅读，更多相关《VB课程设计学生信息管理系统.docx（20页珍藏版）》请在冰豆网上搜索。
VB课程设计学生信息管理系统
VB课程设计学生信息管理系统
————————————————————————————————作者：
————————————————————————————————日期：
学生信息管理系统
——数据库和系统主体模块设计
1课程设计的目的
学生信息管理系统是一个教育单位不可缺少的部分。
一个功能齐全、简单易用的信息管理系统不但能有效地减轻学校相关工作人员的工作负担，它的内容对于学校的决策者和管理者来说都至关重要。
所以学生信息管理系统应该能够为用户提供充足的信息和快捷的查询手段，但一直以来人们使用传统人工的方式管理文件档案、统计和查询数据，这种管理方式存在着许多缺点，如：
效率低、保密性查、人工的大量浪费；另外时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少困难。
随着人类社会进入信息时代，计算机越来越多的活跃在社会各个领域：
管理、网络、计算、控制、多媒体等，并且在某些方面成为不可缺少的工具，尤其在管理方面，管理软件的出现使大量繁琐复杂的问题变的简单易行。
当前，许多学校正在逐步完善学生信息管理工作，需要一个能满足内部管理需求、提高管理效率的应用系统进行内部管理，许多学校经过多年的发展，学校规模不断扩大，学生人数成倍增长，积累了大量的学生信息，急需进行统一管理以防止信息的流失，因此，许多学校需要一个功能全面的学生信息管理系统来进行管理，以使管理学生信息的工作在该系统的配合下更加高效和便捷，所以，如何开发一个应用简单，界面友好，容易操作，数据安全性好的管理系统就成为非常重要的技术问题。
随着学校办学规模的扩大,学生数量急剧增加,有关学生各种信息的数量也在成倍增长。
面对庞大的信息量,利用计算机信息管理系统对学生的学籍、成绩、德育等综合信息进行管理已经成为一种必然趋势。
笔者根据学校特点,通过开发学生信息管理系统,可以做到信息的规范管理、科学统计和快速查询,从而解决学生学籍管理、成绩管理、德育管理、宿舍管理等大量繁琐的工作,实现学生信息管理的办公无纸化和高效化。
系统地掌握需求分析、数据库设计、编码实现、测试等软件开发的流程，提高自身分析问题、解决问题的能力。
学生信息管理系统是典型的信息管理系统（MIS）,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
对于前者要求建立起数据一致性和完整性强、数据安全性好的库。
而对于后者则要求应用程序功能完备,易使用等特点。
通过课程设计，掌握VisualBasic的基础知识和基本概念，提高综合应用所学知识编制实用程序的能力。
学会运用SQLServer2000数据库系统和VisualBasic6.0程序开发语言，设计开发程序。
深化对VisualBasic基本概念和算法的理解，提高对应用程序设计的总体把握能力，树立将所学知识应用于解决实际问题的信心。
2系统的整体设计
2.1系统的开发环境简介
该软件是在WindowsXPProfessional+VisualBasic6.0+SQLServer2000的环境下完成的。
下面就对这些开发工具进行介绍：
2.1.1VisualBasic6.0及其特点
微软公司的VisualBasic6.0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。
VisualBasic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。
利用VISUALBASIC程序设计语言，可以很方便地设计出在WINDOWS环境下运行的应用程序。
故而，实现本系统VB是一个相对较好的选择。
VisualBasic语言的出现为Windows下的编程提出了一个新概念，利用VisualBasic的动态数据交换、对象的链接和嵌入、动态链接库、ActiveX技术可以很方便地设计出功能强大的应用程序。
利用VisualBasic语言编程有以下几个特点：
2.1.2SQLServer数据库特点
概括起来，SQLServer2000数据库管理系统具有以下主要特点。
（1）丰富的图形管理工具，使系统管理、操作更为直观方便。
SQLServer企业管理器是一个基于图形用户界面（GUI）的集成管理工具，利用它可以配置管理SQLServer服务器、管理数据库和数据库对象、备份和恢复数据、调度任务和管理警报、实现数据复制和转换操作等。
此外，SQLServer2000还提供了SQL事件探查器、SQL查询分析器、SQLServer服务管理器和多种操作向导等图形界面管理工具，大大简化了用户操作，从而增强了系统的易用性。
（2）动态自动管理和优化功能。
即使SQLServer数据库管理员不做任何设置，SQLServer也能够在运行过程中根据环境配置和用户访问情况动态自动配置，以达到最优性能，从而减轻管理员工作。
（3）充分的Internet技术支持。
Internet网络发展到今天已经成为一条重要的信息发布渠道，SQLServer增强了对Internet技术支持，它除保留了前期版本中的数据库Web出版工具“Web助手”外，还增强了对XML和HTTP技术的支持，这使得电子商务系统能够通过XML等访问SQLServer数据库系统，也扩展了SQLServer在数据挖掘和分析服务领域的应用。
（4）丰富的编程接口工具，使用户开发SQLServer数据库应用程序更加灵活。
SQLServer提供了Transact-SQL、DB-LibraryforC、嵌入式SQL（ESQL）等开发工具，Transact-SQL与工业标准SQL语言兼容，并在其基础上加以扩充，使它更适合事务处理方面的需要。
此外，SQLServer2000还支持ODBC、OLEDB、ADO规范，可以使用ODBC、OLEDB、ADO接口访问SQLServer数据库。
（5）具有很好的伸缩性和可靠性。
SQLServer2000既能运行在Windows桌面操作系统下，又可运行在服务器操作系统（包括WindowsNT和Windows2000）下；既能运行在单CPU计算机上，又能运行在对称多处理系统下。
所以，它具有很好的伸缩性，能够满足从桌面应用到大型企业分布式应用到不同层次用户的要求。
（6）简单的管理方式。
SQLServer2000与MicrosoftWindows2000有机集成，所以可以使用Windows2000的活动目录（ActiveDirectory）功能对SQLServer进行集中管理，大大简化大型企业中的系统管理工作。
此外，与Windows2000的集成还使SQLServer能够充分利用操作系统所提供的服务和功能（如安全管理、事件日志、性能监视器、内存管理和异步I/O等），从而增强了SQLServer数据库系统的功能，并且只需要占用很少的系统资源。
2.2需求分析
学生信息管理系统MIS（managementinformationsystem）是一个利用计算的硬件资源及数据库的人机系统，它能提供信息支持企业或组织的运行，管理和决策功能，在强调管理和信息的现代社会中变得越来越普及了。
学生信息管理系统是一个学校不可缺少的部分,它的内容对于学校管理者来说是至关重的,所以学生学籍管理系统应该能够为学校管理者提供充足的信息和快捷的查询手段但一直以来人们使用人工的方式管理学生档案,这种管理方式存在着许多缺点,如效率低、保密性差等,另外时间长了将产生大量的文件和资料,这对于查找、更新和维护都带来了不少的困难，随着学校的规模不断的扩大，学生数量急剧增加，有关学生的各种信息量也成倍增加。
面对庞大的信息量，需要有学生信息管理系统来提高学生管理工作的效率。
通过这样的系统可以做到信息的规范管理，科学统计和快速查询，从而减少管理方面的工作量。
因此开发学生管理系统是必要的。
2.3系统的功能描述
此学生信息管理信息系统是面向大学的管理系统，其目的是对学校内的学生，班级，和其它信息进行统一有序的管理。
针对一般学生信息管理系统的要求，通过对学生学习过程的内容和数据流程分析，设计如下的数据项和数据结构：
（1）学生基本信息：
包括的数据项有：
学生学号、学生姓名、性别、出身日期、班号、联系电话、入校日期、家庭地址、备注等。
（2）班级信息：
包括的数据项有：
班号、所在年级、班主任姓名、所在教室等。
（3）课程基本信息：
包括的数据项有：
课程号、课程名称、课程类别、课程描述等。
（4）课程设置信息：
包括数据项有：
年级信息、所学课程等。
（5）学生成绩信息：
包括数据项有：
考试编号、所在班号、学生学号、学生姓名、所学课程、等。
2.4系统的整体分析
2.4.1系统分析
（1）系统功能分析
班级管理信息的输入，包括班级设置、年级的设置等；班级管理信息管理的查询；班级管理信息的修改；学校基本课程信息的输入；基本课程信息的修改；学生课程信息的设置和修改；学生成绩信息的输入；学生成绩信息的修改；学生成绩信息的查询；学生成绩信息的统计。
（2）系统功能模块分析
上述各功能的系统功能模块图如下：
图1系统模块图
（3）VB控件及属性
表1控件及属性
对象
属性
属性值
对象
属性
属性值
主菜单项1
名称
sysMenu
子菜单项2
名称
modifycionfoMenu
标题
系统
标题
修改班级信息
子菜单项1
名称
adduserMenu
主菜单项4
名称
courseMenu
标题
添加用户
标题
课程设置
子菜单项2
名称
modifypwdMenu
子菜单项1
名称
addcourseMenu
标题
修改密码
标题
添加课程设计
子菜单项3
名称
exitMenu
子菜单项2
名称
modifycourseMenu
标题
退出系统
标题
修改课程信息
主菜单项2
名称
sinfoMenu
子菜单项3
名称
gradecourseMenu
标题
学籍信息
标题
设计年级课程
子菜单项1
名称
addsinfoMenu
主菜单项5
名称
resultMenu
标题
添加学籍信息
标题
成绩管理
子菜单项2
名称
modifysinfoMenu
子菜单项1
名称
addresultMenu
标题
修改学籍信息
标题
添加成绩信息
子菜单项3
名称
inquiresinfoMenu
子菜单项2
名称
modifyresultMenu
标题
查询学籍信息
标题
修好学籍信息
主菜单项3
名称
classinfoMenu
子菜单项3
名称
inquireresultMenu
标题
班级管理
标题
查询成绩信息
子菜单项1
名称
addcinfoMenu
标题
添加班级信息
2.4.2数据库分析
数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。
合理的数据库结构设计可提高数据存储的效率，保证数据的完整和一致。
同时，合理的数据库结构也将有利于程序的实现。
用户的需求具体体现在各种信息的提供、保证、更新和查询，这就要求数据库结构能够充分满足各种信息的输出和输入。
2.5系统概要设计
2.5.1系统设计
用VisualBasic来编写数据库系统客户端程序即学生信息管理系统中各功能模块。
该系统包括：
工程文件Student_Mis.vbp，标准模块文件Module1.bas，主窗体文件frmMain.frm，登陆窗体文件frmLogin.frm，添加用户窗体文件frmAdduser.frm。
修改用户密码窗体文件frmModifyuserinfo.frm，添加学籍信息窗体文件frmAddsinfo.frm，修改学籍信息窗体文件frmModifysinfo.frm，查询学籍信息窗体文件frmInquiresinfo.frm，添加班级信息窗体文件frmAddclassinfo.frm，修改班级信息窗体文件frmModifyclassinfo.frm，添加课程信息窗体文件frmAddcourseinfo.frm，修改课程信息窗体文件frmModifycourseinfo.frm，设置年级课程窗体文件frmSetcourseinfo.frm，添加成绩信息窗体文件frmAddresult.frm，修改成绩窗体文件frmModifyresult.frm，查询成绩信息窗体文件frmInquireresult.frm。
2.5.2数据库设计
利用SQLserver2000数据库系统中的SQl企业管理器，建立数据库student.sql文件，数据库名为：
student，在student数据库中创建6个表，分别为：
学生基本信息表、班级基本信息表、课程基本信息表、年级课程基本信息表、学生成绩信息表、系统用户表
（1）数据库概念结构设计
得到数据项和数据结构后，设计出能够满足用户需求的各种实体，以及它们之间的关系。
这些实体包括具体信息，通过相互之间的作用形成数据段流动。
设计规划出的实体有：
年级实体、学生实体、课程实体。
各个实体具体的描述及关系的E-R图如下图所示。
图2年级E-R图
图3学生信息E-R图
图4班级信息E-R图
图5课程信息E-R图
（2）数据库逻辑结构设计
学生信息管理系统数据库中各表设计结果如图6~11所示。
每个表格表示在数据库中的一个表。
表2学生信息表
字段名
数据类型
说明
是否允许为空
是否为关键字
Student_ID
文本
学号
否
是
Student_name
文本
姓名
否
否
Student-Gender
文本
性别
否
否
Ru_date
文本
入校日期
否
否
Class_Number
文本
班号
否
否
Born_Date
文本
出生日期
否
否
Tel-number
文本
手机号
否
否
address
文本
地址
否
否
图6student_info学生基本信息
图7class_info班级信息
图8course_info课程基本信息
图9gradecourse_info年级课程
图10result_info学生成绩信息
图11user_info系统用户
3设计结果与分析
3.1学生信息管理系统主窗体的创建
（1）创建一个工程名为Student_Mis的工程文件Student_Mis.vbp。
（2）创建学生信息管理系统的主窗体MID窗体，窗体名为frmMain，窗体文件名为：
frmMain.frm。
（3）创建主窗体的菜单，如下图所示：
图12主窗体
3.2系统用户登录模块的创建
系统用户管理模块主页实现：
用户登陆；用户添加；修改用户密码，进入系统后出现如图11所示用户登陆窗体，用户首先输入用户名，然后输入密码。
如果用户3次输入密码不正确，将退出程序。
图13用户登陆界面
4设计体会
经过这次设计，我首先对这个软件有所了解，对整体的设计有了一个清楚的思路，了解了在软件开发过程所需要注意的事项和具体过程。
首先，是需求分析，是提前对软件功能的分析、要求和设计软件的一些方案。
总体设计指明了总体的设计流程和运用的知识。
界面设计是给软件一个大致的功能窗口，给设计是提供了模板。
详细设计是完成软件具体功能、各功能的实现和开发后的软件的运用。
再根据学生信息管理系统模块做好主界面。
思考要实现的功能，例如添加用户，修改密码等；根据要实现的功能做好相应的数据库；思考实现功能的代码，为各界面建代码，连接数据库，调试。
把各个副界面连接到主界面，在工程属性中设定登录窗体为引导界面。
生成工程.vbp文件，保存工程，数据库等。
在做的过程中遇到了很多的小问题和错误，刚开始都不知道问题出在哪里，就一个代码一个代码对比的找出，然后改正。
因为有时候就是一个符号或一个字母，就得花上个几个小时，半天，甚至更长。
越是这样越不能灰心，放松心态，去一点一滴的查。
但是我的能力有限，经验不足，难免有缺欠和考虑不周，所以有很多错误还是希望老师和同学帮忙指出。
但这次的毕业设计中，让我受益很大。
在操作中，那些不懂的、概念模糊的知识，得到了概括，并且得以融会贯通。
我不仅巩固了旧知识，也学到了新的知识，并且把所学的应用到实际操作中，提高了实际动手能力和逻辑思维能力。
也让我对软件开发的流程有一定了解，并且对开发软件有了一些初步的经验。
由于只是学了点简单的VB程序编写，没有尝试过这种相对来说比较系统完善的系统。
所以在做项目的时候倍感压力，程序在编写上存在一些漏洞，导致调试时总是不能正常运行，不过功夫不负有心人，最后终于完成了，而且各个界面都能够运行成功。
这次毕业设计使我学到了知识，也帮助我缩小了实践和理论的差距，让我更深一步的对SQL这门课程的知识有更进一步的渴望，同时对自己的专业，对自己的能力，对自己所学的有正确的认识，并且能在以后的学习工作中不断提高和完善自己。
参考文献
[1]刘天惠，范立南，王晓春，周力.VisualBasic程序设计教程[M].北京:
清华大学出版社，2006.2:
P156-185
[2]李勇帆.VisualBasic程序设计案例教程[M].北京:
人民邮电出版社，2009.5：
P15-58
[3]张浦生.数据库应用技术[M].北京:
机械工程出版社，2009.6：
P28-56
[4]刘新民,蔡琼,白康生.VisualBasic6.0程序设计[M].北京:
清华大学出版社，2004.3：
P45-69
[5]林卓然.VB语言程序设计[M].北京:
电子工业出版社，2003：
P99-146
[6]武马群.VisualBasic程序设计[M].北京:
北京工业大学出版社，2004年：
P68-100
[7]张勇.VisualBasic课程设计案例精编[M].北京:
电子工业出版社，2005：
P32-72
[8]蒋加伏.VisualBasic程序设计教程[M].北京:
北京邮电大学出版社，2003.11：
10-56
[9]王国荣,VisualBasic6.0与WindowsAPI讲座[M].北京:
人民邮电出版社，2007.4:
100-130[10]萨师煊,王珊.数据库系统概论[M],（第三版）.北京：
高等教育出版社，2006.5:
198-233
[11]李华飚，毕宗睿，李水根.VisualBasic数据库编程-从范例入门到项目开发[M].北京：
人民邮电出版社，2004.7:
P90-134
附录：
部分主程序源代码
PrivateSubMDIForm_Load（）
Me.Left=GetSetting（App.Title,"Settings","MainLeft",1000）
Me.Top=GetSetting（App.Title,"Settings","MainTop",1000）
Me.Width=GetSetting（App.Title,"Settings","MainWidth",6500）
Me.Height=GetSetting（App.Title,"Settings","MainHeight",6500）
EndSub
PrivateSubMDIForm_Unload（CancelAsInteger）
IfMe.WindowState<>vbMinimizedThen
SaveSettingApp.Title,"Settings","MainLeft",Me.Left
SaveSettingApp.Title,"Settings","MainTop",Me.Top
SaveSettingApp.Title,"Settings","MainWidth",Me.Width
SaveSettingApp.Title,"Settings","MainHeight",Me.Height
EndIf
EndSub
PrivateSubmodifycinfoMenu_Click（）
frmModifyclassinfo.Show
EndSub
PrivateSubmodifycourseMenu_Click（）
frmModifycourseinfo.Show
EndSub
PrivateSubmodifypwdMenu_Click（）
frmModifyuserinfo.Show
EndSub
PrivateSubmodifyresultMenu_Click（）
frmModifyresult.Show
EndSub
PrivateSubmodifysinfo_Menu_Click（）
frmModifysinfo.Show
EndSub
PublicfMainFormAsfrmMain
PublicUserNameAsString
SubMain（）
DimfLoginAsNewfrmLogin
fLogin.ShowvbModal
IfNotfLogin.OKThen
'LoginFailedsoexitapp
End
EndIf
UnloadfLogin
SetfMainForm=NewfrmMain
fMainForm.Show
EndSub
PublicFunctionConnectString（）_
AsString
'returnsaDBConnectString
ConnectString="FileDSN=studentinfo.dsn"
EndFunction
PublicFunctionExecuteSQL（ByValSQL_
AsString,MsgStringAsString）_
AsADODB.Recordset
'executesSQLandreturnsRecordset
DimcnnAsADODB.Connection
DimrstAsADODB.Recordset
DimsTokens（）AsString
OnErrorGoToExecuteSQL_Error
sTokens=Split（SQL）
Setcnn=NewADODB.Connection
cnn.OpenConnectString
IfInStr（"INSERT,DELETE,UPDATE",_
UCase$（sTokens（0）））Then
cnn.ExecuteSQL
MsgString=sTokens（0）&_
"querysuccessful"
Else
Setrst=NewADODB.Recordset
rst.OpenTrim$（SQL）,cnn,_
adOpenKeyset,_
adLockOptimistic
'rst.MoveLast'getReco
升级会员 