基于delphi企业人事管理系统论文

《基于delphi企业人事管理系统论文》由会员分享，可在线阅读，更多相关《基于delphi企业人事管理系统论文（61页珍藏版）》请在装配图网上搜索。

1、摘 要企业人事管理系统主要是为了企业管理者能够更好的管理人力资源与合同信息而开发的管理软件，本系统主要适用于中小型企业的管理人员，根据中小型企业的人事管理需求，该系统采用模块化开发，主要包括了员工信息管理、部门管理、工资信息管理，应聘信息管理等模块。其中，员工信息管理模块主要实现新员工登记、员工信息浏览、员工离职与调动；部门管理是添加与删除部门；工资信息管理是对员工工资的记录，包括奖励与处罚，个税等项目。应聘信息管理是为了管理应聘人员的基本信息。本文首先阐述了该系统的开发背景、意义；其次介绍了相关的开发工具及技术基础；接着对系统的需求进行了分析，并提出了具体的设计方案和数据库模型；然后展现了整

2、个系统的具体实现，包括数据库的设计和连接，各功能模块的实现；最后对该软件进行了严格的测试。系统采用Delphi 7.0作开发平台，SQL Server 2000作数据库管理系统，采用ADO数据访问方式。系统符合中小型企业人事管理的要求，能够帮助其切实提高工作效率。关键词： 人事管理，Delphi7.0，SQL server 2000，ADO推荐精选AbstractPersonnel management system is a developed management software mainly for corporate managers to better manage human r

3、esources and contracts information management, the system is mainly applicable to managers of medium-sized and small enterprises.The system uses modular development to satisfy the Personnel management needs. Mainy including the staff information management, department management, the wage informatio

4、n management, and the candidates information management module. Among them, the module of staff information management is mainy for achieving the registration of new staffs, staff information browsing, and the mobilization of staffs; department management is to add and delete departments; wage infor

5、mation management is a record of wages, including rewards and punishment, tax item and so on. candidates Information Management is designed to manage basic information about candidates. The paper is organized as following: Firstly, analyzes the background and significance; Secondly, introduces the d

6、evelopment tools and the foundation of the technology; Thirdly, analyses the demand of the system, gives a specific design project and a database model; Then shows the implementation of the whole system, which includes the design and linkage of the database and the implementation of every module. Fi

7、nally gives a test of the system. It uses Delphi 7.0 as the development platform, SQL Server 2000 as the database management system and the method for data-access is ADO, System of personnel management in line with the small and medium-sized enterprises of the request, can help to improve its practi

8、cal efficiency. Key words: Personnel management,Delphi7.0,SQL server 2000,ADO推荐精选目 录摘 要IAbstractII目 录III第一章 引言11.1课题背景11.2课题意义21.3研究思路3第二章 开发工具介绍52.1 开发工具的选择52.2 Delphi 7.0 及 SQL Server 2000简介62.2.1 Delphi 7.0简介62.2.2 SQL Server 2000简介7第三章 需求分析及系统设计9第四章 系统的实现114.1 数据库设计114.1.1 设计数据库及建立数据库表114.1.2 数据

9、库部分实体关系图174.2 各功能模块的实现174.2.1 数据模块设计174.2.2 登录界面的设计204.2.3 新员工登记模块设计214.2.4 工资设置模块设计254.2.5 主窗体设计274.2.6 员工信息浏览模块设计294.2.7 应聘登记模块设计314.2.8 员工调动功能的实现35推荐精选4.2.9 工资结算功能的实现37第五章 系统测试425.1 测试目的425.2 测试方法425.3 测试环境425.4 主要模块测试435.4.1 登录界面测试435.4.2 新员工登记模块测试445.4.3 所得税模块测试445.4.4 工资设置模块测试455.4.5 应聘登记模块测试4

10、65.5 数据测试475.6 测试结论47结 束 语48参考文献49致 谢50推荐精选第一章 引言1.1课题背景对于与一个企业来说，利用计算机支持企业高效率完成劳动人事管理的日常事务，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件；而工资管理是一项琐碎、复杂而又十分细致的工作，工资计算、发放、核算的工作量很大，一般不允许出错，如果实行手工操作，每月发放工资须手工填制大量的表格，这就会耗费工作人员大量的时间和精力，计算机进行工资发放工作，不仅能够保证工资核算准确无误、快速输出，而且还可以利用计算机对有关工资的各种信息进行统计，服务于财务部门其他方面的核算和财务处理，同时

11、计算机具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事工资管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。不同的企业具有不同的人事、工资管理制度，这就决定了不同的企业需要不同的人事工资管理系统。企业以前的所有资料都是用人工记录的方式来进行管理的，面对目前的实际状况，迫切需要开发一个计算机系统来适应这一些工作。管理信息系统（MIS）的概念是1961年美国人J.D.GALLAGHER首先提出来的，是一门新兴的、集管理科学、信息科学、系统科学及计算机科学为一体的综合性学科，研究的是企业中信息管理活动的全

12、过程，以便有效的管理信息，提供各类管理决策信息，辅助企业进行现代化管理。管理信息系统是企业的信息系统，它具备数据处理、计划、控制、预测和辅助决策功能，具体作用如下：（1）统一标准处理和提供信息，排除使用前后矛盾的不完整的数据。（2）完整、及时提供在管理及决策中需要的数据。（3）利用指定的数据关系式分析数据，客观预测未来。（4）向各级管理机构提供不同详细程度的报告，缩短分析和解释时间。推荐精选（5）用最低的费用最短的时间提供尽可能精确、可靠的信息，以便使决策者选择最佳的实施方案，以提高企业的经济效益。1.2课题意义企业人事管理系统是一个现代化的企业在竞争中立于不败之地的必要部分，它能够为查询人事

13、信息提供充足的信息和快捷的查询手段。自20世纪50年代将计算机引入数据处理以来，历经管理信息系统发展的各个阶段。一方面是信息技术应用的迅猛发展，另一方面，许多管理信息系统在耗费了大量的人力、物力、财力之后夭折了，或者根本没有实现原定系统开发目标，或者根本没有实现原系统的开发目标，而把计算机用作了打字机。这是长期以来困惑人们的一大问题。现在人们日益深刻认识到，把信息技术应用与应用环境分离是办不到的。管理信息系统根本不仅是技术系统，而且是社会系统。管理信息系统是一门融管理科学、信息科学、系统科学、现代通信技术和电子计算机技术为一体的综合性边缘学科，它以人为主导，利用计算机硬件、软件、网络通信设备办

14、公设备，进行信息的收集、传输、加工、存储、更新和维护，以及提高企业效率为目的一种集成化的人机系统。MIS系统涉及到多方面的内容，因此，人们称MIS学科是一个交叉综合性的学科。企业人事管理是一项琐碎，繁杂而又非常细致的工作，一般是不允许发生差错的，它直接影响着劳动者队工作的积极性，是提高劳动生产力，提高企业活力的基础，在以往手工进行的办公工作中，需反复的进行各种抄写，计算等工作，不仅花费大量的时间，而且往往会出错。计算机应用于企业的人事信息处理处理，不仅可以使企业各类人员以最少的劳动和最短的实践取得足够的、可靠的、准确的信息。而且可以使他们从简单的数据统计、收集、汇总等重复繁重的事务中解脱出来。

15、时至今日，计算机正在令人难以置信的速度步入普通人的学习、工作和生活。在初见端倪的信息化社会里，不能有效使用计算机的单位和个人，无疑将在其个种活动中面临重重的障碍。计算机已经成为人们日常工作中处理数据的得力助手和工具，数据处理与科学计算、过程控制、辅助设计一起，并称为计算机四大应用。古往今来，信息都上一种资源，只是未得到应有的重视。事实上，对一个国家来说，信息决定其如何建设和治理；对一个人来说，信息是其决定如何发展才能适应社会需要的 基本要求；对政府来说，各种必须的信息是其赖推荐精选以生存和活动至关重要的条件；而对与任何工商贸企业来说，信息就是他们的生命线，没有大量的信息想要在市场环境下生存是不

16、可能的。由此可见，信息是维持生产活动、经济活动和社会活动必不可少的基本资源，他是有价值，是构成客观世界的三大要素之一。同时也说明了一点，就是信息处理也非常的重要。一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业人事管理势在必行。企业人事信息管理系统是大中型企业单位不可缺少的工具,它的内容对于企业的决策者和管理者来说都至关重要,所以企业人事信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。而

17、如今电脑已经深入到日常工作和生活的方方面面，比如文字处理、信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。所以利用计算机管理人事是以后企业最佳选择。企业人事管理是相对企业内部员工的管理。集人员、考勤、工资、员工培训、系统功能等于一体的大型管理系统。为企业在人事管理等方面提供极大的方便。不但有利于企业的统一性管理,而且还大在提高了企业的全体员工的工作效率和积极性。企业人事管理可以说是一项琐碎、繁杂而又必须十分细致的工作，是不能允许时常发生差错的。几十年前的那种手工操作已远远跟不上近代企业发展的步骤，时代的进步决定了企业的发展，而企业要发展必然完善的管理体系，所以说企业人事管理的自动化完

18、全是时代进步的必然结果。合理的利用有助于企业发展的管理系统是企业改革的一种优越的体现。利用计算机对企业人事管理不仅保证了核算准确度，还成倍的提高了工作效率，而且便于查询。本软件界面美观、使用方便，是企业人事管理必不可缺的好帮手。1.3研究思路正如研究任何其它软件项目一样，我做的毕业设计也经历了从选题，调研，熟悉开发环境，实验关键技术，查找类似的相关系统的资料；系统需求分析，数据库结构设计，功能模块开发，功能模块测试，系统调试和系统试运行和修改。推荐精选推荐精选第二章 开发工具介绍2.1 开发工具的选择随着社会需求的推动和计算机技术的发展普及，各行业的管理机构需要有计算机来处理大量的信息。选择一

19、优秀的数据库管理系统作为开发平台，将给日后的信息处理带来便利性。其中，基于微型计算机的数据库系统是应用最广泛、实用性最强的一种计算机技术。而事实证明：SQL数据库是一个广泛使用、简单易用、性能价格比较高、工具完整而又丰富、界面友好、处理速度高的关系型数据库。SQL Server 2000主要用于Windows环境，利用它可设计出体现Windows风格的丰富多彩的图形化用户界面，使用户的操作和使用十分便利。SQL Server 2000 是为数据库应用程序开发而设计的功能强大、面向对象的编程工具。它能够管理大量复杂的数据信息，同时有具有很好的安全性和较强的网络功能，甚至还能够实现数据的远程访问和

20、存储加工。从本人的实际情况看：因为在校期间也有学习过可视化的编程，对这一类的软件的使用也有较深的认识，所以说选用SQL Server 2000作为开发工具是很有优势的。而对于前台编程工具，目前比较流行的是VC+,VB，Delphi，PowerBuilder,C+builder等。对底层编程比较需要的地方就大部分VC+，而Delphi的IDE是非常易用的。业界有一句很经典的话：真正的程序员用VC+，而聪明的程序员用Delphi。可见，VC+与Delphi是两种较优秀的语言开发工具。Delphi 7.0应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具，Delphi 7.0提供了大量

21、的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故实现本系统用Delphi作为开发工具是一个明智的选择。推荐精选2.2 Delphi 7.0 及 SQL Server 2000简介2.2.1 Delphi 7.0简介Delphi是全新的可视化编程环境，为我们提供了一种方便、快捷的Windows应用程序开发工具。它使用了Microsoft Windows图形用户界面的许多先进特性和设计思想，采用了弹性可重复利用的完整的面向对象程序语言(Object-Oriented Language)、当今世界上最快的编辑器

22、、最为领先的数据库技术。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，使用Delphi开发应用软件，无疑会大大地提高编程效率。 DELPHI最显著的特点就是高效性和稳定性，总的来说，主要体现在以下6个方面： （1）可视化开发环境的性能。（2）面向对象编程的概念。（3）编译器的速度和已编译代码的效率。（4）编程语言的功能及其复杂性。（5）数据库结构的灵活性和扩展性。（6）框架对设计和使用模式的扩充。Delphi实际上是Pascal语言的一种版本，但它与传统的Pascal语言有天壤之别。一个Delphi程序首先是应用程序框架，而这一框架正是应用程序的“骨架”。在骨

23、架上即使没有附着任何东西，仍可以严格地按照设计运行。您的工作只是在“骨架”中加入您的程序。缺省的应用程序是一个空白的窗体(Form)，您可以运行它，结果得到一个空白的窗口。这个窗口具有Windows窗口的全部属性：可以被放大缩小、移动、最大最小化等，但您却没有编写一行代码。因此，可以说应用程序框架通过提供所有应用程序共有的东西，为用户应用程序的开发打下了良好的基础。Delphi已经为您做好了一切基础工作-程序框架就是一个已经完成的可运行应用程序，只是不处理任何事情。您所需要做的，只是在程序中加入完成您所需功能的代码而已。在空白窗口的背后，应用程序的框架正在等待用户的输入。由于您并未告诉它接收到

24、用户输入后作何反应，窗口除了响应Windows的基本操作(移动、缩放等)外，它只是接受用户的输入，然后再忽略。Delphi把Windows编程的回调、句柄处理等过程都放在一个不可见的Romulam覆盖物下面，这样您可以不为它们所困扰，轻松从容地对可视部件进行编程。推荐精选2.2.2 SQL Server 2000简介SQL Server 2000 继承了数据库软件设计和引擎方面的优势，已经成为新一代网络应用程序的最佳数据库和分析解决方案之一。作为MicrosoftNET Enterprise Servers 的核心组件，它将减少电子商务、在线商务和数据仓库应用程序推向市场的时间，并对需要的环境

25、提供可靠的支持。SQL Server 2000 对XML和HTTP 提供充分的支持；提供分割装载和确保时间的特性；提供先进的管理和协调机制，可以自动管理线程任务，降低总体开销。SQL Server 2000 是一个具备完全Web 支持的数据库产品，提供了可扩展标记语言（XML）核心支持以及Internet 上和防火墙外进行查询的能力，具有可伸缩性、灵活性、扩充性好，而且价格便宜等特点；还可以使用XML 更新程序更容易地插入、更新和删除数据。使用SQL Server 2000 可以获得非凡的可伸缩性和可靠性。通过向上伸缩和向外扩展的能力，SQL Server 2000 满足苛刻的电子商务和企业应

26、用程序要求。主要体现为：（1）高度可用性；（2）可伸缩性；（3）安全性；（4）分布式分区图；（5）索引视图；（6）虚拟接口系统网络；（7）复制特性。SQL Server 2000 是MicrosoftNET Enterprise Server 的数据管理与分析中枢。SQL Server 2000 包括加速从概念到最后交付开发过程的工具。主要体现为：（1）经过简化的数据库管理；推荐精选（2）提高开发人员的工作效率；（3）数据转换服务（DTS）；（4）扩展应用程序；（5）英语查询；（6）数据挖掘；（7）OLAP 服务；（8）OLAP 灵活性；（9）闭合循环环分析。推荐精选第三章 需求分析及系统设计

27、企业人事管理系统是一个典型的数据库应用程序，由启动窗体、登录模块、系统主界面、系统管理模块、信息设置模块、员工信息管理管理模块、工资管理模块等组成，具体的功能模块如下：（1）系统管理模块的主要功能是单位信息、管理员设置、更改密码、重新登录。（2）信息设置模块主要功能是对部门信息、工种类型、职称类型、文化程度、政治面貌、民族类型、得税设置、考勤设置等进行设置。（3）员工信息管理模块主要功能是新员工登记、应聘登记、员工调动、员工离职、考核管理、合同管理、应聘信息浏览、员工信息浏览。（4）工资管理模块主要是：设置员工的工资信息、生成工资报表、工资档案浏览。总之, 开发这个系统的目的就是要帮助企业的人

28、事部门提高工作效率，实现企业人事信息管理系统的系统化、规范化和自动化。根据这个系统所要实现的目的和任务，总结出这个系统最终要实现的主要功能如下： 数据设置部分：主要包括考勤录入功能。数据修改部分: 主要修改员工信息,修改基本工资,人事调动。数据采集部分：主要完成日常登记。数据查询部分：主要包括用户信息查询、考勤信息查询、工资情况查询、部门情况查询各项报表统计等工作。本系统的功能模块如图3-1所示：推荐精选图3-1 系统功能模块图推荐精选第四章 系统的实现4.1 数据库设计 4.1.1 设计数据库及建立数据库表数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，

29、数据库就是信息的集合。数据库在系统中占有非常重要的地位，数据库设计的好坏将直接影响系统的效率。合理的数据库设计可以提高数据存储的效率，有利于程序的实现。创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1标识需要的数据；2收集被标识的字段到表中；3标识主关键字字段；4绘制一个简单的数据图表；5规范数据；6标识指定字段的信息；7创建物理表。如图4-1所示的即为本系统中数据库中的数据表的树形结构图，该数据表树型结构图包含系统所有数据表。可以清晰地反应数据库信息。推荐精选图4-1 数据表树形结构图（1）考核表考核表的作用是存入员工

30、每个月的考核信息，考核表结构如表4-1所示。表4-1 考核表字段名数据类型长度主键否功能描述bhvarchar5是员工编号cqtsint4出勤天数qjtsint10请假天数cdcsint10迟到次数ztcsint4早退次数kgtsint4旷工天数jbssint4加班时数khdjvarchar10考核等级kqfzfloat8考核分值khrvarchar10考核人kqyfdatetime8考核月份推荐精选（2）考勤表考勤表的作用是存放员工考核的条件，考勤表结构如表4-2所示。表4-2 考勤表字段名数据类型长度主键否功能描述kgkcfloat8旷工扣除qqjfloat8全勤奖cqtsInt4出勤天数

31、cdztcsInt4迟到早退次数jbfFloat8加班费ypjtsInt4月平均工作天数jbfloat8几倍（3）工资表工资表的作用是存放员工每个月的工资信息，工资表结构如表4-3所示。表4-3 工资表字段名数据类型长度主键否功能描述ssyfvarchar15所属工资月份bhvarchar5是员工编号ygxmvarchar10员工姓名JbgzFloat8基本工资jbfFloat8加班费qqjFloat8全勤奖zwjtFloat8职务津贴qtjeFloat8其它金额kgfFloat8旷工费ylbxFloat8养老保险sybxFloat8失业保险ylbxFloat8医疗保险qtkeFloat8其它

32、扣额yfgzFloat8应发工资ykgzFloat8应扣工资sfgzFloat8实发工资bzvarchar50备注（4）人事表推荐精选人事表用来存放员工的详细信息，人事表结构如表4-4所示。表4-4 人事表字段名数据类型长度主键否功能描述姓名Varchar5是编号xmVarchar10姓名xbVarchar2性别sfzhVarchar20身份证号csnyDatetime8出生年月mzVarchar20民族hyzkVarchar4婚姻状况zzmmVarchar10政治面貌jgVarchar50籍贯nxdhVarchar20联系电话sjhmVarchar30手机号码dzyxVarchar20电子邮

33、箱jtdzVarchar50家庭地址byyxVarchar50毕业院校zyVarchar20专业whcdVarchar10文化程度tcVarchar50特长gzsjDatetime8参加工作时间gnInt4工龄zpImage16照片ssbmVarchar50所属部门gzVarchar10工种zwVarchar10职务zcVarchar20职称jbgzFloat8基本工资qtgzFloat8其它工资推荐精选drsjDatetime8调入时间jlVarchar200简历djrqDatetime8登记日期（5）应聘信息表应聘信息表用来存放应聘人员应聘职位的个人信息，结构如表4-5所示。表4-5 应聘

34、信息表字段名数据类型长度主键否功能描述编号Varchar10是应聘人员编号姓名Varchar10应聘人员姓名性别Varchar2应聘人员性别出生日期Datetime8应聘人员出生日期民族Varchar20应聘人员民族联系电话Varchar20应聘人员电话电子邮箱Varchar30应聘人员Email通信地址Varchar100应聘人员通信地址毕业院校Varchar50应聘人员毕业院校专业Varchar20应聘人员所学专业文化程度Varchar20应聘人员文化程度特长Varchar20应聘人员特长兴趣爱好Varchar20应聘人员兴趣爱好专业技能Varchar100应聘人员专业技能工作经历Varc

35、har100应聘人员工作经历（6）单位信息表单位信息表用来存放本单位的基本信息，结构如图4-6所示。表4-6 单位信息表字段名数据类型长度主键否功能描述单位名称Varchar50否企业单位名称法人Varchar20单位法人代表推荐精选创建日期Datetime8创建单位信息的日期单位电话Varchar20单位的联系电话单位邮箱Varchar20本单位的Email地址单位地址Varchar80本单位的地址单位介绍Varchar100单位的基本情况介绍（7）合同表合同表用来存放本单位与所有与其它单位签署的合同信息，结构如图4-7所表4-7 合同表字段名数据类型长度主键否功能描述合同编号Nvarcha

36、r15否具体合同编号员工编号Nvarchar5员工编号登记日期Datetime8合同的登记日期合同开始日期Datetime8合同开始实行的日期合同结束日期Datetime8合同终止日期合同期限Int4合同具体期限合同期工资Money8合同期具体工资状态Nvarchar8该合同当前状态备注Nvarchar100合同有关备注推荐精选4.1.2 数据库部分实体关系图图4-2部分实体关系图4.2 各功能模块的实现4.2.1 数据模块设计数据模块窗体主要功能是统一管理数据库访问组件，在本系统中，这个模块是最重要的模块，其他模块都要通过这个模块中的组件访问数据库，虽然只有简单的组件属性设置，Delphi自

37、动生成代码，但是不容有误。数据模块如图3所示：推荐精选图4-3 数据模块此模块的设计步骤如下：（1）在Delphi中选择“File”/“New”/“Data Module”菜单项，新建一个数据模块，命名为“Data1”。（2）在“ADO”组件页中点选“TADOConnection”组件，添加到窗体上，TADOConnection组件用到连接数据库，其它数据库组件通过它连接数据库。（3）点选ADOConnection1组件，在“Object Inspector”窗口中，单击ConnectionString属性右侧的【】按钮，弹出对话框如图4-4所示。图4-4数据连接对话框（4）单击【Build】

38、按钮，在弹出的对话框中的“提供程序”选项卡中设置希望连接的数据，如图4-5所示。推荐精选图4-5 连接属性对话框（5）选择“连接”选项卡，设置连接相关设置，如图4-6所示。图4-6接属性对话框推荐精选（6）单击【测试连接】按钮，如果连接成功，则提示成功，单击【确定】按钮完成数据库的连接。（7） 在窗体上添加TADOQuery组件，设Connection为“ADOConnection1”。这里的每个TADOQuery组件连接一个数据表。4.2.2 登录界面的设计登录界面主要是用于对用户进行安全性检查，以防止非法用户进入该系统。只有合法的用户，才可以进入系统。验证操作员及其密码。主要是通过对数据表

39、中的操作员信息表的查询，判断用户输入的密码是否符合数据库中的信息，如果符合则允许登录；否则会有相应的提示。为了安全本系统会在三次错误之后自动关闭。图4-7 登录界面此模块的设计步骤如下：（1）新建一个窗体，命名为“frm_Login”，设置Caption属性为“欢迎登陆企业人事管理系统”，设置Position属性为“poScreenCenter”。（2）在“Additional”组件页中点选“TImage”组件，添加到窗体上，设置Align属性为“alClient”；Stretch属性为“Tree”，在Pictuer属性中添加图片。（3）在“Standard”组件页中点选“TEdit”组件，添

40、加到窗体上，设置Ctl3D属性为“False”；设置Text属性为空，设置Edir2的PasswordChar属性为“*”。推荐精选（4）在“Additional”组件页中点选“TSpeedButton”组件，添加到窗体上，设置Caption属性分别为“登录”和“取消”；设置Flat属性为“True”。此模块调用了数据模块中的ADOquery组件连接数据库，然后用select语句对操作员信息这张数据表进行操作。对数据库的操作主要由以下代码实现： with Data1.ADOlogin do begin close; sql.Clear; sql.Add(select * from 操作员信息表

41、 where 操作员名称 = :a and 操作员密码 = :b); /使用SQL语句检索数据表中的用户名和密码 parameters.ParamByName(a).Value:=trim(edit1.Text); parameters.ParamByName(b).Value:=trim(edit2.Text); open; end;这里将输入的用户名和密码与操作员信息表中的操作员名称和操作员密码进行比较，如果两者相同才能进入本系统。 4.2.3 新员工登记模块设计新员工登记模块，主要用于添加、修改新员工的个人基本信息，如：姓名、性别、民族、文化程度等。新员工登记模块运行结果如图4-8所示。

42、推荐精选图4-8 新员工登记模块此模块设计如下：（1）新建一个窗体，命名为“frm_xygdj”，设置Caption属性为“新员工登记”，设置Position属性为“poScreenCenter”。（2）在窗体中添加“TPanel”组件、“TGroupBox”组件、“TEdit”组件、“TCombobox” 组件、“TLabel”组件、“TMaskEdit”组件、“TMemo”组件、“TBitbtn”组件、“TImage”组件，设置属性如表4-8所示。表4-8 主要组件属性设置组件名称所在组件页属性值Panel1StandardAlignBevellnnerBevelOuteralClient

43、bvSpacebvLowered推荐精选Panel2StandardAlignBevellnnerBevelOuteralNonebvSpacebvLoweredPanel3StandardAlignBevellnnerBevelOuteralNonebvSpacebvLoweredGroupbox1StandardCaption基本信息Groupbox2StandardCaption其它信息MaskEditAdditionalCtl3DEditMaskFalse!9999/99/00;1;_ImageAdditionalAlignStretchalClientTure此模块调用数据模块中的A

44、DOquery组件连接数据库中的人事表。“保存”按钮的功能主要是通过Insert语句向数据库中插入和添加数据，这段Insert语句如下：with data1.ADOQYygxx do begin close; sql.Clear; sql.Add(insert 人事表 values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l,:m,:n,:o,:p,:q,:r,:s,:t,:u,:v,:w,:x,:y,:z,:aa,:ab,:ac,:ad,:ae,:af);这里需要注意的是在“insert 人事表 values”后面的括号中的项目数要与数据表中的字段数目相同，因为

45、这是向数据表中依次插入数据，如果不相同就会出错。在编辑框的OnChange事件中添加如下代码，用来控制保存按钮的使用，如果没有完全填写信息，bitbtn的Enabled属性就设置为false，则设置【保存】按钮不可用。这部分判断输入是否为空的实现如下：procedure Tfrm_xygdj.Edit1Change(Sender: TObject);beginif (edit1.Text) and (edit2.Text) and (combobox1.Text) and (combobox2.Text) and (combobox3.Text) and (combobox4.Text) an

46、d(combobox5.Text) and (combobox6.Text) and (combobox7.Text) and (combobox8.Text) and(combobox9.Text) then推荐精选bitbtn1.Enabled:=trueelsebitbtn1.Enabled:=false;end;在窗体的OnShow事件中添加如下代码，用来向下拉列表框（TCombobox）组件添加数据表中的数据，为了避免下拉列表框中出现重复，这里用了select distinct语句，以民族为例。 with data1.ADOpublic do begin close; sql.Cle

47、ar; sql.Add(select distinct 民族 from 民族表); open; end; while Not Data1.ADOpublic.Eof do /在不是最后一条记录时进行循环 begin ComboBox1.Items.Add(Data1.ADOpublic.FieldByName(民族).Value); Data1.ADOpublic.Next; /将指针指向下一条记录 end;此模块中的，婚姻状况、文化程度等所有下拉列表框的实现都是这样，这里不再重复。在一个企业里，难免会用重名的员工，所以姓名不能作为员工的唯一标识，那么如果用员工编号来做唯一标识，就可以解决这个

48、问题了。人为的编号也难免会出错，所以在这里我们设置单击“添加”按钮自动生成员工编号。这个功能实现，首先需要使用select语句在人事表中找到最大的编号，实现如下：推荐精选begin Close; SQL.Clear; SQL.Add(select max(编号) as ss From 人事表 ); Open; end;当然，如果是第一次添加新员工，返回值为空时，编号就由001开始编排。If data1.ADOpublic.FieldByName(ss).Value = null then s :=mr+001如果不为空就需要分情况进行处理，这里实现代码如下：m:= Trim(data1.ADO

49、public.FieldByName(ss).Value) ;n:= StrToInt(copy(m,4,2) ;/将m的值从第4位取2位变为整形 if n9 then s:= s+00+ InttoStr(n +1) else if n=data1.ADOQYsl.FieldByName(应纳所得税金额下限).Value) and (strtofloat(edit1.Text)data1.ADOQYsl.FieldByName(应纳所得税金额上限).Value) then edit7.Text:=data1.ADOQYsl.FieldByName(级别号).Value; data1.ADOQ

50、Ysl.Next; end;这段代码中运用了ADOquery组件的Eof属性返回数据集的最后一条记录、ADOquery组件的Next属性返回数据集中当前记录的下一条记录，这两个属性主要是实现对数据表的逐一查询。4.2.5 主窗体设计主窗体中主要控制方式是通过菜单和工具栏按钮来调用子窗体，它的背景区由一幅图片填充。人事管理系统主窗体运行结果如图4-10所示。推荐精选图4-10 人事管理系统主窗体此窗体的设计主要运用了以下组件：“TMainMenu”组件、“TCoolBar”组件、“TSpeenButton”组件、“TPanel”组件、“TImage”组件、“TOpenDialog”组件和“TSa

51、veDialog”组件。为了防止数据库被破坏，或者用户的修改不合理需要还原，所以这里设置了数据库备份和数据库恢复，主要原理是将数据库文件拷贝另外的磁盘，这里运用了sql的BACKUP DATABASE语句和restore database语句，数据库备份由以下的代码完成：begin close; sql.Clear; sql.Add( BACKUP DATABASE +db_manpowerinfo+ TO DISK = +save+); execsql; application.MessageBox(数据备份成功,提示,0+64); except application.MessageBox

52、(数据库备份失败，请检查备份的路径或网络状态！,数据库备份,0+mb_iconinformation);推荐精选 end;数据库还原由以下代码实现：begin Close; SqL.Clear; SQL.Add(use master restore database db_manpowerinfo from disk=+dir+); ExecSQL; Close; SqL.Clear; SQL.Add(use db_manpowerinfo ); ExecSQL ;end;4.2.6 员工信息浏览模块设计可以通过浏览模块查看员工的详细信息，还可以修改和删除信息，并通过条件查询来查看某人的信息。

53、员工信息浏览模块的运行结果如图4-11所示。图4-11 员工信息浏览模块推荐精选此模块主要运用了以下组件：“TPanel”组件、“TLabel”组件、“TCombobox”组件、“TEdit”组件、“TBitbtn”组件、“Treeview”组件、“Datasource”组件、“TDBGrid”组件，其中“Datasource”组件和“TDBGrid”组件是显示数据库中内容的组件，在运行时页面上看不到的。TTreeView是显示单位信息和员工信息，如果在设计时就设计好，在公司增加部门的时候就会无法添加，所以在这里是通过对单位信息表和部门信息表进行检索后动态地创建树形选项。在窗体的OnShow事

54、件中添加如下代码：procedure Tfrm_ygxill.FormShow(Sender: TObject);vara,b:string;subt:TTreenode;beginwith data1.ADOQuery1 do begin close; sql.Clear; sql.Add(select * from 人事表); open; end; data1.ADOQuery1.Active:=true;with data1.ADOpublic do begin close; sql.Clear; sql.Add(select distinct 单位名称 from 单位信息表); ope

55、n; end; a:=data1.ADOpublic.FieldByName(单位名称).Value; subt:=Treeview1.Items.Add(nil,a);with data1.ADOpublic do begin推荐精选 close; sql.Clear; sql.Add(select distinct 部门名称 from 部门表); open; end; while Not Data1.ADOpublic.Eof do begin b:=Data1.ADOpublic.FieldByName(部门名称).Value; Data1.ADOpublic.Next; Treeview1.Items.AddChild(subt,b); end;Tr