毕业设计论文中小学教学管理系统VB6.0Access2000含源程序

《毕业设计论文中小学教学管理系统VB6.0Access2000含源程序》由会员分享，可在线阅读，更多相关《毕业设计论文中小学教学管理系统VB6.0Access2000含源程序（40页珍藏版）》请在装配图网上搜索。

1、摘 要全套源程序代码，联系 153893706教学系统是典型的信息管理系统 (MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备 ,易使用等特点。我们使用 MICROSOFT 公司的 VISUAL BASIC 开发工具,利用其提供的各种面向对象的开发工具 ,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象 ,首先在短时间内建立系统应用原型 ,然后,对初始原型系统进行需求迭代 ,不断修正和改进 ,直到形成用户满意的可行系统。关键词：VISUAL BASIC、控件、窗体、域目录

2、摘摘 要要.1ABSTRACT.2目目录录 .3前前言言 .5第第一一章章 教教学学系系统统应应用用分分析析及及实实现现 .6第第二二章章 开开发发工工具具简简介介 .72.1 VISUAL BASIC 6.0 简介 .72.2 ACCESS2000 关系数据库应用 .72.3 数据库访问方法 .7第第三三章章 VISUAL BASIC 开开发发方方法法 .83.1 菜单 .83.2 工具栏 .83.2.1 CoolBar控件.83.2.2 Toolbar控件.93.3 联机帮助 .93.4 项目信息 .9第第四四章章 ACCESS2000 数数据据库库应应用用的的实实现现 .104.1 数据

3、库概念 .104.2 建立数据库 .104.3 修改数据库 .114.4 数据库联接共享 .114.5 数据库原理 .114.5.1 系统设计要求 .124.5.2系统设计步骤.124.5.3设计分析.15第第五五章章 教教学学系系统统开开发发的的可可行行性性规规则则.1751 教学系统开发过程 .175.1.1 软件计划.175.1.2 需求分析.175.1.3 软件设计.175.1.4 编程.175.1.5 测试.17第第六六章章 教教学学管管理理系系统统设设计计 .186.1 数据输入 .186.2 教学管理查询 .186.3 信息浏览 .186.4 报表输出 .186.5 系统设计与实

4、现 .186.5.1数据库设计.196.5.2 主界面设计.206.6 功能设计 .216.6.1 编辑管理模块.216.6.2 查询模块.30第第六六章章 总总结结 .33参参考考资资料料 .33附附录录 .34前言教学系统是一个教育单位不可缺少的部分 ,它的内容对于学校的决策者和管理者来说都至关重要 ,所以教学系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件教学管理，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长 ,将产生大量的文件和数据 ,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高 ,计算机科学日渐成熟 ,其

5、强大的功能已为人们深刻认识 ,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分 ,使用计算机对教学信息进行管理 ,具有着手工管理所无法比拟的优点 .例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高教学的效率 ,也是企业的科学化、正规化管理 ,与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套教学系统为例 ,谈谈其开发过程和所涉及到的问题及解决方法。第一章 教学系统应用分析及实现管理信息系统（ MIS）是进行信息的采集、存储、加工、维护和使用的系统。它是随着管理科学和技术科学

6、的发展而形成的。教学系统是一个教育单位不可缺少的部分 ,它的内容对于学校的决策者和管理者来说都至关重要 ,所以教学系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件教学管理，这种管理方式存在着许多缺点 ,如:效率低、保密性差 ,另外时间一长 ,将产生大量的文件和数据 ,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高 ,计算机科学日渐成熟 ,其强大的功能已为人们深刻认识 ,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分 ,使用计算机对教学信息进行管理 ,具有着手工管理所无法比拟的优点 .例如:检索迅速、查找方便

7、、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高教学的效率 ,也是企业的科学化、正规化管理 ,与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情, 。教学系统是我个人根据所学开发的信息管理系统 (MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备 ,易使用等特点。经过分析,我使用 MICROSOFT 公司的 VISUAL BASIC 开发工具,利用其提供的各种面向对象的开发工具 ,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象 ,首

8、先在短时间内建立系统应用原型 ,然后,对初始原型系统进行需求迭代 ,不断修正和改进 ,直到形成用户满意的可行系统。第二章 开发工具简介2.1 Visual Basic 6.0 简简介介微软公司的 Visual Basic 6.0 是 Windows 应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic 提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB 是一个相对较好的选择。2.2 Access2000 关关系系数数据据库库应应用用数据库能汇

9、集各种信息以供查询、存储和检索。 Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access 也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述， Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。2.3 数数据据库库访访问问方方法法JET

10、数据库引擎提供了与数据库打交道的途径，我们是通过它以及 Visual Basic 来访问数据库并对其进行各种操作。 Visual Basic、Access 以及其他微软的软件产品都是通过共用JET 数据库引擎，从而给用户提供了丰富的数据类型。在 Visual Basic 中 DATA 控件在数据库中的信息与将信息显示给用户看的 Visual Basic 程序之间架起了一座桥梁。我们可以设置DATA 控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA 控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，

11、当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。 DATA 控件还提供了用来浏览不同记录的各种跳转按钮。将 DATA 控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。第三章 Visual Basic 开发方法Visual Basic 应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和 方法） 。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性可说扩展性和强有力的功能。 Visual Basic 应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令

12、按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。3.1 菜菜单单菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和维护， Visual Basic 也提供了强大的创建菜单功能是程序更加标准。您可以使用 Visual Basic 的 Application Wizard 也可以使用Visual Basic 的菜单编辑器建立菜单或者修改已经存在的菜单。 3.2 工工具具栏栏3 3. .2 2. .1 1 C Co oo ol lB Ba ar r 控控件件CoolBar 控件与 Office2000 中看到的 CoolBar 是类似的。CoolBar 就是一个

13、可以在窗体上浮动的工具，同时也是其他ActiveX 的容器。通过在 CoolBar 中迁入其他空间你局可以向用户提供更好的灵活性和义用性。3 3. .2 2. .2 2 T To oo ol lb ba ar r 控控件件Toolbar 是工具条控件，是实现工具条的主体。其中的按钮可以显示图像和标题，并按功能分组或加入分隔符，还可以围棋设置鼠标停留在其上显示的提示字符。 Toolbar 也是一个控件容器且具有Style 属性，并可以为其增加下拉按钮和平滑按钮等。选择“工程”下拉菜单中的 “部件”选项，显示 “部件”对话框。在“控件”选项卡列表中选择 “Microsoft Windows Com

14、mon Controls 6.0”后工具相中增加改控件。其属性及对象如下：Align 属性定义工具条在窗体中的位置ToolTipText 属性是字符串类型，定义控件的提示字符Style 属性定义按钮外观。ImageList 属性定义与数据条对应的 ImageList 控件名，该控件定义工具条按钮显示的图像。HotImangeList 属性设置一个 ImageList 控件名，该控件定义按钮获得热点时显示的图像。DisabledImageList 属性定义工具条按钮无效时显示的图像。创建工具条包括 ImageList 和 Toolbar 控件ImageList 用于为其他控件提供图像库，将Ima

15、geList 控件加入到工具箱的操作于前述 Toolbar 控件相同。3.3 联联机机帮帮助助专业水平的软件通常都带有联机帮助功能。无论写出来的程序是要给大量的用户使用，还是仅仅局限于公司内部有限的使用者，我们都应该为用户提供详细的、易于理解的联机帮助文档。微软的MSDN 是一套独立于 Visual Basic 的用来协助我们创建、运行于32 位 Windows 操作系统下的帮助文件的工具。使用它我们可以为我们编写的应用程序生成一组帮助文件。3.4 项项目目信信息息为了是程序显得更具有专业风格，首先可以在其中加入通常的应用程序信息。这些信息包括公司名称、版本号、修订号以及其他类似信息。Visu

16、al Basic 允许你使用 APP 对象来保存这些信息， APP 对象是一个预定义对象，不需要在程序中创建它。 APP 对象的大多数属性被应用程序用来提供常规的信息，通过使用这些APP 提供的属性，可以在应用程序和用户之间交流重要信息，在项目属性框中可以设置它的属性。第四章 Access2000 数据库应用的实现4.1 数数据据库库概概念念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（ flat-file）和关系数据库（relational） 。关系数据库中包含了多个数据表的信息，数据库含

17、有各个不同部分的术语，象记录、域等。 4.2 建建立立数数据据库库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1标识需要的数据；2收集被标识的字段到表中；3标识主关键字字段；4绘制一个简单的数据图表；5规范数据；6标识指定字段的信息；7创建物理表。4.3 修修改改数数据据库库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。4.4 数数据据库库联联接接共共享享数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的

18、表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。4.5 数数据据库库原原理理一个成功的信息管理系统，是建立在许多条件之上的，而数据库是其中一个非常重要的条件和关键技术。信息管理系统所涉及的数据库设计分五个步骤：数据库需求分析、概念设计、逻辑设计、物理设计与加载测试。一是数据库

19、需求分析的任务是将业务管理单证流化为数据流，划分主题之间的边界，绘制出 DFD 图，并完成相应的数据字典。二是概念设计的任务是从 DFD 出发，绘制出本主题的实体关系图，并列出各个实体与关系的纲要表。三是逻辑设计的任务是从 E-R 图与对应的纲要表出发，确定各个实体及关系的表名属性。四是物理设计的任务是确定所有属性的类型、宽度与取值范围，设计出基本表的主键，将所有的表名与字段名英文化，实现物理建库，完成数据库物理设计字典。五是加载测试工作贯穿于程序测试工作的全过程，整个录入、修改、查询、处理工作均可视为对数据库的加载测试工作。要设计出一个好的信息管理系统数据库，除满足系统所要求的功能外，还必须

20、遵守下列原则：基本表的个数越少越好。主键的个数越少越好。键是表间连接的工具，主键越少，表间的连接就越简单。字段的个数越少越好。所有基本表的设计均应尽量符合第三范式。数据库的设计中，如何处理多对多的关系和如何设计主键，是两个有着较大难度、需要重点考虑的问题。下面我们着重从应用、数据库设计范式和查询优化等方面来分析本课题的系统关键技术和实现难点并加以解决。4.5.1 系系统统设设计计要要求求信息系统的主要任务是通过大量的数据获得管理所需要的信息，这就必须存储和管理大量的数据。因此建立一个良好的数据组织结构和数据库，使整个系统都可以迅速、方便、准确地调用和管理所需的数据，是衡量信息系统开发工作好坏的

21、主要指标之一。4 4. .5 5. .2 2 系系统统设设计计步步骤骤数据库设计主要是进行数据库的逻辑设计，即将数据按一定的分类、分组系统和逻辑层次组织起来，是面向用户的。数据库设计时需要综合企业各个部门的存档数据和数据需求，分析各个数据之间的关系，按照 DBMS 提供的功能和描述工具，设计出规模适当、正确反映数据关系、数据冗余少、存取效率高、能满足多种查询要求的数据模型。数据库设计的步骤是：1.数据库结构定义：目前的数据库管理系统（ DBMS）有的是支持联机事务处理 CLTP（负责对事务数据进行采集、处理、存储）的操作型 DBMS，有的可支持数据仓库、有联机分析处理CLAP（指为支持决策的制

22、定对数据的一种加工操作）功能的大型DBMS，有的数据库是关系型的、有的可支持面向对象数据库。针对选择的DBMS，进行数据库结构定义。2.数据表定义：数据表定义指定义数据库中数据表的结构，数据表的逻辑结构包括：属性名称、类型、表示形式、缺省值、校验规则、是否关键字、可否为空等。关系型数据库要尽量按关系规范化要求进行数据库设计，但为使效率高，规范化程度应根据应用环境和条件来决定。数据表设计不仅要满足数据存储的要求，还要增加一些如反映有关信息、操作责任、中间数据的字段或临时数据表。3.存储设备和存储空间组织：确定数据的存放地点、存储路径、存储设备等，备份方案，对多版本如何保证一致性和数据的完整性。数

23、据使用权限设置：针对用户的不同使用要求，确定数据的用户使用权限，确保数据安全。4.数据字典设计：用数据字典描述数据库的设计，便于维护和修改。为了更好地组织数据和设计出实际应用数据库，应该注意如下问题：规范化地重组数据结构：对数据进行规范化表达，这在后面将会具体讨论。关系数据结构的建立：在进行了数据基本结构的规范化重组后，还必须建立整体数据的关系结构。这一步设计完成后数据库和数据结构设计工作基本完成，只待系统实现时将数据分析和数据字典的内容代入到所设计的数据整体关系结构中，一个规范化数据库系统结构就建立起来了。 建立关系数据结构涉及三方面内容：确定关联的关键指标项并建立关联表；确定单一的父系记录

24、结构；建立整个数据库的关系结构。 1.链接关系的确定 在进行了上述数据规范化重组后，已经可以确保每一个基本数据表(我们简称为表 )是规范的，但是这些单独的表并不能完整地反映事物，通常需要通过指标体系整体指标数据才能完整全面地反映问题。也就是说在这些基本表的各宇段中，所存储的是同一事物不同侧面的属性。那么计算机系统如何能知道哪些表中的哪些记录应与其它表中的哪些记录相对应，它们表示的是同一个事物呢 ?这就需要在设计数据结构时将这种各表之间的数据记录关系确定下来。这种表与表之间的数据关系一般都是通过主或辅关键词之间的连接来实现的。因为在每个表中只有主关键词才能唯一地标识表中的这一个记录值(因为根据第

25、三范式的要求，表中其它数据字段函数都依赖于主关键词)，所以将表通过关键词连接就能够唯一地标识出某一事物不同属性在不同表中的存放位置。2.确定单一的父子关系结构 所谓确定单一的父系关系结构就是要在所建立的各种表中消除多对多（以下用 M:N 来表示）的现象，即设法使得所有表中记录之间的关系呈树状结构 (只能由一个主干发出若干条分支，而不能有若干条主干交错发出若干条分支状况 )。所谓的“父系”就是指表的上一级关系表。消除多对多关系可以借助于E-R 图的方法来解决，也可以在系统分析时予以注意，避免这种情况的发生。 消除这种 M:N 情况的办法也很简单，只需在二表之间增加一个表，则原来 M:N 的关系就

26、改成了 M:1，1:N 的关系了。3.确定数据资源的安全保密属性：一般 DBMS 都提供给我们自己定义数据安全保密性的功能。系统所提供的安全保密功能一般有 8 个等级(0-7 级)，4 种不同方式 (只读、只写、删除、修改 )，而且允许用户利用这 8 个等级的 4 种方式对每一个表自由地进行定义。 定义安全保密性的方法一般有如下几种： a原则上所有文件都定义为 4 级，个别优先级特别高的办公室(终端或微机的入网账号 )可定义高于 4 级的级别，反之则定义为低于 4 的级别。 b.统计文件(表)和数据录入文件一般只对本工作站定义为只写方式，对其它工作站则定义为只读方式。c财务等保密文件一般只对中

27、工作站 (如财务科等 )定义为可写、可改、可删除方式，对其它工作站则定义为只读方式，而且不是每个人都能读，只有级别相同和高级别者才能读。4 4. .5 5. .3 3 设设计计分分析析 建立起一个良好的数据指标体系，是建立数据结构和数据库的最重要的一环。一个良好的数据指标体系是建立DB 的必要条件，但不是充分条件。我们完全可以认为所建指标体系中的一个指标类就是关系数据库中的一个基本表，而这个指标类下面的一个个具体指标就是这个基本表中的一个字段。但如果直接按照这种方式建库显然还不能算最佳。对于指标体系中数据的结构在建库前还必须进行规范化的重新组织。 数据组织的规范化形式 在数据的规范化表达中，一

28、般将一组相互关联的数据称为一个关系(relation)，而在这个关系下的每个数据指标项则被称为数据元素(data element)，这种关系落实到具体数据库上就是基本表，而数据元素就是基本表中的一个字段 (field)。规范化表达还规定在每一个基本表中必须定义一个数据元素为关键字 (key)，它可以唯一地标识出该表中其它相关的数据元素。在规范化理论中表是二维的，它有如下四个性质：性质一:在表中的任意一列上，数据项应属于同一个属性 (如图中每一列都存放着不同合同记录的同一属性数据 )。 性质二:表中所有行都是不相同的，不允许有重复组项出现(如图中每一行都是一个不同的合同记录 )。性质三:在表中，

29、行的顺序无关紧要 (如图中每行存的都是合同记录，至于先放哪一个合同都没关系 )。 性质四:在表中，列的顺序无关紧要，但不能重复 (如图中合同号和合同名谁先谁后都没关系，但二者不可重复或同名)。 在对表的形式进行了规范化定义后，数据结构还有五种规范化定义，定名为规范化模式，称为范式。在这五种范式中，一般只用前三种，对于常用系统就足够了。而且这五种范式是 “向上兼容”的，即满足第五范式的数据结构自动满足一、二、三、四范式，满足第四范式的数据结构自动满足第一、二、三范式， ，依此类推。第一范式(first normal form，简称 1st NF)就是指在同一表中没有重复项出现，如果有则应将重复项

30、去掉。这个去掉重复项的过程就称之为规范化处理。在本文所讨论的开发方法里， 1st NF 实际上是没有什么意义的。因为我们按规范化建立的指标体系和表的过程都自动保证了所有表都满足 1st NF。 第二范式(second normal form，简称 2nd NF)是指每个表必须有一个 (而且仅一个 )数据元素为主关键字(primary key)，其它数据元素与主关键字一一对应。例如，如果我们将合同号定义为主关键字 (其它数据元素中的记录数据都有可能重名，故不能作为主关键字 )，故只要知道了一个合同记录的合同号，就可以唯一地在同一行中找到该合同的任何一项具体信息。通常我们称这种关系为函数依赖 (f

31、unctional depEndence)关系。即表中其它数据元素都依赖于主关键字，或称该数据元素唯一地被主关键字所标识。第三范式 (third normal form，简称 3rd NF)就是指表中的所有数据元素不但要能够唯一地被主关键字所标识，而且它们之间还必须相互独立，不存在其它的函数关系。也就是说对于一个满足了 2nd NF 的数据结构来说，表中有可能存在某些数据元素依赖于其它非关键宇数据元素的现象，必须加以消除。为防止数据库出现更新异常、插入异常、删除异常、数据冗余太大等现象，关系型数据库要尽量按关系规范化要求进行数据库设计。第五章 教学系统开发的可行性规则51 教教学学系系统统开开

32、发发过过程程管理信息系统的开发是一个复杂的系统工程。开发过程可划分为下列六个阶段，每个阶段有明确的开发任务。5 5. .1 1. .1 1 软软件件计计划划确定系统的总目标、功能、性能、可靠性以及接口等方面。对系统使用的资源、成本、可取得的效益进行分析，探讨解决问题的方案，最终完成系统的可行性研究。5 5. .1 1. .2 2 需需求求分分析析应确定哪些需求是可以满足的，并对此进行描述，写出软件需求说明书以及初步制作的系统的草稿。5 5. .1 1. .3 3 软软件件设设计计应把已确定的各项需求转换成相应的体系结构。其中包括根据数据需求抽象为系统概念模式，并进面定义成相应的数年据库；把已确

33、定的各项功能划分为相应的模块，使每个模块和特定的功能需求相对应。然后，对模块完成的工作进行具体的描述。5 5. .1 1. .4 4 编编程程编写程序是将软件设计转换为程序代码的过程，完成软件设计中每功能模块程序设计。5 5. .1 1. .5 5 测测试试将编程完成的程序代码通过测试检查软件的各个组成部分的正确性，确定是达了要求。第六章 教学管理系统设计设计教学管理系统，需要运用窗体和控件、过程代码、数据库设计等许多知识。教学管理系统包括教学管理名称、教学管理说明、教学管理类型等。教学管理就是将上述信转变为计算机能接受的数据送入计算机，系统包括教学数据输入、信息查询、信息浏览及报表输出等功能

34、。6.1 数数据据输输入入对师生信息的管理，包括师生信息的输入、添加、删除和修改。6.2 教教学学管管理理查查询询通过查询，将满足查询条件的信息显示在窗体上。6.3 信信息息浏浏览览将满足分析条件的数据在报表中显示出来。6.4 报报表表输输出出可以将查询的结果数据通过报表输出，也可打印输出。6.5 系系统统设设计计与与实实现现系统设计包括登陆界面设计、数据库设计、主界面设计、菜单设计和功能设计。功能设计包括输入设计、查询等设计。原代码见附录。 6 6. .5 5. .1 1 数数据据库库设设计计本系统以学校的教师情况，联系管理为基本设计要求，主要功能包括对教师的电话，工资情况、基本情况等进行编

35、辑、查询、报表等管理，工资 数据库采用 Access 数据库，使用 VisData 或在 Access环境中创建数据库信息表 格 3 张及查询表格 1 张。 （图 1）教师电话号码表用于写入各教师联系方式及联系方式备注，表里包括编号、电话号码、备注 3 个字段名，数据类型都为文本。工资情况表用于记录各项工资情况及补贴、保险等数据，表内有包括以下字段名：编号基本工资省补贴市补贴工龄工资课时补贴全勤奖医疗保险养老保险住房公积金实发工资除第一项编号的数据类型为文本，其余类型为数字。基本情况表用于记录教师的基本情况，表内包括以下字段：编号姓名性别籍贯出生年月政治面目婚否毕业时间和地点近照备注最后，通过

36、数环境设计器的查询设计窗口，将 电话号码表中的字段添加到设计器中。6 6. .5 5. .2 2 主主界界面面设设计计主界面是用户打开系统首先见到的界面，也是进入其他模块的入口。主界面将常用菜单项设计为工具栏，在工具栏上有编辑管理、查询管理、报表管理、和退出菜单。主界面运行如下： （图 2）下面是 4 个按钮 CLICK 事件的设计说明:编辑，展开后分为教师基本情况表 、教师电话号码表和教师工资情况表。Private Sub sube_Click(Index As Integer) Select Case Index Case 1 Load frmteabase frmteabase.Show

37、 Case 2 Load frmteaphone frmteaphone.Show Case 3 Load frmteapay frmteapay.Show End Select End Sub查询，展开后分为教师个人资料和教师电话其他学生资料和学生成绩暂时未开发。Private Sub SUBQ_Click(Index As Integer) Select Case Index Case 1 Load qteabase qteabase.Show Case 3 Load Form3 Form3.Show End SelectEnd Sub报表，展开后分为教师个人情况一览表、教师工资情况表。P

38、rivate Sub subr_Click(Index As Integer) Select Case Index Case 3 rpteapay.Show End SelectEnd Sub退出Private Sub MAINX_Click() Unload MDIForm1 End6.6 功功能能设设计计程序共有 9 个窗体和一个模块。下面介绍几个主要 窗体的功能 ：MDIForm1.frm:程序主界面窗体frmteapay.frm:教师工资情况窗体。输入教师各种工资情况。frmteaphone.frm:工资发放窗体。记录应发，实发工资等情况。frmteabase: 教师基本情况窗体。记录

39、各项基本情况。6 6. .6 6. .1 1 编编辑辑管管理理模模块块编辑管理模块用来输入教师基本信息、电话、工资等，并可插入一张近期照片。运行界面见以下 各图所示：图 3 为教师基本情况 （图 3）此窗体的近照支持 BMP 位图，插入照片的 代码如下Private Sub cmdphoto_Click() Dim where, i As Integer photoname = Cdl.Filter = 位图文件(*.bmp)|*.bmp Cdl.ShowOpen photoname = Cdl.FileName where = 1: i = 1 While where i = where +

40、 1 where = InStr(i, photoname, ) Wend photoname = Mid(photoname, i) photo.Picture = LoadPicture(photoname)End Sub这里使用了 Cdl.filer 引入图片，并使用了 while wend命令来判断位图。下图为教师电话号码表 窗体，此界面由 2 个标签、3 个文本框和 4 个按钮组成。（图 4）功能说明:添加记录,可以在编号和姓名添入内容 ,单击添加按钮,记录将显示在内容窗口。此时可在内容窗口选择记录，使用删除和更新功能。当记录符合条件时将输入数据库，实现代码如下：xm.Caption

41、 = rs1.Fields(1).ValueSet rs2 = New ADODB.Recordsetrs2.Open select * from where & bb, DataEnvironment1.Connect, adOpenStatic, adLockOptimisticSet Dtg.DataSource = rs2教师基本工资表窗体，此界面由12 个标签(Label)、7 个文本框和 7 个按钮(CommandButton) 和一个 Adodc 控件组成。（图 4）功能说明：细分为编号、姓名、基本工资、省补贴、市补贴、工龄工资、课时补贴、全勤奖、医疗保险、养老保险、住房公基金、

42、实发共 12 项。6 6. .6 6. .2 2 查查询询模模块块通过主界面进入查询窗体，查询模块用于查询显示满足不同条件学校师生的基本情况。界面设计：在窗体中有 九个标签(Label)、一个选择框（ Check box） 、四个按钮(CommandButton)和一个 Adodc 控件。窗体设计界面运行如下： （图 6）功能设计：可以在窗体下方选择所需要查询 内容，或使用编号查询。第六章 总结经过一段时间的设计和开发，中小学教学管理系统基本开发完毕。其功能基本符合用户需求，能够完成教学的存储和教学管理的查询以及各类相关报表的打印。并提供部分系统维护功能,使用户方便进行数据备份和恢复、数据删除

43、。，对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如联机文档比较少， 网络功能不完善， 用户界面不够美观，出错处理不够等多方面问题。这些都有待进一步改善。参考资料1. 薛华成.管理信息系统 .北京:清华大学出版社 ,19932. 毕庶伟.管理信息系统分析与设计 .北京:机械工业出版社 ,19923. 罗晓沛,侯炳辉.系统分析员教程 .北京:清华大学出版社 ,19924. 陈景艳.管理信息系统 .北京:北方铁道出版社 ,1991附录教教学学系系统统程程序序及及内内容容 ：主界面Private Sub MAINX_Click()

44、Unload MDIForm1 EndEnd SubPrivate Sub MDIForm_Load() DataEnvironment1.Connect.Open End SubPrivate Sub sube_Click(Index As Integer) Select Case Index Case 1 Load frmteabase frmteabase.Show Case 2 Load frmteaphone frmteaphone.Show Case 3 Load frmteapay frmteapay.Show End Select End SubPrivate Sub SUBQ

45、_Click(Index As Integer) Select Case Index Case 1 Load qteabase qteabase.Show Case 3 Load Form3 Form3.Show End SelectEnd SubPrivate Sub subr_Click(Index As Integer) Select Case Index Case 3 rpteapay.Show End SelectEnd SubPrivate Sub Command1_Click(Index As Integer) On Error Resume Next Select Case I

46、ndex Case 0 添加 rs2.AddNew rs2.Fields(0).Value = number.Text Case 1 删除 rs2.Delete adAffectCurrent Case 3 更新 rs2.Update number.SetFocus Case 4 关闭 rs1.Close rs2.Close Unload frmteaphone End SelectEnd SubPrivate Sub Form_Load()End SubPrivate Sub number_KeyPress(KeyAscii As Integer) On Error Resume Next

47、If KeyAscii = 13 Then If number.Text = Then number.SetFocus Else bb = 编号= & & number.Text & Set rs1 = New Recordset rs1.Open select * from 教师基本情况表 where & bb, DataEnvironment1.Connect If rs1.RecordCount = 0 Then MsgBox 没有此编号 ,请重输! number.SetFocus Else xm.Caption = rs1.Fields(1).Value Set rs2 = New A

48、DODB.Recordset rs2.Open select * from 教师电话号码表 where & bb, DataEnvironment1.Connect, adOpenStatic, adLockOptimistic Set Dtg.DataSource = rs2 End If End If End IfEnd SubDim bb As StringDim ryi, ryang, rzhu As SinglePrivate Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError A

49、s ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) Adodc1.Caption = 记录: & Adodc1.Recordset.AbsolutePosition If Not (Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF) Then bb = 编号= & & Adodc1.Recordset!编号 & Set rs2 = New Recordset rs2.Open select * from 教师工资情况表 where &

50、 bb, DataEnvironment1.Connect, adOpenStatic, adLockOptimistic If rs2.RecordCount = 0 Then Command1(0).Enabled = True Command1(3).Enabled = False mbase.Enabled = False: msheng.Enabled = False: mshi.Enabled = False mgong.Enabled = False: mkeshi.Enabled = False: mquan.Enabled = False mbase.Text = : msh

51、eng.Text = : mshi.Text = mgong.Text = : mkeshi.Text = : mquan.Text = myi.Caption = : myang.Caption = : mzhu.Caption = mshifa.Caption = Else Command1(0).Enabled = False Command1(3).Enabled = True If Not mbase.Enabled Then mbase.Enabled = True: msheng.Enabled = True: mshi.Enabled = True mgong.Enabled

52、= True: mkeshi.Enabled = True: mquan.Enabled = True End If mbase.Text = rs2.Fields(1): msheng.Text = rs2.Fields(2): mshi.Text = rs2.Fields(3) mgong.Text = rs2.Fields(4): mkeshi.Text = rs2.Fields(5): mquan.Text = rs2.Fields(6): myi.Caption = rs2.Fields(7): myang.Caption = rs2.Fields(8): mzhu.Caption

53、= rs2.Fields(9): mshifa.Caption = rs2.Fields(10) End If End IfEnd SubPrivate Sub Command1_Click(Index As Integer) On Error Resume Next Select Case Index Case 0 添加 rs2.MoveLast rs2.AddNew rs2.Fields(0).Value = Adodc1.Recordset!编号 mbase.Enabled = True: msheng.Enabled = True: mshi.Enabled = True mgong.

54、Enabled = True: mkeshi.Enabled = True: mquan.Enabled = True mbase.SetFocus Command1(0).Enabled = False Command1(3).Enabled = True Case 3 更新 myi.Caption = Str(Format(Val(mbase.Text) * ryi, #.#) myang.Caption = Str(Format(Val(mbase.Text) * ryang, #.#) mzhu.Caption = Str(Format(Val(mbase.Text) * rzhu,

55、#.#) mshifa.Caption = Str(Val(mbase.Text) + Val(msheng.Text) + Val(mshi.Text) + Val(mgong.Text) + Val(mkeshi.Text) + Val(mquan.Text) - Val(myi.Caption) - Val(myang.Caption) - Val(mzhu.Caption) rs2.Fields(1).Value = Val(mbase.Text) rs2.Fields(2).Value = Val(msheng.Text) rs2.Fields(3).Value = Val(mshi

56、.Text) rs2.Fields(4).Value = Val(mgong.Text) rs2.Fields(5).Value = Val(mkeshi.Text) rs2.Fields(6).Value = Val(mquan.Text) rs2.Fields(7).Value = Val(myi.Caption) rs2.Fields(8).Value = Val(myang.Caption) rs2.Fields(9).Value = Val(mzhu.Caption) rs2.Fields(10).Value = Val(mshifa.Caption) rs2.Update Case

57、 4 关闭 Adodc1.Recordset.Close rs2.Close Unload frmteapay End SelectEnd SubPrivate Sub Form_Load() ryi = 0.02 ryang = 0.03 rzhu = 0.05End SubPrivate Sub Form_Resize() Frame2.Top = frmteapay.Height - Frame2.Height - 2 * Adodc1.HeightEnd SubPrivate Sub mbase_KeyPress(KeyAscii As Integer) If KeyAscii = 1

58、3 Then msheng.SetFocusEnd SubPrivate Sub msheng_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then mshi.SetFocusEnd SubPrivate Sub mshi_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then mgong.SetFocusEnd SubPrivate Sub mgong_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then mkeshi.SetFocusEnd S

59、ubPrivate Sub mkeshi_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then mquan.SetFocusEnd SubPrivate Sub mquan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then myi.Caption = Str(Format(Val(mbase.Text) * ryi, #.#) myang.Caption = Str(Format(Val(mbase.Text) * ryang, #.#) mzhu.Caption = Str(Format(

60、Val(mbase.Text) * rzhu, #.#) mshifa.Caption = Str(Val(mbase.Text) + Val(msheng.Text) + Val(mshi.Text) + Val(mgong.Text) + Val(mkeshi.Text) + Val(mquan.Text) - Val(myi.Caption) - Val(myang.Caption) - Val(mzhu.Caption) End IfEnd SubDim photoname, sexno As StringDim bh, bhstring As IntegerPrivate Sub A

61、dodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) Adodc1.Caption = 记录: & (Adodc1.Recordset.AbsolutePosition) If Not Adodc1.Recordset.EOF And Not Adodc1.Recordset.BOF Then If Adodc1.Recordse

62、t!性别 = 男 Then sex(0).Value = True Else sex(1).Value = True End If If Adodc1.Recordset!近照 Then photo.Picture = LoadPicture(Adodc1.Recordset!近照) Else photo.Picture = Nothing End If End If End SubPrivate Sub born_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then tandd.SetFocusEnd SubPrivate Sub cmdph

63、oto_Click() Dim where, i As Integer photoname = Cdl.Filter = 位图文件 (*.bmp)|*.bmp Cdl.ShowOpen photoname = Cdl.FileName where = 1: i = 1 While where i = where + 1 where = InStr(i, photoname, ) Wend photoname = Mid(photoname, i) photo.Picture = LoadPicture(photoname)End SubPrivate Sub Command1_Click(In

64、dex As Integer) On Error Resume Next Select Case Index Case 0 添加 Adodc1.Recordset.MoveLast bhstring = Adodc1.Recordset!编号 Adodc1.Recordset.AddNew sex(0).Value = True merry.Value = 0 photo.Picture = Nothing bh = Val(9 & bhstring) + 1 number.Text = Right(Str(bh), 4) Case 1 删除 Adodc1.Recordset.Delete a

65、dAffectCurrent Adodc1.Refresh Case 2 刷新 Adodc1.Refresh Case 3 更新 If sex(0) Then Adodc1.Recordset!性别 = 男 Else Adodc1.Recordset!性别 = 女 End If Adodc1.Recordset!近照 = photoname Adodc1.Recordset.Update Case 4 关闭 Adodc1.Recordset.Close Unload frmteabase End SelectEnd Sub Private Sub Form_Resize() Frame2.To

66、p = frmteabase.Height - Frame2.Height - 2 * Adodc1.HeightEnd SubPrivate Sub number_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then xm.SetFocusEnd SubPrivate Sub party_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then born.SetFocusEnd SubPrivate Sub tandd_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then jiang.SetFocusEnd SubPrivate Sub where_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then party.SetFocusEnd SubPrivate Sub xm_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then where.Se