《毕业设计（论文）基于Delphi的公司人事管理系统的设计与实现.doc》由会员分享，可在线阅读，更多相关《毕业设计（论文）基于Delphi的公司人事管理系统的设计与实现.doc（20页珍藏版）》请在三一办公上搜索。
1、基于Delphi的公司人事管理系统的设计与实现摘 要随着信息科学技术的飞速发展，人们逐渐意识到对信息管理软件的运用可以使日常工作更加方便、快捷和高效。论文详细论述了一个公司人事管理系统的开发设计过程。系统采用Delphi 7.0作开发平台，SQL Server 2000作数据库管理系统，实现了系统管理、信息设置、员工信息管理、工资管理等功能。系统符合公司人事管理的要求，能够帮助公司切实提高工作效率。论文组织如下：首先阐述了该系统的开发背景、意义；其次介绍了相关的开发工具及技术基础；接着对系统的需求进行了分析，并提出了具体的设计方案和数据库模型；然后展现了整个系统的具体实现，包括数据库的设计和连
2、接，各功能模块的实现；最后对该软件进行了严格的测试。关键词： 信息管理；MIS；Delphi7.0；SQL server 2000The Design and Implementation of Personnel Management System based on DelphiAbstractAlong with the rapid development of the information science technology, people gradually realize that the utilization of information management softwar
3、e could make the routine more convenient, quick and efficient. The paper discusses in detail the development and design process of the external affair of headhunter company management software. It uses Delphi 7.0 as the development platform, SQL Server 2000 as the database management system, and inc
4、ludes system management, information setup, staff information management, wage management, etc. It can accord with the requirement of personnel management, and can help the company enhance its work efficiency.The paper is organized as following: Firstly, analyzes the background and significance; Sec
5、ondly, introduces the development 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 implementat
6、ion of every module. Finally gives a test of the system.Key words: Information management; MIS;Delphi7.0; SQL server 2000目 录论文总页数：28页1 引言11.1 背景11.2意义11.3研究思路32 开发工具介绍32.1 开发工具的选择32.2 Delphi 7.0 及 SQL Server 2000简介42.2.1 Delphi 7.0简介42.2.2 SQL Server 2000简介53 需求分析及系统设计64系统的实现74.1 数据库设计74.2 各功能模块的实现1
7、14.2.1 数据模块设计114.2.2 登录界面的设计134.2.3 新员工登记模块设计144.2.4 工资设置模块设计174.2.5 主窗体设计194.2.6 员工信息浏览模块设计205 系统测试225.1 测试环境235.2 主要模块测试235.2.1 登录界面测试235.2.2 所得税模块测试245.2.3 工资设置模块测试24结 论25参考文献25致 谢27声 明281 引言1.1 背景对于大中型企业来说，利用计算机支持企业高效率完成劳动人事管理的日常事务，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件；而工资管理是一项琐碎、复杂而又十分细致的工作，工资计算
8、、发放、核算的工作量很大，一般不允许出错，如果实行手工操作，每月发放工资须手工填制大量的表格，这就会耗费工作人员大量的时间和精力，计算机进行工资发放工作，不仅能够保证工资核算准确无误、快速输出，而且还可以利用计算机对有关工资的各种信息进行统计，服务于财务部门其他方面的核算和财务处理，同时计算机具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事工资管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。不同的企业具有不同的人事、工资管理制度，这就决定了不同的企业需要不同的人事工资管理系统。企业以前的所有资料都
9、是用人工记录的方式来进行管理的，面对目前的实际状况，迫切需要开发一个计算机系统来适应这一些工作。管理信息系统（MIS）的概念是1961年美国人J.D.GALLAGHER首先提出来的，是一门新兴的、集管理科学、信息科学、系统科学及计算机科学为一体的综合性学科，研究的是企业中信息管理活动的全过程，以便有效的管理信息，提供各类管理决策信息，辅助企业进行现代化管理。管理信息系统是企业的信息系统，它具备数据处理、计划、控制、预测和辅助决策功能，具体作用如下：（1） 用统一标准处理和提供信息，排除使用前后矛盾的不完整的数据。（2） 完整、及时提供在管理及决策中需要的数据。（3） 利用指定的数据关系式分析数
10、据，客观预测未来。（4） 向各级管理机构提供不同详细程度的报告，缩短分析和解释时间。（5） 用最低的费用最短的时间提供尽可能精确、可靠的信息，以便使决策者选择最佳的实施方案，以提高企业的经济效益。1.2意义企业人事管理系统是一个现代化的企业在竞争中立于不败之地的必要部分，它能够为查询人事信息提供充足的信息和快捷的查询手段。自20世纪50年代将计算机引入数据处理以来，历经管理信息系统发展的各个阶段。一方面是信息技术应用的迅猛发展，另一方面，许多管理信息系统在耗费了大量的人力、物力、财力之后夭折了，或者根本没有实现原定系统开发目标，或者根本没有实现原系统的开发目标，而把计算机用作了打字机。这是长期
11、以来困惑人们的一大问题。现在人们日益深刻认识到，把信息技术应用与应用环境分离是办不到的。管理信息系统根本不仅是技术系统，而且是社会系统。管理信息系统是一门融管理科学、信息科学、系统科学、现代通信技术和电子计算机技术为一体的综合性边缘学科，它以人为主导，利用计算机硬件、软件、网络通信设备办公设备，进行信息的收集、传输、加工、存储、更新和维护，以及提高企业效率为目的一种集成化的人机系统。MIS系统涉及到多方面的内容，因此，人们称MIS学科是一个交叉综合性的学科。企业人事管理是一项琐碎，繁杂而又非常细致的工作，一般是不允许发生差错的，它直接影响着劳动者队工作的积极性，是提高劳动生产力，提高企业活力的
12、基础，在以往手工进行的办公工作中，需反复的进行各种抄写，计算等工作，不仅花费大量的时间，而且往往会出错。计算机应用于企业的人事信息处理处理，不仅可以使企业各类人员以最少的劳动和最短的实践取得足够的、可靠的、准确的信息。而且可以使他们从简单的数据统计、收集、汇总等重复繁重的事务中解脱出来。时至今日，计算机正在令人难以置信的速度步入普通人的学习、工作和生活。在初见端倪的信息化社会里，不能有效使用计算机的单位和个人，无疑将在其个种活动中面临重重的障碍。计算机已经成为人们日常工作中处理数据的得力助手和工具，数据处理与科学计算、过程控制、辅助设计一起，并称为计算机四大应用。古往今来，信息都上一种资源，只
13、是未得到应有的重视。事实上，对一个国家来说，信息决定其如何建设和治理；对一个人来说，信息是其决定如何发展才能适应社会需要的 基本要求；对政府来说，各种必须的信息是其赖以生存和活动至关重要的条件；而对与任何工商贸企业来说，信息就是他们的生命线，没有大量的信息想要在市场环境下生存是不可能的。由此可见，信息是维持生产活动、经济活动和社会活动必不可少的基本资源，他是有价值，是构成客观世界的三大要素之一。同时也说明了一点，就是信息处理也非常的重要。一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带
14、来了不少的困难。随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业人事管理势在必行。企业人事信息管理系统是大中型企业单位不可缺少的工具,它的内容对于企业的决策者和管理者来说都至关重要,所以企业人事信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。而如今电脑已经深入到日常工作和生活的方方面面，比如文字处理、信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。所以利用计算机管理人事是以后企业最佳选择。企业人事管理是相对企业内部员工的管理。集人员、考勤、工资、员工培训、系统功能等于一体的大型管理系统。为企业在人事管理等方面提供极大的方便。不但有利于企业的统一性管
15、理,而且还大在提高了企业的全体员工的工作效率和积极性。企业人事管理可以说是一项琐碎、繁杂而又必须十分细致的工作，是不能允许时常发生差错的。几十年前的那种手工操作已远远跟不上近代企业发展的步骤，时代的进步决定了企业的发展，而企业要发展必然完善的管理体系，所以说企业人事管理的自动化完全是时代进步的必然结果。合理的利用有助于企业发展的管理系统是企业改革的一种优越的体现。利用计算机对企业人事管理不仅保证了核算准确度，还成倍的提高了工作效率，而且便于查询。本软件界面美观、使用方便，是企业人事管理必不可缺的好帮手。1.3研究思路正如研究任何其它软件项目一样，我做的毕业设计也经历了从选题，调研，熟悉开发环境
16、，实验关键技术，查找类似的相关系统的资料；系统需求分析，数据库结构设计，功能模块开发，功能模块测试，系统调试和系统试运行和修改。2 开发工具介绍2.1 开发工具的选择随着社会需求的推动和计算机技术的发展普及，各行业的管理机构需要有计算机来处理大量的信息。选择一优秀的数据库管理系统作为开发平台，将给日后的信息处理带来便利性。其中，基于微型计算机的数据库系统是应用最广泛、实用性最强的一种计算机技术。而事实证明：SQL数据库是一个广泛使用、简单易用、性能价格比较高、工具完整而又丰富、界面友好、处理速度高的关系型数据库。SQL Server 2000主要用于Windows环境，利用它可设计出体现Win
17、dows风格的丰富多彩的图形化用户界面，使用户的操作和使用十分便利。SQL Server 2000 是为数据库应用程序开发而设计的功能强大、面向对象的编程工具。它能够管理大量复杂的数据信息，同时有具有很好的安全性和较强的网络功能，甚至还能够实现数据的远程访问和存储加工。从本人的实际情况看：因为在校期间也有学习过可视化的编程，对这一类的软件的使用也有较深的认识，所以说选用SQL Server 2000作为开发工具是很有优势的。而对于前台编程工具，目前比较流行的是VC+,VB，Delphi，PowerBuilder,C+builder等。对底层编程比较需要的地方就大部分VC+，而Delphi的ID
18、E是非常易用的。业界有一句很经典的话：真正的程序员用VC+，而聪明的程序员用Delphi。可见，VC+与Delphi是两种较优秀的语言开发工具。Delphi 7.0应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具，Delphi 7.0提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故实现本系统用Delphi作为开发工具是一个明智的选择。2.2 Delphi 7.0 及 SQL Server 2000简介2.2.1 Delphi 7.0简介Delphi是全新的可视化编程环境，为我们提
19、供了一种方便、快捷的Windows应用程序开发工具。它使用了Microsoft Windows图形用户界面的许多先进特性和设计思想，采用了弹性可重复利用的完整的面向对象程序语言(Object-Oriented Language)、当今世界上最快的编辑器、最为领先的数据库技术。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，使用Delphi开发应用软件，无疑会大大地提高编程效率。 DELPHI最显著的特点就是高效性和稳定性，总的来说，主要体现在以下6个方面： (1)可视化开发环境的性能。(2)面向对象编程的概念。(3)编译器的速度和已编译代码的效率。(4)编程语言
20、的功能及其复杂性。(5)数据库结构的灵活性和扩展性。(6)框架对设计和使用模式的扩充。Delphi实际上是Pascal语言的一种版本，但它与传统的Pascal语言有天壤之别。一个Delphi程序首先是应用程序框架，而这一框架正是应用程序的“骨架”。在骨架上即使没有附着任何东西，仍可以严格地按照设计运行。您的工作只是在“骨架”中加入您的程序。缺省的应用程序是一个空白的窗体(Form)，您可以运行它，结果得到一个空白的窗口。这个窗口具有Windows窗口的全部属性：可以被放大缩小、移动、最大最小化等，但您却没有编写一行代码。因此，可以说应用程序框架通过提供所有应用程序共有的东西，为用户应用程序的开
21、发打下了良好的基础。Delphi已经为您做好了一切基础工作-程序框架就是一个已经完成的可运行应用程序，只是不处理任何事情。您所需要做的，只是在程序中加入完成您所需功能的代码而已。在空白窗口的背后，应用程序的框架正在等待用户的输入。由于您并未告诉它接收到用户输入后作何反应，窗口除了响应Windows的基本操作(移动、缩放等)外，它只是接受用户的输入，然后再忽略。Delphi把Windows编程的回调、句柄处理等过程都放在一个不可见的Romulam覆盖物下面，这样您可以不为它们所困扰，轻松从容地对可视部件进行编程。2.2.2 SQL Server 2000简介SQL Server 2000 继承了
22、数据库软件设计和引擎方面的优势，已经成为新一代网络应用程序的最佳数据库和分析解决方案之一。作为MicrosoftNET Enterprise Servers 的核心组件，它将减少电子商务、在线商务和数据仓库应用程序推向市场的时间，并对需要的环境提供可靠的支持。SQL Server 2000 对XML和HTTP 提供充分的支持；提供分割装载和确保时间的特性；提供先进的管理和协调机制，可以自动管理线程任务，降低总体开销。SQL Server 2000 是一个具备完全Web 支持的数据库产品，提供了可扩展标记语言（XML）核心支持以及Internet 上和防火墙外进行查询的能力，具有可伸缩性、灵活性
23、、扩充性好，而且价格便宜等特点；还可以使用XML 更新程序更容易地插入、更新和删除数据。使用SQL Server 2000 可以获得非凡的可伸缩性和可靠性。通过向上伸缩和向外扩展的能力，SQL Server 2000 满足苛刻的电子商务和企业应用程序要求。主要体现为：（1）高度可用性；（2）可伸缩性；（3）安全性；（4）分布式分区图；（5）索引视图；（6）虚拟接口系统网络；（7）复制特性。SQL Server 2000 是MicrosoftNET Enterprise Server 的数据管理与分析中枢。SQL Server 2000 包括加速从概念到最后交付开发过程的工具。主要体现为：（1）
24、经过简化的数据库管理；（2）提高开发人员的工作效率；（3）数据转换服务（DTS）；（4）扩展应用程序；（5）英语查询；（6）数据挖掘；（7）OLAP 服务；（8）OLAP 灵活性；（9）闭合循环分析。3 需求分析及系统设计人事管理系统是一个典型的数据库应用程序，由启动窗体、登录模块、系统主界面、系统管理模块、信息设置模块、员工信息管理管理模块、工资管理模块等组成，具体的功能模块如下：(1)系统管理模块的主要功能是单位信息、管理员设置、更改密码、重新登录。(2) 信息设置模块主要功能是对部门信息、工种类型、职称类型、文化程度、政治面貌、民族类型、得税设置、考勤设置等进行设置。(3) 员工信息管理
25、模块主要功能是新员工登记、应聘登记、员工调动、员工离职、考核管理、合同管理、应聘信息浏览、员工信息浏览。(4) 工资管理模块主要是：设置员工的工资信息、生成工资报表、工资档案浏览。总之, 开发这个系统的目的就是要帮助企业的人事部门提高工作效率，实现企业人事信息管理系统的系统化、规范化和自动化。根据这个系统所要实现的目的和任务，总结出这个系统最终要实现的主要功能如下： 数据设置部分：主要包括考勤录入功能。数据修改部分: 主要修改员工信息,修改基本工资,人事调动。数据采集部分：主要完成日常登记。数据查询部分：主要包括用户信息查询、考勤信息查询、工资情况查询、部门情况查询各项报表统计等工作。本系统的
26、功能模块如图1所示：图1 系统功能模块图4系统的实现4.1 数据库设计 数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。数据库在系统中占有非常重要的地位，数据库设计的好坏将直接影响系统的效率。合理的数据库设计可以提高数据存储的效率，有利于程序的实现。创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1标识需要的数据；2收集被标识的字段到表中；3标识主关键字字段；4绘制一个简单的数据图表；5规范数据；6标识指定字段的信息；7创建物理表。如图2所示的即为本系统中数据库中
27、的数据表的树形结构图，该数据表树型结构图包含系统所有数据表。可以清晰地反应数据库信息。图2 数据表树形结构图1考核表考核表的作用是存入员工每个月的考核信息，考核表结构如表1所示。表1 考核表字段名数据类型长度主键否功能描述bhvarchar5是员工编号cqtsint4出勤天数qjtsint10请假天数cdcsint10迟到次数ztcsint4早退次数kgtsint4旷工天数jbssint4加班时数khdjvarchar10考核等级kqfzfloat8考核分值khrvarchar10考核人kqyfdatetime8考核月份2考勤表考勤表的作用是存放员工考核的条件，考勤表结构如表2所示。表2 考勤
28、表字段名数据类型长度主键否功能描述kgkcfloat8旷工扣除qqjfloat8全勤奖cqtsInt4出勤天数cdztcsInt4迟到早退次数jbfFloat8加班费ypjtsInt4月平均工作天数jbfloat8几倍3工资表工资表的作用是存放员工每个月的工资信息，工资表结构如表3所示。表3 工资表字段名数据类型长度主键否功能描述ssyfvarchar15所属工资月份bhvarchar5是员工编号ygxmvarchar10员工姓名JbgzFloat8基本工资jbfFloat8加班费qqjFloat8全勤奖zwjtFloat8职务津贴qtjeFloat8其它金额kgfFloat8旷工费ylbxF
29、loat8养老保险sybxFloat8失业保险ylbxFloat8医疗保险qtkeFloat8其它扣额yfgzFloat8应发工资ykgzFloat8应扣工资sfgzFloat8实发工资bzvarchar50备注4人事表人事表用来存放员工的详细信息，人事表结构如表4所示。表4 人事表字段名数据类型长度主键否功能描述bhVarchar5是编号xmVarchar10姓名xbVarchar2性别sfzhVarchar20身份证号csnyDatetime8出生年月mzVarchar20民族hyzkVarchar4婚姻状况zzmmVarchar10政治面貌jgVarchar50籍贯nxdhVarchar
30、20联系电话sjhmVarchar30手机号码dzyxVarchar20电子邮箱jtdzVarchar50家庭地址byyxVarchar50毕业院校zyVarchar20专业whcdVarchar10文化程度tcVarchar50特长gzsjDatetime8参加工作时间gnInt4工龄zpImage16照片ssbmVarchar50所属部门gzVarchar10工种zwVarchar10职务zcVarchar20职称jbgzFloat8基本工资qtgzFloat8其它工资drsjDatetime8调入时间jlVarchar200简历djrqDatetime8登记日期4.2 各功能模块的实现4
31、.2.1 数据模块设计数据模块窗体主要功能是统一管理数据库访问组件，在本系统中，这个模块是最重要的模块，其他模块都要通过这个模块中的组件访问数据库，虽然只有简单的组件属性设置，Delphi自动生成代码，但是不容有误。数据模块如图3所示：图3 数据模块此模块的设计步骤如下：（1）在Delphi中选择“File”/“New”/“Data Module”菜单项，新建一个数据模块，命名为“Data1”。（2）在“ADO”组件页中点选“TADOConnection”组件，添加到窗体上，TADOConnection组件用到连接数据库，其它数据库组件通过它连接数据库。（3）点选ADOConnection1组
32、件，在“Object Inspector”窗口中，单击ConnectionString属性右侧的【】按钮，弹出对话框如图4所示。图4 数据连接对话框（4）单击【Build】按钮，在弹出的对话框中的“提供程序”选项卡中设置希望连接的数据，如图5所示。图5 连接属性对话框（5）选择“连接”选项卡，设置连接相关设置，如图6所示。图6 连接属性对话框（6）单击【测试连接】按钮，如果连接成功，则提示成功，单击【确定】按钮完成数据库的连接。（7）在窗体上添加TADOQuery组件，设置Connection为“ADOConnection1”。这里的每个TADOQuery组件连接一个数据表。4.2.2 登录界
33、面的设计登录界面主要是用于对用户进行安全性检查，以防止非法用户进入该系统。只有合法的用户，才可以进入系统。验证操作员及其密码。主要是通过对数据表中的操作员信息表的查询，判断用户输入的密码是否符合数据库中的信息，如果符合则允许登录；否则会有相应的提示。为了安全本系统会在三次错误之后自动关闭。图7 登录界面此模块的设计步骤如下：（1）新建一个窗体，命名为“frm_Login”，设置Caption属性为“登录”，设置Position属性为“poScreenCenter”。（2）在“Additional”组件页中点选“TImage”组件，添加到窗体上，设置Align属性为“alClient”；Stre
34、tch属性为“Tree”，在Pictuer属性中添加图片。（3）在“Standard”组件页中点选“TEdit”组件，添加到窗体上，设置Ctl3D属性为“False”；设置Text属性为空，设置Edir2的PasswordChar属性为“*”。（4）在“Additional”组件页中点选“TSpeedButton”组件，添加到窗体上，设置Caption属性分别为“登录”和“取消”；设置Flat属性为“True”。此模块调用了数据模块中的ADOquery组件连接数据库，然后用select语句对操作员信息这张数据表进行操作。对数据库的操作主要由以下代码实现： with Data1.ADOlogin
35、 do begin close; sql.Clear; sql.Add(select * from 操作员信息表 where 操作员名称 = :a and 操作员密码 = :b); /使用SQL语句检索数据表中的用户名和密码 parameters.ParamByName(a).Value:=trim(edit1.Text); parameters.ParamByName(b).Value:=trim(edit2.Text); open; end;这里将输入的用户名和密码与操作员信息表中的操作员名称和操作员密码进行比较，如果两者相同才能进入本系统。 4.2.3 新员工登记模块设计新员工登记模块，
36、主要用于添加、修改新员工的个人基本信息，如：姓名、性别、民族、文化程度等。新员工登记模块运行结果如图8所示。图8 新员工登记模块此模块设计如下：（1）新建一个窗体，命名为“frm_xygdj”，设置Caption属性为“新员工登记”，设置Position属性为“poScreenCenter”。（2）在窗体中添加“TPanel”组件、“TGroupBox”组件、“TEdit”组件、“TCombobox” 组件、“TLabel”组件、“TMaskEdit”组件、“TMemo”组件、“TBitbtn”组件、“TImage”组件，设置属性如表5所示。表5 主要组件属性设置组件名称所在组件页属性值Pan
37、el1StandardAlignBevellnnerBevelOuteralClientbvSpacebvLoweredPanel2StandardAlignBevellnnerBevelOuteralNonebvSpacebvLoweredPanel3StandardAlignBevellnnerBevelOuteralNonebvSpacebvLoweredGroupbox1StandardCaption基本信息Groupbox2StandardCaption其它信息MaskEditAdditionalCtl3DEditMaskFalse!9999/99/00;1;_ImageAdditi
38、onalAlignStretchalClientTure此模块调用数据模块中的ADOquery组件连接数据库中的人事表。“保存”按钮的功能主要是通过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);这里需要注意的是在“inse
39、rt 人事表 values”后面的括号中的项目数要与数据表中的字段数目相同，因为这是向数据表中依次插入数据，如果不相同就会出错。在编辑框的OnChange事件中添加如下代码，用来控制保存按钮的使用，如果没有完全填写信息，bitbtn的Enabled属性就设置为false，则设置【保存】按钮不可用。这部分判断输入是否为空的实现如下：procedure Tfrm_xygdj.Edit1Change(Sender: TObject);beginif (edit1.Text) and (edit2.Text) and (edit5.Text) and (maskedit5.Text) thenbitb
40、tn1.Enabled:=trueelsebitbtn1.Enabled:=false;end;在窗体的OnShow事件中添加如下代码，用来向下拉列表框（TCombobox）组件添加数据表中的数据，为了避免下拉列表框中出现重复，这里用了select distinct语句，以民族为例。 with data1.ADOpublic do begin close; sql.Clear; sql.Add(select distinct 民族 from 民族表); open; end; while Not Data1.ADOpublic.Eof do /在不是最后一条记录时进行循环 begin Combo
41、Box1.Items.Add(Data1.ADOpublic.FieldByName(民族).Value); Data1.ADOpublic.Next; /将指针指向下一条记录 end;此模块中的，婚姻状况、文化程度等所有下拉列表框的实现都是这样，这里不再重复。在一个企业里，难免会用重名的员工，所以姓名不能作为员工的唯一标识，那么如果用员工编号来做唯一标识，就可以解决这个问题了。人为的编号也难免会出错，所以在这里我们设置单击“添加”按钮自动生成员工编号。这个功能实现，首先需要使用select语句在人事表中找到最大的编号，实现如下：begin Close; SQL.Clear; SQL.Add(
42、select max(bh) as ss From 人事表 ); Open; end;当然，如果是第一次添加新员工，返回值为空时，编号就由001开始编排。If data1.ADOpublic.FieldByName(ss).Value = null then s :=mr+001如果不为空就需要分情况进行处理，这里实现代码如下：m:= Trim(data1.ADOpublic.FieldByName(ss).Value) ;n:= StrToInt(copy(m,4,2) ;/将m的值从第4位取2位变为整形 if n9 then s:= s+00+ InttoStr(n +1) else if n99 then s:=s+0+ InttoStr(n +1) else s:= s+InttoStr(n +1);这样就有效的避免了人为操作的输入失误。4.2.4 工资设置模块设计工资设置模块主要用于设置员工的工资信息，此窗体中主要应用的也是基本的SQL语句Insert向数据中插入数据。工资设置模块运行结果如图9所示。图9 工资设置模块
