企业人事管理系统的开发与设计毕业论文.doc

《企业人事管理系统的开发与设计毕业论文.doc》由会员分享，可在线阅读，更多相关《企业人事管理系统的开发与设计毕业论文.doc（40页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、目 录中文摘要2Abstract31. 引 言41.1 项目背景41.2 研究内容和方法51.2.1 研究内容51.2.2 研究方法51.3 开发目的及意义52. 系统分析与设计62.1 可行性分析62.1.1 技术可行性分析和方案选择62.1.2 经济和操作可行性72.2 系统需求分析82.3 系统功能模块分析与设计83. 数据库设计103.1 数据库需求分析103.2 数据库概念模型设计123.3 数据库逻辑结构设计144. 系统功能模块的实现184.1 系统管理模块184.2 员工基本信息模块194.3 员工考勤信息模块224.4 员工工作评价信息模块244.5 员工工资信息模块264.

2、6 其他模块285. 系统的编译实现295.1 系统的调试295.2 系统的编译326. 结束语33参考文献34致 谢35附 录36中文摘要作为开发工具、SQL Server 2000作为数据库开发出来的单机版人事管理系统。本系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成微型企业人事管理的全过程，包括新进员工加入时人事档案的建立、老员工的转出、职位等的变动引起员工信息的修改、员工信息查询等人事管理工作以及新进员工工资的新增、老员工工资修改、员工工资的计发和查询等工资管理工作。通过计算机使微型企业人事管理步入了自动化、科学化管理的行列，避免了以往手工操作等繁杂的劳动，即节省了人力

3、，又方便快捷，还大大提高数据的准确性。关键词： 数据库，Visual Basic6.0，SQL Server 2000，人事管理AbstractWith the quick development of information technology, computer begins to play more and more roles in enterprise management field, it seems necessary to set up a Salary management system. Combined with the miniature enterprises p

4、ractical human resource system, through requirements analysis, the system finishes the development of the Personnel Management System by adopting Visual Basic 6.0 as developing tools and SQL Server 2000 as back-end supporting database.This system sets out from according with the easy and simple to h

5、andle requirement with friendly, flexible, practical, safe boundary plane, finish the whole course of miniature enterprises personnel management. It includes entering the staff newly setting-up of the personal file while joining, the changes of the producing of old staff, position, etc. which causes

6、 personnel managements such as the modification of staffs information, staffs information inquiry, etc. And it includes salary managements such as entering staff newly-increased, old staff salary checked, staff salary took place and inquired etc. It makes personnels archives management that steps in

7、to the automatic and scientific queue by computer. It avoids the miscellaneous work done by hand in the past and saves to manpower, convenient and swift, and still raises the datas accuracy.Key word: Database, Visual Basic6.0, SQL Server 2000, Personnel Management1. 引 言1.1 项目背景随着经济的迅速发展，企业规模的不断扩大，企业

8、人事管理日趋复杂，传统以手工方式的人事管理已远不能适应新形势的需要。因此，开发一个代替手工操作的企业人事管理信息系统对企业来说刻不容缓。同时，信息技术的发展日新月异，为改革企业人事管理模式创造了有利条件。目前市场上已有很多企业人事管理的相关软件，一时间，企业人事管理软件呈百花齐放、百家争鸣的境况。大中型企业因技术实力、财力强大，已经通过购买或者自主研制开发出自己的人事管理软件；一些有条件的小型企业也都率先使用了人事管理系统。而与此形成鲜明对比的是，很多小型企业到目前还在沿用传统的手工管理人事的方式，造成这种现象的原因大概有三个：一、市场上现有的企业人事管理系统价格过高，一般的小型企业无力承担；

9、而软件开发公司因为成本问题，也不可能将软件价格降到一个小型企业都可以接受的水平。二、软件的功能与企业的实际需要脱节。一些企业人事管理系统是基于某个企业的需求进行开发的，在该企业试验之后就推向市场，与各企业的实际需要不相符合。三、软件设计灵活性不够，扩充性和开放性较差。目前大多数人事管理软件的设计对技术发展和企业发展变化的适应性差，稍有变化即难以使用，也是造成一些软件不能得到长期稳定使用的原因。1.2 研究内容和方法 研究内容本课题主要研究以下内容：一、通过对相关的文献研究，总结出本课题研究的可行性和必要性；二、在理论研究与实践的基础上设计开发一个企业人事管理系统。 研究方法本研究主要采用文献研

10、究法，以及软件工程和程序设计的方法，通过收集、查询相关研究论文、网站，了解相关研究的发展动态；通过文献研究，总结出相关系统的开发经验与设计规范；通过软件工程的方法研究，设计出相关系统的功能模块；通过对程序设计代码的编写，使到系统的功能模块得以实现。1.3 开发目的及意义本系统的开发，主要有两个目的和意义：一、满足小型企业在人事管理上的实际需要目前国内大多数小型企业在人事管理上仍处于手工管理的阶段，由于手工操作复杂、效率低而且容易出错，给广大小型企业的人事管理带来了混乱。而一套大型的商品化人事管理软件费用昂贵，而且也不一定适合小型企业的实际需求。少花钱多办事是任何一家企业，特别是小型企业的办事宗

11、旨。因此，必须结合小型企业的实际需求，去开发一个功能基本完善，界面友好，操作简便的人事管理软件。系统还必须有较强的可扩展性和可修改性，以满足企业的不断发展。而本系统具备这样的特点，检索迅速、查找方便、易学易用、开发成本低，能极大地提高微型企业人事管理地效率，促进微型企业管理走向科学化、正规化和自动化。二、对自身综合能力的提高在系统的设计和开发过程中，综合运用到本专业许多知识，比如计算机语言技术、数据库技术、软件工程等，因此在开发软件的过程中，我的理论得到实践更多的检验，技术水平也提高了一个档次，自身的综合素质也得到了很大的提高。2. 系统分析与设计2.1 可行性分析 技术可行性分析和方案选择本

12、系统仅需要一台装有Visual Basic 6.0环境和SQL Server 2000的计算机即可，对机器本身没有太高的要求，一般当前企业的电脑完全可满足要求。对于软件技术要求，现在的程序设计语言已非常成熟，Visual Basic、Visual Foxpro、Dephi其中任意一个都可以胜任，数据库可以使用Access 2000或SQL Server 2000。下面着重讲下本系统对技术方案的选择。 一、数据库的选择SQL Server 2000是一种高效的关系数据库系统，它与Windows NT/2000及Window 9x等操作系统紧密集成，且目前大多数的企业所使用的服务器系统都是Wind

13、ows系统的，有很广的用户群。选择SQL Server 2000的理由有三：（一）、上手容易由于SQL Server 2000与Windows界面风格完全一致，且有许多“向导”帮助，因此易于安装和学习，有关SQL Server的资料、培训随处可得。（二）、兼容性良好由于今天Windows操作系统占领着主导地位，选择SQL Server 一定会在兼容性方面取得一些优势。另外，SQL Server 2000除了具有扩展性，可靠性以外，还具有可以迅速开发新的因特网系统的功能。尤其是它可以直接存贮XML（扩展标记语言）数据，可以将搜索结果以XML格式输出等特点，有利于构建了异构系统的互操作性，奠定了面

14、向互联网的企业应用和服务的基石。这些特点在.NET战略中发挥着重要作用。（三）、性能强大 Microsoft SQL Server 2000是在SQL Server 7.0的基础上对性能、可靠性、质量以及易用性进行了扩展。SQL Server 2000中包含许多特性，这些特性使其成为针对电子商务、数据仓库和在线商务的卓越的数据库平台。其增强的特性包括对丰富的XML的支持、综合分析服务以及便捷的数据库管理。 二、Visual BasicVisual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强

15、大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。Visual Basic最吸引人的两个特点：（一）、可视化编程用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运

16、行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。（二）、强大的数据库访问功能Visual Basic具有强大的数据库管理功能，利用数据控件和数据

17、库管理窗口，可以直接建立或处理数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如DBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。 Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了

18、SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。 此外，Visual Basic中自带的丰富的数据控制组件如DBGrid使我们省去了很多编写代码的时间，只需用鼠标就能完成大部分的操作。经过与其它工具如visual Foxpro等做出了一番比较之后，Visual Basic在数据库开发方面脱颖而出，成为首选的开发工具。 经济和操作可行性 由于本系统是专门为微型企业量身做的，考虑到各方面的原因，微型企业即客户只要利用现有的机器，装上所需的环境和该应用软件，即可使用本系统。本系统的规模不是很大，人力资源、经费要求都很少，对微型企业不构成经济上的负担。

19、该系统成本主要集中在系统软件上，只要有技术人员参与开发即可，没有大量的资金要求，很易实现。当系统投入运行后可以为微型企业节约大量的人力、财力，所带来的效益远远大于系统软件的开发成本。而且本系统在界面设计时采用下拉菜单窗体模块，简明易懂，一目了然，使得操作简单，微型企业的人事管理员完全可以掌握它。2.2 系统需求分析 在进行了可行性分析之后，继续进行系统需求分析，以解决系统必须“做什么”的问题。通过对微型企业人事信息的调查了解到，由于每一个员工都有他自身的相关信息，如：姓名、性别、出生年月、出生地、学历、学位、政治面貌、毕业学校、从事专业，职称等等。每个员工的档案信息各有不同之处，但也有相同点。

20、员工的其他信息如考勤信息、工作评价信息、工资信息也一样。如果不对这些信息进行细致的分析，将直接导致管理的混乱。如何有条不紊地管理这些人事信息呢？首先要了解到无论人事信息如何纷繁冗杂，都得先对它进行录入。人数虽然多，但却有其共同之处。如果能对大量信息分类别进行操作，在添加信息的同时，能具有删除、修改、查询功能，可将管理的范围迅速减小，从而大大提高管理效率。系统需要能够自动计发员工的工资，而且还要安全性能强。由此，可知道本系统的主要功能需求是：首先要对登陆者进行身份验证，用户存在者方可登陆。对成功登陆的用户，系统应该提供用户密码的修改和添加新用户的功能；还提供员工基本信息、考勤信息、工作评价信息的

21、添加、修改、删除和查询；以及提供自动计发员工工资和员工工资的修改和查询功能。进行员工考勤信息和工作评价信息管理之前，需要先对员工基本信息进行管理；而计发工资则需要在对员工进行考勤管理和工作评价管理之后。2.3 系统功能模块分析与设计 由系统需求分析，可知道本系统需要实现以下几个功能： 一、系统管理：每个操作员均有自己的密码，可以防止非本系统人员进入本系统；用户可以修改自己的密码；而且还可以添加新的用户；二、员工基本信息管理：可以完成员工基本信息的添加、修改、删除和查询；三、员工考勤信息管理：可以完成员工考勤信息的添加、修改、删除和查询；四、员工工作评价信息管理：可以完成员工工作评价信息的添加、

22、修改、删除和查询；五、员工工资信息管理：可以实现员工工资的自动计发，还要进行员工工资的修改和查询。在系统功能分析的基础上，可以确定本系统的几个功能模块，得到如图2.1的系统功能模块图。企业人事管理信息系统员工工资管理员工工作评价员工考勤管理员工基本信息系统管理员工工资信息查询员工工资信息修改计发员工工资信息员工工作评价查询员工工作评价修改员工工作评价添加员工考勤信息查询员工考勤信息修改员工考勤信息添加员工基本信息查询员工基本信息修改员工基本信息添加密码管理用户管理图2.1 系统功能模块图本系统几个功能模块的具体功能是：用户登陆进入主界面分出了五大主模块，它们分别是：系统管理模块、员工基本信息模

23、块、员工考勤信息模块、员工工作评价信息模块和员工工资信息模块。用户登陆界面要求：为了防止各类人员对数据库中信息进行非法的破坏而导致不良后果，加强员工信息的准确和保密工作，引入了身份验证。员工基本信息模块的主要功能：员工基本信息包括员工的编号、姓名、部门、性别、学历、专业、毕业学校、职称等基本资料。用户可以进行添加、修改、删除和查询员工信息，在查询过程中，用户可以根据姓名、部门、参加工作时间三项进行任意组合查询；员工考勤信息模块的主要功能：员工的考勤信息包括员工的加班费、扣考核、出勤、加班时间、出差工地天数、请假、年休、旷工、迟到、早退等基本资料，用户可以进行添加、修改、删除和查询员工信息，在查

24、询过程中，用户可以根据姓名、考勤时间两项进行任意组合查询；员工工作评价信息模块的主要功能：员工工作评价信息包括员工的工作业绩、工作态度、业务水平等基本资料，用户可以进行添加、修改、删除和查询员工信息，在查询过程中，用户可以根据姓名、评价时间两项进行任意组合查询；员工工资信息模块的主要功能：员工工资信息包括员工的底薪、补贴、奖金、加班、扣考核、房贴、房租、养老金、医疗保险、住房公积金等基本资料，用户可以进行添加、修改、和查询员工信息，在查询过程中，用户可以根据姓名、计发时间两项进行任意组合查询。3. 数据库设计数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效

25、率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整性和一致。另外，合理的数据库结构将非常有利于程序的实现。设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。3.1 数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。 在仔细分析调查有关微型企业人事信息需求的基础上，将得到如图3.1所示的本系统所处理的数据流程。员工登记基本信息录入 员工基本信息管理考勤管理考勤信息管理员

26、工工作评价员工工作评价管理员工工资设置员工工资管理计发员工工资员工当月工资图3.1 数据流程图针对微型企业人事信息管理系统的需求，通过对员工工作过程的内容和数据流程分析，设计如下面所示的数据项和数据结构： 一、员工基本信息（员工编号、员工姓名、性别、出生日期、所在部门、籍贯、学历、专业、参加工作时间、进入公司时间、起薪时间、调入部门时间、职称、入党时间、档号、原身份、原职务、原工作单位、备注） 二、员工考勤信息（部门、姓名、考勤年月、本月天数、公休天数、应出勤天数、加班费、扣考核、出勤、加班时间、出差工地天数、请假、年休、旷工、迟到、早退、忘订卡、节假日上班、其他加班、补休天数、其他、备注）

27、三、员工工作评价信息（部门、姓名、时间、工作业绩、工作态度、业务水平、备注、其他1、其他2） 四、员工工资信息（部门、姓名、底薪、补贴、奖金、加班、扣考核、房贴、房租、养老金、医疗保险、住房公积金、税前小计、所得税、实发工资、计发时间） 有了上面的数据结构、数据项和数据流程，我们就能进行下面的数据库设计。3.2 数据库概念模型设计 这一设计阶段是在需求分析的基础上，设计出能够满足用户的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。本系统根据上面的设计规划出的实体有：员工基本信息实体、员工考勤信息实体、员工工作评价信息实体、员工工资信息实体。各个实体具体的描述E-R图如下。 一、员

28、工基本信息实体员工基本信息实体员工姓名员工性别参加工作时间进入公司时间.员工基本信息实体包括的属性有员工编号、员工姓名、性别、出生日期、所在部门、籍贯、学历、专业、参加工作时间、进入公司时间、起薪时间、调入部门时间、职称、入党时间、档号、原身份、原职务、原工作单位、备注。二、员工考勤信息实体员工考勤信息实体员工基本信息员工出勤时间员工加班时间员工出差时间员工考勤信息实体包括的属性有部门、姓名、考勤年月、本月天数、公休天数、应出勤天数、加班费、扣考核、出勤、加班时间、出差工地天数、请假、年休、旷工、迟到、早退、忘订卡、节假日上班、其他加班、补休天数、其他、备注。三、员工工作评价信息实体员工工作评

29、价信息实体员工基本信息员工工作业绩员工工作态度员工业务水平员工工作评价信息实体包括的属性有部门、姓名、时间、工作业绩、工作态度、业务水平、备注、其他1、其他2。四、员工工资信息实体员工工资信息实体员工基本信息员工底薪员工所得税员工实发工资员工工资信息实体包括的属性有部门、姓名、底薪、补贴、奖金、加班、扣考核、房贴、房租、养老金、医疗保险、住房公积金、税前小计、所得税、实发工资、计发时间。然后可以得到实体与实体之间总的关系ER图。员 工考勤管理工作评价考勤信息工作评价信息计发工资员工工资图3.6 系统ER图员工档案信息建立后，可以进行员工的考勤管理和员工的工作评价，进而得到员工的考勤信息和工作评

30、价信息，而员工的工资的计发需要对员工的考勤信息和工作评价信息建立之后才能进行。3.3 数据库逻辑结构设计现在需要将上面的数据库概念结构转化为SQL Server 2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。在上面的实体以及实体之间关系的基础上，形成数据库中的表格以及各个表格之间的关系。企业人事管理系统数据库中各个表格的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表。一、manrecord 员工基本信息表表 3.1 manrecord 员工基本信息表列 名数据类型可否为空说明YgidVarcharNOT NULL编号（主键）YgnameVarcharNOT NU

31、LL姓名YgdeptVarcharNULL部门YgsexVarcharNULL性别YgbirthdayDatetimeNULL生日YgplaceVarcharNULL籍贯YglevelVarcharNULL学历YgspecialVarcharNULL专业Ygdate1DatetimeNULL参加工作时间Ygdate2DatetimeNULL入党时间YgbusiVarcharNULL职称Ygdate3DatetimeNULL职称时间YgstatusVarcharNULL原身份YgofficeVarcharNULL原工作单位YgdutyVarcharNULL原职务Ygdate4DatetimeNU

32、LL进入公司时间Ygdate5DatetimeNULL起薪时间Ygdate6DatetimeNULL调入时间YgnoVarcharNULL档号Ygremark1textNULL备注二、checkin 员工考勤信息表表 3.2 checkin 员工考勤信息表列名数据类型可否为空说明KqidvarcharNOT NULL编号（外键）指向manrecord表中的YgdeptKqnamevarcharNOT NULL姓名KqdateDatetimeNOT NULL日期KqdaysnumericNOT NULL本月天数KqrdaynumericNULL公休假天数KqtdaynumericNOT NULL

33、应出勤天数KqworknumericNOT NULL出勤KqabsentnumericNULL旷工KqrestnumericNULL年休KqleavenumericNULL请假KqlatenumericNULL迟到KqearlynumericNULL早退KqforgetnumericNULL忘订卡Kqover1numericNULL节假日加班Kqover2numericNULL其他加班KqfillnumericNULL补休天数KqgonumericNULL出差工地天数KqpaynumericNULL加班费KqdeductnumericNULL扣考核KqothervarcharNULL其他kqr

34、emarkTextNULL备注三、manappraise员工工作评价信息表表3.3 manappraise员工工作评价信息表列名数据类型可否为空说明PjdeptvarcharNOT NULL部门PjnamevarcharNOT NULL姓名PjnoCharNOT NULLIDPjidvarcharNOT NULL编号（外键）指向manrecord表中的YgdeptPjdateDatetimeNOT NULL时间PjresultVarcharNULL工作业绩PjpositionVarcharNULL工作态度PjlevelVarcharNULL业务水平PjremarktextNULL备注Pjoth

35、er1varcharNULL其他1Pjother2varcharNULL其他2 四、pay员工工资信息表表3.4 pay员工工资信息表列名数据类型可否为空说明GzidVarcharNOT NULL编号（外键）指向manrecord表中的YgdeptGznameVarcharNOT NULL姓名GzbasenumericNOT NULL底薪GzallnumericNULL补贴GzallnumericNULL奖金GzbonusnumericNULL加班GzdeductnumericNULL扣考核GzagenumericNULL代扣养老金GznedicalnumericNULL代扣医疗保险Gzhou

36、se1numericNULL代扣住房公积金GztotalnumericNULL税前小计GedutynumericNULL所得税Gzhouse2numericNULL房贴Gzhouse3numericNULL房租GzlaboragenumericNOT NULL实发工资GzdatedatetimeNOT NULL时间 Manrecord表是所有表中最基础的一个表，其他所有表的建立都是需要在它的基础上进行。而checkin表和manappraise表又是pay表得以建立的前提。由此分析，可以得出数据库中表与表之间的关系是：图 3.7 数据库结构图4. 系统功能模块的实现4.1 系统管理模块主要实现

37、对系统用户的增加和修改密码的功能。 一、 添加用户进入系统后，选择菜单“系统|添加用户”就可以添加用户，如图4.1所示：图4.1 添加用户窗口 首先要判断数据库中是否存在该用户：txtSQL = select * from user_Info1Set mrc = ExecuteSQL(txtSQL, MsgText)， 然后判断两次密码输入是否一致：Trim(txtPassword1.Text) Trim(txtPassword2.Text) 而且密码不能为空。 最后把数据添加到数据库中， mrc.Fields(0) = Trim(txtUsername.Text) mrc.Fields(1)

38、 = Trim(txtPassword1.Text)再关闭数据库。 二、 修改密码用户可以修改自己的密码，选择菜单“系统|修改密码”，如图4.2所示：图4.2 修改密码窗口 首先判断两次输入的密码是否一致，如果一致的话，就找到该用户名，修改其密码：txtSQL = select * from user_Info1 where user_ID = & UserName & Set mrc = ExecuteSQL(txtSQL, MsgText)mrc.Fields(1) = Trim(txtPassword1.Text)4.2 员工基本信息模块 员工基本信息模块包括三个子模块：对员工基本信息的

39、添加子模块，对员工基本信息的修改子模块和对员工基本信息的查询子模块。 一、员工基本信息添加子模块 选择“员工基本信息|添加员工基本信息”菜单，将出现如图4.3所示的窗体：图4.3 员工基本信息的添加窗口首先，编号、姓名、部门这三项不能为空Select Case intCount Case 0 sMeg = 编号 Case 1 sMeg = 姓名 Case 3 sMeg = 部门 End Select sMeg = sMeg & 不能为空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus 然后判断是否有相同

40、的ID记录：txtSQL = select * from manrecord where ygid= & Trim(txtItem(0) & Set mrc = ExecuteSQL(txtSQL, MsgText)如果没有的话，就加入新记录：txtSQL = select * from manrecordSet mrc = ExecuteSQL(txtSQL, MsgText)否则应该先删除已有的记录：txtSQL = delete from manrecord where ygid= & Trim(txtItem(0) & Set mrc = ExecuteSQL(txtSQL, MsgT

41、ext)二、员工基本信息修改子模块 选择“员工基本信息|修改员工信息”菜单，将出现如图4.4所示的窗体：图4.4 员工基本信息的修改窗口用来显示员工的档案记录。 主要用到两个函数：一个是用来显示表头的ShowTitle，另一个用来显示数据的ShowData。howTitle函数:首先要定义列数：.Cols = 21然后要定义列标题：.TextMatrix(0, 1) = 编号.TextMatrix(0, 2) = 姓名.TextMatrix(0, 3) = 部门.TextMatrix(0, 4) = 性别.TextMatrix(0, 5) = 出生日期.TextMatrix(0, 6) = 籍

42、贯 .TextMatrix(0, 20) = 备注还要固定表头：.FixedRows = 1之后还要进行一些格式的设置等等。而ShowData函数:首先判断数据集是否为空：If mrc.EOF = False Then With msgList .Rows = 1然后判断是否已经到最后一条记录： .Rows = .Rows + 1最后再显示。三、员工基本信息查询子模块 选择“员工基本信息|查询员工信息”菜单，将出现如图4.5所示的窗体：图4.5 员工基本信息的查询窗口主要包括有三个方面的查询：一、按姓名查询：sQSql = ygname = & Trim(txtItem(0) & ) & 二、

43、按部门查询：sQSql = ygdept = & Trim(txtItem(1) & ) & 三、按参加工作时间查询：sQSql = ygdate1 = & dBeginDate & and ygdate1 = & dEndDate & 两种或三种查询之间都可以结合使用。如果没有设置查询方式，则系统会显示全部记录。4.3 员工考勤信息模块 员工考勤信息模块包括三个子模块：对员工考勤信息的添加子模块，对员工考勤信息的修改子模块和对员工考勤信息的查询子模块。 一、员工考勤信息添加子模块选择“员工考勤管理|添加考勤信息”菜单，如图4.6所示：图4.6 员工考勤信息添加窗口首先，系统会初始化部门名称：txtSQL = select DISTINCT ygdept from manrecordSet mrc = ExecuteSQL(txtSQL, MsgText)这时，会加入部门内容：cboItem(0).AddItem Trim(mrc!ygdept)运行时可得