毕业设计（论文）VB6.0学生管理信息系统.doc

《毕业设计（论文）VB6.0学生管理信息系统.doc》由会员分享，可在线阅读，更多相关《毕业设计（论文）VB6.0学生管理信息系统.doc（32页珍藏版）》请在三一办公上搜索。

1、毕 业 论 文 中 文 摘 要学生管理信息系统是典型的管理信息系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的数据库。而对于后者则要求应用程序功能完备,易使用等特点。本文介绍了利用Visual Basic 6.0与Access相结合的策略开发一个管理信息系统的过程。在这里通过分析某一学校学生管理的不足，创建了一套行之有效的计算机管理学生信息的方案。文章主要介绍了学生管理信息系统的四个个部分：系统概述部分包括系统需求和设计背景等；系统分析部分分析了实体联系图和功能层次图；系统设计部分主要介绍了系统结构设计和

2、数据库设计等；代码分析与实现部分主要介绍一些重要的窗口及一些比较重要的代码。关键词：管理信息系统、学生管理、数据库、Visual Basic 6.0毕 业 论 文 外 文 摘 要Title Student Management Information System AbstractStudent Management Information System is a typical management information system (MIS), including the development of the main background of the establishment a

3、nd maintenance of database and application development front-end aspects. For the former requirement to establish data consistency and integrity, and data security database. For applications which require full-featured and easy to use and so on.This article describes the use of Visual Basic 6.0 and

4、Access strategy for the combination of a management information system development process. Here through the analysis of a shortage of school management to create a set of effective management of student information computer program. The article mainly introduces the student management information s

5、ystem in four parts: an overview of some of the system, including system requirements and design background; analysis analyzes physical contact maps and functional-level plans; system design introduced some of the major system design and database structure design, etc. ; code analysis and the realiz

6、ation of some of the main window to introduce some important and some of the more important of the code.Keywords：MIS Student Management Data-base Visual Basic 6.0目 次1 引言12 系统概述12.1 系统需求及可行性分析22.1.1 系统需求22.1.2 可行性分析22.2 系统设计的背景33 系统分析33.1 实体联系图33.2 功能层次图44 系统设计54.1 系统结构设计54.1.1 系统方案确定54.1.2 系统结构设计54.

7、2 数据库设计64.2.1 涉及的数据库表64.2.2 表的物理结构64.3 系统的界面设计84.3.1 系统登录界面及主界面设计84.3.2 系统管理模块界面设计94.3.3 学籍管理模块界面设计104.3.4 班级管理模块界面设计104.3.5 课程管理模块界面设计104.3.6 成绩管理模块界面设计105 代码分析与实现105.1 系统登陆界面115.2 用户管理模块135.3 学生学籍信息管理模块146 实例演示27结 论29致 谢30参考文献311 引言近几年高校扩招，学校的规模越来越大，学生的数量也急剧增加，同时学生的各种信息也成倍增长。面对如此海量的信息，学校在日常工作中就需要一

8、套学生管理信息系统来管理学生学籍、班级、课程和成绩等信息以便减少不必要的资源浪费，从而达到精简机构，提高办事效率的目的。为此在这里将在Windows XP操作系统环境下利用Visual Basic 6.0简体中文版与Access数据库相结合开发一个简单的学生管理信息系统。该学生管理信息系统包括学生学籍信息管理系统、学生班级信息管理系统、学生课程信息管理系统、学生成绩信息管理系统等多种功能，在下面将一一介绍。2 系统概述本学生管理信息系统可以说是一个综合性的管理信息系统，因为它集成了学生学籍管理系统、学生班级管理系统、学生课程管理系统、学生成绩管理系统等多种功能在一起，并且具有较强的实用性和先进

9、性。因为学生信息一般包括学籍信息、班级信息、课程信息和成绩信息等，又考虑到学校的一些需求，所以该学生管理信息系统主要包括系统、学籍管理、班级管理、课程管理、成绩管理和帮助几个模块。（1）系统模块的主要任务是维护系统的正常运行和安全性设置，包括添加用户、修改密码、退出系统三个模块。（2）学籍管理模块的功能是实现对学生的学籍信息的管理，包括添加学籍信息、修改学籍信息和查询学籍信息三个模块，这三个功能模块能够各自独立完成学生学籍信息的相应管理。（3）班级管理模块的主要功能是实现对全校班级信息的管理，该模块包括添加班级信息和修改班级信息两个模块，从而方便学校管理部门对学校的班级情况进行管理。（4）课程

10、管理模块可以对各个班级的课程进行添加、修改和设置，并可在其中设置各门课程的教材选用情况，方便了学校教材管理部门和教务处的教学管理人员的工作。该模块包括添加课程信息、修改课程信息和设置班级课程三个模块。（5）学校的成绩管理工作是检验学生学习情况的一个主要手段，其中设置了添加成绩信息、修改成绩信息和查询成绩信息三个功能模块。（6）帮助模块能够为使用该系统的用户提供一定的帮助，让用户更加了解本系统并正确的使用。该学生管理信息系统可作为数据库信息系统的一种应用，所以其开发流程主要包括系统概述、系统分析、系统设计和代码的分析与实现等。具体的内容将在下面内容中一一阐述。2.1 系统需求及可行性分析2.1.

11、1 系统需求通过调查和分析,要求该系统需要有以下几个功能:（1）由于操作人员的计算机知识各不相同,要求必须有良好的人机界面以便于不同的用户来操作。（2）该系统的使用对象多,因此要求有较好的权限管理;。（3）原始数据修改简单方便,并且支持多条件修改。（4）方便的数据查询，并且支持多条件查询。（5）在相应的管理权限下，删除数据方便简单，数据稳定性好。（6）数据计算自动完成，尽量减少人工干预。2.1.2 可行性分析1) 技术可行性分析本系统采用Visual Basic语言和Access数据库在Windows XP操作系统上实现，在技术上是可行的。而且学校用于学生管理的微机一般在存储量、速度方面都能满

12、足数据库运行的要求。在技术难度方面，由于有指导老师的指导、相关参考文献和网上资料，特别是参考其它程序的功能，因此完全可以实现。2) 经济可行性分析在开发系统方面，可以利用现有机器设备，不必进行另外的硬件设备投资；在效益方面，本系统运行可以提高学生信息管理的效率，减轻老师的工作量，满足师生查询的需要，减少学校管理部门的不必要的操作。3) 社会可行性分析本系统与学校紧密相关，其管理的对象单一，都是在校学生，且每个数据内容都具有较强的关联性，涉及的计算过程也不是很复杂。而且，目前已有很多成功的学生管理信息系统的先例，因此，该系统具有可行性。综上所述，经过经济、技术、社会等方面的可行性分析，可以确定本

13、系统的开发完全必要，而且是可行的，能够实现的。2.2 系统设计的背景本系统的设计是在Windows XP操作系统环境下，使用Visual Basic 6.0中文版结合Access数据库开发成功的。Visual Basic是一种可视化的、面对对象和调用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的应用程序。它简单易学、效率高且功能强大，并且程序开发人员也不必具有C/C+编程基础就可以运用。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、

14、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。Access数据库是由Microsoft推出的，它是微软集成到Office中的一个桌面数据库，能够快速方便的和Office的其他套件综合使用。由于Access具有显著的简易性和有效性，大量的桌面数据库系统都采用Access作为后台数据库。使用Access的好处还在于：如果系统扩展到Client/Server模式的时候也可以使用Microsoft的数据库服务器软件SQL Server，此时，程序只需要简单的修改一下链接（ADO的数据源）就可以，这样为程序的

15、平滑扩展提供了非常有力的条件。3 系统分析3.1 实体联系图1、首先来做出学生成绩管理系统的E-R图，分析这个问题的实体。从系统分析可以知道，学生的成绩是由任课教师按照课程给出的，学生、课程、教师组成了这个系统的三个实体。2、再分析三个实体之间的联系。首先，这三个实体不是一个统一体，学生成绩与教师没有内在联系，教师必须通过课程实体才能与学生建立联系，因而先不考虑。课程与学生这两个实体是多对多联系；一位学生要学习多门课程，一门课程有多位学生共同学习。而学习成绩是这两个实体“学生”和“成绩”共有的属性，应填在二者的联系“学习”边。因为成绩既不是学生独有的，也不是课程独有的；“学生甲70分”或“英语

16、70分”是不完全的，说“学生甲英语70分”才是正确的，因为70分是学生甲和英语课二者共有的。这个E-R图可画成图3-1。学生课程成绩学习mn 图3-1 学生和课程的实体联系图教师与课程这两个实体之间，是一对多联系；一位教师可以都多门课程，而一门课程对于学生成绩来说只能有一位教师(英语、高等数学有多位教师教，但对某个固定的学生来说只能有一位教师)。其E-R图如图3-2所示。教师课程教学ln 图3-2 教师和课程的实体联系图其它管理系统的实体联系图可参照学生成绩管理系统的E-R图进行分析。3.2 功能层次图根据系统的功能可以绘制出系统的功能层次图，如图3-3所示：学生管理信息系统登录系统管理学 籍

17、 管 理班 级 管 理课 程 管 理成 绩 管 理添 加 用 户修 改 密 码退 出 系 统添 加 学 籍 信 息查 询 学 籍 信 息修 改 学 籍 信 息添 加 班 级 信 息修 改 班 级 信 息添 加 课 程 信 息修 改 课 程 信 息设 置 班 级 课 程修 改 成 绩 信 息添 加 成 绩 信 息查 询 成 绩 信 息图3-3 系统功能层次图4 系统设计4.1 系统结构设计4.1.1 系统方案确定通过对系统的调研与分析，系统主要应完成的功能有：系统管理、学生学籍管理、学生班级管理、学生课程管理、学生成绩管理等。4.1.2 系统结构设计本系统在执行时，先根据不同的操作人员的需要来进

18、行相应的模块，然后可以输入数据或者进行其它的查询或浏览等操作；总体来说，本系统属于一个事务型管理系统。系统的具体结构设计图如图4-1所示。接受数据处理中心系统管理 理 理理学籍管理班级管理课程管理成绩管理打印报表 图4-1 系统结构设计图4.2 数据库设计该系统的数据库采用了Microsoft推出的Access数据库，其中涉及到多张数据库表。4.2.1 涉及的数据库表本系统中所涉及到的主要实体共有九个数据库表：Allkecheng表：课程名称，教材Cj表：学号，学期，类型，课程名称，分数Class表：年级，班级，教室，年制，专业，班主任，备注Classkecheng表：年级，专业，年制，学期，

19、课程名称Kaoshileixing表：类型Use表：username,password,admin,readonly,qx1,qx2,qx3,qx4Xj表：学号，姓名，性别，班级，出生年月，家庭住址，邮政编码，联系电话，入学时间，备注4.2.2 表的物理结构各表的物理结构如表所示：Cj表如表4-1所示：表4-1 成绩表字段名称类型宽度小数位学号文本10学期文本50类型文本16课程名称文本20分数单精度型数字自动Class表如表4-2所示：表4-2 班级表字段名称类型宽度小数位年级文本16班级文本20教室文本5年制文本8专业文本16班主任文本8备注备注Classkecheng表如表4-3所示：表

20、4-3 班级课程表字段名称类型宽度小数位年级文本16专业文本12年制文本8学期文本50课程名称文本20Use表如表4-4所示：表4-4 用户表字段名称类型宽度小数位username文本20password文本20Admin文本2Readonly文本2Qx1文本2Qx2文本2Qx3文本2Qx4文本2Xj表如表4-5所示：表4-5 学籍表字段名称类型宽度小数位学号文本9姓名文本8性别文本2班级文本10出生年月日期/时间家庭住址文本30邮政编码数字（长整型）联系电话数字（长整型）入学时间日期/时间备注备注4.3 系统的界面设计4.3.1 系统登录界面及主界面设计进行完一些必要的分析后就要考虑界面的设

21、计了。运行本系统之前首先要进行登陆，登陆界面如图4-2所示。在登录界面中输入正确的用户名和密码后单击“确定”即可进入主界面进行相应的操作了。图4-2 系统登陆界面图根据需要该系统要实现学生学籍信息、班级信息、课程信息、成绩信息等相关信息的管理，所以该信息系统包括以下几个功能模块：系统管理、学籍管理、班级管理、课程信息、成绩管理和帮助。该系统主界面如图4-3所示，选择相应的模块就可以进行各个模块的相应操作了。图4-3 系统主界面图4.3.2 系统管理模块界面设计该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户、修改密码、退出系统三个模块。界面如图4-4所示（由于其他几个模块的界面类

22、似于本模块，所以下面内容的中将不再列出界面图）。图4-4 系统管理模块界面图4.3.3 学籍管理模块界面设计该模块的功能是实现对学生的学籍信息进行管理，包括添加学籍信息、修改学籍信息和查询学籍信息三个模块，这三个功能模块能够各自独立完成学生学籍信息的管理。4.3.4 班级管理模块界面设计该模块的主要功能是实现对全校班级信息的管理，包括添加班级信息和修改班级信息两个模块，从而方便学校管理部门对学校的班级情况进行管理。4.3.5 课程管理模块界面设计该模块对各个班级的课程进行添加、修改和设置，并可在其中设置各门课程的教材选用情况，方便了学校教材管理部门和教务处的教学管理人员的工作。该模块包括添加课

23、程信息、修改课程信息和设置班级课程三个模块。4.3.6 成绩管理模块界面设计学校的成绩管理工作是检验学生学习情况的一个主要手段,其中设置了添加成绩信息、修改成绩信息和查询成绩信息三个功能模块。5 代码分析与实现本部分主要内容是介绍本系统的一些主要界面及相应的源代码。5.1 系统登陆界面本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在Use表中，本系统根据不同的用户而设置了不同的权限。具体界面如图4-2所示，代码如下所示。Private Sub Form_Load() Dim sBuffer As String Dim lSize As Long sBuffer = Spa

24、ce$(255) lSize = Len(sBuffer) Call GetUserName(sBuffer, lSize) If lSize 0 Then txtUserName.Text = Else txtUserName.Text = vbNullString End If OK = False miCount = 0End SubPrivate Sub cmdCancel_Click() OK = False Me.HideEnd SubPrivate Sub cmdOK_Click() Dim txtSQL As String Dim mrc As ADODB.Recordset

25、Dim MsgText As String ToDo: create test for correct password check for correct password UserName = If Trim(txtUserName.Text = ) Then MsgBox 没有这个用户，请重新输入用户名！, vbOKOnly + vbExclamation, 警告 txtUserName.SetFocus Else txtSQL = select * from user_Info where user_ID = & txtUserName.Text & Set mrc = Execute

26、SQL(txtSQL, MsgText) If mrc.EOF = True Then MsgBox 没有这个用户，请重新输入用户名!, vbOKOnly + vbExclamation, 警告 txtUserName.SetFocus Else If Trim(mrc.Fields(1) = Trim(txtPassword.Text) Then OK = True mrc.Close Me.Hide UserName = Trim(txtUserName.Text) Else MsgBox 输入密码不正确，请重新输入！, vbOKOnly + vbExclamation, 警告 txtPa

27、ssword.SetFocus txtPassword.Text = End If End If End If miCount = miCount + 1 If miCount = 3 Then Me.Hide End If Exit SubEnd Sub5.2 用户管理模块本模块是本系统的安全性设置模块，由管理员根据学校不同部门以及不同使用人员对本系统的要求和需要为其分配权限，并且添加新用户。图5-1是系统管理模块中添加用户的界面。图5-1 系统管理模块中添加用户的界面图具体代码如下：Private Sub cmdCancel_Click() Unload MeEnd SubPrivate

28、Sub cmdOK_Click() Dim txtSQL, MsgText As String Dim mrc As ADODB.Recordset If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 密码输入不正确！, vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Else txtSQL = select * from user_Info where user_ID = & UserName & Set mrc = ExecuteSQL(txtSQL, M

29、sgText) mrc.Fields(1) = Text1(1).Text mrc.Update mrc.Close MsgBox 密码修改成功！, vbOKOnly + vbExclamation, 修改密码 Me.Hide End IfEnd Sub5.3 学生学籍信息管理模块学生学籍信息管理模块的具体界面如图5-2所示。图5-2 学生学籍信息管理模块的具体界面图在该模块中选择“添加学籍信息”将出现图5-3所示界面，在这个界面上可以向系统中添加学生的学籍信息。具体的代码如下所示。图5-3 添加学籍信息模块图Private Sub Command1_Click() Dim mrc As AD

30、ODB.Recordset Dim txtSQL As String Dim MsgText As String If Not Testtxt(txtSID.Text) Then MsgBox 请输入学号！, vbOKOnly + vbExclamation, 警告 txtSID.SetFocus Exit SubEnd If (添加学生其他信息的方法可参照添加学号的方法)If Not IsNumeric(Trim(txtSID.Text) Then MsgBox 请输入数字！, vbOKOnly + vbExclamation, 警告 Exit Sub txtSID.SetFocus End

31、 If txtSQL = select * from student_Info where student_ID = & Trim(txtSID.Text) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox 学号重复，请重新输入！, vbOKOnly + vbExclamation, 警告 mrc.Close txtSID.SetFocus Else mrc.Close If Not IsDate(txtBorndate.Text) Then MsgBox 出生时间应输入日期格式（yyyy-mm-dd）

32、！, vbOKOnly + vbExclamation, 警告 txtBorndate.SetFocus Else txtBorndate = Format(txtBorndate, yyyy-mm-dd) If Not IsDate(txtRudate.Text) Then MsgBox 入校时间应输入日期格式（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtRudate.SetFocus Else txtRudate = Format(txtRudate, yyyy-mm-dd) txtSQL = select * from student_In

33、fo Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(txtSID.Text) mrc.Fields(1) = Trim(txtName.Text) mrc.Fields(2) = Trim(comboSex.Text) mrc.Fields(3) = Trim(txtBorndate.Text) mrc.Fields(4) = Trim(comboClassNo.Text) mrc.Fields(5) = Trim(txtTel.Text) mrc.Fields(6) = Trim(txtRudate

34、.Text) mrc.Fields(7) = Trim(txtAddress.Text) mrc.Fields(8) = Trim(txtComment.Text) mrc.Update MsgBox 添加学籍信息成功！, vbOKOnly + vbExclamation, 警告 mrc.Close Me.Hide End If End If End IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() Dim mrc As ADODB.Recordset Dim txtSQL As Stri

35、ng Dim MsgText As String Dim i As Integer comboSex.AddItem 男 comboSex.AddItem 女 txtSQL = select * from class_Info Set mrc = ExecuteSQL(txtSQL, MsgText) For i = 1 To mrc.RecordCount comboClassNo.AddItem mrc.Fields(0) mrc.MoveNext Next i mrc.CloseEnd Sub在该模块中选择“修改学籍信息”将出现图5-4所示界面，在这个界面上可以修改系统中已有的学生的学籍

36、信息。具体的代码如下所示。图5-4 修改学籍信息模块图Dim mrc As ADODB.RecordsetDim myBookmark As VariantDim mcclean As BooleanPrivate Sub editCommand_Click() mcclean = False Frame2.Enabled = False firstCommand.Enabled = False previousCommand.Enabled = False nextCommand.Enabled = False lastCommand.Enabled = False txtSID.Enabl

37、ed = True txtName.Enabled = True comboSex.Enabled = True txtBorndate.Enabled = True comboClassNo.Enabled = True txtRudate.Enabled = True txtTel.Enabled = True txtAddress.Enabled = True txtComment.Enabled = True myBookmark = mrc.BookmarkEnd SubPrivate Sub cancelCommand_Click() If Not mcclean Then Fra

38、me2.Enabled = True firstCommand.Enabled = True previousCommand.Enabled = True nextCommand.Enabled = True lastCommand.Enabled = True txtSID.Enabled = False txtName.Enabled = False comboSex.Enabled = False txtBorndate.Enabled = False comboClassNo.Enabled = False txtRudate.Enabled = False txtTel.Enable

39、d = False txtAddress.Enabled = False txtComment.Enabled = False mrc.Bookmark = myBookmark Call viewData Else MsgBox 什么都没有修改，确定取消？, vbOKOnly + vbExclamation, 警告End IfEnd SubPrivate Sub deleteCommand_Click() myBookmark = mrc.Bookmark str2$ = MsgBox(是否删除当前记录？, vbOKCancel, 删除当前记录) If str2$ = vbOK Then m

40、rc.MoveNext If mrc.EOF Then mrc.MoveFirst myBookmark = mrc.Bookmark mrc.MoveLast mrc.Delete mrc.Bookmark = myBookmark Call viewData Else myBookmark = mrc.Bookmark mrc.MovePrevious mrc.Delete mrc.Bookmark = myBookmark Call viewData End If Else mrc.Bookmark = myBookmark Call viewData End IfEnd SubPrivate Sub firstCommand_Click() mrc.MoveF