毕业生信息管理系统的设计与开发毕业设计.doc

b本科毕业设计题 目毕业生信息管理系统的设计与开发姓 名陈 学 号 专 业信息管理与信息系统指导教师黄 职 称讲师中国·武汉2011年5月分类号 密级华中农业大学本科毕业设计毕业生信息管理系统的设计与开发Design and Development of Graduates Information Management System 学生姓名：陈学生学号：学生专业：信息管理与信息系统指导老师：黄 讲师华中农业大学经济管理土地管理学院二零一一年五月目 录目 录I摘 要IIAbstractIII第1章 绪 论11.1研究背景11.2选题的目的及意义11.3研究内容2第2章 毕业生信息管理系统分析32.1需求分析32.2系统开发的可行性32.3开发工具简介及系统运行环境42.3.1开发语言Visual Basic42.3.2数据库简介52.3.3系统运行环境5第3章 毕业生信息管理系统设计63.1概述63.2功能模块设计63.2.1系统管理模块设计73.2.2毕业生基本信息管理模块设计73.2.3就业信息管理模块设计73.2.4考研信息管理模块设计83.3数据库设计8第4章 毕业生信息管理系统实现114.1数据库连接114.2功能实现114.2.1登录界面124.2.2程序主界面154.2.3系统管理模块164.2.4学生基本信息管理214.2.5就业信息管理264.2.6考研信息管理34第5章 总结和展望40参考文献42致谢43摘 要毕业生信息管理系统是一个对毕业生基本信息进行管理的典型信息系统，其中包括对毕业生基本信息添加、修改、删除等，同时，本系统也具有统计毕业生信息的功能，能够对毕业生的就业信息和考研信息进行统计。在就业信息模块里面，可以对毕业生的就业率、行业总体分布、就业区域分布和薪资水平进行统计；在考研信息模块里面，可以对毕业生考研信息进行统计，查询毕业生的考研通过率等。本系统提供的信息为即将毕业的在校生在选择毕业去向时提供一定的帮助。经过分析，本系统选用MICROSOFT公司的VISUAL BASIC开发工具，利用其提供的各种面向对象的开发工具对系统进行开发，易学易用、功能强大的VB为成功开发系统奠定了基础；本系统选用的数据库也是MICROSOFT公司的Access，本系统相对大型的系统来说，规模比较小，用Access数据库足够实际开发的要求，它具有许多大型数据库的特点，可视性好易于实用。本文介绍了毕业生信息管理系统的系统分析部分，包括可行性分析、业务流程分析；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；系统实现部分详细介绍了各个主要模块功能的实现过程，本系统界面友好，操作简单，比较实用。关键字：毕业生；信息管理；VB6.0；Microsoft Access；AbstractGraduate student information management system is a typical management information system (MIS) to manage the information of graduates, which mainly including basic information for graduates to add, modify and delete etc, the system also has the function of statistical information. The system can count employment information and graduated information. In the employment information module, it can count the employment rate, the overall distribution of industry, regional distribution of employment and the level of wages; in the graduate information module, it can count the rate of passing, etc. This system provides provide certain choice to help the student who will graduate.After analysis, this system chooses MICROSOFT company's VISUAL BASIC development tools, developing the system with the object-oriented development tool which provided by the company, learn, easy to use and powerful for the successful development system of VB laid a foundation; This system chooses database is MICROSOFT company Access, this system is relatively large system, with relatively small size, the actual development Access database enough demand, it has the characteristics of many large database, visibility and easy to practical.The article introduces graduates information management system of system analysis parts, including the feasibility analysis, business process analysis; System design part mainly introduced the system function design and database design and code design; System realize part of every major modules introduced the realization of the function of process, this system friendly interface, the operation is simple, and is practical.Key words: Graduate, Information Management, vb6.0, Microsoft Access第1章 绪 论1.1研究背景随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量需要有学生信息管理系统来提高学生管理工作的效率。通过这样的系统可以做到信息的规范管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。本系统主要用于对毕业生信息的管理，总体实现毕业生信息的系统化、规范化和自动话。其主要任务是用计算机对毕业生的各种信息进行管理，如查询、修改、增加、删除，分析统计毕业生的就业考研信息，其中包括毕业生就业率、就业区域分布、行业分布，对些信息进行统计分析，主要有两方面的用途：第一，能够让学校的管理层了解毕业生总体上的一个综合素质水平，为学校培养出来的学生素质提供一个验证信息，同时学校的管理者也可以通过这些信息反思学校要培养的学生是否达到了目标预定的要求，为学校在未来培养学生过程中提供帮助。第二，本系统的一个主要用途是本系统能够给在校生提供一个平台，通过该平台，在校生可以查询往届毕业生的毕业去向，就业考研信息，这为他们以后毕业去向的选择提供很大的帮助。1.2选题的目的及意义学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。本论文设计的毕业生信息管理系统能够有效的对毕业生的基本信息进行管理，统计毕业生各方面的信息。而它的意义就在于，通过本系统，在校的学生可以更进一步的了解其学长学姐们的就业考研信息，就业水平及考研的通过率等，为他们在以后的就业和考研等活动中提供一定的帮助。学校的管理者可以通过本系统，了解毕业生的一个总体水平，查看毕业生的实际情况与规划目标的差距。在这高度发达的社会里，计算机科学飞速发展，网络化一改传统的生活习惯，信息量爆炸式的增长，信息急需处理统计。本系统在该方面符合了社会总体的发展趋势，因此，具有分析、统计处理信息能力的本系统将能够得到一定的应用发展2。1.3研究内容毕业生信息管理系统1的设计，方面学校管理人员对毕业生信息进行有效的管理，提高学校工作人员的工作效率，减少不必要的劳动力，提高管理水平，降低管理成本，增强学校的办学水平和综合实力。毕业生信息系统的另外一个重要作用在于总结过去，服务未来的毕业生，对于未来要毕业的学生，可以通过本系统查看往届毕业生的就业情况和考研情况。本系统以解决学校管理毕业生信息问题和在校生查看毕业生信息为出发点，对毕业生管理信息系统进行分析、设计和开发，以实现系统的各功能模块。本论文的组织如下：（1）对VB6.0开发环境、Access数据库以及连接数据库等技术的研究分析，确定本系统的前端开发工具和所使用的数据库。（2）从系统用户的角度出发，全面分析各个角色对本系统的实际需求，完成系统的需求分析，同时对系统的可行性进行了总体上的分析。（3）在完成系统的需求分析的基础上，形成系统结构体系，从而再对系统功能模块以及后台数据库的分析和设计。（4）实现对整个系统功能模块的开发，对开发过程中遇到的问题进行分析和解决。在本系统中，把整个系统分成四个模块，分别为系统管理模块、毕业生信息管理模块、就业信息管理模块、考研信息管理模块。在对每个模块进行详细的分析设计之后，进行了开发，分别实现了各个子功能。（5）介绍系统应用环境的软硬件要求。（6）总结本文的开发成果和提出不足之处，并对将来的改进提出措施，对系统的应用前景进行展望。 第2章 毕业生信息管理系统分析2.1需求分析伴随着我国科教兴国政策的不断深化，计算机技术的发展和网络人口的增加，人们对网络需求也越来越苛刻，电子服务已经成为网上的一股潮流，计算机在企事业单位的普及和合理化应用已经成为一种必然的趋势。它已经在社会各个领域系那是了它的巨大作用。毋庸置疑，切实有效的把计算机管理引入学校学生信息管理中，对于提高毕业生信息管理的效率，方便毕业生信息交流有这显著的意义。管理信息系统是分散的过程控制系统和信息管理技术结合形成的管控一体化系统。近几年来，高校的扩招使学生人数增加，学校规模越来越庞大，毕业生的信息量也随着增加，在信息查询方面带来了很大的挑战。目前，对于单机版的毕业生信息管理系统，在网上有较多的资源。但是大部分的系统主要用户还是偏向于毕业生，系统设计的出发点很少有考虑到在校生，通过那些系统，在校生基本了解不到毕业生的基本信息。在给在校生提供毕业生基本信息方面的系统，相对还是比较少。本系统可以方便的实现对毕业生的信息进行管理，能够满足了高校管理者和在校生的需求。 在需求分析这模块，主要回答了本系统所要是实现的功能，即本系统能够做什么。本系统对不同的使用对象有不同的限制条件。管理员拥有所有的权限，而一般用户则只具备一定的权限。要求系统需要有以下的功能：1.友好的操作界面，简单易用，是用户可以在最短的时间里熟练系统操作；2.为了确保数据的安全性，应为操作员设置不同的权限；2.2系统开发的可行性（1）技术可行性：在校期间，通过学习相应的课程和自己课外的学习，对vb开发语言有了一定的基础，能够自行开发一些小的系统，有过类似本系统的开发，因此，当前的这个系统从技术上来说是可行的。而且，拥有毕业生信息管理系统所要求的硬件（计算机相关硬件）和软件环境（vb+access）。vb易学易用，功能比较完善、强大。Access具有比较好的数据管理功能，能存放大量的数据。（2）经济可行性：本系统复杂程度不高，开发周期较短，人员经济支出不大。（3）社会可行性：在高校教务处管理学生信息过程中，毕业生信息的管理是其中一个重要的环节，本系统在给工作人员管理毕业生信息带来方便的同时，也给在校学生查询毕业生信息带来方便。符合实际需求，具有一定的效益，因此其社会性质来说是可行的。2.3开发工具简介及系统运行环境2.3.1开发语言Visual BasicVisual Basic3 语言用其设计应用程序时具有两个基本特点：可视化设计和事件驱动编程。第一，可视化设计：表现在VB在设计应用于程序界面时有“所见即所得”的处理功能。第二，事件驱动编程：在设计应用程序时，把对象添加到窗体中，在用户与程序进行交互时，用户基本上是通过鼠标、键盘与应用程序进行交互的，那些对象就必须对鼠标和键盘操作所引发的事件做出响应，来执行一段应用程序。VB的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。VB的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组建的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面VB程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。 窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮）。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。 VB的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于操作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供弹出功能。VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。VB使用引用计数的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组建的出现，程序员可以选用自己需要的扩展库。和有些语言不一样，VB对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。 2.3.2数据库简介选用ACCESS4作为后台数据库，是因为ACCESS具有许多优点，ACCESS是MICROSOFT OFFICE的一个组件，一个前后台结合的数据库“软件”。也就是说ACCESS既拥有用户界面(VB可以用来开发用户界面)；也拥有逻辑、流程处理，即VBA语言(VB也可以用来做逻辑处理)；又可以存储数据，即在“表”中存储数据。而所有这些都存储在一个 MDB 格式的文件中(当然，也可以是 MDE 等格式)。 ACCESS不是一种存储格式，是一种软件。VB下调用 MDB 格式(或 JET DB)只是调用一种格式的文件而已，并没有调用到 ACCESS，其实官方说法叫 “VB 的 JET 应用”。另外， MDB 格式的文件也可以被其他开发工具，比如 DELPHI / PB / C / PHP / ASP / CGI / C# / J# / JAVA / VB.NET / C.NET. 调用。但是被调用的只是 MDB 文件，很多 ACCESS 软件所具有的功能，这些开发工具是无法调用的。而这种格式只要系统中有 OLE DB 引擎就可以支持。 ACCESS 中的一些对象可以被 VB 调用，但是必须在调用的机器上安装 ACCESS 这个软件（COPY一个MDB文件是不够的）或者安装额外的 ACTIVEX 控件 MDB 是一种文件格式，其中的数据以特定方式组织起来，而 ACCESS 这种软件的默认存储格式正好是 MDB ACCESS 这个软件本身就具有开发者使用的界面和适合于“最终用户”的界面，也就是我们通常说的前后台结合。 2.3.3系统运行环境操作系统：window xp,window7等内存：占用的内存较低，以当前的电脑的配置基本都可以运行，建议512MB以上硬盘：40G以上第3章 毕业生信息管理系统设计3.1概述从该阶段开发正式进入软件的实际开发阶段，本阶段完成系统的概要设计并明确系统的数据结构与软件结构。在软件设计阶段主要是把一个软件需求转化为软件表示的过程，这种表示只是描绘出软件的总的概貌。本概要设计说明书的目的就是进一步细化软件设计阶段得出的软件总体概貌，把它加工成在程序细节上非常接近于源程序的软件表示。本阶段设计的基本目标是解决系统如何实现问题，主要任务是划分出系统的物理元素及设计软件的结构，完成软件定义时期的任务之后就应该对系统进行总体设计，即根据系统分析产生的分析结果来确定这个系统由哪些系统和模块组成，这些系统和模块又如何有机的结合在一起，每个模块的功能如何实现。系统设计的目标是使系统实现拥有所要求的功能，同时，力争达到高效率、高可靠性、可修改性，并且容易掌握和使用。模块化的依据是：把复杂问题分解成许多容易解决的小问题。原来的问题也就变得容易解决。模块化设计是把大型软件按照一定的原则划分成一个较小的相对功能独立又相关联的模块。每个模块完成一个特定的子功能。把这些模块结合起来组成一个整体。完成指定的功能，满足问题的要求。采用模块化原理的优点在于可以使软件结构清晰，容易测试和调试。从而提高软件的可靠性，可修改性。有助于软件开发的组织管理。3.2功能模块设计经过对系统的需求分析，将整个系统分为四个模块：分别为系统管理模块、毕业生基本信息管理模块、就业信息管理模块、考研信息模块。总体框架如图3-1所示：毕业生信息管理系统系统管理模块考研信息管理就业信息管理基本信息管理图3-1 系统总体结构3.2.1系统管理模块设计在系统模块中，用户可以注销系统，重新登录及退出系统。管理员和一般用户在本模块中具有不同的权限，相比一般用户，管理员具有管理用户的权限，他可以增加用户、修改用户、删除用户、浏览用户信息等。3.2.2毕业生基本信息管理模块设计在这模块里面，不同的角色者有着不同的权限，系统管理员可以添加、删除、修改毕业生基本信息，同时也可以浏览毕业生的基本信息，而对于用户角色，则没有对毕业生基本信息进行管理的权限，他们只能浏览毕业生基本信息，浏览这些信息，可以根据查询条件浏览所需要毕业生的基本信息。3.2.3就业信息管理模块设计就业信息管理模块包含了四个子模块：分别为就业率、行业总体分布、区域分布和薪资水平。在就业率模块里面，用户可以根据需求，查询某一届毕业生某个学院或某个专业的毕业生的就业率，了解不同届毕业生之间就业率的一个相差度。在行业总体分布模块里面，用户也可以根据需求，查看往届毕业生在各个行业的就业分布情况，可以查看每一个行业的人数，以及了解各个行业的毕业生所占的比例。区域分布模块，对于将来要就业的在校生，通过这以模块，可以查询某个城市，或某个城市某个行业往届毕业生的基本信息，根据需要可以联系他们。薪资水平模块，主要是反应一个学校毕业生的一个总体水平，在这模块里，可以查询各个工资段的毕业生所占的比例，从而可以总体上了解各届毕业生的一个综合素质水平。3.2.4考研信息管理模块设计考研信息模块，本模块提供毕业生考研的信息，在这模块，可以按照年级、学院、专业等，分别查看毕业生中考研学生的考研信息，主要是考研人数、通过率，可以清晰明了的了解考研的一个整体情况。3.3数据库设计设计合理的数据库可以保证访问信息的准确性，提高对数据的处理效率。本文的数据库设计，遵循了数据库设计的六个基本步骤5：（1）需求分析：了解用户的数据需求、处理需求、安全性及完整性要求。在本系统中，通过分析对毕业生信息数据的需求，对数据的需求有一个整体上的了解。（2）概念设计：通过数据抽象，设计系统概念模型，一般为E-R模型（3）逻辑结构设计：设计系统的模式和外模式，对于关系模型主要是基本表和视图；（4）物理结构设计：设计数据的存储结构和存取方法，如索引的设计；（5）系统实施：组织数据入库、编制应用程序、试运行；（6）运行维护：系统投入运行，长期的维护工作。下面主要介绍本系统的数据库表的结构：（1）用户信息表用户信息表保存系统用户信息，在用户信息表中，包括用户名(username)密码(password)字段。数据库表结构如表1所示：表1 用户表User字段名称类型长度允许空字段说明用户名文本50否用户登录名称密码文本50否用户登录密码角色文本50否用户登录角色（2）毕业生基本信息表毕业生基本信息表保存有毕业生的基本信息，具体的表的字段如表2所示：表2 毕业生信息表StuInfo字段名称类型长度允许空字段说明年级文本50否学号文本50否姓名文本50否性别文本50否专业文本50否手机号码文本50否毕业去向文本50否就业公司文本50否考研状态文本50否（3）公司信息表表3 公司信息表 Company字段名称类型长度允许空字段说明公司名称文本50否公司行业文本50否公司职位文本50否公司地址文本50否（4）学院信息表表4 学院信息表 Academy字段名称类型长度允许空字段说明学院编号文本50否学院名称文本50否专业名称文本50否（5）城市信息表表5 城市信息表City字段名称类型长度允许空字段说明城市编号文本50否省文本50否市文本50否（6）本系统中主要表之间的关系图3-2 主要表之间的关系第4章 毕业生信息管理系统实现4.1数据库连接VB6.0全称为VisualBasic 6.0，是微软公司于1998年推出的可视化编程工具MSDN之一，是目前世界上使用最广泛的程序开发工具之一。Vb连接到数据库6，主要有两种方法：一种是在adodc的属性里设置数据库文件的路径，这种方法的优点是简单易操作，缺点是，当源文件换了地方后，要重新设置数据库的路径，否则连接不上数据库了。另一种是用代码设置数据库的路径，这种方法的有点是只要源文件和数据库在同一文件夹下，无论移动到哪里都能连接上。在本系统中，主要使用后面一种方法连接到access数据库中。首先，添加对ADO7的引用，菜单“工程”->“引用”->Microsoft ActiveX Data Objects 2.5 Library。也可以通过在窗体上放置一个Adodc控件让VB自动添加这个引用。Dim myCon As New ADODB.ConnectionDim myRs As New ADODB.RecordsetAdodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "data.mdb;Persist Security Info=False"Adodc1.CommandType = adCmdTextisql = "SELECT * FROM user"Adodc1.RecordSource = isql在使用数据库中的数据时，先用创建的连接对象myCon打开：myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "data.mdb;"再用记录集对象myRs进行相关的操作。最后完成时得把打开的对象都关闭掉，否则会出现一定的问题。4.2功能实现经过需求分析和系统的设计，确定了系统的基本框架和总体布局。本部分主要具体实现系统的各个功能，分别为系统管理、毕业生基本信息管理、就业信息管理和就业信息管理，根据流程图编码实现。图4-1为系统功能间的流程图：Y系统主界面开始正确?登录窗口N帮助就业信息管理考研信息管理系统管理基本信息管理结束图4-1 毕业生信息管理的程序流程图4.2.1登录界面在登录界面login窗口里，通过输入用户名和密码，选择相应的角色，在通过判断该用户名是否存在和密码是否正确，角色是否对应，如果不符合则会提示。另外，如果操作的次数超过三次，则系统会自动退出。登录界面如图4-2所示：图4-2 登录界面Dim myCon As New ADODB.ConnectionDim myRs As New ADODB.RecordsetDim time As IntegerPrivate Sub Command1_Click()Dim sqldl As StringDim sf As String判断登录用户的错误的操作次数是否超过三次，如果超过，则强制退出登录界面If time = 3 ThenMsgBox “对不起，您错误的操作次数超过三次，不能再登录！”, vbOKOnly, “警告”Unload MeExit SubEnd IfmyCon.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “data.mdb;”If Trim(Text1.Text = “”) ThenMsgBox “用户名为空，请输入！”, vbOKOnly + vbInformation, “对不起”Text2.Text = “”Text1.SetFocusmyCon.Closetime = time + 1Exit SubEnd Ifsqldl = “select * from User where 用户名=” & Text1.Text & “”myRs.Open sqldl, myConIf myRs.EOF = True ThenMsgBox “没有这个用户,请重新输入用户名!”, vbOKOnly + vbExclamation, “警告”Text1.Text = “”Text2.Text = “”Combo1.Text = “”Text1.SetFocusmyRs.ClosemyCon.Closetime = time + 1Exit SubEnd IfIf myRs.Fields(“密码”) <> Trim(Text2.Text) ThenMsgBox “密码不正确，请重新输入！”, vbOKOnly + vbExclamation, “警告”Text2.SetFocusText2.Text = “”myRs.ClosemyCon.Closetime = time + 1Exit SubEnd IfIf myRs.Fields(2) <> Trim(Combo1.Text) ThenMsgBox “身份不正确，请重新输入！”, vbOKOnly + vbExclamation, “警告”Text2.SetFocusmyRs.ClosemyCon.Closetime = time + 1Exit SubEnd Ifsf = myRs.Fields(2)activename = myRs.Fields(0)activerole = myRs.Fields(2)myRs.ClosemyCon.CloseUnload MeFrm_Main.Show判断登录角色类型，如果登录的角色为普通的用户，则一部分权限收到约束If sf = “用户” ThenFrm_Main.Mun_AddUser.Enabled = FalseFrm_Main.Mun_DelStu.Enabled = FalseFrm_Main.Mun_DelUser.Enabled = FalseFrm_Main.Mun_AddStu.Enabled = Falseadmin = 0End IfEnd SubPrivate Sub Command2_Click()Dim anw As Integeranw = MsgBox(“您确定退出系统？”, vbOKCancel + vbDefaultButton1 + vbInformation, “提示”)If anw = 1 ThenUnload MeElseText1.Text = “”Text2.Text = “”Text1.SetFocusEnd IfEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “data.mdb;Persist Security Info=False”Adodc1.CommandType = adCmdTextisql = “SELECT * FROM user”Adodc1.RecordSource = isqlAdodc1.Refreshtime = 0Text1.Text = “”Text2.Text = “”Combo1.Text = “”Combo1.AddItem (“管理员”)Combo1.AddItem (“用户")End SubPrivate Sub Form_resize()Image1.Height = Me.HeightImage1.Width = Me.WidthEnd Sub4.2.2程序主界面在程序主界面里面，菜单栏里面包含了所有的模块，系统管理、毕业生基本信息模块、就业信息管理模块、考研信息管理模块。单击每个模块，会跳转到相应的窗口界面，再进行相应的操作。如图4-3所示：图4-3 系统主界面4.2.3系统管理模块对系统模块进行设计，主要是对用户进行管理，可以进行添加用户、删除用户、修改用户密码等。对这些进行操作的前提是登陆者是管理员，如果是用户身份登陆的，则只能对自己的密码进行修改，看不到其他的用户。对于管理员，添加用户，首先通过判断要添加的用户名是否存在，如果存在则弹出提示，另外还判断两次输入的密码是否匹配，如果不匹配，则会提示。当输入的信息都符合条件时，保存之后会提示保存成功。删除用户，系统管理员可以在列表里看到所有用户的，可以删除任何一个用户。而对于斐非管理员，他们则没有添加删除用户的功能，只有修改密码，而且在列表里只有自己的一个，即只能修改自己的密码。系统管理退出系统注销系统用户管理图4-4 系统管理结构用户管理，包括添加用户、删除用户、修改用户密码。（1）添加用户：开始N信息完整？YY用户名存在？NN密码相等Y添加成功图4-5 添加用户流程图首先判断要添加的用户的信息填写是否完整，如果信息不完整，则提示填写完整的用户信息；如果信息完整，则再判断输入的用户名是否存在，如果存在则，提示并清空已填写的用户名，如果不存在则再判断两次输入的密码是否相等，如果相等，则保存并添加该用户。具体的代码如下所示：Private Sub Command1_Click()Dim name, pass, passa, role As Stringname = Trim(Text1.Text)pass = Trim(Text2.Text)passa = Trim(Text3.Text)role = Trim(Combo1.Text)If name = "" Or pass = "" Or passa = "" Or role = "" ThenMsgBox "请填写完整所有资料！", vbOKOnly, "警告"Text1.SetFocusExit SubEnd IfmyCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "data.mdb;"myRs.Open "select * from User where 用户名='" & name & "'", myConIf Not myRs.EOF ThenMsgBox "该用户名已经存在，请使用其他用户名！", vbOKOnly, "警告"Text1.Text = ""Combo1.Text = ""Text1.SetFocusmyRs.ClosemyCon.CloseExit SubEnd IfIf pass <> passa ThenMsgBox "两次输入的密码不同", vbOKOnly, "警告"Text2.Text = ""Text3.Text = ""Text2.SetFocusmyRs.ClosemyCon.CloseExit SubEnd IfmyRs.