基于Visual Basic学校信息管理系统毕业设计(含源文件)

1、学校管理系统目 录内容提要1选题的背景1学校管理系统的设计方法和技术线路2系统的基本框架、总体结构以及各部分功能4系统部分窗体界面、代码及简要解释6数据库（表）分析17遇到的困难和解决方案26用户操作说明27系统自我评价28致谢29参考资料30附录部分31【内容提要】随着信息技术在管理上越来越深入而广泛的应用，信息管理系统的实施在技术上已逐步成熟。信息管理系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的信息管理系统。本文采用vb和access等软件为开发工具，以windows xp（或windows 2000）为开发平台，

2、设计出一个学校管理系统，对学生、员工的信息、学生的课程以及成绩进行统一管理，便于查询、修改和打印。主要实现的功能模块有系统管理子系统、学生信息管理子系统、员工信息管理子系统、班级信息管理子系统、课程信息管理子系统、成绩信息管理子系统、综合测评子系统、毕业管理子系统、图书馆管理子系统等。本系统界面友好，操作简单，比较实用。【关键字】 系统；管理；信息管理选题的背景1. 1需求分析一个功能齐全、简单易用的信息管理系统不但能有效地减轻学校各类工作人员的工作负担，它的内容对于学校的决策者和管理者来说都至关重要。所以学校管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方

3、式管理文件档案、统计和查询数据，这种管理方式存在着许多缺点,如:效率低、保密性差,人工的大量浪费；另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着来越重要的作用。 作为计算机应用的一部分,使用计算机对学校的各类信息进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查询方便、效率高、可靠性好、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学校信息管理的效率,也是一个单位科学化、正规化管理,与世界接轨的重要条件。因此，开发这样一套管理软件成为

4、很有必要的事情，我通过自己的知识和大量书籍的翻阅、网站的查阅，和同学一起合作开发了一个学校管理系统。1.2历史现状该项目开发的软件为学校管理系统软件,是鉴于目前学校学生、员工人数和图书馆信息剧增,信息呈爆炸性增长的前提下,学校对信息管理的自动化与准确化的要求日益强烈的背景下构思出来的,该软件设计完成后可用于所有教育单位(包括学校,学院等等)的信息的管理.目前社会上信息管理系统发展飞快,各个企事业单位都引入了信息管理软件来管理自己日益增长的各种信息,学校管理系统也是有了很大的发展,商业化的信息管理软件也不少.但本系统完全独立开发,力求使系统功能简洁明了,但功能齐全且易于操作.1.3学校管理系统的

5、功能及特点学校管理信息系统是一个以计算机为工具，对学校管理信息进行处理的人机系统，它能准确统计出学生的考试分数，能从全局出发辅助学校各职能部门以及校长管理学校。可见，学校管理系统首先必须具有强大的电子数据处理功能，能大大提高学校管理人员的工作效率，减轻劳动强度，同时，该系统应当采用管理模型，将仿真、优化等现代决策手段结合起来，为学校管理层的决策提供有效信息。本系统的用户类型可分为三种：管理员、普通用户 管理员：拥有一切权限，可管理用户，修改，删除数据。 普通用户：只能查看数据，不得修改删除数据。 整个系统，包括了学生信息管理、员工信息管理、班级信息管理、课程信息管理、成绩信息管理、综合测评、毕

6、业管理等。基本符合学校管理的需求。学校管理系统的设计方法和技术线路2.1选用的设计语言本系统采用面向对象的软件开发方法，以microsoft公司的可视开发环境visual basic 6.0作为主要开发工具，使用microsoft access 2000作为关系数据库，并在vb编程语言中采用ado 数据库编程模型，配合功能强大的查询语言实现建立关系数据库，访问数据库，对数据库的更新，较好地实现了预定的需求功能。 visual basic 6.0是一种可视化、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发windows环境下的各类应用程序。它简单易学、效率高、且功能强大。在vis

7、ual basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用windows内部的应用程序接口（api）函数，以及动态链接库（dll）、动态数据交换（dde）、对象的链接与嵌入（ole）、开放式数据连接（odbc）等技术，可以高效、快速地开发出windows环境功能强大、图形界面丰富的应用软件系统。 visual basic 6.0 是专门为microsoft的32位操作系统设计的，可用来建立32位的应用程序。在windows9x、windowsnt或windows2000环境下，用visual basic 6.0的编译器可以自动生成32位应用程序。这样的应用程序在32位操作

8、系统下运行，速度更快，更安全，并且更适合在多任务环境下运行。2.2选用access作为后台数据库access2000 就是关系数据库管理工具，数据库能汇集各种信息以供查询、存储和检索。access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 excel的电子表格，可以使数据库一目了然。另外，access允许创建自定义报表用于打印或输出数据库中的信息。access也提供了数据存储库，可以使用桌面数据库文件把数据文件置于网络文件服务器，与其他网络用户共享数据库。access 是一种关系数据库管理工具，关系数据库是已开发的最通用的数据库之一。如上所述，access

9、作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。作为应用程序与ole db连接的桥梁，activex data objects (ado)为visual basic 6.0 下开发的应用程序访问本地或远程数据库提供了有效的手段。microsoft activex data objects (ado) 主要优点是易于使用、高速度、低内存支出和占用磁盘空间较少。ado 支持用于建立基于客户端/服务器和 web 的应用程序的主要功能。在vb中，可以使用开发环境提供的ado控件，数据库访问方法，对access中建立的关系数据库简单快捷的进行访问。在数

10、据库方面，我主要采用了adodc 的绑定方法。ado是微软公司最新推出的数据访问技术，他特别设计用来访问ole db privder 一起协同工作，以提供通用数据访问（ universal data access），oledb 是底层的数据访问接口，ado控件使用数据对象来快速建立数据绑定的控件和数据提供者之间的连接。ado的全名是activex data object(activex数据对象),是一组优化的访问数据库的专用对象集，它为asp提供了完整的站点数据库解决方案，它作用在服务器端，提供含有数据库信息的主页内容，通过执行sql命令，让用户在浏览器画面中输入，更新和删除站点数据库的信息。

11、 ado主要包括connection,recordset和command三个对象, 它们的主要功能如下： connection对象：负责打开或连接数据库文件； recordset对象：存取数据库的内容； command对象：对数据库下达行动查询指令，以及执行sql server的存储过程。比较而言：odbc （open database connectivity）是第一个使用sql访问不同关系数据库的数据访问技术。使用odbc应用程序能够通过单一的命令操纵不同的数据库，而开发人员需要做的仅仅只是针对不同的应用加入相应的odbc驱动。 dao - （data access objects）不像o

12、dbc那样是面向c/c+程序员的，它是微软提供给visual basic开发人员的一种简单的数据访问方法，用于操纵access数据库。 rdo 在使用dao访问不同的关系型数据库的时候，jet引擎不得不在dao和odbc之间进行命令的转化，导致了性能的下降，而rdo（remote data objects）的出现就顺理成章了。 ole db 随着越来越多的数据以非关系型格式存储，需要一种新的架构来提供这种应用和数据源之间的无缝连接，基于com（component object model）的ole db应运而生了。 综上所述ado 基于ole db之上的ado更简单、更高级、更适合visual

13、 basic程序员，同时消除了ole db的多种弊端，取而代之是微软技术发展的趋势。所以我采用ado 的方法来绑定数据库，能够达到功能的要求。系统的基本框架、总体结构以及各部分功能3.1基本框架这是一个学校管理系统，其下有三大模块：信息管理系统，学籍管理系统，以及图书馆管理系统。1.信息管理系统a. 学生信息：基本信息：学号、班级、宿舍等 档案：姓名、住址、电话等 体检信息：入学体检、毕业体检 奖惩信息b. 员工信息：基本信息：姓名、教授课程、部门等 档案：姓名、住址、电话等2.学籍管理：a. 学生成绩管理：成绩录入、查询、不及格名单、学生总分名次、综合测评表、毕业设计、实习管理、班级查询、设

14、置年级课程等b. 员工培训管理：我主要负责学生信息系统即学籍管理，使用vb和数据库的连接实现对系统的管理，在vb界面下实现各种功能。即窗体mdiform1、班级查询、班级查询结果、班级浏览、毕业设计、补考成绩查询结果、成绩查询结果、成绩输入、创建用户、各班课程设置、关于、积考成绩查询结果、界面、实习管理、学生成绩查询、学生成绩输入、学生成绩输入数据显示、学校基本课程、用户登陆、员工培训信息、重修成绩查询结果、综合测评、综合测评信息都由我完成。3.2系统的总体结构实习管理毕业设计创建用户毕业管理补考、重修、积考成绩输入学生成绩查询综合测评图示成绩信息管理综合测评综合测评信息学生成绩信息各班课程设

15、置学校基本课程课程信息管理培训信息班级查询班级浏览基本信息体检信息基本信息学生信息管理员工信息管理班级信息管理mdi主接口登陆接口界面接口如图所示：图3.1 系统的总体结构此系统主要由四个部分组成，分别是用户添加及登陆部分，学生信息管理部分，员工信息管理部分，班级信息管理部分，课程信息管理部分，成绩信息管理部分，综合测评部分，毕业管理部分以及图书馆部分。3.3系统各部分功能学生信息管理部分分为基本信息、体检信息两部分。员工信息管理部分分为基本信息和培训信息两部分。员工培训信息部分可以浏览所有员工培训的资料，添加新的培训资料，修改需要改的信息。班级信息管理部分分为班级查询和班级浏览两部分。班级查

16、询部分可以依各条件查询所有班级信息。班级浏览部分支持资料的修改和删除以及班级资料的报表打印。课程管理部分分为学校基本课程，各班课程设置两部分。学校基本课程设置部分提供所有课程的设置，可以查询、添加、删除、筛选。各班课程设置部分则根据各个班级情况从已经设置好的基本课程中选择所需要的课程，或者删除不需要的课程，同样支持报表打印。成绩信息管理部分分为学生成绩信息、补考、重修、积考成绩输入和学生成绩查询三部分。学生成绩信息部分可以浏览所有成绩信息，并能输入/修改，支持报表打印。补考、重修、积考成绩输入部分可以添加/修改补考、重修、积考成绩。学生成绩查询部分可以查询所有成绩、补考成绩、重修成绩和积考成绩

17、。综合测评部分分为综合测评信息和综合测评图示两部分。综合测评信息部分显示所有综合测评资料，并能实现多项查询，支持打印。综合测评图示部分能依每个人的成绩显示不同的二维图。毕业管理部分分为毕业设计、实习管理两部分。毕业设计部分能浏览所有学生的毕业设计资料，并能进行资料的添加/修改。实习管理部分能浏览所有学生的实习资料，并能进行资料的添加/修改。图书馆管理部分。 系统部分窗体界面、代码及简要解释4.1界面窗体（界面.frm）图4.1界面窗体这是一个运行的主界面，在控件中增加了progressbar，再利用time控件来控制其的变化。private sub timer1_timer()if progr

18、essbar1.value = progressbar1.max then 当progressbar的达到100（max设定值）时触发unload me用户登陆.showtimer1.enabled = false 停止时钟end ifprogressbar1.value = progressbar1.value + 2.5 progressbar的值每次加2.5timer属性中设定每0.05秒触发一次，因此展示窗体显示时间移动为2秒end sub4.2用户登陆窗体（用户登陆.frm）图4.2用户登陆窗体这是个用户登陆的窗体，用datacombo来设置了连接数据库的所有组名称，用于方便选择。d

19、atasource来源于dataenvironment1,datamember来源于组表，datafield来源于组名，rowsource来源于dataenvironment1,rowmember来源于组表，listfiele来源于组名。option explicitdim rsts as adodb.recordsetprivate sub command2_click()if text1.text = thenmsgbox 用户名不能为空！, vbexclamation + vbokonly, 警告text1.setfocusexit subend if 防止空用户名if text2.te

20、xt = thenmsgbox 密码不能为空！, vbexclamation + vbokonly, 警告text2.setfocusexit subend if 防止空密码doif datacombo1.text = rsts(0) and text1.text = rsts(2) and text2.text = rsts(3) thenif rsts(0) = 管理员 then admin = 1else admin = 0end ifmdiform1.showrsts.closeunload meexit doend if 当用户名和密码相符的时候，进入主窗体，跳出循环rsts.mov

21、enextif rsts.eof = true thenmsgbox 密码错误，请重新输入！, vbexclamation + vbokonly, 警告text2.text = text2.setfocusrsts.movefirstexit doend if 用户名或者密码不相符或者不存在，都出现提示密码错误的对话框，跳出循环loop 循环搜索每条记录，直到出现以上两种结果的一种end subprivate sub form_load()set rsts = dataenvironment1.rs用户表rsts.movefirstend sub4.3班级浏览窗体（班级浏览.frm）图4.3班

22、级浏览窗体这是一个班级浏览窗体，用datagrid调用了整张班级表，用追加实现对表中列的布局，用adodc控制了记录的变化，同时用datacombo调用数据库的年级表来实现对年级的筛选，此外还运用了数据报表。班级表.filter = 年级 like & datacombo1.text & % 按年级过滤班级表.filter = cancel like 0 取消过滤，实际是根据cancel项进行过滤，此项是数据型，默认为04.4学生成绩查询窗体（学生成绩.frm） 图4.4学生成绩查询窗体这是学生成绩查询窗体，在控件中增加了sstab来定义同类风格，是四个查询、四张表都能集中在一个窗体中，简单清

23、晰。private sub form_load()set rsts = dataenvironment2.rs成绩表set a = dataenvironment2.rs补考表set b = dataenvironment2.rs重修表set c = dataenvironment2.rs积考表end sub4.5学生成绩输入数据显示窗体（学生成绩输入数据显示.frm）4.5学生成绩输入数据显示窗体这是学生成绩输入数据显示窗体，整页设置风格大方，操作简便，一目了然，利用datagrid调用数据库中的成绩表，同时也利用了追加实现了对表中列的布局。数据报表可以综观所有相关报表信息，输入按扭可以实现

24、对学生成绩的录入。private sub command4_click()adodc1.caption = 删除if msgbox(真的要删除当前记录吗?, vbokcancel + vbcritical, 删除) = vbok thenadodc1.recordset.deleteadodc1.recordset.movenextif adodc1.recordset.eof = true thenadodc1.recordset.movelastend ifend ifend subprivate sub command5_click()adodc1.recordset.updatebat

25、ch adaffectallchapters 刷新记录end sub4.6学校基本课程图4.6学校基本课程这是学校基本课程窗体，整页综合了多项控件，但并不显得杂反而很有条理。三个lable设置了排序、查找、筛选三个功能模块，而在排序和查找模块中又分别用了三个option来做出选择，用adodc连接了后台数据库用datagrid实现前台数据的展现，datacombo的选择来实现筛选。private sub command8_click()if option1.value = true thenadodc1.recordset.sort = 课程代号 end ifif option2.value

26、= true thenadodc1.recordset.sort = 课程名 desc elseif option3.value = true thenadodc1.recordset.sort = 学分 desc,课程代号end ifend subprivate sub command9_click()adodc1.recordset.movefirstif option4.value = true thenadodc1.recordset.find (教学要求 like & text7.text & %)end ifif option5.value = true thenadodc1.re

27、cordset.find (学分 like & text7.text & %)elseif option6.value = true thenadodc1.recordset.find (学期 like & text7.text & %)end ifif adodc1.recordset.eof thenmsgbox 未找到!adodc1.recordset.movelastend ifend sub4.7毕业设计窗体（毕业设计.frm）图4.7毕业设计窗体这是毕业设计窗体，这页的特点在于利用了特效。用adodc连接了后台数据库中的毕业设计表，8个command可以实现诸多功能，特色在于三个t

28、ime控件，会使左右两边的“毕业设计信息”字样呈闪烁状态，此外还有当前时间的显示。private sub timer1_timer()dim i as integerfor i = 1 to 255label6.forecolor = rgb(rnd * 255 + 1), (rnd * 255 + 1), (rnd * 255 + 1)label7.forecolor = rgb(rnd * 255 + 1), (rnd * 255 + 1), (rnd * 255 + 1)nextend subprivate sub timer2_timer()label8.caption = timel

29、abel9.caption = dateend subprivate sub timer3_timer()if label6.visible = true thenlabel7.visible = truelabel6.visible = falseelseif label7.visible = true thenlabel6.visible = truelabel7.visible = falseend ifend sub4.8综合测评窗体（综合测评.frm）图4.8综合测评窗体这是综合测评窗体，在这里增加了控件mschart，利用adodc调用数据的变化而时图表呈现变化状态，成为又一新亮点

30、。private sub form_load()mschart1.data = text6.textmschart1.data = text7.textmschart1.data = text8.textmschart1.data = text3.textmschart1.data = text4.textmschart1.data = text5.textset rs = adodc1.recordsetend subprivate sub text1_change()mschart1.data = text6.textmschart1.data = text7.textmschart1.d

31、ata = text8.textmschart1.data = text3.textmschart1.data = text4.textmschart1.data = text5.textend sub数据库（表）分析5.1数据库设计数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。数据库设计一般包括如下几个步骤：u 数据库需求分析。u 数据库逻辑结构分析。5.2数据库需求分析这个系

32、统使用的数据库是微软access2000数据库。由于整个系统有两个人共同完成，而且内容上又有偏差，故我们制作了两个数据库。而其中的数据库.mdb是由我完成，总共有19张资料表。用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。针对学校管理的需求，通过对学校内部管理内容和数据流程分析，设计如下所示的数据项和数据结构：数据库：数据库.mdb资料表1：按课程类型 列名数据类型可否为空说明课程类型文本否cancel数字是资料表2：班级表列名数据类型可否为空说

33、明年级文本是教室文本是专业文本否年制文本是班主任文本是备注文本是cancel数字是资料表3：毕业设计表列名数据类型是否为空说明学号数字否姓名文本是毕业设计课题名文本是指导老师名文本是指导老师所在文本是资料表4：补考表列名数据类型是否为空说明学号文本是姓名文本是课程代号文本是课程名称文本是学期文本是成绩文本是cancel数字是资料表5：成绩表列名数据类型是否为空说明学号文本是姓名文本是课程代号文本是课程名称文本是 学期文本是成绩文本是绩点数文本是 cancel数字是资料表6：各班课程列名数据类型是否为空说明专业文本是学期文本是课程代号文本是课程名称文本是cancel 数字是资料表7：积考表列名数

34、据类型是否为空说明学号文本否姓名文本是课程代号文本否课程名称文本是学期文本是成绩文本是cancel数字是资料表8：教材表列名数据类型是否为空说明课程代号文本是课程名文本是教材文本是资料表9：课程总表列名数据类型是否为空说明课程代号文本否课程名文本是课程类型文本是课时数文本是教学要求文本是学分文本是学期文本是cancel数字是资料表10：年级表列名数据类型是否为空说明年级文本否资料表11：实习表列名数据类型是否为空说明学号数字否姓名文本是实习单位文本是实习电话数字是资料表12：学期表列名数据类型是否为空说明学期文本是资料表13：学生情况表列名数据类型是否为空说明学号数字否姓名文本是性别文本是系别

35、文本是班级文本是政治面貌文本是家庭地址文本是联系电话文本是邮政编码文本是父亲姓名文本是母亲姓名文本是毕业学校文本是入学成绩文本是宿舍号文本是退学是/否是cancel数字是资料表14：用户表列名数据类型是否为空说明组名称文本是组密码文本是用户名文本否密码文本是资料表15：员工信息表列名数据类型是否为空说明员工号数字否姓名文本是性别文本是职称文本是培训时间文本是培训部门文本是培训费用文本是培训课程文本是培训性质文本是培训情况文本是资料表16：员工信息表列名数据类型是否为空说明员工号数字否姓名文本是性别文本是政治面貌文本是教授课程文本是所属部门文本是职称文本是工资级别数字是联系电话数字是家庭住址文本

36、是cancel数字是资料表17：重修表列名数据类型是否为空说明学号文本是姓名文本是课程代号文本是课程名文本是学期文本是成绩文本是cancel数字是资料表18：综合测评表列名数据类型是否为空说明学号文本否姓名文本是政治思想分文本是学业成绩文本是科技创新能力分文本是社会实践能力文本是体育锻炼文本是附加/减分文本是资料表19：组表列名数据类型是否为空说明组名文本否密码文本是5.3 部分数据e-r图年制5.3.1 班级e-r图：年级班主任班 级教室备注专业5.3.1 毕业设计e-r图：毕业设计课题名学号毕业设计指导老师名姓名指导老师所在5.3.3 成绩e-r图：课程代号课程名学号学期成 绩姓名绩点数成

37、绩5.3.4 课程e-r图：课时数教学要求课程代号课程学分课程名学期课程类型家庭地址5.3.5 学生e-r图：政治面貌联系电话学号学 生父亲姓名姓名母亲姓名性别宿舍号毕业学校系别班级入学成绩培训部门培训时间5.3.6 员工培训e-r图：培训费用员工号培训课程员工培训姓名培训性质职称性别培训情况5.3.7 员工e-r图：教授课程政治面貌所属部门员工号员工信息职称姓名性别联系电话家庭住址工资级别遇到的困难和解决方法6.1相对路径的问题我们设计的学校管理系统，从实质上说是一个软件，但是它是以vb为界面基础的，后台的数据库是access，这就引发了一个问题，在小组人员各自完成模块的设计时，在自己的pc

38、上就可以运行，但是在合并程序的阶段，就无法运行了，指导老师在设计初期就象我们提示过要改路径的问题。所以，在后期合并时期，我们找到了原因，是因为在设计初期，把数据库的文件单独放在一个文件夹里，我们修改了相对路径，避免了一系列的修改的麻烦，在此我们要感谢指导老师的细心和负责。在我们小组人员共同的努力下，也使程序能顺利的完成。6.2权限设置权限设置的设计思想：比如添加、删除、修改操作如果一般用户对这些信息都可以设置，就造成了管理上的混乱和冲突，所以，在功能实现中就对一般用户在权限上做了限制，当登陆者为已管理员身份登陆那就只能浏览信息而不能进行任何操作，若以管理员的身份登陆系统，那么就可以对信息窗体进

39、行设置。此外，参考了同学的设计，因为他们是把功能做在外面所以可以在登陆时界面后就能发现，这明显与我们做的有冲突换句话说是不值得我们借鉴，因此我要朋友询问了适合我们的权限设置，在系统中添加个模块，然后在代码中再增加语句。declare function createsolidbrush lib gdi (byval crcolor as integer) as integerdeclare function fillrect lib user (byval hdc as integer, lprect as rect, byval hbrush as integer) as integerdec

40、lare function deleteobject lib gdi (byval hobject as integer) as integertype rectleft as integertop as integerright as integerbottom as integerend typepublic admin as integer用于验证是否有管理员权限用户操作说明1. 软硬件环境硬件配置：486以上档次的计算机，彩色显示器，内存8m,硬盘200m。软件配置：windows 95/98/2000/xp操作系统，visual basic 6.0数据库管理系统。2. 应用系统安装

41、直接拷贝：把应用系统光盘插入到驱动器中，在任意盘目录下建立子文件夹毕业设计，将光盘根目录中所用的文件拷贝到任意盘文件夹毕业设计中。初次运行时，须对某些文件进行重定向。3. 操作方法(1)启动应用系统 先启动visual basin 6.0运行后缀为“.exe” 可执行文件。(2)登陆系统 输入用户名和准确的密码，进入父窗体，即可进入相应的子系统，选择“退出“按钮可以退出系统。 (3)用户管理，可以进行添加和删除用户。（管理员权限） 添加：输入用户编号，用户名字，用户密码以及密码确认，就可以添加为公司管理系统用户。 删除：输入用户编号，经确认之后，再输入用户密码，即可以删除用户。系统自我评价 本

42、系统是针对学校开发的信息、学籍、图书馆管理软件，实现对学校现代化信息管理。学籍管理系统以学号和员工号生成，能够快速的录入成绩、设置课程等，极大的方便了学校对于学生成绩和员工工作状况的管理；而信息管理系统是与学籍管理系统数据共享的，其中各式各样的报表方便了信息的管理；图书馆管理系统则是现代学校的典型的一个管理系统，它实现了对书籍的各式管理。系统总体结构：系统开发的总体任务是实现信息关系的系统化、规范化和自动化。1.信息系统化通过该系统，将实现各种数据的共享，方便了信息的管理。2.学校管理系统规范化该系统只要包括：信息管理系统、学籍管理系统、图书馆管理系统，这些管理系统将建立在一个规范标准的界面之

43、上，大大提高了学校的管理水平。3.图书资料检索借阅自动化 通过图书馆管理系统，实现图书检索和借阅，从而一方面能作到资料共享。另一方面，能大大简化借阅手续，提高图书利用率和图书管理工作效率。8.1优点接口美观大方，界面风格统一。整个系统包含了学生信息管理，员工信息管理，班级信息管理，课程信息管理，成绩信息管理，综合测评，毕业管理，这几部分都能够非常快捷的对资料内容进行添加修改删除以及报表打印等操作。8.2缺点学校管理系统的局限性：该系统是单机版，所以使用范围得到了限制。不能实现局域网上的多台机器，共享同一数据库。而信息管理系统，需要多个职能部门来参与管理，比如学生信息以及成绩的录入，需要教师来管

44、理。 而教师的信息需要学校教务部门来管理。图书信息的管理，需要图书馆来完成。 因此，系统的单机性质，制约了系统在学校的广泛应用。查询模块做的不是很理想，只能进行单条件查询。系统不是很完善，有待补充。8.3可扩充内容使用者的权限，成绩管理部分，数据库备份和恢复等。致谢在本次毕业设计中，我从指导老师陈桂生老师身上学到了很多东西。陈老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢他耐心的辅导。 另外，在系统开发过程中同组的同学也给于我很大的帮助，帮助解决了不少的难点

45、，使得系统能及时开发完成，还有同样给与我不少帮助，这里一并表示感谢。参考资料：1协同教育微软atc教材编译室 编著 开发工具专家 visual basic 6.0 培训教程 电子工业出版社 2上海市计算机应用能力考核办公室 编计算机应用教程access 2000 复旦大学出版社 3明日科技 高春艳 李艳 谷伟东 编著visual basic数据库开发关键技术与实例应用 人民邮电出版社 4源江科技/编著vb编程技巧280例 上海科学普及出版社 5佳文工作室创作visual basic6.0编程实例教程 电子工业出版社 6王珊 陈红编著数据库系统原理教程 清华大学出版社 7刘圣才 李春葆编著vis

46、ual basic6.0 程序设计导学 清华大学出版社 8周国民 visual basic + access数据库项目开发实践 中国铁道出版社9段兴 visual basic 6.0控件实用程序设计100例 人民邮电出版社 10kris jamsa 博士lars klander博士 著 visual basic 程序设计技巧1001例 电子工业出版社 附录部分*实习管理窗体（实习管理.frm）dim 实习表 as adodb.recordsetprivate sub command1_click()判断是否有权限if admin = 0 thenmsgbox 你不是管理员,没有此权限！, vb

47、exclamation + vbokonly, 警告exit subend if实习表.addnew 添加记录 command1.enabled = false command2.enabled = falsecommand5.visible = true command4.enabled = true command7.visible = false command8.visible = true adodc1.enabled = false text1.enabled = true text2.enabled = true text3.enabled = true text4.enable

48、d = trueend subprivate sub command10_click()adodc1.recordset.movepreviousif adodc1.recordset.bof = true thenadodc1.recordset.movefirstmsgbox (已到首记录)end ifend subprivate sub command11_click()adodc1.recordset.movenextif adodc1.recordset.eof = true thenadodc1.recordset.movelastmsgbox (已到末记录)end ifend s

49、ubprivate sub command12_click()adodc1.recordset.movelastend subprivate sub command2_click()判断是否有权限if admin = 0 thenmsgbox 你不是管理员,没有此权限！, vbexclamation + vbokonly, 警告exit subend ifcommand1.enabled = true command4.enabled = true command2.visible = false command5.visible = false command7.visible = true command8.visible = true adodc1.enabled = true text1.enabled = false text2.enabled = false text3.enabled = false text4.enabled = false end subprivate sub command3_click()实习表.cancelup