基于VB的学生管理系统 李睿

1、基于VB的学生管理系统李睿 物理与电子信息学院 电气工程及其自动化 学号： 指导教师：张莉莉摘要：学生信息管理系统是典型的信息管理系统 (MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完成，易使用等特点。本系统选用Visual Basic 6.0作为前段开发工具，利用其提供的集成开发环境及支持面向对象的各种标准化得控件，尤其是对ADO的支持完成对数据库的各种操作，达到对学生信息管理的目的。选用Access 2007为后台数据库。数据库主要用来解决系统运行中的数据访问、查询、修改

2、及保存工作。关键词：学籍管理系统；VB；管理；Access；数据库VB of the School-Based Management SystemLi RuiCollege of Physics and Electronic Information Electrical Engineering and Automation No: Tutor: Zhang Li-liAbstract: Student Information Management System is a typical management information system (MIS), including the dev

3、elopment of its database background to the establishment and maintenance, and front-end application development aspects. For the latter request applications fully functional, easy to use and so on.Selection of the system as the previous Visual Basic 6.0 development tools, the use of its integrated d

4、evelopment environment and support a variety of object-oriented control standardization too, especially for the ADO database supported by the completion of various operations to information management for students, purpose. Optional back-end database for Access 2007. Database is mainly used to solve

5、 the system of data access, query, modification and preservation.Keywords: Achool Management System; VB; Management; Access; Database目 录摘要11 前言42 管理信息系统的概念42.1 管理信息系统的开发策略62.2 MIS开发方法63 系统分析74 系统设计104.1 系统开发坏境104.1.1 Visual Basic 6.0 介绍104.1.2 Microsoft Access 2007介绍104.1.3 两者的结合（ADO）114.2系统数据结构设计11

6、4.3 系统结构设计144.4 系统功能模块窗体155运行坏境及调试215.1系统运行坏境215.2系统总体安全性、可靠性方案与措施215.2.1 概念215.2.2 方案与措施215.3 系统调试226 总结22参考文献23附 录241 前言学生管理是每一所学校都必须面对的工作，特别是近几年，随着高校大面积的扩招，给学校的教学管理、学生管理、后勤管理等方面都增加了许多工作量。对于学校的管理者来说学生信息管理工作是至关重要的，但还有许多高校都在使用传统的人工方式管理文件档案，这种管理方式存在许多的缺点，如：效率低、保密性差，另外随着学生的大量增加，其工作量也将大大增加，这必然增加了学生档案管理

7、工作者的工作量和工作强度，同时将产生大量的文件和数据，这给学生信息的查找、更新和维护都带来了不少困难，尤其是中、小学对学生的档案管理更是落后，这样的管理机制已经不能适应时代发展的需求，其管理方法将浪费许多人力和物力。随着科学技术的不断提高，计算机科学与技术的日渐成熟，计算机应用的普及，计算机已经进入人类社会生活的各给领域，并发挥出越来越重要的作用。这种传统的手工管理模式必然被以计算机为物理基础的信息管理方式所取代。今天，计算机已经成为我们学习和工作的得力助手，其价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多域，计算机之所以如此流行的原因主要有以下几个方面：1）计算机可以代替人工进行

8、许多繁杂的劳动；2）计算机可以节省许多资源；3）计算机可以大大的提高人们的工作效率；4）计算机可以使敏感文档更加安全。作为计算机应用的一部分，使用计算机对学生档案信息进行管理，有着手工管理所无法比拟的优点，如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生信息管理的效率，也是学校面向科学化、正规化管理发展的必要条件，更是各个高校与世界接轨的重要条件。因此，开发一套能够为学校提供充足的信息和快捷的查询手段学生管理系统，将是非常重要的，也是十分及时的。也借此机会利用以掌握的各种专业知识，结合实际运用，开发一个学生管理系统来帮助学校进行有效的管理。2

9、管理信息系统的概念管理信息系统（Management Information System, MIS）是用来为管理人员和决策者提供计算机硬件、系统软件、数据库、通信、人员和应用程序的集合。包括以下几个基本概念：1）MIS的对象就是信息。信息是经过加工的对决策者有价值的数据。信息的主要特征是来源分散、数量庞大。信息来源于生产第一线、社会环境、市场以及行政管理部门。信息具有时间性。2）系统是由相互联系、相互作用的若干要素按一定得规则组成具有一定功能的整体。系统由输入、处理、输出、反馈、控制的五个基本要素组成。3）信息管理由信息的采集、传输、储存、加工、维护和使用等五个方面组成。管理信息系统在企业中

10、的应用存在三个要素，包括:人，计算机和数据。人是指各个部门领导者、管理人员、技术人员，以及MIS建设的领导机构和实施机构，他们在系统中起主导作用。MIS是一项系统工程，不是靠一些计算机开发人员就可以完成的，必须有学校管理人员，尤其是企业领导的积极参与。计算机技术是MIS得以实施的主要技术，在这些技术中，软件开发是MIS开发的重点。在计算机软件技术中，人机界面已经发展为一个重要的分支。MIS人机界面设计一般遵循以下基本原则：1) 界面必须始终一致统一的人机界面不会增加用户的负担，让用户始终用同一种方式思考与操作。最忌讳的是每一个屏幕用户就要换一套操作指令与操作方法。2) 界面必须使用用户随时掌握

11、任务的进展情况人机界面应该能够告诉用户软件运行的进度。特别是在需要长时间的等待时，必须让用户了解工作进展情况。目前，Windows下的应用软件无论大小，其安装程序几乎均做到了这一点。开发MIS软件时，这一点很值得借鉴。3) 界面友好，使用方便多数MIS软件的数据输入量较大。对于一些相对固定的数据，不应让用户频频输入，而应让用户用鼠标轻松选择。总之，所开发的MIS在使用过程中，应使用户的数据输入量降至最低限度减少用户的干预量。实践证明，用户干预愈少，MIS系统的满意度愈高。人机界面设计的关键是使人与计算机之间能够准确地交流信息。一方面，人向计算机输入信息时应当尽量采取自然的方式；另一方面，计算机

12、向人传递的信息必须准确，不致引起误解或混乱。另外，不要把内部的处理、加工与人机界面混在一起（人机界面程序只是通讯），以免互相干扰，影响速度。设计MIS时，针对每个功能，都要按照模块化思想，使输入、处理与输出“泾渭分明”充分体现人机界面的通讯功能。这样设计出来的程序不易出错，而且易于维护。报表打印是MIS必备的功能之一，而且打印之前常常需要计算。计算与打印分开设计，虽然消耗时间，但易于整个MIS系统的维护。MIS开发工具的选择。目前的可用的设计技术在设计此类系统上的数据库技术已经非常成熟，可提供的开发工具也很多，例如：Visual C+、Visual Basic，PowerBuilder，SQL

13、 Server 2000，Visual FoxPro等，它们都是很好的数据库开发工具，都是可视化开发工具，功能强大、开发容易、开发周期短，对于此类系统的开发都能够胜任。2.1 管理信息系统的开发策略总的规划完成后，下一步便是分期分批的实现各个应用项目的开发。所谓MIS的项目是指一个组织中要开发的某一项应用，即一个应用系统，例如：仓库管理系统、人事管理系统等。开发MIS有两种策略，即“自上而下”和“自下而上”。“自下而上”的策略从现行系统的业务状况出发，先实现一个个具体功能，逐步由低级向高级建立整个MIS系统。“自下而上”的方法首先从研制各项数据处理应用开始，然后根据需要逐步增加有关计划、控制和

14、决策方面的功能。在条件不具备的情况下，采用“自下而上”的策略设计信息系统是可行的。“自上而下”的策略强调由全局到局部，由长远到近期，从上而下，从探索研制合理的信息流出发，设计出适合于这种信息流的信息系统。这种决策从整体上协调和规划，要求很强的逻辑性，因而难度较大。但这是一种更为重要的策略，应为整体性是系统的基本特性，虽然一个系统有许多子系统构成，但它们又是一个不可分割的整体。通常，“自下而上”策略用于小型系统的设计，它是用于对系统开发工作缺乏实际经验的情况，而“自上而下”策略则适用于大型系统设计。在实践中，往往把这两种方法结合起来使用，即一方面采用“自上而下”的策略定义整个系统，另一方面，采用

15、“自下而上”的策略逐步开发，这是建设管理信息系统的正确策略。2.2 MIS开发方法管理信息系统的开发是一个复杂的系统工程，它涉及到计算机处理技术、系统理论、组织结构、管理能力、管理知识等各个方面的问题，至今还没有一个统一完备的开发方法。但是，每一种开发方法都要遵循相应的开发策略。任何一种开发策略都要明确以下问题。1）系统要解决的问题。2）系统的可行性研究。3）系统开发原则。4）系统开发前期的准备工作。3 系统分析在做任何信息管理系统之前都应该先作系统分析，只有分析出系统是要达到的目标及功能才能做好信息管理系统。经过详细的调查，并与学校学生管理处的老师交流，加深了对学生信息管理业务的了解，在充分

16、熟悉学生管理业务的同时，将整个学生档案管理业务流程图归纳如下：本系统针对学校学生管理工作量大，效率低等不足之处着手设计，并结合数据库连接技术，使学生的学生管理均由计算机实现，避免了纸介质记录带来的不方便因素。学生学籍变动由管理员管理，管理员可以进行学生基本信息管理，院系管理，班级管理，系统管理，便于了解每位学生基本信息及在校情况。本系统为每位学生分配编号（学号），同时保存学生基本信息。学生学籍变动可通过系统进行调整，可以查询学生入学情况，管理用户情况，学生退学休学以及留级情况和数据库的情况。还可以添加、删除管理用户,分配用户权限。本系统使用Visual Basic 6.0与Access 200

17、7开发，使用数据库访问对象（ADO）模型与数据库相连，通过结构化查询语言（SQL）查询数据库。管理员有两种权限：高级管理员和普通管理员。高级管理员可以执行系统中的所有操作，而普通管理员不能进行对数据库的操作。每种权限的操作员均由与其对应的正确的密码进入系统。当用户以高级用户登录系统时，菜单显示用户管理模块，可以对用户进行管理以及查询，并可以改变用户的权限，可以令普通用户改变为高级用户。若以普通用户登录则不显示用户管理模块，即没有管理用户的权限。根据实际情况，我采用循环进化的开方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。本系

18、统分为：系统管理、学生管理、学生变动管理、院系管理,专业管理，查询七大部分。使用Access 2007建库，数据库名为：db1.mdb.提示信息, 当输入正确的用户名及其对应的密码，登录主窗体根据上述归纳得出如图1的学生档案管理系统流程图。图1 学生系统管理流程图通过详细的调查，在现行的业务处理流程图的基础上就可以确定本系统需要达到的目标在经过了解后，基本清楚了学生档案信息管理功能的需求。学生档案管理系统所需要完成的功能如下：1）数据添加功能：对于学生信息、班级信息、专业及院系信息能进行添加，当学生学籍发生变动时能记录其变动信息。2）数据修改功能：当上述资料发生变化或有错误信息输入时，应能够及

19、时对数据进行修改和补充。3）数据查询功能：本系统的主要功能之一就是根据用户提供相关信息，能够及时查找出对应的学生信息，系统提供多种查询方法。根据系统分析得出系统功能结构图如图 2 所示。图2 学生信息管理系统功能结构图4 系统设计4.1 系统开发坏境为开发满足客户要求的系统，使用Visual Basic 6.0作为系统开发的开发环境，它作为一种现代的编程语言，提供完善的指令控制语句、类与对象的支持及丰富的数据类型，给开发高性能系统提供的保障，保证了代码的模块化要求，而代码模块化的提高，非常有利于以后对新系统的扩展与修改。微软公司的Visual Basic 6.0是Windows应用程序开发工具

20、，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。4.1.1 Visual Basic 6.0 介绍VB是微软公司出品的一个快速可视化程序开发工具软件，借助微软在操作系统和办公软件的垄断地位，VB在短短的几年内风靡全球。VB是极有和功能强大的软件，主要表现在：所见即所得的界面设计，基于对象的设计方法，极短的软件开发周期，较易维护的生成代码。VB6.0运行在Windows9x、Windows2000、Windowsxp、Wind

21、owsNT等操作系统下，是一个32位的应用程序开发工具。VB程序语言具有许多优秀的特性,用其设计应用程序时有两个基本特点:可视化设计和事件驱动编程。VB为用户提供大量的界面元素(在VB中称为控件对象)，这些控件对象对于熟悉Windows应用程序的用户而言是一点也不陌生,如"窗体"、"菜单"、"命令按钮"、"工具按钮"、"检查框"等等,用户只需要利用鼠标、键盘把这些控件对象拖动到适当的位置,设置它们的大小、形状、属性等,就可以设计出所需的应用程序界面。4.1.2 Microsoft Access

22、2007介绍同为Office套件中一部分的Access，虽然有着同样强大的功能，但使用的人却相对少些，不像Word和Excel那样广泛。事实上，真正用过Access的用户，对其强大功能和灵活应用均称赞有加。 Access 数据库管理系统是Microsoft Office 套件的重要组成部分，适用于小型商务活动，用以存贮和管理商务活动所需要的数据。Access不仅是一个数据库，而且它具有强大的数据管理功能，它可以方便地利用各种数据源，生成窗体（表单），查询，报表和应用程序等。 数据库是有结构的数据集合,它与一般的数据文件不同，(其中的数据是无结构的)是一串文字或数字。数据库中的数据可以是文字、图

23、像、声音等。 Microsoft Access是一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。表与表之间可以建立关系（或称关联，连接），以便查询相关联的信息。Access数据库以文件形式保存，文件的扩展名是MDB。 Access 数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。4.1.3 两者的结合（ADO）微软JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微

24、软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。ActiveX Data Objects(ADO)是微软公司最新的数据访问技术。它被设计用来同新的数据访问层OLE DB Provider一起协同工作，以提供通用数据访问（Universal DataAccess）。OLE DB 是一个低层的数据访问接口，用它可以访问各种数据资源。ADO Data控件使用Microsoft ActiveX数据对象（ADO）来快速建立数据绑定的控件和数据提供者之间的连接。数据绑定控件是任何具有【数据源】属性的控件。尽管可以在应用程序中直接使用ActiveX数据对象，但ADO Data控件有

25、作为一个图形控件的优势。（具有【向前】和【向后】按钮），以及一个易于使用的界面，使用用户可以用最少的代码创建数据库应用程序。在本系统主要是通过使用ADO对象和ADO Data控件访问数据库。4.2系统数据结构设计创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。数据库系统本质上是一个用计算机存储记录的系统。数据库本身可被看作为一种电子文件柜：也就是说，它是收集计算机数据文件的仓库或容器。系统用户可以对这些文件执行插入数据、检索数据、更改数据、删除数据等一系列操作。总之，数据库系统是一个计算机存储记录的系统，即，它是一个计算机

26、系统，该系统的目标存储信息并支持用户检索和更新所需要的信息。使用学籍管理系统，普通管理员可以方便得管理学校学籍信息，查看学籍变动情况，对数据库进行更新和维护。每次添加、修改、删除数据库中信息，数据库系统同时更改。本系统根据管理员的权限不同分为两部分：普通管理员执行一般系统操作和系统管理员执行用户操作。数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成。根据系统分析，在Access2007中创建数据库db1.mdb，使用设计器创建表，在设计器中设置表的字段以及数据类型。创建表chgTable，表depTable,表majTable,表stuTabl

27、e,表userTable五个表，并为其分配合适的数据类型。表1 学生表（stuTable）字段名类型可否为空说明学号数字否主键姓名文本否学生姓名性别文本否民族文本否籍贯文本否身份证号文本否出生年月文本否入学年份文本否所在院系文本否所学专业文本否所在班级文本否所在宿舍文本否 表2 专业表（majTable）字段名类型可否为空说明专业编号文本否主键专业名称文本否所属院系文本否表3 院系表（depTable）字段名类型可否为空说明院系编号文本否主键院系名称文本否备注文本表4 学生变动表（chgTable）字段名类型可否为空说明编号自动编号否系统自动编号 学号数字否学生学号变动类型文本类型变动日期文本

28、备注文本表5 用户表（userTable）字段名类型否为空说明userName文本否用户名userType文本否用户类型pwd文本否密码repwd文本否确认密码realName文本否昵称在本系统中将完全以程序代码的形式使用ADO对象连接数据库。在使用ADO对象之前，必须先利用Visual Basic菜单的“工程”“引用”来引用“Microsoft Active Data Objects 2.0 Library”.然后ADO 对象群中Connection、Recordest、Command、Fields对象才会成为可以引用的对象。否则将会产生“用户定义类型未定义”的错误，因为“Connectio

29、n”和“Recordest”都是定义在“Microsoft Active Data Objects 2.0 Library”中的。如果吗一事先将其引用的话，将无法识别它们。4.3 系统结构设计本学籍信息管理系统采用Microsoft 的Access 2007 设计数据库。新建一个数据库命名为db1.mdb.根据系统分析得到的流程图，采用软件设计的概念和原理，在保证系统基本功能要求的前提下，得出的学生信息管理的基本模块如下1)登录界面密码修改是修改用户本身密码，通过密码修改，可以改变登录密码。2）用户管理只有用户类型为高级用户的用户才可以获得本模块的使用权。若为普通用户，则用户管理在主窗体上不显

30、示。此模块主要用于用户的添加，删除，修改，查询。3）学生管理学生管理模块主要应用于对学籍的基本操作。可以录入学生基本信息，对学籍进行修改，选择性删除。4）异动管理本模块主要用于学籍变动管理，可以对学生的基本变动进行管理，如：转专业，转班，转宿舍，休学，复学，退学等。输入需要变动学籍学生的学号，选择变动类型，添加备注，点击确定后还可以进行具体操作，此时变动信息将存入学籍变动表chgTable。5）院系管理本模块主要用于院系管理，可以对院系信息进行增加，删除，修改。点击添加可以进入添加页，点击修改和删除可以对所选记录进行修改和删除。6）专业管理本模块主要用于专业管理，可以对专业信息进行增加，删除，

31、修改。点击添加可以进入添加页，点击修改和删除可以对所选记录进行修改和删除。专业管理界面如图5.8所示。7）查询本模块主要查询学生基本信息的变动信息。点击查询学生基本信息对学生基本信息进行查询。在查询区输入查询条件，点击查询，即可在显示区看到相应的查询结果。4.4 系统功能模块窗体登陆窗体设计：图3 登录窗体登陆窗体的功能有：读取用户信息，点击“确定”登陆系统主界面。三次输入错误将视为非法操作。实现登陆窗体功能的代码如下：点击登陆按钮的效果有以下代码实现Private Sub cmdOK_Click()' Dim TIM As Integer On Error GoTo exit1: &

32、#39;指定ADO控件记录源 Adodc1.RecordSource = "select userName,pwd,userType from userTable " ' where userName='" + DataCombo1.BoundText + "'" Adodc1.Refresh Adodc1.Recordset.MoveFirst '如果userTable中没有记录 If Adodc1.Recordset.EOF Then Adodc1.Recordset.Close Set Adodc1.Rec

33、ordset = Nothing Unload Me Load frmMain Exit Sub End If Do If Adodc1.Recordset.Fields("userName") = txtUser.Text Then If Adodc1.Recordset.Fields("pwd") = txtPassword.Text Then If Adodc1.Recordset.Fields("userType") = "普通用户" Then '对象变量或with块变量未设置 flag = Tru

34、e Else flag = False End If Adodc1.Recordset.Close Unload Me Load frmMain frmMain.Show Exit Sub Exit Do ElseIf txtPassword.Text <> "" Then MsgBox "密码错误，请重新输入密码！", vbOKOnly + vbInformation, "注意" txtPassword.Text = "" txtPassword.SetFocus TIM = TIM + 1 If T

35、IM > 2 Then MsgBox "密码连续错误，你无权进入系统，请联系系统管理员！", vbOKOnly + vbCritical, "警告" End End If Exit Sub Exit Do End If End If Adodc1.Recordset.MoveNext Loop Until Adodc1.Recordset.EOF If Adodc1.Recordset.EOF Then If txtUser.Text = "" Then MsgBox "用户名不能为空，请输入用户名！", v

36、bOKOnly + vbInformation, "注意" txtUser.SetFocus txtUser.Text = "" ElseIf txtPassword.Text = "" Then MsgBox "密码不能为空！", vbOKOnly + vbInformation, "注意" txtPassword.SetFocus Else MsgBox "无此用户，请重新输入用户名！", vbOKOnly + vbInformation, "注意"

37、txtUser.SetFocus txtUser.Text = "" txtPassword.Text = "" End If End If Exit Subexit1: MsgBox "登录不成功！请联系系统管理员！", vbOKOnly + vbInformation, "提醒" EndEnd Sub主窗体设计图4 学籍管理系统主窗体在主窗体上打开菜单编辑器，按照总体设计的功能结构体设置菜单，本系统主要采用的是菜单、命令按钮和静态文本控件，点击按扭打开各个窗口。系统基本上满足了输入量保持在能满足处理要求的最低限

38、度和尽早对输入数据进行检查以便使错误及时得到改正的要求。界面友好易于操作。用户管理权限显示有以下代码实现：Private Sub Form_Activate()If flag Then '当flag为真的时候所执行的语句 userMag.Visible = False frmMain.Caption = "学生管理系统-普通浏览"Else userMag.Visible = True frmMain.Caption = "学生管理系统-管理员"End IfEnd Sub菜单栏的实现都由“窗体名.SHOW”来完成在进入主窗口后，点击“系统管理用户管

39、理”菜单，出现如图3-4所示界面图5 用户管理窗体学籍管理窗体主要是对学生基本信息进行查询、修改和删除，可以及时更学生基本信息。系统中需要调用数据库的内容，由DataGrid网格控件显示。使用ADO访问数据库，源代码例如：Dim cnn As New ADODB.ConnectionDim rs As New ADODB.Recordset '数据专用Dim strcnn, SQL, str As Stringstrcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info

40、=False"Set cnn = New ADODB.Connection '创建连接cnn.Open strcnn '打开连接SQL = "select * from userTable" '查询语句cnn.Execute SQL '执行查询语句Set rs = New ADODB.Recordsetrs.Open SQL, cnn, adOpenKeyset, adLockBatchOptimistic部分窗体设计将在附录中说明。5运行坏境及调试5.1系统运行坏境一个现代化管理信息系统的主要支撑环境就是一个完整的计算机系统，它通

41、常由软件和硬件两在部分组成，合理地选择和配置这一系统环境，可以使我们以最小的代价，获得最大的效益。因此这也是系统总体设计阶段的主要工作之一。本系统是采用单机用户操作方式，基本配置如下：硬件配置：计算机(基本配置：CUP：Intel Pentium IV)光驱：52X硬盘：20G内存：256MB显示器：VGA打印机：HP DeskJet 670C软件配置：Windows XP5.2系统总体安全性、可靠性方案与措施5.2.1 概念可靠性是系统为了避免来自系统内部的差错、故障而采取的保护措施；而安全性是系统为了防止来自系统外部的对系统资源特别是信息的非法使用和访问而有意或无意的破坏而采取的安全和保密

42、手段。两者在采取措施和方法上是有所不同的，但从系统的功能和性能上又是彼此促进、相辅相成的。5.2.2 方案与措施系统可靠性是本系统在软件总体结构设计上重点考虑的问题。从系统可靠性角度出发，系统应用软件和数据库均采用了双备份的方式，即在系统正常运行时定期保留数据后备份副本，转储到存储介质上保存，并在转储后对系统的信息处理过程建立记录，记下每步数据操作的内容。一旦发生事故，在恢复的系统上起用后备数据，并根据信息处理过程记录，将数据恢复到故障发生前的状态这是目前数据库系统普遍利用的可靠性技术。从系统安全性角度出发。保证系统实体的安全，包括场地环境安全、设备安全、供电安全、信息存储介质的安全。系统的技

43、术安全性：通过对用户合法身份的确认与检验(输入密码)，使非法用户不能使用系统的任何资源；在合法用户进入系统后，可以采取存取控制的基本方法，既授以特定的用户一定的操作权限。最后，为了防止存储介质的非法拷贝、被窃等而造成数据的泄密，应对数据进行加密。从系统的造价和使用方便来说，系统的安全性以适度为宜，在能满足用户对安全保密的要求下，尽可能使用安全保密费最低5.3 系统调试系统调试是管理信息系统开发周期中一个十分重要而漫长的阶段。其重要性体现在它是保证系统质量与可靠性的最后关口，是对整个系统开发过程包括系统分析、系统设计和系统实施的最后审查。对软件进行调试的主要方法为人工测试和机器测试，前者又包括个

44、人复查、走查和会审，而后者又包括黑盒测试和白盒测试。在本系统中，首先为各个数据库输入测试数据，然后对各部分，如表、窗口、控件等一起进行程序调试及功能调试，如发现错误后立即改正，直到正确通过后，将相关的部分连接起来，进行综合调试，逐步组合，直到整个系统调试成功。6 总结本文主要采用Visual Basic作为前台开发工具，Microsoft Access 2007为后台数据库，结合软件工程设计和数据库编程的有关知识，开发了这个学生管理系统。通过这次图书管理体统设计，我对于软件工程设计的相关步骤和流程有了更深刻的理解，熟悉并掌握了Microsoft Access 2007VB6.0的数据库使用。同

45、时，也发现自己对于软件工程设计和数据库设计的知识掌握的还不够，设计和编程能力还有待于进一步提高 。参考文献1 王春森.程序员教程M .清华大学出版社.2001年5月2 蒋加伏.Visual Basic程序设计教程M .北京邮电大学出版社.20033 金汉均.数据库实现的方法N .华中师范大学学报.1999专辑4 信彦.Visual Basic应用大全M .清华大学出版社.2002年5 康博.Visual Basic应用程序开发新技术M .人民邮电出版社.2003年6 清源计算机工作室.Visual Basic设计与制作M .机械工业出版社.2004年7 李光明.Visual Basic 6.0

46、编程实例大制作M .冶金工业出版社.2002年8月8 黄淼云.VB6.0办公自动化编程M.国防工业出版社.2003年9 王要武.信息管理系统M .电子工业出版社200310 高春艳 李艳 谷伟东.Visual Basic 数据库开发关键技术与实例应用 人民邮电出版社.200411 苏啸 周成义 王强 .Visual Basic 程序设计教程 北京工业大学出版社附 录主要窗体设计如下：图6 编辑窗体'添加Private Sub Command1_Click()Command6.Enabled = TruefrmAddstu.ShowEnd Sub'删除，功能已经完成Private

47、 Sub Command2_Click()If MsgBox("要进行选择性删除吗?", vbInformation + vbYesNo, "提示") = vbNo Then If Adodc1.Recordset.RecordCount = 0 Then MsgBox "没有要删除的记录！", vbOKOnly + vbInformation, "注意" Exit Sub End If If MsgBox("确认要删除当前行吗?", vbInformation + vbYesNo, "

48、;提示") = vbYes Then Adodc1.Recordset.Delete MsgBox "删除成功！", vbOKOnly + vbInformation, "注意" Exit Sub Else Exit Sub End IfElse frmDelete.Show Exit SubEnd IfEnd Sub'修改后要进行保存Private Sub Command3_Click()Command6.Enabled = TrueFor i = 0 To 11 Text1(i).Enabled = TrueNext iEnd Su

49、b'刷新Private Sub Command4_Click()Command6.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = True For i = 0 To 11 Text1(i).Enabled = False Next i Adodc1.RecordSource = " SELECT * FROM stuTable order by 学号 " Adodc1.RefreshEnd Sub'保存Private Sub Command6_Cl

50、ick()On Error GoTo exit1Command6.Enabled = FalseIf Text1(0).Text = "" Then MsgBox "学号不能为空！", vbOKOnly + vbInformation, "注意" Text1(0).SetFocus Command6.Enabled = True Exit SubEnd If Adodc1.Recordset.Update MsgBox "保存成功！", vbOKOnly + vbInformation, "注意"

51、; For i = 0 To 11 Text1(i).Enabled = False Next i Exit Subexit1: MsgBox "保存失败，学号不能重复！", vbOKOnly + vbInformation, "注意" For i = 0 To 11 Text1(i).Enabled = True Next i Text1(0).SetFocus Text1(0).Text = "" Command6.Enabled = True Command1.Enabled = FalseEnd Sub'退出Priva

52、te Sub Command7_Click()Unload MefrmAddstu.HidefrmDelete.HideEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load()Adodc1.RecordSource = " SELECT * FROM stuTable order by 学号 "Adodc1.RefreshFor i = 0 To 11 Text1(i).Enabled = FalseNext iCommand6.Enabled = FalseEnd SubPrivate Sub P

53、icture7_Click()End SubPrivate Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)End Sub 图7 学生信息查询窗体Private Sub Command1_Click() If Combo1.Text = "" Then MsgBox "请输入完整的查询条件！", vbOKOnly + vbInformation, "注意" Exit Sub End If If fag Then GoTo 1 Select Case Com

54、bo1.Text Case Is = "学号" Adodc1.RecordSource = " SELECT * FROM stuTable where 学号 = val( '" & Text1.Text & " ')" Case Is = "姓名" Adodc1.RecordSource = " SELECT * FROM stuTable where 姓名 = '" & Text1.Text & " '" C

55、ase Is = "性别" Adodc1.RecordSource = " SELECT * FROM stuTable where 性别 = '" & Text1.Text & " '" Case Is = "民族" Adodc1.RecordSource = " SELECT * FROM stuTable where 民族 = '" & Text1.Text & " '" Case Is = "所

56、在院系" Adodc1.RecordSource = " SELECT * FROM stuTable where 所在院系 = '" & Text1.Text & " '" Case Is = "所在宿舍" Adodc1.RecordSource = " SELECT * FROM stuTable where 所在宿舍 = '" & Text1.Text & " '" Case Is = "身份证号"

57、; Adodc1.RecordSource = " SELECT * FROM stuTable where 身份证号 = '" & Text1.Text & " '" Case Is = "所学专业" Adodc1.RecordSource = " SELECT * FROM stuTable where 所学专业 = '" & Text1.Text & " '" Case Is = "籍贯" Adodc1.R

58、ecordSource = " SELECT * FROM stuTable where 籍贯 = '" & Text1.Text & " '" Case Is = "入学年份" Adodc1.RecordSource = " SELECT * FROM stuTable where 入学年份 = '" & Text1.Text & " '" Case Is = "查询全部" Adodc1.RecordSourc