摘要
随着信息技术在管理上越来越深入而广泛的应用，信息管理系统的实施在技术上已逐步成熟。信息管理系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的信息管理系统。本文采用VB和ACCESS等软件为开发工具，以Windows XP（或Windows 2000）为开发平台，设计出一个学校管理系统，对学生、员工的信息、学生的课程以及成绩进行统一管理，便于查询、修改和打印。主要实现的功能模块有系统管理子系统、学生信息管理子系统、员工信息管理子系统、班级信息管理子系统、课程信息管理子系统、成绩信息管理子系统、综合测评子系统、毕业管理子系统、图书馆管理子系统等。
本系统界面友好，操作简单，较为实用。
系统分析
一、需求分析
一个功能齐全、简单易用的信息管理系统不但能有效地减轻学校各类工作人员的工作负担，它的内容对于学校的决策者和管理者来说都至关重要。所以学校管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案、统计和查询数据，这种管理方式存在着许多缺点,如:效率低、保密性差,人工的大量浪费；另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着来越重要的作用。
作为计算机应用的一部分,使用计算机对学校的各类信息进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查询方便、效率高、可靠性好、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学校信息管理的效率,也是一个单位科学化、正规化管理,与世界接轨的重要条件。
因此，开发这样一套管理软件成为很有必要的事情，我们通过自己的知识和大量书籍的翻阅、网站的查阅，一起合作开发了一个学校管理系统。
该项目开发的软件为学校管理系统软件,是鉴于目前学校学生、员工人数和图书馆信息剧增,信息呈爆炸性增长的前提下,学校对信息管理的自动化与准确化的要求日益强烈的背景下构思出来的,该软件设计完成后可用于所有教育单位(包括学校,学院等等)的信息的管理.目前社会上信息管理系统发展飞快,各个企事业单位都引入了信息管理软件来管理自己日益增长的各种信息,学校管理系统也是有了很大的发展,商业化的信息管理软件也不少.但本系统完全独立开发,力求使系统功能简洁明了,但功能齐全且易于操作.
学校管理信息系统是一个以计算机为工具，对学校管理信息进行处理的人—机系统，它能准确统计出学生的考试分数，能从全局出发辅助学校各职能部门以及校长管理学校。可见，学校管理系统首先必须具有强
1 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
大的电子数据处理功能，能大大提高学校管理人员的工作效率，减轻劳动强度，同时，该系统应当采用管理模型，将仿真、优化等现代决策手段结合起来，为学校管理层的决策提供有效信息。本系统的用户类型可分为三种：管理员、普通用户
管理员：拥有一切权限，可管理用户，修改，删除数据。 普通用户：只能查看数据，不得修改删除数据。
整个系统，包括了学生信息管理、员工信息管理、班级信息管理、课程信息管理、成绩信息管理、综合测评、毕业管理等。基本符合学校管理的需求。
在仔细分析有关学校管理系统的基础上，我们以学生信息管理的模块为例，说明本系统的数据流程图，如图所示：
二、可行性分析
（一）技术可行性分析 1、选用的设计语言
本系统采用面向对象的软件开发方法，以Microsoft公司的可视开发环境Visual Basic 6.0作为主要开发工具，使用Microsoft Access 2000作为关系数据库，并在VB编程语言中采用ADO 数据库编程模型，配合功能强大的查询语言实现建立关系数据库，访问数据库，对数据库的更新，较好地实现了预定的需求功
2 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
能。
Visual Basic 6.0是一种可视化、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。它简单易学、效率高、且功能强大。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口（API）函数，以及动态链接库（DLL）、动态数据交换（DDE）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发出Windows环境功能强大、图形界面丰富的应用软件系统。
Visual Basic 6.0 是专门为Microsoft的32位操作系统设计的，可用来建立32位的应用程序。在Windows9x、WindowsNT或Windows2000环境下，用Visual Basic 6.0的编译器可以自动生成32位应用程序。这样的应用程序在32位操作系统下运行，速度更快，更安全，并且更适合在多任务环境下运行。
2、选用Access作为后台数据库
Access2000 就是关系数据库管理工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库管理工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。
作为应用程序与OLE DB连接的桥梁，ActiveX Data Objects (ADO)为Visual Basic 6.0 下开发的应用程序访问本地或远程数据库提供了有效的手段。Microsoft ActiveX Data Objects (ADO) 主要优点是易于使用、高速度、低内存支出和占用磁盘空间较少。ADO 支持用于建立基于客户端/服务器和 Web 的应用程序的主要功能。在VB中，可以使用开发环境提供的ADO控件，数据库访问方法，对ACCESS中建立的关系数据库简单快捷的进行访问。
在数据库方面，主要采用了ADODC 的绑定方法。
ADO是微软公司最新推出的数据访问技术，他特别设计用来访问OLE DB PRIVDER 一起协同工作，以提供通用数据访问（ UNIVERSAL DATA ACCESS），OLEDB 是底层的数据访问接口，ADO控件使用数据对象来快速建立数据绑定的控件和数据提供者之间的连接。ADO的全名是ActiveX Data Object(ActiveX数据对象),是一组优化的访问数据库的专用对象集，它为ASP提供了完整的站点数据库解决方案，它作用在服务器端，提供含有数据库信息的主页内容，通过执行SQL命令，让用户在浏览器画面中输入，更新和删除站点数据库的信息。
ADO主要包括Connection,Recordset和Command三个对象, 它们的主要功能如下： ·Connection对象：负责打开或连接数据库文件；
3 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
·Recordset对象：存取数据库的内容；
·Command对象：对数据库下达行动查询指令，以及执行SQL Server的存储过程。
比较而言：
ODBC – （Open Database Connectivity）是第一个使用SQL访问不同关系数据库的数据访问技术。使用ODBC应用程序能够通过单一的命令操纵不同的数据库，而开发人员需要做的仅仅只是针对不同的应用加入相应的ODBC驱动。
DAO - （Data Access Objects）不像ODBC那样是面向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 Basic程序员，同时消除了OLE DB的多种弊端，取而代之是微软技术发展的趋势。所以我们采用ADO 的方法来绑定数据库，能够达到功能的要求。
（二）经济可行性分析
成本方面，关于各种软、硬件及辅助设备的购置、调试、机房及辅助设施（电源等）以及系统维护，内
务开销这些费用都可以忽略不计，因为我们信息系机房可以为我们免费提供一切。拥有了天时、地利、人和，我们只需充分利用这些资源来开发我们的学籍选课管理系统即可，可谓成功在望.
就拿该系统中的学生学籍选课管理子系统为例，省去了老师为学生展示学校为学生提供的选修课程，并作介绍，考试后把分数抄录多次以做备案和公告这些大量繁杂而由单一枯燥的劳动，可以让老师把精力放在教学和组织教学等更重要更具创造性的事情上，这就显著的提高了他们的工作效率。
取消了抄录成绩后，学校里也不会再出现残破的成绩单一层盖一层的贴在公告栏或黑板上的情景，校园环境也会因此而变得更整洁，而且也为学校省下了大量的纸张，虽然数量并不是很多，但将来系统扩展到整个学校也将是很可观的。况且，在资源日益缺乏的今天，节省纸张已不仅仅是为学校减少办公费用这一单纯的意义。
众所周知，现在大学的学生多，课程重，管理起来非常困难。相应的也加大了老师的工作量，又因为教学制度的不断变动和改革，因此，总能及时统计出一份内容清晰，条理性强的学籍学分选课分析报表对老师来说真是难于登天。但如果缺少这份报表，同学们就无法清楚了解自己的学分情况，盲目选课，打乱了学习计划，加重了课业负担，而那些基本顺从课程安排的同学则浪费了许多去学习有用知识的时间，甚至临毕业
4 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
时却发现未修够学分而毕不了业。这个关系到每个人命运的问题绝对马虎不得。不能再坐以待毙了，我们这套学生学籍选课管理系统将提供一份完整的学分选课报表，并会利用管理系统的易修改性及时进行更新，让同学们在选择课程，计算学分中更加游刃有余。
近几年来，我们北京化工大学一直都在扩招学生，外地生源的比例也比以前大了许多，而且还有日益增多的外国留学生，在管理上更增加了管理人员的劳动量，如此多的档案资料，以原有的工作人员数量要管理好实在不容易，但如果增加工作人员，管理成本必然也会增加，得不偿失，而我们这套系统这时就会发挥出它大大的作用，让实用这领会到它的优越之处，帮助老师轻轻松松管理好学生各方面的资料，无论学生是多是少，一切都会被管理得井井有条。
（三）社会可行性
经过我们的调查，绝大部分的任课老师，行政人员和校领导都为现行系统的繁琐和冗杂的工作量所深深
困扰着。在得知我们开发这套系统的计划后，他们都有一种守得云开见月明的感觉，并表示非常愿意在系统的开发过程中给予全力支持以及积极的配合。
我们这套学校管理系统不仅能够让老师更清晰的掌握自己学生的信息，同时也让学生自己更容易的知道如
何准确的选课，如何计算学分及尽早得知自己的考试成绩。这就大大的为老师提供了便利。比如，在每学期期末考试后，大多数学生都已回到家中，如果为了获取考试成绩又不得不再返回学校的话，既费时又费力，学生牢骚满腹，老师也不能提早放假休息。而我们的系统可以提供网上查分，同学们在家中只需要上网就可以在第一时间知道自己的成绩。还有，学生们也可通过我们的系统进行选课来凑够学分完成学业。在系统中会显示出个门课程的性质（如必修、限选、任选），其所占学分及任课老师的资料，其应用性之强得到充分发挥。
我们学校的电脑普及率已达到了很高的水平，尤其是我们系拥有设备先进管理完善的系机房，而信息学院的老师和学生们对电脑的操作也是驾轻就熟。因此，只要我们这套学生学籍选课系统操作简单，实用，合理，大家肯定是乐于接受并积极响应和支持的。对于这一点，我们是很有信心的。随着信息时代的来临，学籍学分选课等信息管理的自动化，一体化正是大势所趋。
另外，据我们所知，在我们的一些兄弟院校中早已有了相应的系统，他们的师生也强烈体会到了这个系统的务实与便捷之处，因此，我们学校作为北京市的重点院校之一，当然也不能甘于落后，尤其是我们信息学院再这方面就更要走在大家的前列，跟上时代潮流，为其他院系做出榜样，也为系统的普遍应用做铺垫。
系统设计
一、总体设计
5 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
（一）基本框架
本系统是一个学校管理系统，其下有三大模块，即三大子系统：信息管理系统，学籍管理系统，以及图书馆管理系统。 1.信息管理系统
a. 学生信息：基本信息：学号、班级、宿舍、姓名、住址、电话等
体检信息：入学体检、毕业体检
b. 员工信息：基本信息：姓名、教授课程、部门等
档案：姓名、住址、电话等 2.学籍管理：
a. 学生成绩管理：成绩录入、成绩查询、不及格名单、学生总分名次、综合测评表、毕业设计、实习管理、
班级查询、设置年级课程等
b. 员工培训管理：员工姓名、培训课程、培训费用等。 3.图书馆管理系统： （该部分尚未开发）
（二）系统功能模块设计
系统的功能模块图如下：
6 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
系统 学生信息管理 员工信息管理 班级信息管理 课程信息管理 成绩信息管理 综合测评 毕业管理 图书馆管理 基本信息 体检信息 基本信息 培训信息 班级查询 班级浏览 基本课程 各班课程 成绩信息 成绩输入 成绩查询 综合测评信息 综合测评图示 毕业设计 实习管理
学生信息管理部分分为基本信息、体检信息两部分。
员工信息管理部分分为基本信息和培训信息两部分。员工培训信息部分可以浏览所有员工培训的资料，添加新的培训资料，修改需要改的信息。
班级信息管理部分分为班级查询和班级浏览两部分。班级查询部分可以依各条件查询所有班级信息。班级浏览部分支持资料的修改和删除以及班级资料的报表打印。
课程信息管理部分分为学校基本课程，各班课程设置两部分。学校基本课程设置部分提供所有课程的设置，可以查询、添加、删除、筛选。各班课程设置部分则根据各个班级情况从已经设置好的基本课程中选择所需要的课程，或者删除不需要的课程，同样支持报表打印。
成绩信息管理部分分为学生成绩信息、补考/重修/积考成绩输入和学生成绩查询三部分。学生成绩信息部分可以浏览所有成绩信息，并能输入/修改，支持报表打印。补考、重修、积考成绩输入部分可以添加/修改补考、重修、积考成绩。学生成绩查询部分可以查询所有成绩、补考成绩、重修成绩和积考成绩。
综合测评部分分为综合测评信息和综合测评图示两部分。综合测评信息部分显示所有综合测评资料，并能实现多项查询，支持打印。综合测评图示部分能依每个人的成绩显示不同的二维图。
毕业管理部分分为毕业设计、实习管理两部分。毕业设计部分能浏览所有学生的毕业设计资料，并能进
7 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
行资料的添加/修改。实习管理部分能浏览所有学生的实习资料，并能进行资料的添加/修改。
图书馆管理部分。
（三）系统的总体流程结构设计
如图所示：
界面接口 登陆接口 MDI主接口 创建用户 毕业设计 毕业管理 实习管理 学生信息管理 员工信息管理 班级信息管理 基本信息 基本信息 班级查询 体检信息 培训信息 班级浏览 课程信息管理 成绩信息管理 综合测评 学校基本课程 学生成绩信息 综合测评信息 各班课程设置 学生成绩查询 综合测评图示 补考、重修、积考成绩输入 图3.1 系统的总体结构
此系统主要由四个部分组成，分别是用户添加及登陆部分，学生信息管理部分，员工信息管理部分，班
8 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
级信息管理部分，课程信息管理部分，成绩信息管理部分，综合测评部分，毕业管理部分以及图书馆部分。
二、详细设计
（一）代码设计
该系统涉及到的代码设计如下，为了简单方便，均使用了顺序码： 学号：顺序码。 员工号：顺序码。
课程代号：四位，顺序码。
（二）数据库设计
数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。
设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。数据库设计一般包括如下两个步骤：1、数据库需求分析。2、数据库逻辑结构分析。
1、数据库需求分析：
这个系统使用的数据库是微软Access2000数据库。其中数据库.mdb，总共有19张资料表。
用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。
针对学校管理的需求，通过对学校内部管理内容和数据流程分析，设计如下所示的数据项和数据结构： 数据库：数据库.mdb
资料表1：按课程类型 列名 课程类型 cancel
资料表2：班级表 列名 年级 教室 专业
数据类型 文本 数字 可否为空 否 是 说明 数据类型 文本 文本 文本 可否为空 是 是 否 9 / 31
说明 学校管理系统 2007级信息管理与信息系统 综合模拟
年制 班主任 备注 Cancel
文本 文本 文本 数字 是 是 是 是 资料表3：毕业设计表 列名 学号 姓名 毕业设计课题名 指导老师名 指导老师所在
资料表4：补考表 列名 学号 姓名 课程代号 课程名称 学期 成绩 Cancel
资料表5：成绩表 列名 学号 姓名 课程代号 课程名称
数据类型 数字 文本 文本 文本 文本 是否为空 否 是 是 是 是 说明 数据类型 文本 文本 文本 文本 文本 文本 数字 是否为空 是 是 是 是 是 是 是 说明 数据类型 文本 文本 文本 文本 是否为空 是 是 是 是 10 / 31
说明 学校管理系统 2007级信息管理与信息系统 综合模拟
学期 成绩 绩点数 Cancel
文本 文本 文本 数字 是 是 是 是 资料表6：各班课程 列名 专业 学期 课程代号 课程名称 Cancel
资料表7：积考表 列名 学号 姓名 课程代号 课程名称 学期 成绩 Cancel
资料表8：教材表 列名 课程代号 课程名 教材
11 / 31
数据类型 文本 文本 文本 文本 数字 是否为空 是 是 是 是 是 说明 数据类型 文本 文本 文本 文本 文本 文本 数字 是否为空 否 是 否 是 是 是 是 说明 数据类型 文本 文本 文本 是否为空 是 是 是 说明 学校管理系统 2007级信息管理与信息系统 综合模拟
资料表9：课程总表 列名 课程代号 课程名 课程类型 课时数 教学要求 学分 学期 Cancel
资料表10：年级表 列名 年级
资料表11：实习表 列名 学号 姓名 实习单位 实习电话
资料表12：学期表 列名 学期
资料表13：学生情况表 列名
数据类型 文本 文本 文本 文本 文本 文本 文本 数字 是否为空 否 是 是 是 是 是 是 是 说明 数据类型 文本 是否为空 否 说明 数据类型 数字 文本 文本 数字 是否为空 否 是 是 是 说明 数据类型 文本 是否为空 是 说明 数据类型 是否为空 12 / 31
说明 学校管理系统 2007级信息管理与信息系统 综合模拟
学号 姓名 性别 系别 班级 政治面貌 家庭地址 联系电话 邮政编码 父亲姓名 母亲姓名 毕业学校 入学成绩 宿舍号 退学 cancel
资料表14：用户表 列名 组名称 组密码 用户名 密码
数字 文本 文本 文本 文本 文本 文本 文本 文本 文本 文本 文本 文本 文本 是/否 数字 否 是 是 是 是 是 是 是 是 是 是 是 是 是 是 是 数据类型 文本 文本 文本 文本 是否为空 是 是 否 是 说明 资料表15：员工信息表 列名 员工号 姓名 性别
数据类型 数字 文本 文本 是否为空 否 是 是 13 / 31
说明 学校管理系统 2007级信息管理与信息系统 综合模拟
职称 培训时间 培训部门 培训费用 培训课程 培训性质 培训情况
文本 文本 文本 文本 文本 文本 文本 是 是 是 是 是 是 是 资料表16：员工信息表 列名 员工号 姓名 性别 政治面貌 教授课程 所属部门 职称 工资级别 联系电话 家庭住址 Cancel
资料表17：重修表 列名 学号 姓名 课程代号 课程名 学期
数据类型 数字 文本 文本 文本 文本 文本 文本 数字 数字 文本 数字 是否为空 否 是 是 是 是 是 是 是 是 是 是 说明 数据类型 文本 文本 文本 文本 文本 是否为空 是 是 是 是 是 14 / 31
说明 学校管理系统 2007级信息管理与信息系统 综合模拟
成绩 Cancel
文本 数字 是 是 资料表18：综合测评表 列名 学号 姓名 政治思想分 学业成绩 科技创新能力分 社会实践能力 体育锻炼 附加/减分
资料表19：组表 列名 组名 密码 数据类型 文本 文本 是否为空 否 是 说明 数据类型 文本 文本 文本 文本 文本 文本 文本 文本 是否为空 否 是 是 是 是 是 是 是 说明
2、数据库逻辑结构分析： 下图以部分E-R图设计说明：
15 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
学号姓名班级性别联系电话出生日期入校时间家庭住址备注1 属于属于 班号1 学籍学生 上课上课 课程类型课程描述N 年级班级教室考试编号属于 属于分数课程名称课程编号N 1 班主任姓名年级信息成绩考试班级设置 年级设计M 年级信息N 课程设置 课程设置M 课程年级课程学分课程名称
班级（年级，专业，年制，班主任，备注）
毕业设计（学号，毕业设计课题名，姓名，指导老师名，指导老师所在） 成绩（学号，课程代号，姓名，课程名，学期，成绩，绩点）
课程（课程代号，课程名，课时数，教学要求，学分，学期，课程类型）
学生（学号，姓名，性别，政治面貌，家庭地址，联系电话，父亲姓名，母亲姓名，毕业学校，入学成绩，宿舍号，系别，班级）
员工（员工号，姓名，性别，政治面貌，教授课程，所属部门，职称工资级别，联系电话，家庭住址） 员工培训（员工号，培训课程，姓名，性别，职称，培训时间，培训部门，培训费用，培训性质，培训情况）
（三）窗体设计
根据系统的功能模块划分，该系统设计如下窗体： 界面（界面.frm）
用户登录（用户登录.frm） 创建用户（创建用户.frm）
16 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
lib（各班课程设计.frm） MDIForm1（MDIForm1.frm） 班级查询（班级查询.frm）
班级查询结果（班级查询结果.frm） 班级浏览（班级浏览.frm） 毕业设计（毕业设计.frm）
补考成绩查询结果（补考成绩查询结果.frm） 成绩查询结果（成绩查询.frm） 成绩输入（成绩输入.frm）
各班课程设置（各班课程设置.frm）
积考成绩查询结果（积考成绩查询结果.frm） 实习管理（实习管理.frm）
学生成绩查询（学生成绩查询.frm） 学生成绩输入（学生成绩输入.frm）
学生成绩输入数据显示（学生成绩输入数据显示.frm） 学生基本信息（学生基本信息.frm） 学生体检信息（学生体检信息.frm） 学校基本课程（学校基本课程.frm） 员工基本信息（员工基本信息.frm） 员工培训信息（员工培训信息.frm）
重修成绩查询结果（重修成绩查询结果.frm） 综合测评（综合测评.frm）
综合测评信息（综合测评信息.frm） 关于（关于.frm）
（四）处理过程（IPO）设计
以成绩查询为例，说明该系统的IPO设计：
17 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
开始 输入查询条件 N 用户合法 N Y 条件合法 Y 显示查询结果 结束
系统实施
下面介绍系统实施过程中部分窗体界面、代码及简要解释。
1、界面窗体（界面.frm）
18 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
图1界面窗体
这是一个运行的主界面，在控件中增加了ProgressBar，再利用Time控件来控制其的变化。 Private Sub Timer1_Timer()
If ProgressBar1.Value = ProgressBar1.Max Then '当ProgressBar的达到100（max设定值）时触发 Unload Me 用户登陆.Show
Timer1.Enabled = False '停止时钟 End If
ProgressBar1.Value = ProgressBar1.Value + 2.5 'ProgressBar的值每次加2.5 'timer属性中设定每0.05秒触发一次，因此展示窗体显示时间移动为2秒 End Sub
2、用户登陆窗体（用户登陆.frm）
19 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
图2用户登陆窗体
这是个用户登陆的窗体，用DataCombo来设置了连接数据库的所有组名称，用于方便选择。DataSource来源于DataEnvironment1,DataMember来源于组表，DataField来源于组名，RowSource来源于DataEnvironment1,RowMember来源于组表，ListFiele来源于组名。 Option Explicit
Dim rstS As ADODB.Recordset Private Sub Command2_Click() If Text1.Text = \"\" Then
MsgBox \"用户名不能为空！\警告\" Text1.SetFocus Exit Sub
End If '防止空用户名 If Text2.Text = \"\" Then
MsgBox \"密码不能为空！\警告\" Text2.SetFocus Exit Sub
End If '防止空密码 Do
If DataCombo1.Text = rstS(0) And Text1.Text = rstS(2) And Text2.Text = rstS(3) Then If rstS(0) = \"管理员\" Then admin = 1 Else
20 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
admin = 0 End If MDIForm1.Show rstS.Close Unload Me Exit Do
End If '当用户名和密码相符的时候，进入主窗体，跳出循环 rstS.MoveNext
If rstS.EOF = True Then
MsgBox \"密码错误，请重新输入！\警告\" Text2.Text = \"\" Text2.SetFocus rstS.MoveFirst Exit Do
End If '用户名或者密码不相符或者不存在，都出现提示密码错误的对话框，跳出循环 Loop '循环搜索每条记录，直到出现以上两种结果的一种 End Sub
Private Sub Form_Load()
Set rstS = DataEnvironment1.rs用户表 rstS.MoveFirst End Sub
3、班级浏览窗体（班级浏览.frm）
21 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
图3班级浏览窗体
这是一个班级浏览窗体，用DataGrid调用了整张班级表，用追加实现对表中列的布局，用Adodc控制了记录的变化，同时用DataCombo调用数据库的年级表来实现对年级的筛选，此外还运用了数据报表。 班级表.Filter = \"年级 like '\" & DataCombo1.Text & \"%'\" '按年级过滤
班级表.Filter = \"cancel like '0'\" '取消过滤，实际是根据cancel项进行过滤，此项是数据型，默认为0
4、学生成绩查询窗体（学生成绩.frm）
22 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
图4学生成绩查询窗体
这是学生成绩查询窗体，在控件中增加了SSTab来定义同类风格，是四个查询、四张表都能集中在一个窗体中，简单清晰。 Private Sub Form_Load()
Set rstS = DataEnvironment2.rs成绩表 Set a = DataEnvironment2.rs补考表 Set b = DataEnvironment2.rs重修表 Set c = DataEnvironment2.rs积考表 End Sub
5、学生成绩输入数据显示窗体（学生成绩输入数据显示.frm）
23 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
图5学生成绩输入数据显示窗体
这是学生成绩输入数据显示窗体，整页设置风格大方，操作简便，一目了然，利用DataGrid调用数据库中的成绩表，同时也利用了追加实现了对表中列的布局。数据报表可以综观所有相关报表信息，输入按扭可以实现对学生成绩的录入。 Private Sub Command4_Click() Adodc1.Caption = \"删除\"
If MsgBox(\"真的要删除当前记录吗?\删除\") = vbOK Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast End If End If End Sub
Private Sub Command5_Click()
Adodc1.Recordset.UpdateBatch adAffectAllChapters '刷新记录
24 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
End Sub
6、学校基本课程
图6学校基本课程
这是学校基本课程窗体，整页综合了多项控件，但并不显得杂反而很有条理。三个Lable设置了排序、查找、筛选三个功能模块，而在排序和查找模块中又分别用了三个Option来做出选择，用Adodc连接了后台数据库用DataGrid实现前台数据的展现，DataCombo的选择来实现筛选。 Private Sub Command8_Click() If Option1.Value = True Then Adodc1.Recordset.Sort = \"课程代号 \" End If
If Option2.Value = True Then
Adodc1.Recordset.Sort = \"课程名 desc \" ElseIf Option3.Value = True Then
25 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
Adodc1.Recordset.Sort = \"学分 desc,课程代号\" End If End Sub
Private Sub Command9_Click() Adodc1.Recordset.MoveFirst If Option4.Value = True Then
Adodc1.Recordset.Find (\"教学要求 like '\" & Text7.Text & \"%'\") End If
If Option5.Value = True Then
Adodc1.Recordset.Find (\"学分 like '\" & Text7.Text & \"%'\") ElseIf Option6.Value = True Then
Adodc1.Recordset.Find (\"学期 like '\" & Text7.Text & \"%'\") End If
If Adodc1.Recordset.EOF Then MsgBox \"未找到!\"
Adodc1.Recordset.MoveLast End If End Sub
7、毕业设计窗体（毕业设计.frm）
26 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
图7毕业设计窗体
这是毕业设计窗体，这页的特点在于利用了特效。用Adodc连接了后台数据库中的毕业设计表，8个Command可以实现诸多功能，特色在于三个Time控件，会使左右两边的“毕业设计信息”字样呈闪烁状态，此外还有当前时间的显示。 Private Sub Timer1_Timer() Dim i As Integer For i = 1 To 255
Label6.ForeColor = RGB((Rnd * 255 + 1), (Rnd * 255 + 1), (Rnd * 255 + 1)) Label7.ForeColor = RGB((Rnd * 255 + 1), (Rnd * 255 + 1), (Rnd * 255 + 1)) Next End Sub
Private Sub Timer2_Timer() Label8.Caption = Time Label9.Caption = Date End Sub
Private Sub Timer3_Timer() If Label6.Visible = True Then Label7.Visible = True Label6.Visible = False
27 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
ElseIf Label7.Visible = True Then Label6.Visible = True Label7.Visible = False End If End Sub
8、综合测评窗体（综合测评.frm）
图8综合测评窗体
这是综合测评窗体，在这里增加了控件MSChart，利用Adodc调用数据的变化而时图表呈现变化状态，成为又一新亮点。
Private Sub Form_Load() MSChart1.Data = Text6.Text MSChart1.Data = Text7.Text MSChart1.Data = Text8.Text MSChart1.Data = Text3.Text MSChart1.Data = Text4.Text MSChart1.Data = Text5.Text Set rs = Adodc1.Recordset
28 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
End Sub
Private Sub Text1_Change() MSChart1.Data = Text6.Text MSChart1.Data = Text7.Text MSChart1.Data = Text8.Text MSChart1.Data = Text3.Text MSChart1.Data = Text4.Text MSChart1.Data = Text5.Text End Sub
系统评价
本系统是针对学校开发的信息、学籍、图书馆管理软件，实现对学校现代化信息管理。
学籍管理系统以学号和员工号生成，能够快速的录入成绩、设置课程等，极大的方便了学校对于学生成绩和员工工作状况的管理；而信息管理系统是与学籍管理系统数据共享的，其中各式各样的报表方便了信息的管理；图书馆管理系统则是现代学校的典型的一个管理系统，它实现了对书籍的各式管理。
系统总体结构：系统开发的总体任务是实现信息关系的系统化、规范化和自动化。 1、信息系统化
通过该系统，将实现各种数据的共享，方便了信息的管理。 2、学校管理系统规范化
该系统只要包括：信息管理系统、学籍管理系统、图书馆管理系统，这些管理系统将建立在一个规范标准的界面之上，大大提高了学校的管理水平。 3、图书资料检索借阅自动化
通过图书馆管理系统，实现图书检索和借阅，从而一方面能作到资料共享。另一方面，能大大简化借阅手续，提高图书利用率和图书管理工作效率。 1、系统优点：
接口美观大方，界面风格统一。整个系统包含了学生信息管理，员工信息管理，班级信息管理，课程信息管理，成绩信息管理，综合测评，毕业管理，这几部分都能够非常快捷的对资料内容进行添加修改删除以及报表打印等操作。 2、系统缺点：
29 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
学校管理系统的局限性：该系统是单机版，所以使用范围得到了限制。不能实现局域网上的多台机器，共享同一数据库。而信息管理系统，需要多个职能部门来参与管理，比如学生信息以及成绩的录入，需要教师来管理。 而教师的信息需要学校教务部门来管理。图书信息的管理，需要图书馆来完成。 因此，系统的单机性质，制约了系统在学校的广泛应用。
查询模块做的不是很理想，只能进行单条件查询。系统不是很完善，有待补充。 3、可扩充内容
使用者的权限，成绩管理部分，数据库备份和恢复等。
系统使用说明书（用户操作说明）
1. 软硬件环境
硬件配置：内存>518M。
软件配置：Windows 2000/xp操作系统，Visual Basic 6.0数据库管理系统。 2. 应用系统安装
直接拷贝：在任意盘目录下建立子文件夹综合模拟，将光盘根目录中所用的文件复制到任意盘文件夹综合模拟中。初次运行时，须对某些文件进行重定向。 3. 操作方法 (1)启动应用系统
先启动Visual Basin 6.0运行后缀为“.exe” 可执行文件。 (2)登陆系统
输入用户名和准确的密码，（提供管理员账号admin,密码admin）进入父窗体，即可进入相应的子系统，进行相应的操作，选择“退出“按钮可以退出系统。 (3)用户管理，可以进行添加和删除用户。（管理员权限）
添加：输入用户编号，用户名字，用户密码以及密码确认，就可以添加为管理系统用户。 删除：输入用户编号，经确认之后，再输入用户密码，即可以删除用户。
30 / 31
学校管理系统 2007级信息管理与信息系统 综合模拟
附：小组成员分工
李震（组长）：系统代码实现
尹伟：系统页面美化及部分数据库设计 周平：部分数据库设计 赵赫晴：系统分析
另：全体成员就自己负责的部分合作完成系统开发报告
31 / 31
因篇幅问题不能全部显示，请点此查看更多更全内容