基于Delphi的公司人事管理系统的设计与实现-无忧无虑毕设网

无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 本文配套程序下载地址 ： 无忧无虑毕设网 ()-大学生毕业设计站 ,免费毕业设计论文 ,无忧无虑毕设网 大学生毕业设计 ,出售各类毕业设计源码 ,论文 ,程序源码 ,网站源码 ,免费视频教程 ,我们将竭诚为您服务！ 分类号： TP315 U D C： D10621-408-(2007)5981-0 密 级：公 开 编 号： 2002032041 成 都 信 息 工 程 学 院 学 位 论 文 基于 Delphi 的公司人 事管理系统的设计与实现 论文作者姓名： 何 林 申请学位专业： 网络工程 申请学位类别： 工学学士 指导教师姓名（职称）： 叶立轩（高级工程师） 论文提交日期： 2007年 6 月 10 日 基于 Delphi 的公司人事管理系统的设计与实现 摘 要 随着信息科学技术的飞速发展，人们逐渐意识到对信息管理软件的运用可以使日常工作更加方便、快捷和高效。论文详细论述了一个公司人事管理系统的开发设计过程。系统采用 Delphi 7.0作开发平台， SQL Server 2000 作数据库 管理系统，实现了 系统管理、信息设置、员工信息管理、工资管理 等功能。系统符合公司人事管理的要求，能够帮助公司切实提高工作效率。 论文组织如下：首先阐述了该系统的开发背景、意义；其次介绍了相关的开发工具及技术基础；接着对系统的需求进行了分析，并提出了具体的设计方案和数据库模型；然后展现了整个系统的具体实现，包括数据库的设计和连接，各功能模块的实现；最后对该软件进行了严格的测试。 关键词 ： 信息管理； MIS； Delphi7.0； SQL server 2000 The Design and Implementation of Personnel Management System based on Delphi Abstract Along with the rapid development of the information science technology, people gradually realize that the utilization of information management software 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 includes 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； Secondly, 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 implementation of every module. Finally gives a test of the system. Key words: Information management； MIS；Delphi7.0； SQL server 2000 目 录 论文总页数： 28页 1 引言 . 1 1.1 背景 . 1 1.2意义 . 1 1.3研究思路 . 3 2 开发工具介绍 . 3 2.1 开发工具的选择 . 3 2.2 Delphi 7.0 及 SQL Server 2000简介 . 4 2.2.1 Delphi 7.0简介 . 4 2.2.2 SQL Server 2000简介 . 5 3 需求分析及系统设计 . 6 4 系统的实现 . 7 4.1 数据库设计 . 7 4.2 各功能模块的实现 . 11 4.2.1 数据模块设计 . 11 4.2.2 登录界面的设计 . 13 4.2.3 新员工登记模块设计 . 14 4.2.4 工资设置模块设计 . 17 4.2.5 主窗体设计 . 19 4.2.6 员工信息浏览模块设计 . 20 5 系统测试 . 22 5.1 测试环境 . 23 5.2 主要模块测试 . 23 5.2.1 登录界面测试 . 23 5.2.2 所得税模块测试 . 24 5.2.3 工资设置模块测试 . 24 结 论 . 25 参考文献 . 25 致 谢 . 27 声 明 . 28 第 1 页 共 28 页 1 引言 1.1 背景 对于大中型企业来说，利用计算机支持企业高效率完成劳动人事管理的日常事务，是适应现代企业制度要求、 推动企业劳动人事管理走向科学化、规范化的必要条件；而工资管理是一项琐碎、复杂而又十分细致的工作，工资计算、发放、核算的工作量很大，一般不允许出错，如果实行手工操作，每月发放工资须手工填制大量的表格，这就会耗费工作人员大量的时间和精力，计算机进行工资发放工作，不仅能够保证工资核算准确无误、快速输出，而且还可以利用计算机对有关工资的各种信息进行统计，服务于财务部门其他方面的核算和财务处理，同时计算机具有手工管理所无法比拟的优点 .例如 :检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能 够极大地提高人事工资管理的效率 ,也是企业的科学化、正规化管理 ,与世界接轨的重要条件。 不同的企业具有不同的人事、工资管理制度，这就决定了不同的企业需要不同的人事工资管理系统。企业以前的所有资料都是用人工记录的方式来进行管理的，面对目前的实际状况，迫切需要开发一个计算机系统来适应这一些工作。 管理信息系统（ MIS）的概念是 1961 年美国人 J.D.GALLAGHER 首先提出来的，是一门新兴的、集管理科学、信息科学、系统科学及计算机科学为一体的综合性学科，研究的是企业中信息管理活动的全过程，以便有效的管理信息，提 供各类管理决策信息，辅助企业进行现代化管理。管理信息系统是企业的信息系统，它具备数据处理、计划、控制、预测和辅助决策功能，具体作用如下： （ 1） 用统一标准处理和提供信息，排除使用前后矛盾的不完整的数据。 （ 2） 完整、及时提供在管理及决策中需要的数据。 （ 3） 利用指定的数据关系式分析数据，客观预测未来。 （ 4） 向各级管理机构提供不同详细程度的报告，缩短分析和解释时间。 （ 5） 用最低的费用最短的时间提供尽可能精确、可靠的信息，以便使决策者选择最佳的实施方案，以提高企业的经济效益。 1.2意义 企业人事 管理系统是一个现代化的企业在竞争中立于不败之地的必要部分，它能够为查询人事信息提供充足的信息和快捷的查询手段。自 20 世纪 50年代将计算机引入数据处理以来，历经管理信息系统发展的各个阶段。一方面是信息技术应用的迅猛发展，另一方面，许多管理信息系统在耗费了大量的人力、物力、财力之后夭折了，或者根本没有实现原定系统开发目标，或者根本 第 2 页 共 28 页 没有实现原系统的开发目标，而把计算机用作了打字机。这是长期以来困惑人们的一大问题。现在人们日益深刻认识到，把信息技术应用与应用环境分离是办不到的。管理信息系统根本不仅是技术系统，而且是 社会系统。管理信息系统是一门融管理科学、信息科学、系统科学、现代通信技术和电子计算机技术为一体的综合性边缘学科，它以人为主导，利用计算机硬件、软件、网络通信设备办公设备，进行信息的收集、传输、加工、存储、更新和维护，以及提高企业效率为目的一种集成化的人机系统。 MIS 系统涉及到多方面的内容，因此，人们称 MIS学科是一个交叉综合性的学科。 企业人事管理是一项琐碎，繁杂而又非常细致的工作，一 般 是不允许发生差错的，它直接影响着劳动者队工作的积极性，是提高劳动生产力，提高企业活力的基础，在以往手工进行的办公工作中，需 反复的进行各种抄写，计算等工作，不仅花费大量的时间，而且往往会出错。计算机应用于企业的人事信息处理处理，不仅可以使企业各类人员以最少的劳动和最短的实践取得足够的、可靠的、准确的信息。而且可以使他们从简单的数据统计、收集、汇总等重复繁重的事务中解脱出来。 时至今日，计算机正在令人难以置信的速度步入普通人的学习、工作和生活。在初见端倪的信息化社会里，不能有效使用计算机的单位和个人，无疑将在其个种活动中面临重重的障碍。计算机已经成为人们日常工作中处理数据的得力助手和工具，数据处理与科学计算、过程控制、辅助设计一起 ，并称为计算机四大应用。古往今来，信息都上一种资源，只是未得到应有的重视。事实上，对一个国家来说，信息决定其如何建设和治理；对一个人来说，信息是其决定如何发展才能适应社会需要的 基本要求；对政府来说，各种必须的信息是其赖以生存和活动至关重要的条件；而对与任何工商贸企业来说，信息就是他们的生命线，没有大量的信息想要在市场环境下生存是不可能的。 由此可见，信息是维持生产活动、经济活动和社会活动必不可少的基本资源，他是有价值，是构成客观世界的三大要素之一。同时也说明了一点，就是信息处理也非常的重要。一直以来人们使 用传统人工的方式管理文件档案，这种管理方式存在着许多缺点 ,如 :效率低、保密性差 ,另外时间一长 ,将产生大量的文件和数据 ,这对于查找、更新和维护都带来了不少的困难。随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业人事管理势在必行。企业人事信息管理系统是大中型企业单位不可缺少的工具 ,它的内容对于企业的决策者和管理者来说都至关重要 ,所以企业人事信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。而如今电脑已经深入到日常工作和生活的方方面面，比如文字处理、信息管理、辅助设计、图形图像处 理、 第 3 页 共 28 页 教育培训以及游戏娱乐等。所以利用计算机管理人事是以后企业最佳选择。企业人事管理是相对企业内部员工的管理。集人员、考勤、工资、员工培训、系统功能等于一体的大型管理系统。为企业在人事管理等方面提供极大的方便。不但有利于企业的统一性管理 ,而且还大在提高了企业的全体员工的工作效率和积极性。企业人事管理可以说是一项琐碎、繁杂而又必须十分细致的工作，是不能允许时常发生差错的。几十年前的那种手工操作已远远跟不上近代企业发展的步骤，时代的进步决定了企业的发展，而企业要发展必然完善的管理体系，所以说企业人事管理的自动化完 全是时代进步的必然结果。合理的利用有助于企业发展的管理系统是企业改革的一种优越的体现。利用计算机对企业人事管理不仅保证了核算准确度，还成倍的提高了工作效率，而且便于查询。本软件界面美观、使用方便，是企业人事管理必不可缺的好帮手。 1.3研究思路 正如研究任何其它软件项目一样，我做的毕业设计也经历了从选题，调研，熟悉开发环境，实验关键技术，查找类似的相关系统的资料；系统需求分析，数据库结构设计，功能模块开发，功能模块测试，系统调试和系统试运行和修改。 2 开发工具介绍 2.1 开发工具的选择 随着社会需求的推 动和计算机技术的发展普及，各行业的管理机构需要有计算机来处理大量的信息。选择一优秀的数据库管理系统作为开发平台，将给日后的信息处理带来便利性。其中，基于微型计算机的数据库系统是应用最广泛、实用性最强的一种计算机技术。而事实证明： SQL数据库是一个广泛使用、简单易用、性能价格比较高、工具完整而又丰富、界面友好、处理速度高的关系型数据库。 SQL Server 2000 主要用于 Windows 环境，利用它可设计出体现Windows 风格的丰富多彩的图形化用户界面，使用户的操作和使用十分便利。SQL Server 2000 是为数据库应用程序开发而设计的功能强大、面向对象的编程工具。它能够管理大量复杂的数据信息，同时有具有很好的安全性和较强的网络功能，甚至还能够实现数据的远程访问和存储加工。 从本人的实际情况看：因为在校期间也有学习过可视化的编程，对这一类的软件的使用也有较深的认识，所以说选用 SQL Server 2000 作为开发工具是很有优势的。 而对于前台编程工具，目前比较流行的是 VC+,VB， Delphi，PowerBuilder,C+builder 等。对底层编程比较需要的地方就大部分 VC+，而Delphi的 IDE是非常易用的。业界有一句很经典的话：真正的程序员用 VC+， 第 4 页 共 28 页 而聪明的程序员用 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是全新的可视化编程环境 ， 为我们提供了一种方便、快捷的 Windows应用程序开发工具。它使用了 Microsoft Windows图形用户界面的许多先进特性和设计思想 ， 采用了弹性可重复利用的完整的面向对象程序语言(Object-Oriented Language)、当今世界上最快的编辑器、最为领先的数据库技术。 它简单易学、效率高，且功能强大，可以与 Windows的专业开发工具 SDK相媲美， 使用 Delphi开发应用软件，无疑会大大地提高编程 效率。 DELPHI最显著的特点就是高效性和稳定性， 总的来说， 主要体现在以下 6个方面： (1)可视化开发环境的性能。 (2)面向对象编程的概念。 (3)编译器的速度和已编译代码的效率。 (4)编程语言的功能及其复杂性。 (5)数据库结构的灵活性和扩展性。 (6)框架对设计和使用模式的扩充。 Delphi实际上是 Pascal语言的一种版本 ， 但它与传统的 Pascal语言有天壤之别。一个 Delphi程序首先是应用程序框架 ， 而这一框架正是应用程序的 “ 骨架 ” 。在骨架上即使没有附着任何东西，仍可以严格地按照设计运行 。您的工作只是在“ 骨架 ” 中加入您的程序。缺省的应用程序是一个空白的窗体 (Form)，您可以运行它，结果得到一个空白的窗口。这个窗口具有 Windows窗口的全部属性：可以被放大缩小、移动、最大最小化等，但您却没有编写一行代码。因此，可以说应用程序框架通过提供所有应用程序共有的东西，为用户应用程序的开发打下了良好的基础。 Delphi已经为您做好了一切基础工作 -程序框架就是一个已经完成的可运行应用程序，只是不处理任何事情。您所需要做的，只是在程序中加入完成您所需功能的代码而已。 在空白窗口的背后，应用程序的框架 正在等待用户的输入。由于您并未告诉 第 5 页 共 28 页 它接收到用户输入后作何反应，窗口除了响应 Windows的基本操作 (移动、缩放等 )外，它只是接受用户的输入，然后再忽略。 Delphi把 Windows编程的回调、句柄处理等过程都放在一个不可见的 Romulam覆盖物下面，这样您可以不为它们所困扰 ，轻松从容地对可视部件进行编程。 2.2.2 SQL Server 2000简介 SQL Server 2000 继承了数据库软件设计和引擎方面的优势，已经成为新一代网络应用程序的最佳数据库和分析解决方案之一。作为 Microsoft NET Enterprise Servers 的核心组件，它将减少电子商务、在线商务和数据仓库应用程序推向市场的时间，并对需要的环境提供可靠的支持。 SQL Server 2000 对XML和 HTTP 提供充分的支持；提供分割装载和确保时间的特性；提供先进的管理和协调机制，可以自动管理线程任务，降低总体开销。 SQL Server 2000 是一个具备完全 Web 支持的数据库产品，提供了可扩展标记语言（ XML）核心支持以及Internet 上和防火墙外进行查询的能力，具有可伸缩性、灵活性、扩充性好，而且价格便宜等特 点；还可以使用 XML 更新程序更容易地插入、更新和删除数据。使用 SQL Server 2000 可以获得非凡的可伸缩性和可靠性。通过向上伸缩和向外扩展的能力， SQL Server 2000 满足苛刻的电子商务和企业应用程序要求。主要体现为： （ 1）高度可用性； （ 2）可伸缩性； （ 3）安全性； （ 4）分布式分区图； （ 5）索引视图； （ 6）虚拟接口系统网络； （ 7）复制特性。 SQL Server 2000 是 Microsoft NET Enterprise Server 的数据管理与分析中枢。 SQL Server 2000 包括加速从概念到最后交付开发过程的工具。主要体现为： （ 1）经过简化的数据库管理； （ 2）提高开发人员的工作效率； （ 3）数据转换服务（ DTS）； （ 4）扩展应用程序； （ 5）英语查询； （ 6）数据挖掘； （ 7） OLAP 服务； 第 6 页 共 28 页 （ 8） OLAP 灵活性； （ 9）闭合循环分析。 3 需求分析及系统设计 人事管理系统是一个典型的数据库应用程序，由启动窗体、登录模块、系统主界面、系统管理模块、信息设置模块、员工信息管理管理模块、工资管理模块等组成，具体的功能模块如下： (1)系统管理模块的主要 功能是单位信息、管理员设置、更改密码、重新登录。 (2) 信息设置模块主要功能是对部门信息、工种类型、职称类型、文化程度、政治面貌、民族类型、得税设置、考勤设置等进行设置。 (3) 员工信息管理模块主要功能是新员工登记、应聘登记、员工调动、员工离职、考核管理、合同管理、应聘信息浏览、员工信息浏览。 (4) 工资管理模块主要是：设置员工的工资信息、生成工资报表、工资档案浏览。 总之 , 开发这个系统的目的就是要帮助企业的人事部门提高工作效率，实现企业人事信息管理系统的系统化、规范化和自动化。根据这个系统所要实现 的目的和任务，总结出这个系统最终要实现的主要功能如下： 数据设置部分：主要包括考勤录入功能。 数据修改部分 : 主要修改员工信息 ,修改基本工资 ,人事调动。 数据采集部分：主要完成日常登记。 数据查询部分：主要包括用户信息查询、考勤信息查询、工资情况查询、部门情况查询各项报表统计等工作。 本系统的功能模块如图 1所示： 第 7 页 共 28 页 图 1 系统功能模块图 4 系统的实现 4.1 数据库设计 数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。 数据库在系统中占有非 常重要的地位，数据库设计的好坏将直接影响系统的效率。合理的数据库设计可以提高数据存储的效率，有利于程序的实现。 创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。 1标识需要的数据； 2收集被标识的字段到表中； 3标识主关键字字段； 4绘制一个简单的数据图表； 5规范数据； 6标识指定字段的信息； 7创建物理表。 如图 2 所示的即为本系统中数据库中的数据表的树形结构图，该数据表树型结构图包含系统所有数据表。可以清晰地反应数据库 信息。 第 8 页 共 28 页 图 2 数据表树形结构图 1考核表 考核表的作用是存入员工每个月的考核信息，考核表结构如表 1所示。 表 1 考核表 字段名 数据类型 长度 主键否 功能描述 bh varchar 5 是 员工编号 cqts int 4 出勤天数 qjts int 10 请假天数 cdcs int 10 迟到次数 ztcs int 4 早退次数 kgts int 4 旷工天数 jbss int 4 加班时数 khdj varchar 10 考核等级 kqfz float 8 考核 分值 khr varchar 10 考核人 kqyf datetime 8 考核月份 2考勤表 考勤表的作用是存放员工考核的条件，考勤表结构如表 2所示。 第 9 页 共 28 页 表 2 考勤表 字段名 数据类型 长度 主键否 功能描述 kgkc float 8 旷工扣除 qqj float 8 全勤奖 cqts Int 4 出勤天数 cdztcs Int 4 迟到早退次数 jbf Float 8 加班费 ypjts Int 4 月平均工作天数 jb float 8 几倍 3 工资表 工资表的 作用是存放员工每个月的工资信息，工资表结构如表 3 所示。 表 3 工资表 字段名 数据类型 长度 主键否 功能描述 ssyf varchar 15 所属工资月份 bh varchar 5 是 员工编号 ygxm varchar 10 员工姓名 Jbgz Float 8 基本工资 jbf Float 8 加班费 qqj Float 8 全勤奖 zwjt Float 8 职务津贴 qtje Float 8 其它金额 kgf Float 8 旷工费 ylbx Float 8 养老 保险 sybx Float 8 失业保险 ylbx Float 8 医疗保险 qtke Float 8 其它扣额 yfgz Float 8 应发工资 ykgz Float 8 应扣工资 sfgz Float 8 实发工资 bz varchar 50 备注 4 人事表 人事表用来存放员工的详细信息，人事表结构如表 4 所示。 第 10 页 共 28 页 表 4 人事表 字段名 数据类型 长度 主键否 功能描述 bh Varchar 5 是 编号 xm Varchar 10 姓名 xb Varchar 2 性别 sfzh Varchar 20 身份证号 csny Datetime 8 出生年月 mz Varchar 20 民族 hyzk Varchar 4 婚姻状况 zzmm Varchar 10 政治面貌 jg Varchar 50 籍贯 nxdh Varchar 20 联系电话 sjhm Varchar 30 手机号码 dzyx Varchar 20 电子邮箱 jtdz Varchar 50 家庭地址 byyx Varchar 50 毕业院校 zy Varchar 20 专业 whcd Varchar 10 文化程度 tc Varchar 50 特长 gzsj Datetime 8 参加工作时间 gn Int 4 工龄 zp Image 16 照片 ssbm Varchar 50 所属部门 gz Varchar 10 工种 zw Varchar 10 职务 zc Varchar 20 职称 jbgz Float 8 基本工资 qtgz Float 8 其它工资 drsj Datetime 8 调入时间 jl Varchar 200 简历 djrq Datetime 8 登记日期 第 11 页 共 28 页 4.2 各功能模块的实现 4.2.1 数据模块设计 数据模块窗体主要功能是统一管理数据库访问组件，在本系统中，这个模块是最重要的模块，其他模块都要通过这个模块中的组件访问数据库，虽然只有简单的组件属性设置， Delphi自动生成代码，但是不容有误。数据模块如图 3所示： 图 3 数据模块 此模块的设计步骤如下： （ 1）在 Delphi中选择“ File” /“ New” /“ Data Module”菜单项，新建一个数据模块，命名为“ Data1”。 （ 2）在“ ADO”组件页中点选“ TADOConnection”组件，添加到窗体上，TADOConnection组件用到连接数据库，其它数据库组件通过它连接数据库。 （ 3）点选 ADOConnection1组件，在“ Object Inspector”窗口中，单击ConnectionString属性右侧的【】按钮，弹出对话框如图 4所示。 图 4 数据连接对话框 （ 4）单击【 Build】按钮，在弹出的对话框中的“提供程序”选项卡中设 第 12 页 共 28 页 置希望连接的数据，如图 5 所示。 图 5 连接属性对话框 （ 5）选择 “连接”选项卡，设置连接相关设置，如图 6所示。 图 6 连接属性对话框 第 13 页 共 28 页 （ 6）单击【测试连接】按钮，如果连接成功，则提示成功，单击【确定】按钮完成数据库的连接。 （ 7）在窗体上添加 TADOQuery组件，设置 Connection为“ ADOConnection1”。 这里的每个 TADOQuery组件连接一个数据表。 4.2.2 登录界面的设计 登录界面主要是用于对用户进行安全性检查，以防止非法用户进入该系统。只有合法的用户，才可以进入系统。 验证操作员及其密码。主要是通过对数据表中的操作员信息表的查询，判 断用户输入的密码是否符合数据库中的信息，如果符合则允许登录；否则会有相应的提示。为了安全本系统会在三次错误之后自动关闭。 图 7 登录界面 此模块的设计步骤如下： （ 1）新建一个窗体，命名为“ frm_Login”，设置 Caption 属性为“登录”，设置 Position 属性为“ poScreenCenter”。 （ 2）在“ Additional”组件页中点选“ TImage”组件，添加到窗体上，设置 Align 属性为“ alClient”； Stretch 属性为“ Tree”，在 Pictuer 属性中添加图片。 （ 3）在“ Standard”组件页中点选“ TEdit”组件，添加到窗体上，设置 Ctl3D属性为“ False”；设置 Text 属性为空，设置 Edir2 的 PasswordChar 属性为“ *”。 （ 4）在“ Additional”组件页中点选“ TSpeedButton”组件，添加到窗体上，设置 Caption 属性分别为“登录”和“取消”；设置 Flat 属性为“ True”。 此模块调用了数据模块中的 ADOquery 组件连接数据库，然后用 select语句对操作员信息这张数据表进行操作。对数据库的操作主要由以下代码实现： with Data1.ADOlogin do begin close； sql.Clear； 第 14 页 共 28 页 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 新员工登记模块设计 新员工登记模块，主要用于添加、修改新员工的个人基本信息，如：姓名、性别、民族、文化程度等。新员工登记模块运行结果如图 8所示。 图 8 新员工登记模块 此模块设计如下： （ 1）新建一个窗体，命名为“ frm_xygdj”，设置 Caption属性为“新员工登记”，设置 Position 属性为“ poScreenCenter”。 （ 2）在窗体中添加“ TPanel”组件、“ TGroupBox”组件、“ TEdit”组件、“ TCombobox” 组件、“ TLabel”组件、“ TMaskEdit”组件、“ TMemo”组件、“ TBitbtn” 第 15 页 共 28 页 组件、“ TImage”组件，设置属性如表 5所示。 表 5 主要组件属性设置 组件名称 所在组件页 属性 值 Panel1 Standard Align Bevellnner BevelOuter alClient bvSpace bvLowered Panel2 Standard Align Bevellnner BevelOuter alNone bvSpace bvLowered Panel3 Standard Align Bevellnner BevelOuter alNone bvSpace bvLowered Groupbox1 Standard Caption 基本信息 Groupbox2 Standard Caption 其它信息 MaskEdit Additional Ctl3D EditMask False !9999/99/00；1；_ Image Additional Align Stretch alClient Ture 此模块调用数据模块中的 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)； 这里需要注意的是在“ insert 人事表 values”后面的括号中的项目数要与数据表中的字段数目相同，因为这是向数据表中依次插入数据，如果不相同就会出错。 在编辑框的 OnChange 事件中添加如下代码，用来控制保存按钮的使用，如果没有完全填写信息， bitbtn的 Enabled属性就设置为 false，则设置【保存】按钮不可用。这部分判断输入是否为空的实现如下： procedure Tfrm_xygdj.Edit1Change(Sender: TObject)； begin if (edit1.Text) and (edit2.Text) and (edit5.Text) and (edit6.Text) and(edit7.Text) and (edit8.Text) and (edit9.Text) and (edit10.Text) and(edit12.Text) and (edit13.Text) and (edit15.Text) and (edit16.Text) and(combobox1.Text) and (combobox2.Text) and 第 16 页 共 28 页 (combobox3.Text) and (combobox4.Text) and(combobox5.Text) and (combobox6.Text) and (combobox7.Text) and (combobox8.Text) and(combobox9.Text) and (combobox1.Text) and (maskedit1.Text) and (maskedit2.Text) and (maskedit3.Text) and (maskedit4.Text) and (maskedit5.Text) then bitbtn1.Enabled:=true else bitbtn1.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 ComboBox1.Items.Add(Data1.ADOpublic.FieldByName( 民族).Value)； Data1.ADOpublic.Next； /将指针指向下一条记录 end； 此模块中的，婚姻状况、文化程度等所有下拉列表框的实现都是这样，这里不再重复。 在一个企业里，难免会用重名的员工，所以姓名不能作为员工的唯一标识，那么如果用员工编号来做唯一标识，就可以解决这个问题了。人为的编号也难免会出错，所以在这里我们设置单击“添加”按钮自动生成员工编号 。 这个功能实现，首先需要使用 select语句在人事表中找到最大的编号，实现如下： 第 17 页 共 28 页 begin Close； SQL.Clear； SQL.Add(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,