教师信息管理系统

来源：小侦探旅游网

教师管理系统毕业论文

教师信息管理系统

摘要„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„2 前言„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„2 第一部分系统及需求分析 „„„„„„„„„„„„„„„„„„„„„„„„„„„3 1-1总体功能需求„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„3 1-2具体系统功能需求描述„„„„„„„„„„„„„„„„„„„„„„„„„„3 第二部分系统开发的可行性分析„„„„„„„„„„„„„„„„„„„„„„„„3 2-1技术可行性„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„3 2-2经济可行性„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„4 2-3操作可行性„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„4 开发工具和测试环境----VB6.0中文版概述„„„„„„„„„„„„„„„„„„„4 第三部分系统规划（教师信息管理系统的分析和设计）„„„„„„„„„„„„„„„4 3-1教师信息管理系统的分析和概要设计 „„„„„„„„„„„„„„„„„„„„4 3-2总体功能模块图„„„„„„„„„„„„„„„„„„„„„„„„„„„„„5 3-3各模块数据流程图„„„„„„„„„„„„„„„„„„„„„„„„„„„„6 3-4模块具体说明„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„6 3-5教师信息管理系统数据库设计(数据库的组成) „„„„„„„„„„„„„„„„7 3-5-1 数据字典„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„7 3-5-2 关系型数据库的实现„„„„„„„„„„„„„„„„„„„„„„„„„„8 第四部分系统的详细设计和实现„„„„„„„„„„„„„„„„„„„„„„„10 4-1基本信息模块„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„10 4-2工资管理模块„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„11 4-3系统维护模块 „„„„„„„„„„„„„„„„„„„„„„„„„„„„„12 4-4用户管理模块 „„„„„„„„„„„„„„„„„„„„„„„„„„„„„13 4-5查询模块 „„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„15 第五部分系统评价（软件特色）„„„„„„„„„„„„„„„„„„„„„„„„17 第六部分系统源代码„„„„„„„„„„„„„„„„„„„„„„„„„„„„„17 第七部分软件测试„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„36 7-1软件测试的目的„„„„„„„„„„„„„„„„„„„„„„„„„„„„„36 7-2测试与软件开发各阶段的关系„„„„„„„„„„„„„„„„„„„„„„„36 7-3测试方法„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„37 第八部分系统说明„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„38 8-1 心得体会 „„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„38 8-2 结束语 „„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„38 8-3 附录 „„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„40

教师管理系统毕业论文

摘要

随着我国社会主义市场经济的发展和改革开放的不断深入，计算机的应用已遍及国民经济的各个领域，计算机来到我们的工作和生活中，改变着我们和周围的一切。

在以前，学校用手工处理教师档案以及工资发放等繁多的工作和数据时，人手总会出现些不必要的错误和问题，特别是在查找，统计和保存方面。

与此相适应，用计算机代替手工管理，是信息社会发展的必然趋势，也是我们计算机工作者的责任。

教师信息管理系统开发主要包括数据库的建立和维护以及应用程序的开发两个方面。要求建立起数据一致性和完整性强。数据安全性好的库，要求应用程序功能完备，易使用等特点。

关键字：面向对象，数据一致性，信息管理系统，数据库，VisualBasic，SQL Server。

前言

随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。

作为计算机应用的一部分，使用计算机对工资信息进行管理，具有着手工管理所无法比拟的优点。例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事劳资管理的效率,也是教育的科学化、正规化管理，与世界接轨的重要条件。

现在我国的中小学校信息的管理水平还停留在人工的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。

因此，为了适应现代教育管理的要求，进一步完善教师信息辅助计算机管理，我作为一个计算机应用的专科生，开发这样一套管理软件成为很有必要的事情,在下面的各章中我将以开发一套教师信息管理系统为例，谈谈其开发过程和所涉及到的问题及解决方法。

教师信息管理系统是一个教育单位不可缺少的部分，它的内容对于决策者和管理者来说都比较重要，所以教师信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点，如：效率低、保密性差，另外时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。

本文的编写得到了许多老师和同学的热心帮助，在此特向他们表示衷心的感谢！如本文有不当之处，还望各位老师不吝指教。谢谢！

教师管理系统毕业论文

第一部分系统及需求分析

1-1总体功能需求

近年来，教育带来的发展对学校管理提出了更高的要求。

传统的管理机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代，建设一套具有行业特色的管理系统，以适应学校的总体发展战略。

教师信息管理系统正是针对小学而开发出来的管理软件。针对目前情况，提出如下具体要求：

根据用户的要求及其所输入的数据，实现人员信息管理、工资管理、打印等几个与管理相关方面的功能，用户通过输入工资、职工信息等基本信息,由系统自行生成相应的统计数据及各类统计报表以供用户查询、打印。另外用户还可以对这些基本信息进行定期的更新和维护, 教师信息管理系统力求给用户方便快捷的途径去管理这些繁琐的数据。

1-2具体系统功能需求描述

针对上面的这些要求，教师信息管理系统在技术上做如下考虑：

安全性。引入系统管理模块，全面管理整个系统所需要的数据资源、集中控制所有操

作权限、数据库加密以确保整个系统的安全性。

开放性。

语言全中文支持。采用通用语言处理技术，使系统运行的所有提示及输出账表文字的

语种设置为简体中文。

多平台支持。支持中西文Windows 9X、Windows NT，Windows 2000（或XP）在业务模型上则考虑突出体现管理、控制、决策支持功能；采用组件化设计，模块之间可以实现“积木式”搭配，适用于学校的不同阶段的需求；强化权限管理功能。

（1）操作人员的计算机知识普遍较差,要求有良好的人机界面; （2）由于该系统的使用对象多,要求有较好的权限管理; （3）数据计算自动完成，尽量减少人工干预，数据稳定性好，数据备分（4）报表打印功能;

第二部分系统开发的可行性分析

2-1技术可行性

在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，完全可以实现。

微软公司的Visual Basic 6.0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。

此系统使用visual basic 在技术上可行。

教师管理系统毕业论文

2-2经济可行性

本系统方案成本小，不需要投入太多的资金，其运行跟维护所费资金又少，投入使用后可以节省大量人力、物力、时间等资源，可以提高企事业单位的工作效益，带来的间接经济效益比花费在系统开发和运行、维护的费用和购置计算机、服务器等硬件设备的费用加起来要高得多，故经济上可行。

2-3操作可行性

本系统界面友好，使用方便，对使用人员要求不高，很快就可以适应。系统具有一定的易用性、可靠性、安全性，并经过严格的测试，运行十分稳定。

基于以上几点，该系统在技术上、经济上、操作上都具有可行性。

开发工具和测试环境----VB6.0中文版概述

Visual Basic是美国微软公司于1991年推出的新一代高级程序设计语言，可以有效地开发出符合Windows风格的应用程序。

使用Visual Basic作为开发本系统的工具，其特点有如下几点：Visual Basic 是与SQL Server2000数据库连接运用最能体现其稳定性和功能的强大性。

虽然本系统在硬件方面要求较高，但使用Visual Basic 工具所生成的界面也要比其它工具生成的界面要好看；

本工具具有跨平台功能，无论安装在Windows 9x、Windows 2000、Windows NT、Linus、Units都可以；且利用其做的系统操作简单，面向技术人员的水平不高.

Visual Basic在数据库方面具有新特性, 使用ADO对象，和OLE DB, 而ADO最主要的优点是易于使用、速度快、内存支出少和磁盘遗迹小。OLE DB是新的底层接口。它定义了一种通用的数据访问范例。也就是说，OLE DB并不局限于ISAM、Jet甚至关系数据源，但是它能够处理任何类型的数据，而不考虑它们的格式和存储方法。VB 6.0对ADO有完整的支持，可以通过ADO、OLE DB的接口，调整OLE DB的灵活性。甚至可以在VB中创建自己的OLE DB提供程序。

VISUAL BASIC 6.0它为应用开发提供了全面、综合性的支持,可以分别概括为如下几点：面向对象的编程、跨平台开发、与数据库的连接性。

第三部分系统规划（教师信息管理系统的分析和设计）

3-1教师信息管理系统的分析和概要设计

根据实际情况，我使用原型法（Rapid Prototyping）即以少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。

通过对用户需求的分析，我们可以分析出该教师信息管理系统大致可以分为以下几个模块：信息管理模块、工资管理模块、登录模块、查询模块、打印模块、系统维护模块。

这几个模块既互相独立又相互影响

下图说明它们之间的关系

教师管理系统毕业论文

3-2总体功能模块图档案录入档案管理编号档案查询姓名综合工资录入工资管理编号教工资查询姓名师管综合理统计打印报表打印系统打印设置帮助帮助信息密码修改添加用户用户管理用户维护修改用户系统备份删除用户

教师管理系统毕业论文

3-3数据流程图

非法验证验证合

法性合法退出退出管理员普通用户管理员界普通用户数据修改，添面界面加，删除等根据用户权限可运行软件用功能不同

3-4模块具体说明： 3-4-1信息管理模块：输入：教师基本信息输出：所需信息

功能：对人事基本信息的添加、删除、修改，查询，浏览，打印 3-4-2工资管理模块

输入：月工资

输出：工资表的月统计

功能：完成工资的数据更新，发放工资，浏览数据功能。 3-4-3查询模块

输入：查询条件

输出：查询结果

功能：完成对员工基本信息，工资的条件查询、或模糊查询。 3-4-4系统维护模块输入：源数据表输出：目标数据表

功能：完成对系统数据和数据库的维护，如用户名、密码的更新，数据库数据的备份、恢复以及定期删除。 3-4-5打印模块

输入：打印的目标输出：打印结果

教师管理系统毕业论文

功能：完成对系统数据和数据库的条件打印功能。 3-5 教师管理系统数据库设计(数据库的组成) 3-5-1 数据字典名字：基本信息表别名：描述：每一位教师的基本信息记录表定义：基本信息表=编号+姓名+性别+生日+籍贯+档案号 +身份证+联系电话+政治面目+住址+ 任课+备注位置：输出到查询窗口名字：学历职称表别名：描述：每一位教师的学历职称的记录表定义：学历职称表=编号+姓名+学历+毕业学校+专业+现任职务+职称位置：输出到查询窗口名字：工资表别名：描述：教师的工资统计表定义：工资表=编号+姓名+职务工资+活工资+奖金+补贴 +代扣医疗保险+代扣职保+代扣失业保险+ 实发工资+备注位置：统计教师工资，显示到查询窗口名字：操作员信息表别名：系统管理描述：记录操作员的信息，登录软件时需要验证用户合法性定义：操作员信息表=用户号+用户名+密码+权限位置：登录

教师管理系统毕业论文

3-5-2 关系型数据库的实现

由于考虑到本系统是应用在单机系统上，另外根据人员规模，只建立起一个数据库，在此数据库基础上建立起如下表：

基本信息表，用户信息表，学历信息表，工资信息表

·基本信息表

·用户信息表

·学历信息表

·工资信息表

教师管理系统毕业论文

下面详细说明：

·基本信息表

·用户信息表

·学历信息表

·工资信息表

另外，要声明的是，在本数据库的几张表中没有定义外键,其原因主要是几张表的字段的特点。所以为了保持数据一致性就通过程序完成。

第四部分系统的详细设计和实现

在本系统中由以下几个功能模块组成，它们分别是基本信息模块、工资信息模块、工资查询模块、信息查询模块、系统维护模块、数据维护模块和打印功能模块，下面就开发这几个模块的过程及所遇到的问题分别加以介绍。

教师管理系统毕业论文

主界面

4-1基本信息模块

该模块主要完成员工基本信息的录入、查询、统计及打印功能

档案录入界面

录入窗口中显示的是教师必要信息。可供用户浏览查询及以其记录为单位的操作。如果用户修改某一纪录中的某一项，可进入录入窗口。在此窗口显示的是员工的详细资料，在此窗口还可以增加新员工纪录。

浏览界面不能任意输入教师信息，要加入新的人员信息必须到录入界面中去。这样就既保证数据库的数据的一致性，又防止了数据的冗余。

教师管理系统毕业论文

N 允许删除？ N 有效数据？

Y Y

4-2工资管理模块

该模块是完成对员工的工资信息的输入、查询、并以此进行统计生成表。

成功添加开始录入修改删除

工资管理包括数据更新，工资发放，工资报表。数据更新是在工资表查找有无此人，然

后把本月的工资更新，修改，删除。数据更新时,在编号框上输入要更新的教师编号,输入后,系统会在工资表中检验有无人员,如有则可更新数据,无则取消操作,在可更新数据操作时,系统会把数据自动加到工资表中,修改和删除记录时,在查找人员编号文本框中输入要修改或删除的人员编号,系统就会指定到所要删除或修改的记录上.如果有教师上个月的工资没有领取，则将会把该教师的工资滚入上月余额中，工资发放时把每一位教师实际应得的工资计算清楚，然后发放给每一位教师，工资报表把每一个教师本月所领款项打印出来发到个人手中，让他们一目了然自己本月的工资情况。

教师管理系统毕业论文

输入人员编号检验有无此人员有无是检验是否已发工资

否

4-3系统维护模块

此模块除完成数据的一般性维护如数据的恢复与备份、数据的定期删除。下面就数据维护进行一下讨论。

尽管系统中采取各种保护措施来防止数据的安全性和完整性的破坏，但由于计算机系统中硬件的故障、软件的错误、操作员的失误以及故意的破坏，问题仍然是不可避免的，而且这些故障轻则造成运行事务非正常中断，影响数据库中数据的正确性，重则破坏数据库，使数据库中全部或部分数据丢失。因此作为一个完整的管理信息系统，数据的备份和恢复当然是少不了的。以便使系统弹出公共对话框由用户选择文件名和保存路径以及保存格式，这给用户提供了更大的自由度，当然，也带来了一些问题。

教师退出

流图如下所示：

教师管理系统毕业论文

进入数据维护窗选择操作类型是否执行操作

退出

4-4用户管理模块

4-4-1 登录

该模块的主要任务是维护系统的正常运行与安全,包括更改密码、注册用户、注销用户等等。

本管理系统,若每一个进入计算机的人都能够对系统进行操作,就可能有意或无意的破坏数据,对用户产生不良影响,甚至造成无法估量的损失。因此，在进入系统之前要设置密码输入功能用户登录关键是判断它的密码和用户名是否与数据库中存在的用户信息吻合，若存在则登录成功,若登录不成功则重新输入或注册。

模块处理流程图：

教师管理系统毕业论文

开始填写用户名,密码, 用户号，权限打开数据库文件是否存在该用户？登录成功用户注册结束

4-4-2用户信息管理模块

用户登录才具有修改用户信息的功能。它的查询与查看用户信息一样，修改后提交信息。

模块处理流程图(用户必须登录才可以修改用户信息，如图所示)：

教师管理系统毕业论文

登录成功开始

判断修改修改用户信息打开数据库文件 N

是否成功？ Y

修改成功 Y

是否继续？ N 结束

4-4-3修改密码

用户必须登录才可以修改密码，模块处理流程图与修改用户信息模块大相径庭。

4-5 查询模块

查询模块是一个数据库系统中所必须的模块。为了方便用户，本系统提供了多种查询方式。如：按条件或模糊查询、编号、姓名等。

教师管理系统毕业论文

4-5-1按条件查询：

通过用户输入查询的条件，如按人员编号，姓名，工资月份等索引，选择操作符，填写相应的参数，单条件或双条件查询（又条件查询时两个条件的逻辑关系可为与也可为或的关系），然后在查询结果窗口可看到查询的结果。

4-5-2模糊查询：

用户可通过选择按编号、姓名等字段及其在文本框所输入的关健字进行模糊查询，帮助用户查找到所需的记录,并可在查询结果窗口看到结果。模块流和图如下：

开始输入查询条件无有无符合条件

有查找数据

有符合条件的无

输出数据 16

教师管理系统毕业论文

帮助

专业水平的软件通常都带有联机帮助功能。无论写出来的程序是要给大量的用户使用，还是仅仅局限于公司内部有限的使用者，我们都应该为用户提供详细的、易于理解的帮助文档。关于版本

为了使程序显得更具有专业风格，首先可以在其中加入通常的应用程序信息。这些信息包括作者名称、版本号、以及其他类似信息。

第五部分系统评价（软件特色）

教师信息管理系统采用模块化设计，结构清晰，可靠性好，简明易学；界面友好，操作简便，充分考虑人性化设计，加上全汉字操作提示，使操作、维护十分简便，使用者在较短的时间内就能掌握

数据库具有可以分别设置使用或不使用的管理密码与使用密码。有效防止其他人使用相同的软件打开数据库或更改数据库设置。

简单、易学、灵活模块化结构，可根据业务需要十分方便地进行模块增减，灵活系统组合，直观地面向事务处理的菜单图形界面操作，易学易用。模块组建灵活。

第六部分部分系统源代码

本系统定义的程序名称，模块，窗体名称及功能说明

名称：login.frm 功能：用户登录窗体名称：frmMainMDI.frm 功能：主界面程序名称：frmUserManage.frm 功能：用户信息管理程序名称：frmInfoInput.frm 功能：基本信息管理程序名称：frminfocheck.frm 功能：信息查询程序名称：frmmoney.frm 功能：工资管理程序名称：frmmoneycheck.frm 功能：工资查询程序名称：frmSplash.frm 功能：版本说明

名称：frmModifyPsw.frm 功能：用户密码修改程序名称：databackup.frm 功能：数据备份程序名称：frmhelp.frm 功能：帮助名称：frmFlash.frm 功能：快闪窗体

****************************************************************************** 下面是一些主要模块，窗体功能程序的代码：（由于篇幅所限只列出部分程序）

教师管理系统毕业论文

************************名称：login.frm功能：用户登录窗体*********************

Option Explicit

Private Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” (ByVal lpbuffer As String, nSize As Long) As Long

Private Sub Command1_Click() Dim txtSQL As String Dim mrc As ADODB.Recordset Dim MsgText As String Dim a As Integer Static c As Integer

c = c + 1 If c = 4 Then

MsgBox “三次输入有误，本程序自动退出！” Unload Me Exit Sub End If

txtSQL = “select * from pwtable where 用户号= „” & Text1.Text & “‟” Set mrc = ExecuteSQL(txtSQL, MsgText)

If IsNumeric(Text1.Text) = False Then MsgBox “请输入数字” Text1.Text = “” Text1.SetFocus Exit Sub

ElseIf mrc.EOF = True Then

MsgBox “用户号输入有误，请从新输入！” Text1.SetFocus Text1.Text = “” Exit Sub

ElseIf Trim(Combo1.Text) <> Trim(mrc.Fields(“用户级别”)) Then

教师管理系统毕业论文

MsgBox “用户级别选择有误，请重新选择！” Combo1.Text = “请选择” Combo1.SetFocus Exit Sub

ElseIf Trim(Text2.Text) <> Trim(mrc.Fields(“用户名”)) Then MsgBox “用户名输入有误，请从新输入！” Text2.Text = “” Text2.SetFocus Exit Sub

ElseIf Trim(mrc.Fields(“密码”)) <> Trim(Text3.Text) Then MsgBox “密码不正确，请从新输入！” Text3.SetFocus Text3.Text = “” Exit Sub

ElseIf Trim(Text2.Text) = Trim(mrc.Fields(“用户名”)) And Trim (Text3.Text) = Trim(mrc.Fields(“密码”)) Then Me.Hide mrc.Close frmMainMDI.Show Exit Sub End If End Sub

Private Sub Command2_Click() End End Sub

Private Sub Form_Load() Combo1.AddItem “普通用户” Combo1.AddItem “系统管理员” End Sub

Private Sub Text1_Change()

If Text1.Text <> “” And Combo1.ListIndex <> -1 And Text2.Text <> “” And_ Text3.Text <> “” Then

教师管理系统毕业论文

Command1.Enabled = True Else

Command1.Enabled = False End If End Sub

Private Sub Text2_Change()

If Text1.Text <> “” And Combo1.ListIndex <> -1 And Text2.Text <> “” And_ Text3.Text <> “” Then Command1.Enabled = True Else

Command1.Enabled = False End If End Sub

Private Sub Text3_Change()

If Text1.Text <> “” And Combo1.ListIndex <> -1 And Text2.Text <> “” And_ Text3.Text <> “” Then Command1.Enabled = True Else

Command1.Enabled = False End If End Sub

*****************名称：frmMainMDI.frm 功能：主界面程序******************* Option Explicit

Private mintChildWinCount As Integer Const strInfoQuery = “档案查询” Const strInfoManage = “档案录入” Const strScoreInput = “工资录入” Const strScoreFind = “工资查询”

Public colInfo As Collection Public colScore As Collection

教师管理系统毕业论文

Public colAllMenu As Collection

Public Sub Info_Initialize() Set colInfo = New Collection colInfo.Add strInfoManage colInfo.Add strInfoQuery End Sub

Public Sub Score_Initialize() Set colScore = New Collection colScore.Add strScoreInput colScore.Add strScoreFind End Sub

Public Sub AllMenu_initialize() Set colAllMenu = New Collection colAllMenu.Add strInfoManage colAllMenu.Add strInfoQuery colAllMenu.Add strScoreInput colAllMenu.Add strScoreFind End Sub

Private Sub tmrStat_Timer() On Error GoTo err

staMainMdi.Panels(1).Text = “当前窗口：” & frmMainMDI.ActiveForm.Caption Exit Sub err:

staMainMdi.Panels(1).Text = “当前没有打开的子窗口！” End Sub

Private Sub admini_Click() frmUserManage.Show End Sub

教师管理系统毕业论文

Private Sub checkfile_Click(Index As Integer) frminfocheck.Show End Sub

Private Sub data_Click() databackup.Show End Sub

Private Sub exit_Click()

MsgBox “要退出系统吗?”, 4129, “确认” Unload Me End Sub

Private Sub gongzichaxun_Click() frminfocheck.Show End Sub

Private Sub gongziluru_Click() frmmoney.Show End Sub

Private Sub guanyu_Click() frmSplash.Show End Sub

Private Sub helphelp_Click() frmhelp.Show End Sub

Private Sub luru_Click() frmInfoInput.Show End Sub

Private Sub MDIForm_Load()

教师管理系统毕业论文

MPaintMDIBackground.InitializePaintBackground hwnd, Me

Move (Screen.Width – Me.Width) / 2, _ (Screen.Height – Me.Height) / 2

Call Info_Initialize Call Score_Initialize Call AllMenu_initialize

If login.Combo1.Text = “普通用户” Then admini.Enabled = False quanxian.Enabled = False data.Enabled = False luru.Enabled = False gongziluru.Enabled = False dayin.Enabled = False End If End Sub

Private Sub mima_Click() frmModifyPsw.Show End Sub

Private Sub money_Click() recordall.Show 1 End Sub

Private Sub prints_Click() CommonDialog1.ShowPrinter End Sub

Private Sub quanxian_Click() frmUserManage.Show End Sub

教师管理系统毕业论文

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) If Not (frmMainMDI.ActiveForm Is Nothing) Then Unload frmMainMDI.ActiveForm End If End Sub

*************名称：frmInfoInput.frm 功能：基本信息管理程序**************** Private Sub cmdAddData_Click() Adodc1.Recordset.AddNew End Sub

Private Sub Command2_Click() Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast End If End Sub

Private Sub Command3_PicClick() Adodc1.Recordset.Update End Sub

Private Sub Command5_Click()

„‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟‟查询

Adodc1.RecordSource = “select * from 档案 where 编号 like “ & “‟” & txtcode.Text

& “‟” With 档案 If Not .EOF Then

教师管理系统毕业论文

txtcode.Text = .Fields(编号) MaskEdBox2.Text = .Fields(身份证号)

txtname.Text = .Fields(姓名) Combo1.Text = .Fields(性别) mskEdDate.Text = .Fields(出生日期) txtshouji.Text = .Fields(档案号) txtjiguan.Text = .Fields(籍贯) MaskEdBox2.Text = .Fields(身份证号) txtaddress.Text = .Fields(住址) MaskEdBox1.Text = .Fields(联系电话) txtmemo.Text = .Fields(备注) Text1.Text = .Fields(学历) Text2.Text = .Fields(毕业学校) Text3.Text = .Fields(专业) Combo4.Text = .Fields(职称) Combo3.Text = .Fields(职务) Combo2.Text = .Fields(任课)

Else

MsgBox “没有此记录！”, vbInformation, “请重示！！” Text1.Text = “” End If End With End Sub

**************名称：frminfocheck.frm 功能：信息查询程序******************* Option Explicit Dim TempStr As String Dim TmpBl As Boolean Dim I As Integer Dim StrAndOr As Integer Dim bIsLesson As Boolean

教师管理系统毕业论文

Private Sub cmdadd_Click() If comboValue.Text = “” Then

MsgBox “值不能为空”, vbInformation, Me.Caption Exit Sub End If

If ComboField.ListIndex = 3 And Val(comboValue.Text) > 120 Then MsgBox “年龄有误，请重新输入”, vbInformation, Me.Caption comboValue.SetFocus SendKeys “{Home}+{End}” Exit Sub End If

Select Case ComboField.ListIndex Case 0

TempStr = TempStr & “recordtable.编号 “ Case 1

TempStr = TempStr & “recordtable.姓名 “ Case 2

TempStr = TempStr & “recordtable.性别 “ Case 3

TempStr = TempStr & “leveltable.职称 “ Case 4

TempStr = TempStr & “leveltable.职务 “ End Select

If ComboField.Text = “ 选择字段” Then

MsgBox “请选择字段!”, vbInformation, Me.Caption ComboField.SetFocus Exit Sub End If

If ComboConnect.Text = “ 条件” Then

MsgBox “请选择条件!”, vbInformation, Me.Caption ComboConnect.SetFocus Exit Sub

ElseIf TxtCondition.Text = “” Then

教师管理系统毕业论文

If ComboConnect.Text = “Like” Then comboValue.Text = comboValue.Text & “%” Select Case ComboField.ListIndex Case 3, 6

TxtCondition.Text = ComboField.Text & “ “ & ComboConnect.Text & “ “ &

comboValue.Text

TempStr = TempStr & ComboConnect.Text & “ “ & comboValue.Text Case 0, 1, 2, 4, 5, 7, 8

TxtCondition.Text = ComboField.Text & “ “ & ComboConnect.Text & “ „” &

comboValue.Text & “‟ “

TempStr = TempStr & ComboConnect.Text & “ „” & comboValue.Text & “‟ “ End Select Else

If ComboConnect.Text = “Like” Then comboValue.Text = comboValue.Text & “%” Select Case ComboField.ListIndex Case 3, 6

TxtCondition.Text = TxtCondition.Text & vbCrLf & ComboField.Text & “ “ &

ComboConnect.Text & “ “ & comboValue.Text

TempStr = TempStr & ComboConnect.Text & “ “ & comboValue.Text Case 0, 1, 2, 4, 5, 7, 8

TxtCondition.Text = TxtCondition.Text & vbCrLf & ComboField.Text & “ “ &

ComboConnect.Text & “ „” & comboValue.Text & “‟ “

TempStr = TempStr & ComboConnect.Text & “ „” & comboValue.Text & “‟ “ End Select End If

CmdAnd.Enabled = True CmdOr.Enabled = True TmpBl = False StrAndOr = 0

CmdAdd.Enabled = False End Sub

Private Sub CmdAnd_Click() I = 1

CmdAdd.Enabled = True CmdAnd.Enabled = False

教师管理系统毕业论文

CmdOr.Enabled = True comboValue.Clear comboValue.Text = “值”

ComboField.Text = “ 选择字段” ComboConnect.Text = “ 条件” CmdList.Enabled = False TmpBl = True

If StrAndOr = 2 And TempStr <> “” Then

TempStr = Left(TempStr, Len(TempStr) – 3) & “ And “

TxtCondition.Text = Left(TxtCondition.Text, Len(TxtCondition.Text) – 3) &

“ And”

ElseIf StrAndOr = 0 Then TempStr = TempStr & “ And “

TxtCondition.Text = TxtCondition.Text & “ “ & “And” End If StrAndOr = 1 End Sub

Private Sub CmdCancel_Click() Unload Me End Sub

Private Sub cmdClear_Click() TxtCondition.Text = “” TempStr = “”

CmdAdd.Enabled = True CmdOk.Enabled = True bIsLesson = False End Sub

Private Sub CmdList_Click() Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset Select Case ComboField.ListIndex Case 0

教师管理系统毕业论文

Set rst = Nothing

Set rst = New ADODB.Recordset

rst.Open “Select * from recordtable”, conMain, adOpenDynamic,

adLockOptimistic comboValue.Clear rst.MoveFirst

Do While Not rst.EOF And Not rst.BOF comboValue.AddItem rst.Fields(“编号”) rst.MoveNext Loop Case 1

Set rst = Nothing

Set rst = New ADODB.Recordset

rst.Open “Select * from recordtable”, adLockOptimistic comboValue.Clear rst.MoveFirst

Do While Not rst.EOF And Not rst.BOF comboValue.AddItem rst.Fields(“姓名”) rst.MoveNext Loop Case 8

comboValue.Clear Dim Tmplesson As String Set rst = New ADODB.Recordset

rst.Open “Select * from leveltable”, adLockOptimistic rst.MoveFirst Tmplesson = “”

If rsLessons.EOF Then Exit Sub Dim str As String

str = rst.Fields(“职务”).Value Tmplesson = “职务 <> „” & str & “‟” comboValue.AddItem (rst.Fields(“职务”)) Do While True

conMain, conMain, adOpenDynamic,

adOpenDynamic,

教师管理系统毕业论文

rst.Filter = Tmplesson If rst.EOF And rst.BOF Then Exit Do End If rst.MoveFirst

comboValue.AddItem rst.Fields(“职务”)

Tmplesson = Tmplesson & “ And 职务 <> „” & rst.Fields(“职务”) & “‟” rst.MoveNext Loop End Select

If StrAndOr <> 0 Then CmdAdd.Enabled = True End If

If StrAndOr <> 0 Then CmdAnd.Enabled = False CmdOr.Enabled = False End If

comboValue.SetFocus SendKeys “{Home}+{End}”

comboValue.Text = comboValue.List(0) StrAndOr = 0

Set rstemp = Nothing End Sub

Private Sub CmdOk_Click() Dim X As Integer

If TempStr <> “” And Right(TempStr, 4) = “ Or “ Then TempStr = Left(TempStr,

Len(TempStr) – 4)

If TempStr <> “” And Right(TempStr, 5) = “ And “ Then TempStr = Left(TempStr,

Len(TempStr) – 5) If TxtCondition.Text = “” Then

X = MsgBox(“是否放弃查询？”, vbQuestion + vbYesNo, Me.Caption) If X = vbYes Then Unload Me

教师管理系统毕业论文

Else: Exit Sub End If End If

If TxtCondition.Text <> “” Then Set rsFind = New ADODB.Recordset If bIsLesson = False Then

rsFind.Open “Select recordtable.* from recordtable where “ & TempStr, conMain,

adOpenDynamic, adLockOptimistic Else

rsFind.Open “Select recordtable.* from recordtable,leveltable where (“ &

TempStr & “) And recordtable.编号 = leveltable.编号”, conMain, adOpenKeyset, adLockOptimistic End If

If rsFind.EOF And rsFind.BOF Then

MsgBox “找不到记录”, vbInformation, Me.Caption CmdAdd.Enabled = True TempStr = “”

CmdOk.Enabled = False comboValue.Text = “值”

ComboField.Text = “ 选择字段” ComboConnect.Text = “ 条件” ComboField.SetFocus bIsLesson = False Exit Sub Else

Dim I As Integer Dim str As String Dim strTemp As String

Set rst = Nothing

Set rst = New ADODB.Recordset

rsFind.MoveFirst

strTemp = rsFind.Fields(“编号”)

教师管理系统毕业论文

str = “编号 = „” & rsFind.Fields(“编号”) & “‟” Do While Not rsFind.EOF rsFind.MoveNext

If rsFind.EOF Then Exit Do

If strTemp <> rsFind.Fields(“编号”).Value Then

str = str & “ Or 编号 = „” & rsFind.Fields(“编号”) & “‟” strTemp = rsFind.Fields(“编号”).Value End If Loop

rst.Open “Select * from recordtable Where “ & str, adLockOptimistic

„frmmain.lstFirstName.Clear

„frmmain.FillList rsTeachers, frmmain.comboclass.ListIndex „frmmain.lstFirstName.RemoveItem (0) „frmmain.lstFirstName.Selected(0) = True

„ frmmain.FillGrid rsTeachers, frmmain.comboclass.ListIndex „frmmain.lblTongJi.Caption = “” End If End If Unload Me End Sub

Private Sub CmdOr_Click() I = 1

CmdAdd.Enabled = True CmdOr.Enabled = False CmdAnd.Enabled = True comboValue.Clear comboValue.Text = “值”

ComboField.Text = “ 选择字段” ComboConnect.Text = “ 条件” CmdList.Enabled = False TmpBl = True

If StrAndOr = 1 And TempStr <> “” Then

adOpenDynamic,

教师管理系统毕业论文

TempStr = Left(TempStr, Len(TempStr) – 4) & “ Or “

TxtCondition.Text = Left(TxtCondition.Text, Len(TxtCondition.Text) – 4) & “ Or” ElseIf StrAndOr = 0 Then TempStr = TempStr & “ Or “

TxtCondition.Text = TxtCondition.Text & “ “ & “Or” End If StrAndOr = 2 End Sub

Private Sub ComboField_Click() Select Case ComboField.ListIndex Case 0