毕业论文（设计）学生信息管理系统开发.pdf

摘要学生信息管理系统是典型的信息管理系统（MIS）,其开发主要 凶手后台数据库的建立和维护以及前端应用程序的开发两个方面。对 于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对 于后者则要求应川程序功能完备,易使用等特点。Visual Bassic 6.0是为数据库结构和应用程序开发而设计的功 能强大的面向对象的环境,它非常方便于对于企业的员情况进行管 理,并且方便地进行共享。本程序的主要内容有学生和川户的注册,数据输入和修改,实现学生删除和修改,简单快捷的学生信息查找和 报表打印,以及修改系统密码和进行系统数据初始化等。学生信息管理系统前言电脑已经成为挂在我们嘴角的一句口头禅,它已经深入到巳常工作和生活 的方方面面,比如文字处理、信息管理、辅助设计、图形图像处理、教育培训以 及游戏娱乐等。Windows系统的推出使电脑从高雅的学术殿堂走入了寻常百姓家,各行各业的人们无须经过特别的训练就能够使川电脑完成许许多多复杂的工作。然而,虽然现在世界上已经充满了多如牛毛的各种软件,但它们依然不能满足川 户的各种特殊需要,人们还不得不开发适合自己特殊需求的软件。以前开发 Windows下软件是专业人员的工作,需要掌握许多专业知识和经过特殊的培训 能胜任。现在不同了,即使你没有接受过严格的程序设计训练,使川Visual Basic 也样能够开发出功能强大、适合自己特殊需求的应用程序了。Visual Basic 继承了 Basic语言易学易川的特点,特别适合于初学者学习Windows系统编程。我作为一名2004届计算机专业的学生,对从事计算机操作和编程工作有着 特殊的爱好,在工作和学习之余,我时常钻研专业课基础理论,经常川VB调试 些小程序。我们都知道,学生信息管理系统是个教育单位不可缺少的部分,它的内容 对于学校的决策者和管理者来说都至关重要,所以学生档案管理系统应该能够为 用户提供充足的信息和快捷的查询手段。但一直以来人们使川传统人工的方式管 理文件档案,这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。而使 用计算机对学生档案信息进行管理,具有手工管理所无法比拟的优点.例如:检索 迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优 点能够极大地提高学生档案管理的效率,也是企业的科学化、正规化管理的重要 途径。为了在毕业之际向学校交一份满意的答卷,开发这样套管理软件很有必 要,在下面的各章中我将以开发套学生信息管理系统为例,谈谈其开发过程和所 涉及到的问题及解决方法。2目录摘要.2前言.3第一章学生信息管理系统介绍.41.1 学生信息管理系统介绍.41.2 学生管理系统的作用.4第二章系统功能分析与设计.52.1功能需求分析.52.2功能需求描述.52.3模块开发环境的简介.52.3.1 Visual Basic 6.0 简介.62.3.2可视化设计.62.3.3事件驱动编程.72.4系统数据库设计.72.4.1数据库的概念.72.4.2数据库的需求分析2.4.3数据库的建立.72.5系统平台的选择.9第三章程序设计部分.93.1主窗体的建立.93.2登录窗体的建立.103.3注册窗体的建立.133.4系统员管理台的建立.143.5川户查询的建立.18第四章系统测试.19结束语.19致谢.19参考文献.20学生信息管理系统第一章学生信息管理系统的介绍1.I 系统介绍顾名思义,学生信息管理系统是对学生信息进行管理的系统。用户可以以 各种身份登录系统,而每种身份都有不同的权限。本程序共设置了两种川户身 份,分别是Student川户和Administrator川户 Student川户属于普通学生川户,只拥有查询权限,而Administrator用户属于系统管理员,对数据库拥有查询、修 改等一切权限。在本程序里面将使川Microsoft Access2000来建立数据库,使川 Visual Basic编制应用程序。本程序涉及到Visual Basic语言、内部控件和ActiveX 控件相当多,另外还要在编程中运用到数据库的创建方法以及访问方法。同时,计算机还提供了汉字系统,更加适应了我们的要求,数据库系统能较 好的实现大量相关联数据有组织的,动态的存储和管理。由于数据库技术的出现,使数据处理能力得以极大的提高,可靠性不断增加,成本也不断降低,从而推动了 计算机应川的普及。Visual Basic6.0所具有的速度、能力和灵活性,是普通数 据库管理系统无法比拟的,它把我们带入了 Xbase新时代。中文Visual Basic 6.0为我国办公自动化和管理信息系统的发展起了极大的推动作川。本软件更好的功能体现在其强大的查询系统。除了一个树形展开式过滤定 位,还提供了按用户需求进行显示指定学生的基本信息和动态信息。该项目开发的软件为学校学生信息管理系统软件,是鉴于目前学校学生人数剧 增,学生信息呈爆炸性增长的前提下,学校对学生信息管理的自动化与准确化的 要求巳益强烈的背景下构思出来的,该软件设计完成后可川于所有教育单位（包 括学校,学院等等）的学生信息的管理.目前社会上信息管理系统发展飞快,各个企事业单位都引入了信息管理软 件来管理自己巳益增长的各种信息,学生管理系统也是有了很大的发展,商业化 的学生信息管理软件也不少.但本系统完全独立开发,力求使系统功能简洁明了,但功能齐全且易于操作.新系统在原有系统的基础上加入了新的数据库的支持,使川了先进的数据库 技术与数据管理技术,使数据的准确性与安全性得到了很大的提高,且在用户的4并行操作与用户管理方面也有了极大地改善。1.2 系统的作用在当今的信息社会里,人类的全部活动都离不开数据信息。而对数据信息 的采集,储存,分析,加工,检索使用和维护工作更是我们每天自觉或不自觉地 进行着的大量烦琐工作。学生管理系统则是个学校不可缺少的部分,为了提高 学生管理系统工作的准确度,降低劳动强度,减少人为手写错误,提高工作效率,根据单位实际工作需求,在调研了多位长期从事会计工作的老师傅以后,我使川 Visual Basic 6.0开发工具编写了这套可进行数据录入,数据修改,数据查询,学生信息打印,以及系统维护等各功能的学生管理系统软件。以达到提高管理学 生工作效率的目的。系统主要功能为学生信息的管理,课程信息的管理。此外可以加入川户的管理与川户数据的共享,并且有必要实现系统信息的 加密,这一点在学生学籍管理模块中尤为重要一因为学生的信息有的是保密的所 以对于数据库的加密是系统必要的附加特殊功能。学生信息管理系统第二章系统分析与设计2.1 功能需求分析现在大学不断的扩招,学生信息的管理趋向了复杂化和多元化。越来越多的大学均采用了计算机化的管理模式,查询、修改等操作,都使川了计算机的数据库操作,比起以前使用卡片的方法有了很大的 进步,提供了相当大的方便。管理信息系统(MIS)是进行信息的采集、存储、加工、维护和 使川的系统。它随着科学和技术科学的发展而形成的。这里的学生信 息管理系统是管理信息系统的个实例。随着学校的规模不断扩大,学生数量急居增加,有关学生的各种 信息量也成倍增长。面对庞大的信息量,需要有学生管理系统来提高 学生管理工作的效率。通过这样的系统,可以做到信息的规范管理、科学统计和快速的查询,从而减少管理方面的工作量。2.2 功能需求描述软件可以供不同角色的川户使川,而由超级川户来指定每个川户的操作权 限。班级管理子功能可以对全校的班级进行汇总,以及增加,修改,删除,按 条件查询,打印班级信息。学生档案子功能可以对各个班级的学生进行管理,具有档案信息增加,修改,按条件查询,打印等。学费管理子功能实现了本学期 所有学费的设置、修改,以及每个学生交费信息的管理、查询。通过对川户的需求分析,我们可分析出学生管理系统大致可分为:5个窗 体(frmSearch,Login,manage,mdiFrm,Rigest)2 个类模块(mdlMain,mdlVar)和一个 Data 控件(DataE.dsr)用户及学生信息的注册、查询、修改删除,学生报表输出,下图说几者之间的关系6学生信息管理系统2.3模块开发环境的简介2.3.1 Visual Basic 6.0 简介微软公司的Visual Basic 6.0是Windows应用程序开发工具,是目前最 为广泛的、功能强大、使川灵活、易学易川的面向对象的开发工具。Visual Basic 提供了大量的控件,这些控件可用于设计界面和实现各种功能,减少了编程人员 的工作量,大大提高了工作人员工作效率,也简化了界面设计过程,从而有效的 提高了应川程序的运行效率和可靠性。故而,实现本系统VB是个相对较好的 选择。VB是微软公司出品的个快速可视化程序开发工具软件,借助微软在操 作系统和办公软件的垄断地位,VB在短短的几年内风靡全球。VB是极有和功能 强大的软件,主要表现在:所见即所得的界面设计,基于对象的设计方法,极短 的软件开发周期,较易维护的生成代码。美国微软公司在1991年推出VB1.0至今已经经历了 6个版本,VB6.0运行 在 win9x 或 winme,win2000,winxp,WindowsNT 等操作系统下,是i个 32 位的 应用程序开发工具。Visual Basic在工程软件中广泛应用,像Microsoft Off ice和Windows的 学生信息管理系统许多其他应用程序都使用这语言。Visual Basic Edition(VBScript)是广泛使 川的脚本语言,它是Visual Basic语言的个子集。VB语言的基本特点及VB应用程序的基本持点VB程序语言具有许多优秀的特性,川其设计应用程序时有两个基本特点:可 视化设计和事件驱动编程.2.3.2可视化设计同其他的一些可视化程序开发工具样,VB具有可视化设计的特点,微软 的Word在刚刚进入市场时,同WPS竞争的个重要的功能祛码就是所见即所得 的字处理功能,VB在设计应用程序界面时也可以说是所见即所得.在设计时,头 脑中所想象的应川程序界面,完全可以通过键盘鼠标以及徒手画出来,而不是编 制大量的代码然后再编译生成,如果需要修改,也是利川键盘鼠标和手画,而底层 的些程序代码由VB自动生成或修改。VB为用户提供大量的界面元素(在VB中称为控件对象),这些控件对象对于 熟悉Windows应川程序的用户而言是一点也不陌生,如窗体、菜单、命令按 钮、工具按钮、检查框等等,川户只需要利川鼠标、键盘把这些控件对象拖 动到适当的位置,设置它们的大小、形状、属性等,就可以设计出所需的应用程序 界面。2.3.3事件驱动编程Windows操作系统出现以来,图形化的用户界面和多任务多进程的应川程序 要求程序设计不能是单性的,在使用VB设计应用程序时,必须首先确定应川程 序如何同用户进行交互.例如发生鼠标单击、键盘输入等事件时,由用户编写的代 码控制这些事件的响应,这就是所谓的事件驱动编程82.4系统数据库设计使用Access2000实现关系型数据库2.4.I数据库的概念数据描述1.静态数据静态数据是系统内部有关的数据结构与操作规程。2.动态数据动态数据包括程序运行时输入和输出的数据,具体是数据库的各个表的各个 不同元组与属性值.就是学生信息.3.数据库描述根据上面的分析就可以设计出能够满足用户需求的各种数据实体,以及它 们之间的关系,为后面的逻辑结构设计打下基础.这些实体包括各种具体信息,通 过相互之间的作川形成数据的流动。本系统的实体有:学生实体,班级实体,课 程实。.数据库是种存储数据并对数据进行操作的工具。数据库的作川在于组织和 表达信息,简而言之,数据库就是佶息的集合。计算机的数据库可以分为两类:非关系数据库(flat-file)和关系数据库(relational)。关系数据库中包含了多个 数据表的信息,数据库含有各个不同部分的术语,象记录、域等。数据库在个信息管理系统中占有非常重要的地位,数据库结构设计的好坏 将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以 提高数据存储的效率,保证数据库系统时应该首先了解用户各个方面的需求,包 括现有的以及将来可能增加的需求。242数据库的需求分析川户的需求具体体现在各种信息的提供、保存、更新和查询,这就要求数 据库结构能充分满足各种川户的输出和输入。收集基本的数据、数据结构以及数 据处理的流程,组成一份详尽的数据字典噗后面的具体设计打下基础。针对一般沉重管理系统的需求,通过对学生学习过程的内容和数据流程分 析,设计如下面所示的数据项和数据结构:学生信息管理系统 学生的基本信息:包括的数据项有:学生学号、学生姓名、性别、班级、宿舍号、入学巳期、籍贯。用户信息:包括的数据项有:川户编号、川户姓名、密码、真名、年龄、注册时间 学生成绩表:包括的数据项有:学生学号、数学、语文、物理、化学、英语2.4.3数据库的建立“学生信息管理系统”的数据库部分是使用Microsoft Access2000来实现的。根据系统要求需要设计三个表:StudentTable、UserTable ScoreTable如图:图2-1其中StudentTable表保存学生的信息,ScoreTable表保存的是学生的成绩,而UserTable表保存的是川户的信息。创建任何个数据库的第一步是仔细的规划数据库,设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1.标识需要的数据;2.收集被标识的字段到表中;3.标识主关键字字段;4.绘制个简单的数据图表;105.规范数据;6.标识指定字段的信息;7.创建物理表。修改已建的数据库:数据库的修改分为:添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成,下面的章节将详细描述实现的具体方法。实现数据库之间的联系:数据库之间的关系指明两个库之间共享一个共同的关键字值。个连接是 指一种虚拟的表,这种表是在当川户要求从相互关联的各个不同的表中获取信息 时建立的,关键字段川于在相互连接的不同表中查找匹配的记录。个更高级的 连接形式称为自连接。这种连接是指个表被连接到它自己的一个字段,或在不 同的记录中由重复数据的组合字段。数据库中有三种不同类型的关键字:主关键 字、组合关键字和外关键字。在表中使用的关键字类型川于描述库表示什么以及 在数据库中如何与其它的库建立关系。2.5系统平台的选择(1)软件环境本程序是在Windows操作平台上运行,利用Visual Basic 6.0软件编写 的应川程序。(2)硬件环境一台CPU为80486/66MHZ以上的IBM及兼容微型计算机,个鼠标,16MB 以上内存,VGA或更高档次的适配器。学生信息管理系统第三章程序设计部分Visual Basic创建的应用程序可以是SDI(单文档界面)和MDI(多文档 界面)。在SDI的程序中,每个窗体之间是独立的。而MDI的程序中,每个窗 体是主箜体,可以包含其他窗体,它的类型是MDI Form。这个程序采用多文 档界面,这样可以使程序更加美观、整齐有序。本程序是按照一个标准的exe的界面来设计的。它共有5个窗体(frmSearch,Login,manaeg,mdiFrm,Register)2 个央模块(mdlMain,mdlVar)和一个 Data 控件(DataE.Dsr)。3.1 mdiFrm 的建立:建立一个新的工程,添加MDI窗体,保存为mdiFrm,并将在工程属性 对话框中的“通川”选项卡的“启动对象”设为“mdiFrm”,使mdiFrm成为 启动窗体。在本程序中,mdiFrm是主窗体,所以要在mdiFrm工面菜单和 具栏提供各个窗体间的切换。布置大致如图3 1所示。文件但)功能 帮助国)球 学生信息管理系统图3-112界面设计好后,接下来就进行代码的编写。程序的思路很简单,当用户输 入川户名和密码后,单击确定,则程序要和数据库进行交互,查询川户是否存在,如果有,则允许用户进行下步操作,即进入系统,如果没有这个用户,则请求 用户注册为新的用户。要查询数据库是否存在该川户,程序中使川了!sExistUser函数来实现。IsExistUser函数在公共模块mdlVar里面,它返冋个Boolean值。如果返冋值 为True,则数据库存在该川户,反之不存在。IsExitUser函数要和数据库打交道。本程序使用了 Data Environment工具来 访问数据库。Data里面有个conLibrary的连接对象,使用command对象的Execute 方法可以实现数据库查询工作,但首先要设置command对象的ActiveConnection 的属性和CommandText属性。3.2 创建主窗体的菜单在如图3-!的主窗体中,单击鼠标右键,选择弹出式菜单中的“Menu Editor”命令,创建如图3 2所示的菜单结构。阵丽）;录紅）.注珊幽）.注销颂）芻.退出功能（&G）系统员昔理劎!）.用戸查询（&B）帮助30图3-23.3 创建公用模块在Visual Basic中可以用公用模块来存放整个工程的项目公用的函数、全局 变量等。整个工程项目中的任何地方都可以调用模块中的函数、变量,这样可以 极大地提高代码的效率。在项目资源管理器中为项目添加一个Module,保存为 mdlmain.baso下面就可以添加需要的代码。学生信息管理系统3.2 Login窗体的建立:Login窗体实现了用户登录到系统的功能。它的形式很简单,个是填写“川户名”的文本框,个是填写“密码”的文本框,然后是“确认”按钮和“取 消”按钮。窗体的设计界面如图三所示。图3 3其中管理员的川户名为admin,令为1,均以在初始化时设定。下面是各 主要控件。主要控件的属性对象属性设置值类型名称FormLoginCaption登录学生信息管理 系统14TextBoxtxtUserNameCaptionAdminTxtBoxtxtPasswordCaption1PasswordChar*Label 1Label 1Caption用户名:Label2Label2Caption密码:CommandButtoncmdOKCaption登录CommandButtonCmdCancelCaption取消CommandButtonCmdRegisterCaption注册新用户界面设计好后,接下来我们就进行代码的编写。程序的思路很简单,当用户 输入川户名和密码后,单击确定,则程序要和数据库进行交互,查询川户是否存 在,如果有,则允许川户进行下步操作,即进入系统,如果没有这个用户,则 请求川户注册为新川户。要查询数据库是否存在该用户,程序中使用了 IsExistUser函数来实现。IsExistUser函数在公共模块mdlVar里面,它返冋个Boolean值。如果返冋值 为True,则数据库存在该用户,反之不存在。IsExisUser函数要和数据库打交道。本程序使用了 Data Environment工具来访问 数据库。Data里面有个conLibrary的连接对象,使用command对象的Execute 方法可以实现数据库查询工作,但首先要设置command对象的ActiveConnection 的属性和CommandText属性。下面是IsExistUser函数的源程序。,查找用户Public Function IsExistUser(strUserName as String,strpwd As string)As B oleanDim cmd As CommandDim rs As RecordsetSet cmd=New Command,打开连接If DataE.ConLibrary.State=adStateClosed ThenDataE.ConLibrary.OpenEnd if学生信息管理系统Cmd.ActiveConnection=DataE.ConLibrary,注册cmd.CommandText二select*from usertable where username strUserName&1 If strpwd 66 Then,登录cmd.CommandText=cmd.CommandText+“and pwd&strpwd&，!，End if,有无重复 Set rs=cmd.Execute If rs.RecordCount 0 ThenIsExistUser=TrueIf g_bLogin Then g_CurUserID=rs!userid，管理员If rs!U serytpe=manager Then g_bAmin=TrueEnd ifIf CurUserID=Student Then g_bStudent=True end if end ifElseIsExistUser=FalseEnd if点击“确定”按钮后,将激发以下程序:Private Sub cmdOK_Click()If txtU serN ame.Text=nH ThenMsgBox”请填写用户名!”,vbOKOnly+vblnformation,注 意“txtU serN ame.S etFocusExit SubElself txtPassWord.Text=nn ThenMsgBox 请填写密码!”,vbOKOnly+vblnformation,注意”txtPassWord.SetFocusExit SubEnd Ifg_bLogin=True16If IsExistUser(txtUserName,txtPassWord)=True ThenUnload Login frmSearch.Show ElseIf IsExistUser(txtUserName,nn)=True ThenMsgBox”密码不正确!请重试.n,vbOKOnly+vblnformation,“错误”ElseMsgBox”无此用户!请先注册.”，vbOKOnly+vblnformation,“错误”cmdRegister.SetFocusEnd IfEnd IfEnd Sub3.3 Register窗体的建立:Register窗体实现了注册新川户的功能。川户在此界面中将填写各人信息。如果川户注册的注册名已经存在,系统则要求用其他的川户名重新注册。在代码 中不但要保存川户的信息,还要将信息存放在UserTable表中去。这里川到了 SQL 语言。窗体的设计界面如图四所示。图3 4学生信息管理系统其中,对应于“用户名:”的控件的MaxLength属性要设为20,这样做是 为了和数据库中的UserName字段的长匹配,否则用户名的长度大于20时,会 出现错误。3.4 Manage窗体的建立:Manage窗体是管理员有权进入的窗体。在Manage窗体中可以对各个 表进行增加、修改、删除等操作。就是说,可以查看和修改数据理库里面所有的 内谷。首先介绍一下TabStrip控件的使川。在Manage窗体中,我们使川了 TabStrip 控件,创建了 2个选项卡。如图3-5所示:图3-518图3-6还必须添加2个Frame控件跟TabStrip控件配合使用,在TabStrip控件的 Click事件中,根据用户所选择的选项卡来显示相应的Frame控件。接下来是Frame控件的大小位置的确定:Private Sub Form_Resize()tsUser.Left=200tsUser.Top=100tsUser.Height=manage.ScaleHeight-200tsUser.Width=manage.ScaleWidth-400DimiFor i=0 To 1Frame l(i).Left=tsU ser.ClientLeftFrame l(i).Top=tsUser.ClientTopFrame l(i).Height=tsU ser.ClientHeightFrame l(i).Width=tsU ser.ClientWidthNextFrame 1(0).ZOrder 0dgrdUser.Left=2000dgrdUser.Top=200dgrdUser.Height 二 Frame 1(0).Height-FrameReg.Height-400dgrdUser.Width=FrameReg.Width+Frame2.Width+300FrameReg.Left=2000学生信息管理系统FrameReg.Top=dgrdUser.Height+400Frame2.Left=FrameReg.Left+FrameReg.Width+100Frame2.Top=FrameReg.TopdgrdStudent.Left=2000dgrdStudent.Top=200dgrdStudent.Height=Framel(l).Height-Frame4.Height-400dgrdStudent.Width=Frame4.Width+Frame3.Width+300Frame4.Left=2000Frame4.Top=dgrdStudent.Height+400Frame3.Left=Frame4.Left+Frame4.Width+100Frame3.Top=Frame4.TopEnd Sub点击“用户管理选项卡”,会出现如图六所示的界面:聞尸司聲I学生肯理注明用尸类|T用户山注册断司 12000-10-24 Z图3-720点击“学生管理”选项卡后,同样会出现如图七所示的界面。用戶告理孚生营理istudentidstudentnMie 1 clssdormi torvcceDtanceti*e 及用 计应用1 计应用计应用计应用1 i+应用 计应用 计应用 计应用2 计应用2 计应用 计应用2 计应用22000-9-1 2000-9-1 m-g-i 13?3-31 1999-9-1 1999-9-1 1996-9-1 1998-9-1 2002-9-12002-9-1:2001-9-1 2001-9-1I注册新同学学生姓名:【学号:一班级:入学时间:12004年月，*嚴:国 三*籍貫:I査找、劇除、修改学生信息查找 修改 刪除 重畳图3-8这部分实现各种操作的原理跟上一部分差不多。3.5 frmSearch窗体的建立:frmSearch窗体实现了查询表的功能。窗体的设计界面如图3-9所示。学生信息管理系统查询条件:国查询详细查询条件:（模糊查询）（精确查询）6 AND.AND之间之前r之后査询结果（要査阅更详题）信息，请单击学号浄边的小按钮）：StudentIDStudentKame1 Z1李彦彦10刘勇飞11陈永12李盛1：解莉14 臓15谢意I Class计应用 计应用1 计应用2Gender我华 君平娼浮坤 周兆壬当刘图3-9“查询条件”命令按钮川于设置查询条件“打印”命令按钮用于打印学生的信息内容。其操作过程是:先设置条件1,如果只有一个条件,则单击“确定”按钮即 可。如果有两个条件,则选择是“与”还是“或”单选按钮,然后再设置条件2,再单击“确定”按钮即可。如果放弃设置的条件,单击“取消”按钮。在这个窗体中查找信息,输入查询条件便可查到学生川川户的信息。在浏 览表中,要查阅更详细的信息,可以单击旁边的小按钮,结果中有“打印”按钮。22第四章系统测试本程序完成以后,指导老师对这个程序进行了测试,效果比较满意。但是由 于时间很紧张,而且我上班非常繁忙,本系统有许多的不足之处没有来的及做 进步的完善。由于本身能力的局限性,所以本人编写的代码,即使经过反复检 查也难免出错。本学生佶息管理系统程序可实现的功能很多,但还有够全面。比 如说没有管理员无法修改学生成绩,系统川户和学生不一致（可考虑只允许学生 号作为用户名）,学生能够看到他人的成绩等等诸多问题待以解决。学生信息管理系统结束语经过这些日子的努力,适应于学生管理的系统基本开发完毕。经初步的调 试基本正常,并且收到了一定的效果。其功能基本符合需求,能够完学生信息的 录入与修改,数据查询,以及学生信息的打印,并提供部分系统维护功能,使川 户方便进行数据备份和恢复、数据删除。通过本次毕业设计使我增加了设计经验,体会了计算机的优越性掌握了 Visual Basic6.0语言的使用,增长了实践经验。但是由于毕业设计时间较短,而且我是第一次编写较大的应用程序,所以该系统还有许多不尽如人意的地方,这些都有待进步改正。致谢在本次毕业设计中,我非常感谢指导老师刘国芳老师的帮助。刘国芳老师认真负贡的工作态度,严谨的治学精神和深厚的理论水平都使我受益匪浅。她无 论在理论上还是在实践中,都给予我很大的帮助。这将对于我今后的工作和学习 都会产生非常大的影响。参考文献Visual Basic课程精编 中国水利水电出版社 作者:张勇Visual Basic实用教程 电子工业出版社作者:郑阿奇Oisual Basic数据库系统开发导航人民邮电出版社 作者:骆娟 何旭洪软件工程概论南京大学计算机系出版作者:李存珠24附录:主要源代码mdiFrm 窗体:Private Sub MDIForm_Load()g_CurUserID=0g_bLogin=Falseg_bAdmin=Falseg_bStudent=FalseD ataE.C onnections(c onLibr ary).Open mnuFileLog_ClickEnd SubPrivate Sub mnuAboutit_Click()MsgBox”VB 课程设计实例”+Chr$(13)+Chr$(10)+”学生信息管理系统”+Chr$(13)+Chr$(10)+”2001.12”,”关于学生信息管理系统”End SubPrivate Sub mnuExit_Click()If MsgBox(”是否退出此系统?”，vbYesNo+vbCritical,”系统”)=vbYes ThenEndEnd If End SubPrivate Sub mnuFileLog_Click()CloseWinLogin.Height=5600Login.Width=6000Login.Left=4000学生信息管理系统Login.Top=1000Login.ShowEnd SubPrivate Sub mnuLogout_Click()If MsgBox(是否真的注销当前用户?vbCritical+vbYesNo,“注销)=vbYes Theng_bLogin=Falseg_bAdmin=Falseg_bStudent 二 Falseg_CurUserID=0CloseWinEnd IfEnd SubPrivate Sub mnuMng_Click()If g_bAdmin=True ThenCloseWinmanage.ShowElseMsgBox”请以管理员身份登录系统!vblnformation,登录”End IfEnd SubPrivate Sub mnuBorrow_Click()If g_bStudent=True ThenCloseWinfrmSearch.ShowElse26MsgBox 请先登录系统!n,vblnformation,登录”CloseWinEnd IfEnd SubPrivate Sub mnuReg_Click()CloseWinRegister.ShowEnd SubPrivate Sub Toolbar 1 _ButtonClick(By Vai Button As MSComctlLib.Button)Select Case Button.KeyCase login”mnuFileLog_ClickCase logoutmnuLogout_ClickCase regmnuReg_ClickCase mngmnuMng_ClickCase borrowmnuB orrow_ClickEnd SelectEnd SubRegister窗体的建立:Private Sub cmdReg_Click()Dim cmd As Command学生信息管理系统Usertype=GeneralState=1Set cmd=New CommandDataE.Connections(nconLibraryn).Opencmd.ActiveConnection=DataE.Connections(nconLibraryn)cmd.CommandText=insert intoUserTable(UserName,RealName,Unit,pwd,RegisterTime,age,state,usertype)values(,n&txtUserName.Text&V&txtRealname.Text&V&txtUnit.Text&V&txtPassword.Text&Now&V&udAge.Value&V&State&Usertype&cmd.CommandText=select*from usertable where username=&txtUserName&子段不要使用关键字“Password”验证重要信息已经填写If txtUserName.Text=ThenMsgBox 请填写用户名!,vbOKOnly+vblnformation,注意 txtU serN ame.SetFocusExit SubElself txtPassword.Text=ThenMsgBox”请填写密码!n,vbOKOnly+vblnformation,注意 txtPassword.SetFocusExit SubElself txtPwAgain.Text=ThenMsgBox 请填写确认密码!,vbOKOnly+vblnformation,注意 txtPw Again.SetFocusExit Sub28End IfIf txtPassword.Text txtPwAgain.Text ThenMsgBox”两次密码不相同,请重新填写!”，vbOKOnly+vblnfonnation,注意”txtPassword.Text=”txtPwAgain.Text=txtPassword.SetFocusExit SubEnd IfOn Error GoTo exitlIf Not IsExistUser(txtUserName,nn)Then 添加川户DataE.cmdAdd txtUserName,txtPassword,txtRealname,txtUnit,Now,udAge,Usertype,StateMsgBox”注册成功!n,vbOKOnly+vblnformation,注意“Unload MefrmSearch.ShowElseMsgBox”川户已经存在!请重新注册个新的用户名”,vbOKOnly+vblnformation,注意”txtU serN ame.Text 二”txtPassword.Text 二”txtPwAgain.Text.”txtU serN ame.S etFocusEnd IfExit Sub学生信息管理系统exitl:MsgBox”数据未成功写入数据库!vbOKOnly+vblnformation,错 误“Exit SubEnd SubManage窗体的建立:下面是用SQL语言实现查询功能的“查找”按钮激发的Click事件。Private Sub cmdFind_Click()查找川户Dim sqlstr As StringDim wherestr As String判断有无Where语句Dim bwhere As Booleansqlstr=n select username,realname,age,unit,usertype,state,registertime from usertable”wherestr=,H,bwhere=FalseIf txtUserName nn Thenwherestr=wherestr+use