企业人事管理系统的设计与实现

《企业人事管理系统的设计与实现》由会员分享，可在线阅读，更多相关《企业人事管理系统的设计与实现（31页珍藏版）》请在装配图网上搜索。

1、华东交通大学理工学院课程设计题目：企业人事管理系统的设计与实现分院：电信分院专业：计算机科学与技术学号：姓名：班级：计科（2）班指导教师：2022-04-26数据库课程设计内容介绍论文（设计） 题目企业人事管理系统的设计与实现选题时间2011年12月完成时间2012 年论文（设计） 字数12580关键词查询，人事管理，数据库论文（设计）题目的来源、理论和实践意义：本课程设计是从现代企业管理中的人事管理现状出发，针对人事管理的复杂程序，经过详 细的系统调查，开发出的操作简单而又方便实用的一个人事管理系统。在开发模型的系统结构中沿用主机/终端模型到B/S模型到多层的B/S模式并且再到C/S模 式，

2、相应的系统应用体系结构也由单层结构发展到二层、二层结构甚至多层；利用面向对象技 术的广泛应用，组件技术的出现解决了传统的软件开发的分布性个重要性的一些问题，提高了 软件开发的效率和质量。人事管理系统是一个协助各个单位科学、全面、高效地进行人事管理的系统，它根植于国 内人事管理的实际情况，实用而科学。并且操作便捷，维护便利，专业的报表设计，增强的数 据处理，完美的信息图形分析。因此人事管理系统软件作为一种管理软件在各个企事业单位中 得到了广泛的使用，提高了企业的人事管理效率，帮助了企业解决了大量人事管理上的成本控 制问题等。课程设计的主要内容及创新点：本论文是从现代企业管理中的人事管理现状出发，

3、针对人事管理的复杂程序，经过详细的 系统调查，开发出的操作简单而且方便实用的一个人事管理系统。人事系统是一套通用性极强的人事管理系统。提供了完备的人事档案管理，包括员工档案 分类管理（政治面貌、生理状况、）；人事变动（新进员工登记、员工离职登记）考核（奖惩、）； 考勤（上班考勤情况管理）。人事档案资料完备，打印灵活。提供人事综合查询系统。附：论文（设计）本人签名：年 月日摘要企业人事管理系统是九十年代才出现的新兴的信息系统，它属于人力资 源管理系统的一个小的分支，是管理科学和计算机技术紧密结合的产物。随 着计算机技术的迅速发展，特别是软件开发技术和开发工具的不断进步，人 事管理系统的开发逐步呈

4、现出多方位，全面的开发模式:在开发模型的系统结 构方面在沿着主机/终端模型到B/S模型到多层的B/S模式、再到C/S模式， 相应地系统应用体系结构也由单层结构发展到二层结构再到三层结构以至多 层;面向对象技术的得到广泛应用，组件技术的出现解决了传统的软件开发在 分布性和重用性的一些问题，提高了软件开发的效率和质量本论文是从现代企业管理中的人事管理现状出发，针对人事管理的复杂 程序，经过详细的系统调查，开发出的操作简单而且方便实用的一个人事管 理系统。人事系统是一套通用性极强的人事管理系统。提供了完备的人事档 案管理，包括人事档案分类管理（政治面貌、生理状况、；人事变动（新进员 工登记、）；考核

5、（奖惩）；考勤（上班考勤情况管理）。人事档案资料完备， 打印灵活。提供人事综合查询系统，可以用姓名查询和员工编号查询两种条 件查询到用户所需资料。各种人事资料可方便的打印。本系统的前端开发工具是 Visual Basic 6.0 ，后台数据库引擎选用数据 库软件 Microsoft SQL 2000。关键词：查询，人事管理，数据库目录第一章概论51.1 课题的来源51.2 课题研究的目的及意义 51.3 课题的研究现状.6第二章 开发工具的选择2.1前端开发工具Visual Basic 6.0介绍 62.2 数据库 MICROSOFT SQL 2000 介绍8第三章 数据库设计3.1 概要设计

6、103.2 数据库设计12第四章系统设计与实现13.4.1 系统架构设计.13.4.2 控件准备和引用设置.14.4.3 系统登陆设计.15.4.4 主窗体的设计17第五章 系统的测试与实施245.1引言245.2测试概述245.3测试举例255.4软件需求测试结论25主要参考文献28 后记30第一章概论1.1 课题的来源在过去，各行各业往往都有不少管理人员孤立地看待数据处理和计算机。造成这种看法 的原因是，数据处理和信息服务人员不愿使用容易被计算机用户理解的语言同用户进行交 替。管理人员对这种交流缺乏兴趣和无能为力，导致延缓了计算机西听的开发，从而在许多 其他方面助长了自守和冗余劳动的现象。

7、在用户同信息服务人员的交流方面，没有一个单位能够做到尽善尽美，但是，确有某些 单位已经取得了比较好的成功经验。用户同信息服务人员配合默契的一些单位认为：这种成 功的原因在于，用户已经掌握了计算机和信息资源管理方面的基本知识。可见，用户管理人 员掌握这方面的知识是非常必要的。诚然，信息服务专业人员是具备这方面的知识的，但是 要使用户管理人员获得这些知识，就必须通过正规的学习，阅读和实践。妥善处理用户同信息服务人员之间的关系，可以加强双方的互相配合。为了建立和维护 一个高质量的信息系统，各方都必须尊重双方的意愿。系统质量的好坏是直接与用户信息服 务人员之间互相配合的好坏成正比的。凡是那些不愿意掌握

8、有关计算机和信息资源管理方面基本知识的用户管理人员，必须成 为落伍者，特别是在当前这种鼓励用户直接参与信息系统开发过程的发展趋势下。过去用户 管理人员在很大程度上是依赖信息服务人员来推荐，开发和实现所需要的信息系统的。签于 信息服务需要不断的发展变化，现在把签别和提高系统的责任留给了用户这也上理所当 然的。用户更多地参与信息系统的开发，这种趋势早在70 年代中期就开始 了，而且，自那 时以后不断地发展，现在已进入了信息服务人员同用户合作的时代。因为只有用户更了解他 们自己想从信息系统中得到什么。用户参与信息资源管理(IRM)的典型事例表现在分布式数据处理(DDP)方面。在这方 面，用户不仅要参

9、加系统的开发，而且还要负责管理系统运行所需要的硬件设备和人员。直到最后几年，人们才认识到：信息是一种资源，必须把这种有价值的资源加以利用， 不使其白白浪费掉。在竞争激烈的环境里，管理人员必须有效地利用信息，不然，就难以立 足于不败之地。过去，管理人员仅仅把计算机看成是省钱的工具，而现在，计算机被看成是 创造利润的工具。每个公司都有大量的，尚未发掘的，可利用计算机和信息资源的潜力。发 掘这种潜力所需要具有的计算机和信息处理的知识水平，这是大多数管理人员所能及的。1.2 课题研究的目的及意义现代信息技术的发展，在改变着我们的生活方式的同时，也改变着我们的工作方式，使 传统意义上的人事管理的形式和内

10、涵都在发生着根本性的变化。在过去，一支笔和一张绘图 桌，可能就是进行办公的全部工具。今天，电脑、扫描仪和打印机等，已基本取代了旧的办 公用具。如今，人事管理己完全可以通过电脑进行，并在计算机辅助下准确快速地完成许多 复杂的工作。这些都大大地缩短管理的时间。而今天，人事管理的内容己经转变为对更为广 泛的系统价值的追求。信息管理，如今已是一个热门话题，它已为许多企业所采用。我认为， 在现代化的进程中，引入现代管理的思想，建立一套可面向企事业单位人事的信息管理系统， 也是十分必要的。本课题基于我国企业管理信息化建设现状，结合在实际工作中所遇到的问题和收获，对 企业人事管理系统在设计开发等方面进行研究

11、，重点研究系统开发中所采用的软硬件平台规 范、数据库结构设计、开发工具的选择与使用，目的是从技术手段的角度阐述如何实现企业 从传统经营管理模式向信息化管理模式转变的过程，以及人事管理系统在企业管理信息化中 所起到的重要作用。本课题的开发主要是要花费相当多的人力和时间，虽然开发出来的软件 可能离具体产生效益还有一定的距离。但是，出于通过毕业设计来丰富自己的专业知识，并 从长远利益来考虑，本课题的设计开发还是具有相当大的经济可行性的。1 1.3课题的研究现状目前，在国内外各大企事业单位中，人事管理系统的使用是非常广泛的。同时，有很多 的软件开发商也开发了许多基于各种行业的企业人事管理学系统，其中有

12、单机版的，也有 C/S 和 B/S 模式的。而不同的企业具有不同的人事管理制度，这就决定了不同的企业需要不 同的人事管理系统。而且，企业管理信息量大、操作繁琐、传统的方式不再适应新的工作需 要，开发研制适合企业的人事管理系统，使其具有整体性强、流程简单、操作方便、功能丰 富和通用性强等特点，是加快企业人才管理工作办公自动化、信息资源化和管理科学化建设 进程必要途径。因此建立适合企业的管理信息系统，是促进企业信息高速公路的发展，为企 业的发展提供条件的重要课题。随着数据库技术和网络技术的发展，数据库的互连技术正成为世界计算机领域研究的热点， 基于WEB的管理信息系统的研究正成为MIS研究的主流。

13、与此同时，Internet的发展与普 及，国内许多企业已经建成有自己的企业人力资源管理软件，为企业的快速运营提供了很大 方便。但是对于有些中小企业来说，不需要大量的数据库，所以我们的目标是开发一个功能 使用，操作简单的人事管理系统。第二章 开发工具的选择2.1前端开发工具Visual Basic 6.0 介绍2.1.1 Visual Basic 6.0概述Visual Basic(VB)是微软公司出品的一个快速可视化程序开发工具软件，借助微软在 操作系统和办公软件的垄断地位，VB在短短的几年内风靡全球VB是极有和功能强大的软 件，主要表现在：所见即所得的界面设计，基于对象的设计方法，极短的软件

14、开发周期，较 易维护的生成代码。美国微软公司在1991年推出VB1.0至今已经经历了 6个版本，VB6.0运行在Win9x或 WinMe, Win2000, WinXP, WindowsNT等操作系统下，是一个32位的应用程序开发工具。VB率先采用可视化的程序设计方法，利用系统提供的大量控件，采用可视化的拖动方 式,直接在窗体上构建用户图行界面,并可直观,动态地调整界面的风格和样式,直到满意 为止，从而有效地克服了传统编程中必需用大量时间和代码去描述界面元素外观和位置的弊 端。VB通过不同控件的搭配组合，就可很方便地构造出应用程序的界面来。VB是一种面向 对象程序设计语言，程序员所要做的就是针

15、对不同的对象，分别编写这些对象所要响应的事 件过程，整个VB应用程序也就是由图行用户界面和这些相对独立的事件过程构成的。2.1.2 Visual Basic 6.0的优点2.1.2.1 可视化编程用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程 中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意， 还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软 件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装” 起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计

16、要求的屏幕布局，用系 统提供的工具，在屏幕上画出各种部件”，即图形对象，并设置这些图形对象的属性o Visual Basic 自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而 可以大大提高程序设计的效率。2.1.2.2 面向对象的程序设计4.0 版以后的 Visual Basic 支持面向对象的程序设计，但它与一般的面向对象的程序设 计语言(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成， 是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封 装起来作为一个对象，并为每个对象赋予应有的属性，使对象

17、成为实在的东西。在设计对象 时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动 生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。2.1.2.3 结构化程序设计语言Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构， 接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代 码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算 机可以识别的机器指

18、令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中， 随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE),脱离Visual Basic环境，直接在Windows环境下运行。当然，VB还有事件驱动编程机制、访问数据方便等很多优点。由于篇幅关系，在此就不详 细阐述。2.1.3数据访问控件介绍2.1.3.1数据访问对象(DAO)控件数据访问对象(DAO)是Jet引擎的面向对象的编程接口。Jet引擎使最终用户与正在访问 的特定数据库无关oJe t引擎驻留在(动态连接库)文件中，运行时将应用程序的请求翻译成对 数据库的物理操作。Jet引擎真正读取、写入和修

19、改数据库，并处理所有的内部的事务。Jet 引擎介于用户界面和数据仓库之间。虽然可以直接使用数据访问对象来编程，但Da ta控件作为一个图形控件,具有易于使用 的界面，它的最大优点就是只需少量代码或根本不用代码就可以创建应用程序来显示。2.1.3.2远程数据对象和Remtoe Data控#远程数据访问对象是位于ODBC API和驱动程序管理器之上的对象模型，它提供了一系列 的对象来满足远程数据访问的特殊要求。尽管RDO在访问Jet或ISAM数据库时受到限制，而且 只能通过现存的ODBC驱动程序来访问关系数据库。但RDO能访问任何的ODBC数据源，特别适用 于智能的数据库服务器(如SOL Serv

20、er和Oracle等)。Remo te Data与Da ta控件基本类似，都提供了对数据库的无缝访问,用户不必编写任何代 码就可以创建数据识别的应用程序，区别在于:Remi te Da ta控件是通过使用RDO来实现数据 访问，而Da ta控件则通过使用DA ()来连接到Je t引擎。2.1.3.3 Act iveX数据对象和ADO Data控件OLE DB是一种统一的数据访问接口，它能够访问各种DBMS和非DBMS数据源。DBMS数据源 包括主机数据库(如IMS和DB2、服务器数据库(如Oracle和SQL Sereer )以及桌面数据库(如 (Micromft Access);非DBMS数

21、据源包括存放在Windows和UNIX文件系统中的信息、电子邮件、 电子表格、web上的文件或图形以及目录服务等。OLE DB使得数据消费者(应用程序)可以使 用相同的方法访问各种数据，而不用考虑数据的具体存储地点、格式及类型。ADO(ActiveX 数据对象)是DAO、RDO的后继产物,更简单和灵活。它扩展了DAO和RDO所使用的对象模型，包 含较少的对象，更多的属性、方法和事件。ADO是为OLE DB而设计的，它封装并实现了。LE DB 的所有功能。ADO Data控件,也就是adodc，是Visual Basic 6.0新引进的数据访问控件,它使用ADO来 快速建立数据绑定控件和数据提供

22、者之间的连接，它使编程者使用最少的代码来创建数据库 应用程序。当然，用ADO Da ta控件进行访问数据时必须为待访问的数据库创建OLE DB数据连 接。2.2 数据库 Microsoft SQL 2000 介绍2.2.1 MS SQL Server 简述SQL Server是一个后台数据库管理系统，它功能强大操作简便，日益为广大数据库用户 所喜爱。越来越多的开发工具提供了与SQL Server的接口。SQL Server是一个关系数据库 管理系统，它最初是由Microsoft、Sybase和Ashton-Tate三家公司共同开发的。于1988 年推出了第一个 OS/2 版本，在 Window

23、s NT 推出后，Microsoft 与 Sybase 在 SQL Server 的开发上就分道扬镳了，Microsoft将SQL Server移植到Windows NT系统上，专注于开 发推广 SQL Server 的 Windows NT 版本。SQL Server 2000是Microsoft公司推出的SQL Server数据库管理系统的最新版本，该版 本继承了 SQL Server 7.0版本的优点，同时又比它增加了许多更先进的功能、具有使用方 便、可伸缩性好与相关软件集成程度高等优点。可跨越从运行Microsoft Windows 98的膝 上型电脑到运行Microsoft Wind

24、ows 2000的大型多处理器的服务器等多种平台使用。MSSQL Server不但可以应用于大中型数据库管理中，建立分布式关系数据库，并且也可以开发桌 面数据库。事实上，SQL Server数据库处理的基本结构，采取关系型数据库模式，尽管如 此，相信大家都可以轻易的发现，在SQL Server的数据库处理方式，则是使用面向对象的 操作方式与精神，也就是说，SQL Server的所有功能，都可以基于系统已经建立好的一些 对象来达成，是相当00 （面向对象）的一个系统结构。SQL Server企业管理器是SQL Server的主要管理工具，它提供了一个遵从MMC标准 的用户界面，使用户得以：将个别

25、服务器注册到组中。为每个已注册的服务器配置所有SQL Server选项。在每个已注册的服务器中创建并管理所有SQL Server数据库、对象、登录、用户和权 限。在每个已注册的服务器上定义并执行所有SQL Server管理任务。通过唤醒调用SQL查询分析器，交互地设计并测试SQL语句、批处理和脚本。唤醒调用为SQL Server定义的各种向导。2.2.2 SQL 语句SQL功能强大，是一种完备的数据处理语言，不仅用于数据库查询，而且用于数据库中 的数据修改和更新，概括起来，它可以分成以下几组：DML （Data Manipulation Language，数据操作语言）：用于检索或者修改数据；

26、DDL （DataDefinition Language,数据定义语言）：用于定义数据的结构，比如 创建、修 改或者删除数据库对象；DCL （Data Control Language，数据控制语言）：用于定义数据库用户的权限。DML组可以细分为以下的几个语句：SELECT :用于检索数据；INSERT :用于增加数据到数据库；UPDATE：用于从数据库中修改现存的数据；DELETE:用于从数据库中删除数据。DDL语句可以用于创建用户和重建数据库对象2.2.3 SQL语言在VB中的应用在VB中使用SQL语言非常方便，一般来说，都是通过Tquery或TADOquery组件来使 用SQL语言的。可

27、以在Tquery或TADOquery组件的SQL属性中设置SQL语句。设计程序 时，在该组件的属性对话框中选择SQL属性，单击带省略号的按钮，就可以打开String List Editor对话框，然后我们就可以在对话框中添加SQL语句。还可以使用Delphi的SQL Builder 来自动生成SQL语句，这样可以避免手工编写SQL而可能造成的语法错误。静态SQL语句在程序设计时便已固定下来，它不包含任何参数和变量第三章 数据库设计3.1 概要设计 概要设计基础是完成需求分析后提供的需求说明书，用概念数据模型表示数据及其相 互间的关系，这种数据模型是与DBMS无关的、面向现实世界的、易如理解的数

28、据模型，其 独立于计算机的数据模型，独立于计算机的软硬件系统，与用户进行交流十分方便。 概念性数据模型关心的是如何完整、正确地反映客观实际情况，不关心在数据库中如 何实现。这种数据模式能真实地反应用户要求的实际情况，是一种容易被人们理解的直观的 数据库结构模式。同时也是一种相对稳定统一的数据模式，一般情况下很少变动。概念性数 据在用户和设计者之间建立了桥梁。是设计数据库结构的基础。概念设计中自顶向下的实体分析方法，即常用的实体联系模型（简称E-R模型），对具体数 据进行抽象加工，将实体集合抽象成实体类型。用实体间联系反映现实世界事物间的内在联 系。E-R模型是建立概念性数据模型的有力工具。通过

29、对企业员工管理内容和过程的分析，本系统应设计的实体和属性如下： 用户登录（用户名，用户密码）； 员工信息表（员工编号，姓名，性别，年龄，职务，政治面貌，籍贯，合约，生理状况）； 工资管理（员工号，缺勤扣除，加班奖励，出差奖励，基本工资，月薪）； 考勤管理（员工号，考勤，加班，出差）； 人事变更（新员工号，现职，前职）；用户登录模块的实体与属性E-R图：员工信息表模块的实体与属性E-R图:员工编号员工信息表性别年龄职务政治面貌生理状况工资管理模块的实体与属性E-R图:人事变更模块的实体与属性E-R图:3.2 数据库设计3.2.1数据库逻辑结构设计企业人事管理系统HRSYS数据库包含一下9个表：部

30、门表DEPARTMENT，员工基本信 息表EMPLOYEES，员工家庭主要成员记录表FAMILYMEMBER，员工学历及工作经历记录表 EXPERIENCE,员工考勤表CHECKIN,员工工作考评表EVALUTION,企业工资制度表 SALARYRULES，员工工资表SALARY，用户信息表USERS。员工基本信息表employees _t able工资管理表考勤管理表 用户登录表人事变更表salary_table checkin_tableusers_tableDepartment_table3.2.2员工基本信息表employees_table列名数据类型允许Null值1员工歸号int I

31、姓名char(20)性别char(Z)回年龄intchmr/lD)回政治面貌char(ZO)H藉貫0合约int0生理状呪char(10)03.2.3 用户登录表 users_table列名数据类型允许刚II值卜JjserN amechar (20)0PasswordintE3.2.4 工资管理表 salary_table敷据类型允许Null值卜缺勒扣除int0加班奖励int0出差奖励int0基本工资int0月薪int回员工号int3.2.5 考勤管理表 checkIn_table列名丨数据类型I允许Null值3.2. 6 人事变更表 Department_table列名数据类型允许Null值新

32、员工号1int现职char (20)char (20)第三章系统设计与实现3.4.1系统架构设计人事管理系统的架构分为窗体和模块两个部分。在窗体的部分有以下几个窗体, 他们的作用分别是：“frmEdit.fr m”是编辑窗口，可以对员工信息进行添加，删除的操作；“frmHelp.fr m”是帮助窗体，对新用户提供帮助；“frmLogin.fr m”是用户的登陆窗口，启动系统时就会出现这个窗口；“frmmain.fr m”是系统主界面，用户可以选择要执行的任务；“frmSearch.frm”是寻找窗口，用户可以进行模糊查询和逻辑查询；“frmSetup.fr m”是设置条目的窗口，管理员可以把可

33、以对外公布的设置为显示条目， 而对少数人公布的设置为隐藏条目，从而达到不同的使用者具有不同的使用权限；“frmSys.frm”是关于用户窗体，在这个窗体中可以添加新用户，可以设置密码，也 可以对用户权限进行授权，这个窗体和数据库也有密切的联系，可以在这里更新用户信息;“frmTable.fr m”是桌面窗体，它罗列了员工学历和部门的信息，同时可以进行添加编-堺工程1 CT程企业丕亍亦)-、窗停鬥 Forml (F orml. frm)Q frmLogin (frmLogin. frm)目奖延菅理朕惩管理.民皿考勤菅理得勤.亦目人爭变更(A事变更.E5扇工信息表血工信息表.辑和删除殖推的操作。系

34、统架构说明见图所示4.2控件准备和引用设置控件准备和引用设置是目前制作应用程序的前提条件，在Visual Basic 6.0默认的 工具箱中，很多使用的部件没有显示，所以要将我们需要的部件添加进工具箱。另外, 包括一些库文件的函数，也是没有被引用，我们要先将这些具有特定功能的函数引用。2人事管理系统中需要通过“工程”一“部件”命令添加到工具箱中的“ActiveX” 部件，见图3所示。ixl2.引用设置人事管理系统中需要通过“工程”一“引用”命令引用库文件内的函数，来完成 数据库的连接，见图4所示。引用一 考试信宜食理乘如 fp|x|可用的廿IMd (A)Vl sEam1cF i- Apj-1

35、a -z a. 11Vi_ su.al E as i c runt, i m a j e utd. p r q a a d_uir a Vi sual E as i c oti j p ct e and pr oc edwe eOLE At-：irn=d.ti c-nMi-tir 口弓口 七 da二 七丨齐厂亡X 匸1.九七君. 匚lhj 亡 口七三 2.匚I HibirarjrFN i_ 二工-口 匚口七 Do. t口 Bii iLg; i二 oil 口二 ti.匚ilZAS Helper COM C c-mii ortent 1. Tyine 匸 ibtaryZAS TLiMiZVS Pr

36、 o to c口ZL 1 . U Type Li br aryAcr ob aAAcr 口b 住比 Ac ze ee 3. U T jp 亡 Li.br-yAcr ob at Di st i 11 erAcr ob ：it 州屯bC :ipt口r & 1.0 Type Li brmr yAcr obVi亡bU 国ptxxr 匕 ZE To cslb arjJ Fri t.1 . IA. L* cTTT-Tq 1 Tb dh 1 D ITTTb 0 T Th” Q *0-Ml 一M i cr o s o f t H at a I i TLdi ngIA.先加定位:C. -lWI HDOYY5 x

37、 s t em 3Z YMS El HD . DLX4.3系统登陆设计系统用户登录模块主要用于完成对登录系统的用户的验证，只有合法的用户才可以进入系 统。运行用户登陆模块，其结果见图5所示欢迎登陆企业人事管理系统用尸名称：密玛迥：登录Ifw*|退出1.系统登陆窗体的功能登录窗体是用户进入系统的钥匙，只有合法的登录才是有效的登录。在本系统中 预设了两种用户：root超级用户和any 般用户，超级用户对一般用户有管理的功能。 超级用户和一般用户对系统的员工信息，假条信息，工资信息都有编辑，删除，查询,设置的功能。2.系统登陆的代码设计（1）登陆窗体代码设计窗体代码主要实现了连接数据库的功能，这里用

38、于连接用户信息表。其程序如下：Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click（）Dim aa = MsgBox（是否要退出企业人事管理系统？ ”, vbYesNo,提示”）If a = vbYes ThenEndElse Exit SubEnd IfEnd SubPrivate Sub cmdOK_Click（）Dim r As IntegerDim rr As Integer判断用户名是否为空If Me.txtUserName.Text = Thenr = MsgBox（请输入用户名！ ”,

39、，提示）txtUserName.SetFocusExit SubEnd If判断密码是否为空If Me.txtPassword.Text = Thenrr = MsgBox（请输入密码！ ”，提示）txtPassword.SetFocusExit SubEnd If连接数据库Dim cn As New ADODB.ConnectionDim rs As New ADODB.Recordsetcn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial。8上810=企业人事管理;Da

40、ta Source=PC-201112131559Set rs = New ADODB.RecordsetDim s1_Sql As String 判断用户是否存在s1_Sql = SELECT * FROM 用 户 登 录 WHERE UserName= & Trim(txtUserName.Text) & and Password= & Trim(Me.txtPassword.Text) & rs.Open s1_Sql, cn, adOpenStatic, adLockOptimisticOn Error Resume Nextrs.MoveFirst 移到第一条记录If Err = 3

41、021 Thenr = MsgBox(用户名或密码错误，请重新检查！ ”,，提示)加一个错误处理Exit SubEnd If员工信息表.ShowUnload MeEnd SubPrivate Sub Form_Load()End Sub4.4主窗体的设计主窗体界面是显示系统主要操作功能的面板，在系统主窗体的状态栏中，可以显 示当前的操作员、当前系统的日期时间、程序制作人员等信息，还可以通过菜单的列 表或窗体中的按钮来控制其他功能子窗体，并且为不同的操作员赋予相应的操作权限 1.系统主窗体的功能成功登录后，进入的系统的主窗体，在主窗体中有两组按钮，第一组是表单 钮，通 过点击相应的按钮可以在主窗

42、体中显示不同的表单，在第一组按钮中设置按钮对超级用户和 一般用户所执行的情况不同。第二组按钮是对各个表的操钮，包括编辑，删除，查询和设置。2.系统主窗体的主要代码设计主窗体是由两组按钮实现的，它们分别是窗体选择的单击事件按钮和命令事件按钮。 (1)窗体选择的单击事件代码设计窗体选择的单击事件代码主要实现了进入本系统所有模块的功能，这里有以下几个模 块，它们分别是员工信息模块，假条信息模块，工资管理模块，用户设置模块等/其程序如 下：Private Sub cmbext_Click()员工信息表.HideEnd subPrivate Sub cmbField_Click()cmbName.Cle

43、arAdodc1.RecordSource = select * from 员工信息表Adodc1.RefreshDo While Not Adodc1.Recordset.EOFcmbName.AddItem Adodc1.Recordset.Fields（cmbField.Text）Adodc1.Recordset.MoveNextLoopcmbName.Text = cmbName.List（0）End SubPrivate Sub cmbName_Click（）Dim conditionAdodc1.Refreshcondition = Trim（cmbField.Text）If Va

44、rType（condition） = 8 ThenAdodc1.RecordSource = select * from 员工信息表 where & condition & = & cmbName.Text & ElseAdodc1.RecordSource = select * from 员工信息表 where & condition & = & cmbName.TextEnd IfAdodc1.RefreshAdodc1.Recordset.MoveFirst员工编号.Text = Adodcl.Recordset.Fields（员工编号）姓名.Text = Adodc1.Recordse

45、t.Fields（姓名）性别.Text = Adodc1.Recordset.Fields（性别）年龄.Text = Adodc1.Recordset.Fields（年龄）职务.Text = Adodc1.Recordset.Fields（职务）政治面貌.Text = Adodc1.Recordset.Fields（政治面貌）籍贯.Text = Adodc1.Recordset.Fields（籍贯）合约.Text = Adodc1.Recordset.Fields（合约）生理状况.Text = Adodc1.Recordset.Fields（性理状况）End SubPrivate Sub cm

46、dselect_Click（）员工信息表.Hide考勤管理.ShowEnd SubPrivate Sub Form_Load()Dim i As IntegerAdodcl.RecordSource = select * from 员工信息表Adodcl.RefreshSet DataGrid1.DataSource = Adodc1cmbField.ClearFor i = 0 To Adodd.Recordset.Fields.Count - 1cmbField.AddItem Adodc1.Recordset.Fields(i).NameNext icmbField.Text = cmb

47、Field.List(O)End Sub窗口如下:(2) .员工工资管理窗口的代码如下：Private Sub cmbField_Click()(3) cmbName.Clear(4) Adodd.RecordSource = select * from 工资管理(5) Adodd.Refresh(6) Do While Not Adodc1.Recordset.EOF(7) cmbName.AddItem Adodc1.Recordset.Fields(cmbField.Text)(8) Adodd.Recordset.MoveNext(9) Loop(10) cmbName.Text =

48、cmbName.List(0)(11) End Sub(12)(13) Private Sub cmbName_Click()(14) Dim condition(15) Adodc1.Refresh(16) condition = Trim(cmbField.Text)(17) If VarType(condition) = 8 Then(18) Adodc1.RecordSource = select * from 工资管理 where & condition & = & cmbName.Text & (19) Else(20) Adodc1.RecordSource = select *

49、 from 工资管理 where & condition & = & cmbName.Text(21) End If(22) Adodc1.Refresh(23) Adodc1.Recordset.MoveFirst(24 )缺勤扣除.Text = Adodcl.Recordset.Fields(缺勤扣除)(25 )加班奖励.Text = Adodcl.Recordset.FieldsC 加班奖励)(26 )出差奖励.Text = Adodc1.Recordset.Fields(出差奖励)(27 )基本工资.Text = Adodc1.Recordset.Fields(基本工资)(28) 月薪

50、.Text = Adodc1.Recordset.Fields(月薪)(29) 员工号.Text = Adodc1.Recordset.Fields(员工号)( 30 ) End Sub( 31 ) Private Sub Command1_Click()(32) 奖惩管理.Hide(33) 人事变更.Show( 34)( 35) End Sub( 36)( 37) Private Sub Form_Load()( 38) Dim i As Integer(39) Adodc1.RecordSource = select * from 工资管理( 40) Adodc1.Refresh(41)

51、Set DataGrid1.DataSource = Adodc1(42) cmbField.Clear(43) For i = 0 To Adodc1.Recordset.Fields.Count - 1(44) cmbField.AddItem Adodc1.Recordset.Fields(i).Name( 45) Next i(46) cmbField.Text = cmbField.List(0)( 47) End Sub窗口如下:员工考勤管理的代码：Private Sub cmbField_Click()cmbName.ClearAdodcl.RecordSource = sele

52、ct * from 考勤管理Adodcl.RefreshDo While Not Adodc1.Recordset.EOFcmbName.AddItem Adodc1.Recordset.Fields(cmbField.Text)Adodd.Recordset.MoveNextLoopcmbName.Text = cmbName.List(O)End SubPrivate Sub cmbName_Click()Dim conditionAdodc1.Refreshcondition = Trim(cmbField.Text)If VarType(condition) = 8 ThenAdodd

53、.RecordSource = select * from 考勤管理 where & condition & = & cmbName.Text & ElseAdodd.RecordSource = select * from 考勤管理 where & condition & = & cmbName.TextEnd IfAdodc1.RefreshAdodc1.Recordset.MoveFirst考勤.Text = Adodcl.Recordset.Fields(考勤)加班.Text = Adodc1.Recordset.Fields(加班)出差.Text = Adodc1.Recordset

54、.Fields(出差) 员工号.Text = Adodc1.Recordset.Fields(员工号) End SubPrivate Sub Command1_Click()考勤管理.Hide奖惩管理.ShowEnd SubPrivate Sub Form_Load()Dim i As IntegerAdodc1.RecordSource = select * from 考勤管理 Adodc1.RefreshSet DataGrid1.DataSource = Adodc1 cmbField.ClearFor i = 0 To Adodc1.Recordset.Fields.Count - 1

55、 cmbField.AddItem Adodc1.Recordset.Fields(i).Name Next icmbField.Text = cmbField.List(0)End Sub窗口如下：员工人事变更管理代码如下：Private Sub cmbField_Click()cmbName.ClearAdodcl.RecordSource = select * from 人事变更Adodcl.RefreshDo While Not Adodc1.Recordset.EOFcmbName.AddItem Adodc1.Recordset.Fields(cmbField.Text)Adodd

56、.Recordset.MoveNextLoopcmbName.Text = cmbName.List(O)End SubPrivate Sub cmbName_Click()Dim conditionAdodc1.Refreshcondition = Trim(cmbField.Text)If VarType(condition) = 8 ThenAdodd.RecordSource = select * from 人事变更 where & condition & = &cmbName.Text & ElseAdodd.RecordSource = select * from 人事变更 whe

57、re & condition & = & cmbName.TextEnd IfAdodc1.RefreshAdodd.Recordset.MoveFirst新员工号.Text = Adodcl.Recordset.Fields(新员工号) 现职.Text = Adodc1.Recordset.Fields(现职) 前职务.Text = Adodc1.Recordset.Fields(前职务) End SubPrivate Sub cmdadd_Click()On Error GoTo errorhandlerIf txtid.Text ThenAdodc1.Recordset.AddNewAd

58、odcl.Recordset.Fields(”新员工号)=txt 新员工号.Text Adodcl.Recordset.Fields(”现职)=txt 现职.Text Adodcl.Recordset.Fields(”前职务)=txt 前职务.Text Adodc1.Recordset.UpdatecmbName.ClearAdodcl.RecordSource = select * from 人事变更 Adodcl.RefreshDo While Not Adodcl.Recordset.EOF cmbName.AddItem Adodcl.Recordset.Fields(l) Adodc

59、l.Recordset.MoveNextLoopcmbName_ClickElseMsgBox 员工号，不能为空, vbInformation, 错误提示 End IfExit Suberrorhandler:MsgBox 员工号，不能重复, vbInformation, 错误提示 End SubPrivate Sub Command2_Click()人事变更.HideForml.ShowEnd SubPrivate Sub Form_Load()Dim i As IntegerAdodcl.RecordSource = select * from 人事变更 Adodcl.RefreshSet

60、 DataGridl.DataSource = Adodcl cmbField.ClearFor i = 0 To Adodcl.Recordset.Fields.Count - l cmbField.AddItem Adodcl.Recordset.Fields(i).Name Next icmbField.Text = cmbField.List(0) End Sub窗口如下:结束本次登录窗口:亀融回区I谢谢使用企业人事管理系统欢迎下次使用第四章 系统的测试与实施4.1 引言1. 编写目的为了尽可能的找出软件的不足，提高软件的质量，促进软件的成功验收，专门制定了本大纲。 其主要目的在于为所要进行的测试工作制定各种必要的准则和规范，以及在有关方面协议的 基础上对测试工作进行合理组织与管理。2. 项目背景企业间的竞争,就是人才的竞争。企业如何实现有效管理机制使员工在实现自身利益的同时, 为公司创造更大的价值是人事管理系统的首要任务,关注核心员工自然地成为现代企业人事 资源的策略重点。3. 系统简介人事