信息管理系统

1、目录一、可行性分析 5二、系统分析部分 91）业务流程图 92 ）数据流程图 93 ）功能分析图 104 ）数据字典 115 ）数据加工处理的描述 116 ）管理信息系统流程设想图（新系统模型） 13三、系统设计部分 141）功能结构图设计 142 ）新系统信息处理流程设计 14四、系统实施部分 161）程序框图 162 ）源程序 185 ）系统使用说明书 31五、附录或参考资料 32工资管理信息系统课程设计引言 本课题将设计一个应用与事业单位的工资管理系统。随着国民经济的急速发展，事业 单位的工资应用体系也变的越来越复杂，单位中，部门、职务、工作效益等与工资管理有 关的信息随之急剧增加。在这

2、种情况下单靠人工来处理员工的工资不但要消耗大量的人力 和物力，而且极容易出错。该系统的具体任务就是设计一个事业单位工资的数据库管理系统，由计算机来代替人 工执行一系列工作，诸如增加员工添加删除、工资设置、修改、查询、统计等操作。这样 就使财务人员可以快捷高效地完成工资管理任务。1 . 应用背景人类社会正从工业时代阔步迈向信息时代，人们越来越重视信息技术对传统产业的改 造，信息化水平的高低已经成为衡量一个单位现代化水平的高低。在这种环境下，传统的 手工工资管理已经远远落后于信息化管理。随着计算机技术的飞速发展，计算机在信息管理中应用的普及，利用计算机实现人事 工资的管理势在必行。利用计算机管理工

3、资信息，是适应现代化的要求、推动管理制度走 向科学化、规范化的必要条件；工资管理是一项琐碎、复杂而又十分细致的工作，工资计 算、发放、核算的工作量很大，一般不允许出错，如果实行手工操作，每月发放工资须手 工填制大量的表格，这就会耗费工作人员大量的时间和精力，利用计算机进行工资发放工 作，不仅能够保证工资核算准确无误、快速输出，而且还可以利用计算机对有关工资的各 种信息进行统计，服务于财务部门其他方面的核算和财务处理，同时计算机具有着手工管 理所无法比拟的优点 . 例如: 检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命 长、成本低等。这些优点能够极大地提高人事工资管理的效率 , 也是管理

4、科学化、正规化 与世界接轨的重要条件。该系统的具体任务就是设计一个工资的数据库管理系统，由计算机来代替人工执行一 系列工作，诸如增加员工添加删除、工资设置、统计、发放、修改、查询等操作。这样就 使财务人员可以快捷高效地完成工资管理任务。设计的指导思想是一切为用户着想，界面简洁，操作尽量简单明了。计算机的资源是 受到限制的，因此充分利用了 Visual Basic 的功能，在尽可能地减少对系统资源的占用 的前提下，设计出功能丰富的软件。2. 课题研发的目的与意义工资管理是一项琐碎、复杂而又十分细致的工作，一般不允许发生错误。手工进行工 资发放工作，需要反复地进行抄写、计算，不仅花费财务人员大量的

5、时间，而且往往由于 抄写不慎，出现张冠李戴，或者由于计算的疏忽，出现工资发放错误的现象。同时工资的 发放具有较强的时间限制，必须严格按照单位规定的时间完成计算和发放工作。正是工资管理的这种重复性、规律性、时间性，使得工资管理计算机化成为可能。计 算机进行工资发放工作，不仅能够保证工资核算正确无误、快速输出，而且还可以利用工 资数据库对有关工资的各种信息进行统计，服务于财务部门其他方面的核算和财务处理， 使会计人员从繁重的手工制作中解脱出来 , 提高了会计信息的及时性、正确性、全面性。 大大提高了管理水平和管理效率，产生了巨大的经济效益和社会效益。信息时代计算机技术的发展给整个社会的生活、工作方

6、式带来了一次革命。传统意义 上的工资管理的形式和内涵都在发生着本质的变化。以前那种一个会计、一个账本的工资 管理形式已经可以被计算机及财务软件所代替。计算机以及相关软件的介入使得工资的管 理变得科学化、透明化、简单化。因此，根据不同单位的自身特点开发适合自己的工资管 理软件是显得十分必要的。工资管理软件隶属于财务软件(又称会计软件)。中国的财务软件起步于 70 年代末， 经历了从自主开发、委托定点开发向标准化、通用化、商品化、专业化发展几个阶段。三 十年来财务软件市场规模化、产业化发展迅速。近年来随着市场竞争的日趋激烈，财务软件模式转向集中式管理；一些行政单位为适 应财政预算管理的变革，开始对

7、财务实行集中式管理。可以说集中式财务管理在某些单位 来说是一种管理发展的趋势。这种管理模式在以前因网络、通讯技术的限制而无法实施， 随着互联网技术的发展，基于网络计算，支持集中管理模式的财务软件开始出现在市场， 并越来越受到希望采取集中财务管理模式的单位所喜爱。所以，在我国各级事业单位中他 们更需要有一个方便、快捷、安全、透明的工资管理软件。3. 信息系统介绍管理信息系统就是我们常说的 MIS (Man ageme ntn formation System),在强调管理， 强调信息的现代社会中它越来越得到普及。MIS是一门新的学科，它跨越了若干个领域，比如管理科学、系统科学，运筹学、统计学以及

8、计算机科学。在这些学科的基础上，形成 信息收集和加工的方法，从而形成一个纵横交 织的系统。它是一个不断发展的新型学科。管理信息系统的定义随着计算机技术和通讯技术的进 步也在不断更新。在现阶段普遍认为，管理信息系统是一个由人和计算机或其他信息处理 手段组成的并用于管理信息的系统。管理信息系统能进行信息收集、传输、加工、保存、 维护和使用。它能实测国民经济部门或不同单位的各种运行情况，能利用过去的数据预测 未来，能从全局出发辅助决策，能利用信息控制国民经济部门或不同单位的活动，并帮助 实现其规划目标。管理信息系统是一门综合了管理科学、系统理论、计算机科学的系统性 边缘学科。4. 管理信息系统概述2

9、0世纪，随着全球经济的蓬勃发展，众多经济学家纷纷提出了新的管理理论。20 世纪50 年代，西蒙提出管理依赖于信息和决策的思想。同时期的维纳发表了控制论，他认为管 理是一个控制过程。 1958 年，盖尔写到：“管理将以较低的成本得到及时准确的信息，做 到较好的控制。”这个时期，计算机开始用于会计工作，出现数据处理一词。1970年， Walter T.Kennevan 给刚刚出现的管理信息系统一词下了一个定义：“以口 头或书面的形式，在合适的时间向经理、职员以及外界人员提供过去的、现在的、预测未 来的有关企业内部及其环境的信息，以帮助他们进行决策。”在这个定义里强调了用信息 支持决策，但并没有强调

10、应用模型，没有提到计算机的应用。1985年，管理信息系统的创始人，明尼苏达大学的管理学教授 Gordon B.Davis给了管 理信息系统一个较完整的定义， 即“管理信息系统是一个利用计算机软硬件资源， 手工作业， 分析、计划、控制和决策模型以及数据库的人 -机系统。 它能提供信息支持企业或组织的运 行、管理和决策功能。 ”这个定义全面地说明了管理信息系统的目标、 功能和组成，而且反 映了管理信息系统在当时达到的水平。管理信息系统起初应用于最基础的工作，如打印报表、计算工资、人事管理等，进而 发展到企业财务管理、库存管理等单项业务管理，这属于电子数据处理（ EDP， Electronic Da

11、ta Processing系统。当建立了企业数据库，有了计算机网络从而达到数据共享后，从系 统观点出发，实施全局规划和设计信息系统时，就达到管理信息系统的阶段。随着计算机技术的进步和人们对系统的需求进一步提高，人们更加强调管理信息系统能否支持企业高 层领导的决策这一功能，更侧重于企业外部信息的收集、综合数据库、模型库、方法库和 其他人工智能工具能否直接面向决策者，这是决策支持系统(DSS，Decision SupportSystem)的任务。近 20 年间，国外大公司出现了 3 种变化：抓管理着重于建立MIS系统，使管理技术走向成熟。信息是决策的依据，MIS随时为经理们提供信息服务。 经理通过

12、MIS使其经营计划和具体的业务活动联系在一起。由于以上的变化，MIS应用得到了迅速发展。不仅大中型企业普遍建立了自己的MIS,一些中小企业也不例外，普遍建立了公用数据网络，尤其是近年来 Internet 的飞速发展， Intranet技术得到广泛应用，为企业MIS提供了良好的支持环境。从国际技术发展趋势看， 20世纪90年代出现了几种全新的管理技术，相应的MIS开发技术在20世纪90年代也有了新的发展。1. 信息综合集成MIS在计算机网络和分布式数据库管理系统的支持下，与企业其他的系统，如OACADCAM CAPP在线数据采集系统集成，形成制造业的计算机集成制造系统，或者一般企事 业单位的综合

13、信息系统(CIIS， Computer I ntegrated In formatio n System)，实现办公、 管理、计算、设计、控制、监测，以及决策等多功能综合。2. Internet/Intranet因特网( Internet )已经被广大用户所熟悉，而以因特网技术为基础的企业内部信息 系统 Intranet 既可以通过接入的方式成为因特网的一部分， 也可以自成体系， 实现企 业内部的管理。它可以克服传统 MIS存在的系统封闭、用户界面形式不统一、多种软件版 本并存、维护移植困难等问题，为新一代企业MIS的开发注入了强劲的活力。3. 先进的软件开发工具 为了缩短软件开发的周期，提高

14、软件的质量和标准化水平以及软件的可维护性，越来越多的软件开发公司使用先进的软件开发工具或计算机辅助软件工程工具(CASE，Computer-Aided Software Engineering )，如各种可视化建模工具、系统分析和设计工 具、软件质量测试工具、软件文档建立和管理工具等。还有各种MIS开发平台和代码生成工具，这些工具极大地方便了 MIS的开发。4. 多媒体技术随着计算机性能的提高， MIS 采用越来越多的多媒体技术，用图形、图像、声音替代 原来单调的字符形式，给用户提供了一个更加生动真实的应用环境。会计信息系统也称为电算化会计系统，它是以提供会计信息为目的的信息系统。会计 信息系

15、统主要由帐务处理、报表处理、工资核算、固定资产核算、应收应付核算、材料核 算、销售核算、成本核算等子系统组成。工资核算信息系统是会计信息系统中的重要组成 部分。5. 工资管理信息系统的最终目的工资管理信息系统的最终目的是为管理、决策服务，达到这个目标的手段无外乎以下 几个方面：一是利用计算机可快速整理、传输、处理各种数据的特点，处理会计业务，从 而更为全面、更为准确的提供管理、决策所需的财务信息；二是利用计算机处理数据速度 快的特点，处理会计业务，从而更为快捷地提供各种管理、决策所需地财务信息；三是利 用计算机对数据分类整理的优点，按管理的要求，对会计核算数据进行各种加工、处理， 从而筛选出管

16、理所需的信息；四是会计人员从繁杂的手工核算工作中解脱出来，利用他们 懂财务、了解情况的优势，参与分析、参与管理、参与决策。一、可行性分析可行性分析的任务是明确开发应用项目的必要性和可行性。必要性来自实现开发任务 的迫切性，而可行性则取决于实现应用系统的资源和条件。这项工作建立在初步调查的基 础上。系统的可行性研究在系统的整个过程中占有很重要的地位，它决定所选项目是不是可 能实现或值得去实现。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题 是否能够解决。它主要包括技术、经济、运行、法律等方面的可行性：现有技术是否能够 实现本系统的设计开发；经济上是否值得去实现；是否能够在一般平台下运

17、行等。技术可行性是指开发一个新系统所需要的技术是否具备，如支持新系统的软硬件功能 以及技术人员的数量和水平。 本系统是进行职工工资处理。 结合实际需要， 经过仔细斟酌， 我选择了 Microsoft Visual Basic 6.0作为开发用户界面软件，它综合了可视化开发环境的易用性、 32 位优化编译技术的快速和强大、有数据引擎提供的可伸缩性等特点；选 Microsoft Office Access 2000 用来开发后台数据库，它具有很好的安全性与兼容性；而 且本系统对硬件的要求不高，在现有技术基础上一定能实现本系统。经济可行性是评价一个计算机信息系统是否可行的最基本的一种方法，是对信息系

18、统 解决方案的成本有效性的量度。信息系统的开发是一种投资，因此对于用户来说，他首先 关心的是：是否值得开发一个信息系统。而在效益方面，他们首先关心的是：当他们使用 了这套管理信息系统后，工资处理的效率是否提高了，人力资源是否节省了。而本系统的 设计和开发事实上恰好能满足他们的这些要求。 还有该系统对硬件的要求不高， 装有 win98 系统以上的计算机一般就能运行系统，所以在系统运行方面也不存在问题。1. 开发方法在开发方法的选择上，我选择了自顶向下的开发策略：自顶向下的开发策略是从工资 管理的整体进行设计，逐步从抽象到具体，从概要设计到详细设计，体现结构化的设计思 想。自顶向下是强调由全局到局

19、部、由长远到近期、由上层到下层，从探索、研制一种合 理的信息流的模型出发，设计出适合于这种信息流的信息系统。子模块通过信息流确定， 而且尽可能的要求每个局部模块优化建立在全局优化的指导下。第一层首先分析工资管理信息系统的系统环境、系统边界、系统的总目标，然后分析 系统完成总目标所应具有的功能以及实现这些功能的信息需求。第二层是模块级。根据系统的目标、功能以及需求，导出各个模块的目标、功能以及 信息需求。同理，逐级地推演更下一层地模块，即由上而下、由粗而细、逐级分解、逐层 细化。“自顶向下”是一种演绎式的分析方法，是一种整体性、系统性强的分析方法。其具 体步骤如下：分析工资核算的目标、环境和系统

20、运行的条件； 根据总体目标确定各项具体功能； 确定需要决策的内容；根据每项决策的内容确定所需要的信息； 为整个系统规定各个功能模块； 为要研制的各个功能模块和数据库规定先后顺序。该方法的优点是对整个计划来讲，逻辑性很强；其缺点是难以制定这样大的方案。为 了解决这一矛盾，我在参考了现有工资管理信息系统的基础上，进行总体规划。2. 开发环境介绍(1) 数据库技术介绍数据库技术作为数据管理技术，是计算机软件领域的一个重要分支，产生于60年代末。现已形成相当规模的理论体系和实用技术。优秀的数据库设计是应用成功的基石。万 万丈高楼平地起，数据库设计如同高楼的基石，是开发高品质应用的前提。(2) 数据库的

21、体系结构数据的体系结构分成三级：内部级(Internal ),概念级(Conceptual)和外部级 (External )。这个三级结构有时也称为“三级模式结构”。外部级：最接近用户，是单个用户所能看到的数据特性。单个用户使用的数据视图的 描述称为“外模式”。概念级别：涉及到所有用户的数据定义、是全局的数据视图。全局视图的描述称为“概 念模式”。内部级：最接近于物理存储设备，涉及到实际数据存储的结构物理存储数据视图的描 述称为“内模式”。数据库的三级模式结构是数据的三个抽象级别。它把数据的具体组织留给DBM去做，用户只要抽象地处理数据，而不必关心数据在计算机中的表示和存储，这样就减轻了用户

22、使用系统的负担。(3) 数据库管理系统(DBMS数据库管理系统(DBMS是指数据库系统中管理数据的软件系统。DBMS!数据库系统的核心组成部分。对数据库的一切操作，包括定义、查询、更新及各种控制，都是通过DBMS 进行的。在不同的计算机系统中，由于缺乏统一的标准，即使同种数据模型的DBMS它们在用户接口、系统功能方面也常常是不相同的。用户对数据库进行操作，是由DBMS巴操作从应用程序带到外部级、概念级、再导向 内部级，进而操作存储器中的数据。DBMS勺主要目标，是使数据作为一种可管理的资源处 理。DBMS勺主要功能为：数据库定义功能：DBMS1供数据定义语言(DDL定义数据库的三级结构，包括外

23、模 式、概念模式、内模式及基相互之间的映象，定义数据的完整性、安全控制等约束。因此， 在DBMS应包括DDL的编译程序。数据库的操纵功能：DBMSI供数据操纵语言(DML实现对数据库中数据的操作。基 本的数据操作分成两类四种：检索(查询)更新(插入、删除、修改)数据库的保护功能：数据库中的数据是信息社会的战略资源，对数据的保护是至关重 要的大事。DBM对数据库的保护主要通过四个方面实现：数据库恢复：数据库被破坏或数据不正确时，系统有能力把数据库恢复到正确的状态。 数据库的并发控制：DBMS勺并发控制子系统能防止错误发生，正确处理好多用户、多 任务环境下的并发操作。数据库的完整性控制：保证数据库

24、中数据及语义的正确性和有效性，防止任何对数据 造成错误的操作。数据库的安全性控制：防止未经授权的用户蓄谋或无意地存取数据库中的数据，以免 数据的泄露、更改或破坏。数据库的存储管理：把各种 DML语句转换成低层的文件系统命令，起到数据的存储、 检索和更新的作用。(4) Access数据库介绍Access数据库软件是一个关系型数据库管理系统，它为用户提供了数据库管理的工具 集和应用程序的开发环境。Microsoft Office应用软件在办公自动化方面已得到广泛的应 用，而Access 2000是Office 2000系列中的重要组件之一，它是关系型数据库，特别是 中小型数据库应用领域中最通用的数

25、据库软件。Access是一种数据库管理系统(DBMS,它同Oracle、DBASE口 Foxpro等数据库软件 系统一样，用于构造数据库应用程序并实行对数据库的统一管理。用户可以通过Access提供的开发环境及工具集方便地构建数据库应用程序，大部分是直观地可视化地操作，无 需编写程序代码便可方便地完成数据库的管理工资它的优点是：1. ACCESS真正的关系型数据库管理系统。ACCESS有主关键字和外部关键字定义， 提供了数据库的完整性应用，避免数据遭到不合理的删除或修改。ACCESS据库还具有数 据确认规则，以免输入的数据是非精确数据。它支持的字段类型有数字文本、日期、货币、备注、是/否及OL

26、E对象和空值等。可以说，ACCESS据库软件提供了真正的关系型 数据库管理。2. ACCESS是面向数据库开发人员和最终用户的数据库管理系统。ACCES提供了VBA(VISUAL BASIC FOR APPLICATION!)言。对于数据库开发人员。利用该语言以及系统 提供的可视化和向导，便可以设计出具有一定规模、功能强大的数据库应用系统。对于数据库的最终用户，并不需要编程，就可利用这些可视化工具和 向导进行简单的数据库设计和管理。3. ACCESS是开放式的数据库管理系统。4. ACCESM置了大量的内部函数。ACCESS件包含了大量的内部函数，包括数据库、 数学、财务、日期、时间、字符串等

27、函数。5. 可视化的操作工具和方便的向导。(5) Visual basic编程语言简介Visual Basic 简称VB,是微软公司推出的一种可视化编程工具，是当今世界上应用 最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程方法。它开发速度快捷, 具有语法简单易学的开发环境，是初学者的首选。VB提供可视化的开发环境，使用者可以像搭积木一样构建出程序的界面，而且它提供丰富的控件组，省去了自己编写代码的实现 这些效果的麻烦，这样就可以把更多的精力放在程序功能方面的实现上。本系统中使用的 是 Microsoft Visual Basic 6.0中文企业版。二、系统分析部分1)业务流程图2)

28、数据流程图数据流程图是一种能全面地描述信息系统逻辑模型的主要工具，它可以用少数几种符 号综合地反映出信息在系统中的流动、处理和存储情况。符号说明如下：处理外部实体数据流程图分多少层次视实际情况而定，考虑到工资管理信息系统相对较小，在这里 我把数据流程图分为二层。第一层:第二层:3）功能分析图系统功能分析是在系统开发的总体任务的基础上完成的。该工资管理系统采用的是MIS 的设计方法，在设计系统之前，需要充分了解系统的功能，根据系统所要达到的要求设计 具体的模块。本系统需要完成的功能主要有：4）数据字典数据项的定义：数据项标示符数据项名称类型及宽度简述取值范围I1职工号数字型10I2姓名字符型10

29、I3部门名称字符型10I4基本工资数字型10数据流定义:数据流标示符数据流名称数据流来源数据流去向D1员工信息人事部门基础数据输入处理D2劳务奖金后勤部门基础数据输入处理D3扣款信息后勤部门基础数据输入处理数据存储的定义：数据存储编号数据存储名称简述数据存储组成相关联的处理S1职工工资表S2工资汇总表S3月工资合计表S4工资查询表数据处理定义:处理逻辑编号处理逻辑名称输入的数据流输出的数据流处理逻辑描述P1基础数据输入 处理员工基本信 息、奖金扣款 等信息工资登记单基础数据录入P2职工工资计算 处理工资登记单工资计算单对录入的数据 进行简单计算P3工资统计工资信息单工资统计单将信息单的数 据进

30、行统计P4工资汇总处理工资信息单工资汇总单对工资信息进 行汇总5）数据加工处理的描述处理名称标示符输入输出处理逻辑描述P1基础数据输入 处理员工基本信 息、奖金扣款 等信息工资登记单将基础数据录 入P2职工工资计算 处理工资登记单工资计算单对录入的数据 进行简单计算P3工资统计工资信息单工资统计单将信息单的数 据进行统计P4工资汇总处理工资信息单工资汇总单对工资信息进 行汇总6）管理信息系统流程设想图（新系统模型）通过对现行系统的需求分析，本系统数据流向是合理的，但为了便于计算机化管理, 也为了使系统能够提供更多的辅助决策信息，本系统应做如下改进设想：1. 财务处理系统未对工资分配情况进行反馈

31、，应增加工资分配反馈环节；2. 工资统计与工资汇总重复计算，去除工资统计环节；3. 工资查询在财务处理系统进行查询，减少不必要环节；根据前面的分析与评价结果，提出的新系统数据流程如图:三、系统设计部分1）功能结构图设计相比原来的功能结构图，我们对其进行简化，把奖金、劳务工资等放入“更新主文件” 目录，罚金、税金等放入“扣款文件”目录，基本工资放入“主文件”目录，可以看出来, 现在的系统较原来更简洁，更容易让员工清楚工资发放机制。2）新系统信息处理流程设计现行系统的需求分析，本系统数据流向是合理的，但为了便于计算机化管理，也为了 使系统能够提供更多的辅助决策信息，本系统应做如下改进设想：1. 财

32、务处理系统未对工资分配情况进行反馈，应增加工资分配反馈环节；2. 工资统计与工资汇总重复计算，去除工资统计环节；3. 工资查询在财务处理系统进行查询，减少不必要环节；新系统信息处理流程:四、系统实施部分1）程序框图登陆界面:账号与密码都为 1，输入点击登录按钮：进入主界面：点击员工信息，跳出如下界面：在员工信息管理界面可以对不同部门员工进行添加、修改、删除操作，点击离开后， 进入基本工资界面：2 ）源程序 管理员登录界面 ： 工资管理登录系统图登陆窗口，进行密码验证，如果用户输入正确的用户名和密码就 可正常的登陆。如果密码错误则出现错误提示，如果想关闭系统，单击取消按钮即可退出 系统，其实现代

33、码如下：Login.frmPublic EN, a, PW As StringPublic P As IntegerPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0 txtSQL = "select * from accounts where account = '" & Text1(0).Text & "'" & "and password = '" & Text1(1).Text + &qu

34、ot;'"Set rs = exesql(txtSQL)If rs.EOF = True ThenMsgBox "没有这个用户，请重新输入 !", vbCritical,With Text1(0) .SelStart = 0.SelLength = Len(Text1(0).Text)Text1(0).SetFocusEnd WithElseEN = Trim(rs.Fields(0)a = Trim(rs.Fields(1)PW = Trim(rs.Fields(2)P = Trim(rs.Fields(3)Unload MeSet login = No

35、thingMain.ShowEnd IfCase 1Text1(0).Text = ""Text1(1).Text = ""Command1(0).Enabled = FalseCommand1(1).Enabled = FalseText1(0).SetFocusCase ElseUnload MeSet login = NothingEndEnd SelectEnd SubPrivate Sub Form_Activate()Text1(0).SetFocusEnd SubPrivate Sub Label1_Click(Index As Integ

36、er)End SubPrivate Sub Text1_Change(Index As Integer)If Text1(0).Text <> "" Or Text1(1).Text <> "" ThenCommand1(1).Enabled = TrueEnd IfIf Text1(0).Text <> "" And Text1(1).Text <> "" ThenCommand1(0).Enabled = TrueElseCommand1(0).Enabled =

37、 FalseEnd IfEnd Sub员工信息界面 ：在员工信息管理界面可以对不同部门员工进行添加、修改、删除等功能操作，要求添 加工人编号、所在部门、用户名、职务等。点击离开后，进入基本工资界面，其功能实现 代码如下：Grengl.frmOption ExplicitDim rs0 As New ADODB.RecordsetDim sql0 As StringDim a As StringDim b As StringDim c As BooleanDim d As BooleanPrivate Sub Command1_Click()Timer1.Enabled = TrueText1.

38、Enabled = Truec = Falsed = FalseEnd SubPrivate Sub Command2_Click()Timer1.Enabled = TrueText1.Enabled = False c = False d = FalseEnd SubPrivate Sub Command3_Click()Dim rs00 As New ADODB.RecordsetDim sql00 As Stringsql00 = "delete from yuangon where id='" & rs0.Fields(0) & "

39、;'"Dim a As StringDim b As StringDim choosea = " 信息删除 "b = "" & rs0.Fields(0) & "删除"choose = MsgBox("删除员工信息会将其其它相关信息也一起删除,是否删除?", vbOKCancel, " 系统信息 ")If choose = vbOK ThenCall data3(sql00, a, b)ElseEnd IfSet rs00 = data1(rs00, sql0)

40、Set rs0 = rs00Set DataGrid1.DataSource = rs0DataGrid1.RefreshEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Command5_Click()Dim rs4 As New ADODB.RecordsetDim sql4 As StringDim rs5 As New ADODB.RecordsetDim sql5 As StringDim sql6 As StringOn Error GoTo k2:If Text1.Text <> "

41、" ThenIf Text1.Enabled = True Thensql4 = "select jibengonzi from bumengz where bumen='" & DataCombo2.Text & "'and ziwu='" & DataCombo1.Text & "'"Set rs4 = data1(rs4, sql4)sql5 = "insert into yuangon (id,xinming,nianling,xingbie,

42、bumen,ziwu) values ('"& Text1.Text & "','" & Text2.Text & "'," & Text3.Text & ",'" & Combo1.Text & "','"& DataCombo2.Text & "','" & DataCombo1.Text & "'

43、)"sql6 = "insert into jibengonzi (id,jibengonzi) values ('" & Text1.Text & "'," & rs4.Fields(0) & ")"a = " 信息增加 "b = " " & Text1.Text & "信息增加 "Call data4(sql5, sql6, a, b)Set rs5 = data1(rs5, sql0)Set rs

44、0 = rs5Elsesql4 = "select jibengonzi from bumengz where bumen='" & DataCombo2.Text & "'and ziwu='" & DataCombo1.Text & "'"Set rs4 = data1(rs4, sql4)sql5 = "update yuangon set xinming='" & Text2.Text & "',nia

45、nling=" & Text3.Text& ",xingbie='" & Combo1.Text & "',bumen='" & DataCombo2.Text & "',ziwu='" & DataCombo1.Text & "' where id='" & Text1.Text & "'"If c = True Or d = True Th

46、ensql6 = "update jibengonzi set jibengonzi=" & rs4.Fields(0) & ""Elsesql6 = ""End Ifa = " 信息修改 "b = " " & Text1.Text & "信息修改 "If sql6 <> "" ThenCall data4(sql5, sql6, a, b)ElseCall data3(sql5, a, b)End IfSet

47、rs5 = data1(rs5, sql0)Set rs0 = rs5End IfElseMsgBox "员工编号不能为空 "End Ifc = Falsed = FalseText1.Text = ""Text2.Text = ""Text3.Text = ""Set DataGrid1.DataSource = rs0DataGrid1.RefreshExit Subk2:If Err.Number = 3021 And Textl.Text = "" Then MsgBox"员工

48、编号不能为空", vbOKOnly, " 错误 "If Err.Number = 3021 And DataCombo1.Text = "" Or DataCombo2.Text = "" Then MsgBox " 部门, 职位不能为空 ", vbOKOnly, " 错误 "If Err.Number = -2147467259 Then MsgBox "年龄必须在 1660 周岁", vbOKOnly," 错误"If Err.Number =

49、 -2147217900 And Text1.Text <> "" Then MsgBox "员工编号重复 !",vbOKOnly, " 错误 "End SubPrivate Sub Command6_Click()Timer2.Enabled = Truec = Falsed = FalseEnd SubPrivate Sub DataCombo1_Click(Area As Integer)d = TrueEnd SubPrivate Sub DataCombo2_Change()Dim rs3 As New ADOD

50、B.RecordsetDim sql3 As Stringmumusql3 = "select ziwu from bumengz where bumen='" & DataCombo2.Text & Set rs3 = data1(rs3, sql3)Set DataCombo1.DataSource = rs3Set DataCombo1.RowSource = rs3c = TrueEnd SubPrivate Sub DataCombo2_Click(Area As Integer)Dim rs3 As New ADODB.Recordset

51、Dim sql3 As Stringsql3 = "select ziwu from bumengz where bumen='" & DataCombo2.Text & Set rs3 = data1(rs3, sql3)Set DataCombo1.DataSource = rs3Set DataCombo1.RowSource = rs3c = TrueEnd SubPrivate Sub DataCombo3_Click(Area As Integer)Dim rs2 As New ADODB.RecordsetDim sql2 As Str

52、ingsql2 = "select * from yuangon where bumen='" & DataCombo3.Text & "'" Set rs2 = data1(rs2, sql2)If rs2.BOF ThenMsgBox "部门内无员工信息 ", vbOKOnly, " 新部门 "ElseSet rs0 = rs2End IfSet DataGrid1.DataSource = rs0DataGrid1.RefreshEnd SubPrivate Sub DataG

53、rid1_DblClick()On Error GoTo k1:If Text1.Enabled = False ThenText1.Text = rs0.Fields(0)Text2.Text = rs0.Fields(1)Text3.Text = rs0.Fields(2)Combo1.Text = rs0.Fields(3)DataCombo2.Text = rs0.Fields(4)DataCombo1.Text = rs0.Fields(5)End IfExit Subk1:If Err.Number = 3021 Then MsgBox " 无记录 , 无法修改 &quo

54、t;, vbOKOnly, " 错误 " End SubPrivate Sub Form_Load()Combo1.ListIndex = 0Set rs0 = New ADODB.Recordsetsql0 = "select * from yuangon"Set rs0 = data1(rs0, sql0)Set DataGrid1.DataSource = rs0DataGrid1.RefreshDim rs1 As New ADODB.RecordsetDim sql1 As Stringsql1 = "select * from bu

55、men"Set rs1 = data1(rs1, sql1)Set DataCombo3.DataSource = rs1Set DataCombo3.RowSource = rs1Set DataCombo2.DataSource = rs1Set DataCombo2.RowSource = rs1c = Falsed = FalseEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer)If Not IsNumeric(Chr(KeyAscii) And KeyAscii <> 8 ThenKeyAscii = 0

56、End IfEnd SubPrivate Sub Timer1_Timer()If DataGrid1.Height > 2655 Then DataGrid1.Height = DataGrid1.Height - 16.8If Frame1.Height < 1575 Then Frame1.Height = Frame1.Height + 15.6If Frame1.Top > 2880 Then Frame1.Top = Frame1.Top - 15.6If DataGrid1.Height = 2655 Then Timer1.Enabled = FalseEnd

57、 SubPrivate Sub Timer2_Timer()Frame1.Visible = FalseIf DataGrid1.Height < 4335 Then DataGrid1.Height = DataGrid1.Height + 15.6If DataGrid1.Height = 4335 ThenFrame1.Top = 4440Frame1.Height = 15Frame1.Visible = TrueTimer2.Enabled = FalseEnd IfEnd Sub基本工资管理界面 ： 基本工资管理界面可以对各部门的不同职务基本工资进行添加、修改和删除操作，其实

58、现 代码如下：Main.frmPrivate Sub Form_Load()StatusBar1.Panels(1) = " 现在时间 :" & " " & Date & " " & TimeEnd SubPrivate Sub j1_Click() fuligl.Show End SubPrivate Sub j2_Click() bumengl.ShowEnd SubPrivate Sub j3_Click() ziwugl.ShowEnd SubPrivate Sub k_Click()End S

59、ubPrivate Sub k1_Click() gerengl.ShowEnd SubPrivate Sub k2_Click() fuli.ShowEnd SubPrivate Sub k3_Click() bmgzgl.ShowEnd SubPrivate Sub k4_Click() gonzitz.Show End SubPrivate Sub l1_Click()gonzicx.ShowEnd SubPrivate Sub l2_Click()gonzidel.ShowEnd SubPrivate Sub l3_Click() gonzifafang.Show End SubPri

60、vate Sub q_Click()rizicx.ShowEnd SubPrivate Sub Timer1_Timer()StatusBar1.Panels(1) = " 现在时间 :" & " " & Date & " " & TimeEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1gerengl.ShowCase 2 bmgzgl.ShowCase 3laowugongzi.ShowCase 4jiangjin.ShowCase 5koukuan.ShowCase 6gongzihuizong.ShowCase 7EndEnd SelectOption ExplicitDim rs1 As New ADODB.RecordsetDim sql1 As StringDim a As StringDim b As StringPrivate Sub Command1_Click()Dim rs4 As New ADODB.Records