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

摘要洛阳理工学院毕业设计（论文）题目＿＿＿企业人事管理系统的设计与实现＿姓名＿＿＿＿＿＿系（部）工程管理系＿＿＿＿＿专业＿经济信息管理＿＿＿指导教师＿＿＿＿＿＿＿＿2013年5月31日企业人事管理系统的设计与实现摘要企业人事管理系统主要用于对于企业员工档案管理，员工的调动情况的查询及管理，员工工作的评价，员工考勤管理，员工工资管理是便于企业管理者利用计算机高效率完成劳动人事管理的日常事务。该系统主要利用VisualBasic6.0、MicrosoftofficeAccess等工具设计开发完成。开发过程中采用模块化设计，不同的模块实现了不同的功能。作为计算机应用的一部分，使用计算机对人事信息进行管理的系统，是一个公司管理及合理分配每个人员，使其发挥其自身最大价值的根本软件。关键词：人事管理，模块化，Visualbasic6.0，MicrosoftofficeAccessThedesignandimplementationofenterprisepersonnelmanagementsystemABSTRACTEnterprisepersonnelmanagementsystemismainlyusedinfilemanagementforenterpriseemployees,transfertothestaffqueryandmanagement,staffevaluation,staffattendancemanagement,employeewages,isadvantageousfortheenterprisemanagersusecomputerefficientcompletelaborpersonnelmanagementofdailyaffairs.ThesystemmainlyusingVisualBasicandMicrosoftofficeAccesstoolssuchasdesignanddevelopment.DevelopmentprocessUSESthemodulardesign,differentmodulerealizesthedifferentfunctions.Asapartofcomputerapplication,usingcomputertomanagethepersonnelinformationsystem,isamanagementandreasonabledistributionofeachcompanypersonnel,andmakeitplayamaximumvalueofitsfundamentalsoftware.KEYWORDS:personnelmanagement,modular,Visualbasic6.0,MicrosoftofficeAccess目　录TOC\o"1-3"\h\z\u前　言1第1章概述21.1系统开发背景21.2系统的目标和意义2第2章使用工具或开发环境的描述42.1数据库平台42.2开发软件4第3章系统分析53.1总体的需求分析53.1.1需求分析的目标53.1.2需求分析的原则53.2系统的主要功能分析53.3数据库需求分析63.4数据流程分析73.5总体功能模块设计83.6登录系统结构图9第4章基本设计思想10第5章系统详细设计115.1系统E-R图115.2数据库设计135.2.1工资管理数据表145.2.2考勤管理数据表155.2.3用户数据表16第6章系统主要界面设计176.1系统登录模块设计176.2添加用户模块设计186.3部门管理模块设计186.4考勤 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 模块的设计196.5员工评价模块设计206.6员工档案模块设计21第7章系统测试23结　论24谢辞25参考文献26附　录27前　言人事管理信息系统是典型的信息管理系统，其开发主要包括台后数据库的建立和维护以及前段应用程序的开发俩个方面，对于前者要求建立资料一致性和完整性强，资料安全系好的数据库。而对于后者则要求应用程序功能完备，易使用等特点。本系统主要基于Windows操作平台，采用功能强大的VisualBasic6.0做为开发工具而开发出来的人事档案管理系统。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成人事管理的全过程，包括新进员工加入时人事档案的建立、老员工的转出、职位等的变动引起职工信息的修改、员工信息查询、统计等人事管理工作以及员工工资的计算、查询等管理工作。经过实际使用证明，本文所设计的人事管理系统可以满足公司人事管理方面的需要。做为计算机应用的一部分，使用计算机对人事信息进行管理，具有手工管理所无法比拟的优点，例如检索速度、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点极大提高了人事管理效率，也是企业的科学化、正规化管理，与世界接轨的重要条件。因此，开发这样一个管理软件成为很有必要的事情，在设计一个系统时，首先要做好需求分析。合理地运用好Visualbasic6.0的基本方法，建立一个适合企业的人事管理系统。第1章概述1.1系统开发背景所有的管理的目标都是为了效益,在 计划 项目进度计划表范例计划下载计划下载计划下载课程教学计划下载 经济时代，传统用人 制度 关于办公室下班关闭电源制度矿山事故隐患举报和奖励制度制度下载人事管理制度doc盘点制度下载 忽视人事管理的开发和管理问题，缺乏人事管理的理念和认识，忽视了人才的资源性、整体性等特征。在市场经济和知识经济时代，人事管理必须实现把适应社会主义计划经济的人事管理体制调整为社会主义市场经济体制相配套的人事管理体制，重视人才的资源性和人力资本的核算和认识，树立以人为本的思想,把人作为资源和资本，强调整体性人事管理系统的开发人事管理是企业管理的一个重要内容，随着时代的进步，企业也逐渐变得庞大起来。如何管理好企业内部员工的信息和各种文件成为企业管理中的一个大的问题。在这种情况下，一个可以规范化,自动化的企业人事管理系统就显的非常必要。目前市面上流行的人事管理系统不少，但是对于小中型企业的人事管理系统来说，不需要大型的数据库系统。只需要一个操作方便，功能实用，能满足基本中心对数据的管理及需求的系统。我的目标就是在于开发一个功能实用、操作方便，简单明了的人事管理系统。人事管理系统是针对现在公司的大量业务处理工作而开发的管理软件，根据用户需求，实现人员基本情况管理，职位调整管理等几个方面的功能。用户通过输入姓名、密码、职工履历、计发工资、员工评价等基本信息，另外操作人员还可以对这些基本信息进行定期的更新与删除，人事管理系统力求给用户方便快捷的途径去管理这些繁琐的数据。随着计算机的分苏发展，计算机在企业管理中的应用普及，利用计算机实现惹事档案的管理势在必行。1.2系统的目标和意义能够让企业带来先进的管理思想及方法，促进建立现代人事管理模式、促进人事管理正规化，帮组企业提高管理时效，帮助企业降低管理成本。所有的管理目标都是为了效益。在计划经济时代，传统用人制度忽视人事管理的开发和管理的问题，缺乏人事管理的理念和认识，忽视人才的资源性、整体性等特征。在市场经济和知识经济时代，人事管理必须实现把适应社会主义经济的人事管理体制调整为社会主义市场经济体制相配套的人事管理体制。该系统的主要任务就是设计一个企业职员信息管理系统，由计算机来代替人工执行一系列诸如添加新入职员工的基本信息、变更职员信息、删除离职职员信息、查询、员工职能评价、工资计发管理、员工出勤情况等操作。这样就使办公人员可以轻松快捷地完成职员信息管理任务，使职员管理工作系统化、规范化、自动化，从而达到提高企业管理效率的目的。第2章使用工具或开发环境的描述2.1数据库平台运行环境：Windows9xWindows2000WindowsXP2.2开发软件现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：Microsoft公司的VisualbasicVisualFoxPro6.0Microsoft公司的Visualc++等等微软公司的VisualBasic6.0是一个功能强大、方便实用的程序开发环境，主要表现在：风格多样的界面设计，面向对象的设计方法，较短的软件开发周期以及编程简单的数据库操作能力。根据企业人事管理系统的特点和需求，考虑到系统开发的时间，本系统使用微软公司的VB6.0作为前台开发工具，微软公司的access做后台数据库。所以我选用微软公司的VisualBasic6.0。第3章系统分析3.1总体的需求分析人事管理信息系统对企业人事部门的业务工作用计算机进行全面现代化管理。主要包括人员基本情况管理、工资管理和考勤管理等几个方面,以实现用户方便地输入和更新信息。另外用户还可以对这些基本信息进行定期的更新和删除,人事管理信息系统力求给用户方便快捷的途径去管理这些繁琐的数据。3.1.1需求分析的目标按照系统规划原则在业务系统项目的范围内，具体明确系统开发的目标和用户的信息要求。通过对现行系统的管理水平、原始数据的精确程度、 规章制度 食品安全规章制度下载关于安全生产规章制度关于行政管理规章制度保证食品安全的规章制度范本关于公司规章制度 是否齐全和切实可行、各级领导对开发新的管理系统是否有比较清楚地认识和积极的态度、部门级别中是否能够抽调出比较精通本行业管理业务并且对本单位存在问题有深刻理解的相关人员等内容的详细调查，从而获得软件开发的基础，确定总体设计的限制条件，确认软件测试的具体要求，定义详细的功能模块，以求达到协助系统开发的根本目的。3.1.2需求分析的原则需求分析的基本原则是需要能够表达和理解问题的信息域和功能域；要能以层次化的方式对问题进行分解和不断细化；要给出系统的逻辑视图和物理视图。3.2系统的主要功能分析开发这个系统的目的就是要帮助企业的人力资源部门提高工作效率，实现企业人事信息管理系统的系统化、规范化和自动化。按照系统总体需求，系统要实现以下功能：(1)员工基本信息：员工基本信息添加，员工基本信息修改，员工基本信息查询；(2)员工考勤管理：员工考勤信息添加，员工考勤信息修改，员工考勤信息查询；(3)员工工作评价：员工工作评价添加，员工工作评价修改，员工工作评价查询；(4)员工工资管理：计发员工工资信息，员工工资信息修改，员工工资信息查询；(5)系统管理功能：系统管理员可以对使用系统的用户进行管理，可以添加、修改和删除用户信息。权限管理模块只有管理员可以访问。3.3数据库需求分析数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。用户的需求具体体现在各种信息的提供、储存、更新和查询，这要求数据库结构能够充分满足各种信息的输入和输出。收集基本数据、数据结构和数据处理的流程，组成一份详尽的数据字典。针对一般单位人事信息管理系统的需求，通过对员工工作过程的内容和数据流程的分析，设计如下所示的数据项和数据结构：（1）系统管理：给用户提供添加用户和修改密码的功能；（2）员工基本信息：编号、姓名、部门、性别、生日、籍贯、学历、专业、参加工作时间入党时间、职称、职称时间、原身份、原工作单位、原职务、进入公司时间、起薪时间、调入时间、备注；（3）员工考勤信息：编号、姓名、日期、本月天数、应出勤天数、出勤工、年休、请假、迟到、早退、节假日加班、其他加班、出差工地天数、加班费、其他、备注；（4）员工工作评价信息：部门、姓名、编号、时间、工作业绩、工作态度、业务水平、备注、其他；（5）员工工资信息：编号、姓名、底薪、补贴、奖金、加班、扣考核、代扣养老金、代扣医疗保险、所得税、房帖、实发工资、时间。3.4数据流程分析系统采用模块化程序设计方法，既便于系统功能的各种组合和修改，又便于未参与开发的技术维护人员补充、维护，在系统功能分析的基础上，考虑Visualbasic6.0程序编制的特点，得到数据流程图如图3-1所示：​�封面登陆系统�主界面�系统设置�员工考勤�考勤管理�工作评价�员工调动�工资管理�退出系统​图3-1数据流程图一个公司可分为好几个部门，每个部门都有自己的资料，而公司也会因为本身的礼仪会对一些员工进行部门的调动，也会因为员工的工作态度或是工作能力进行职位的变更。3.5总体功能模块设计根据前面的需求分析以及系统功能的分析可用以下图形来描述系统总体的功能模块。得到功能模块图如图3-2所示：​�企业人事管理员工基本信息管理员工工资信息管理员工考勤信息管理员工调动信息管理删除员工基本信息查询员工调动信息修改员工调动信息添加员工调动信息查询员工工资信息计发员工工资信息查询员工基本信息添加员工基本信息修改员工基本信息系统设置删除员工调动信息删除员工考勤信息修改员工考勤信息添加员工考勤信息查询员工考勤信息修改密码添加用户部门管理​图3-2功能模块图3.6登录系统结构图功能：用户登录进入人事管理系统，系统启动后，首先要做的就是用户登录，若不登录系统，所有功能将无法使用，用户只有登录后更具权限才能执行一定的操作。操作：进入该功能后，要求输入员工的登录名以及口令，系统会根据为用户分配权限，设置其对应的功能为有效，用户可操作该功能。得到表结构图如图3-3所示：图3-3表结构图第4章基本设计思想随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业管理势在必行。对于大中型企业来说，利用计算机支持企业高效率完成劳动人事管理的日常事务。该系统的优点是检索迅速、查询方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能极大提高人事管理效率，使企业管理更加科学化，正规化。而该系统的基本设计思想如下:(1)尽量利用企业现有的软硬件环境，及先进的管理系统开发方案，从而达到充分利用企业现有资源，提高系统开发水平和应用效果的目的；(2)系统应符合企业管理的要求，满足企业相关人员日常管理，维护的需要，并达到操作过程的直观、方便、实用、安全等；(3)系统采用模块化程序设计方法，既便于系统功能的各种组合和修改，又便于未参与开发的技术维修人员补充和维护；(4)系统应具备数据库维护功能，及时根据用户需求进行数据的添加、删除、修该操作等。第5章系统详细设计本章详细介绍人事管理系统的数据库结构和主要功能界面的设计。本系统的数据库是用Microsoft公司的Access开发的，目前数据库共有5个表，分别是员工信息表、员工考勤表、员工工资表、用户表、部门信息表。人事管理信息系统主要包含员工基本信息，工作情况，学历，职位情况等各方面信息，内容比较全面。同时还综合了其他系统的功能，如工资管理、部门管理、员工调动、考勤管理等， 总结 初级经济法重点总结下载党员个人总结TXt高中句型全总结.doc高中句型全总结.doc理论力学知识点总结pdf 归纳出所需现有的功能。主要是为人事信息进行服务，对职位的变动，员工资料查询，添加修改等功能。总体上说具有编辑、查询、删除等功能。5.1系统E-R图员工基本信息E-R图，如图5-1所示：图5-1员工基本信息E-R图员工考勤信息E-R图，如图5-2所示：图5-2员工考勤信息E-R图员工工资信息E-R图，如图5-3所示：图5-3员工工资信息E-R图5.2数据库设计数据是信息管理系统的后台，存储着所有的信息，在信息管理系统中有着很重要的地位。数据库设计的好与坏，直接影响到这个系统的运行效率。良好的数据库设计，可以提高数据信息的存储效率，保证数据信息的完整性和一致性。同时，一个合理的数据库结构有利于程序的实现。这里选用Access2003作为后台数据库。启动Access2003,创建一个新的数据库，命名为datebase.mdb,保存在要存放这个系统的所有工程文件的文件夹中。在上面的实体及其相互关系的基础上，形成数据库中的表以及各个表之间的关系。企业人事信息管理系统数据库中各个表格的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表，而在实际的数据表的设计中也多了几个表，本系统共包含八张表，分别是部门管理表、考勤信息表、调动信息表、员工档案表、员工工资表对等。表结构如表5-4所示：表5-4员工信息数据表字段字段名称数据类型字段大小索引排序Nulls1工号数值型自动编号有（无重复）否2姓名字符型10否3性别字符型4否4年龄数值型10否5职务字符型20否6原职务字符型20否7所属部门校字符型20否8原工作单位字符型20否9婚否字符型4否10出生年月日期型10否11政治面貌字符型10否12学历字符型10否13所在部门字符型20否14起薪时间日期型10否15工作经验字符型18否16参加工作时间日期型10否17进公司时间日期型10否18专业字符型20否19身份证号字符型20否20籍贯字符型50否5.2.1工资管理数据表工资管理表共有15个字段，本系统设计的工资项目完全满足企业的需求，可直接引用人事档案系统列出每个月的工资表。得到员工工资表如表5-5所示：表5-5员工工资管理数据表字段字段名称数据类型字段大小索引排序Nulls1员工编号数值型否2底薪数值型10否3奖金数值型10否4提成数值型10否5补贴数值型10否6加班费数值型10否7补贴数值型10否8房帖数值型10否9医疗保险数值型10否10养老金数值型10否11其他数值型10否12工资总计数值型10否13实发工资数值型20否14计发时间日期型10否5.2.2考勤管理数据表考勤管理表共有14个字段，记录员工每个月的考勤信息，得到员工考勤管理数据表如表5-6所：表5-6员工考勤管理数据表字段字段名称数据类型字段大小索引排序Nulls1员工编号数值型10否2全勤天数数值型10否3应出勤天数数值型10否4矿工次数数值型10否5事假天数数值型10否6节假日天数数值型10否7休息日加班小时数值型10否8休假日加班小时数值型10否9起始日期日期型1010截止日期日期型1011请假类型字符型1012审批人字符型1013请假事由字符型10否14备注字符型20否5.2.3用户数据表用户数据表是设置用户使用系统的权限，分为管理员和普通用户。得到用户数据表如表5-7所示：字段字段名称数据类型字段大小索引排序Nulls1用户名称字符型10否2用户口令文本50否3权限文本2否表5-7用户数据表第6章系统主要界面设计6.1系统登录模块设计因为人事资料管理牵涉到个人隐私及公司密秘等多方面因素,所以一定要保密,并有专人管理。使用前身份确认就显得非常重要,故在运行前要进行管理权限确认,以防止他人无意或恶意篡改,得到登录窗体如图6-1所示：图6-1系统登陆图管理员输入用户名和密码单击管理员登录，密码正确进入主界面。管理员对于系统的任何功能都可以使用，并可以修改管理员登录密码。普通用户无需输入用户名和密码单击普通用户直接进入主界面。但是只能对信息进行查询和浏览功能，不能对系统使用修改、删除、添加等功能。得到系统主界面图如图6-2所示：图6-2系统主界面图6.2添加用户模块设计从系统的安全性能考虑，增加了管理员设置这个功能。本窗体只有以管理员的身份登录才能使用。添加用户模块图如图6-3所示：图6-3添加用户模块图6.3部门管理模块设计本窗体只有以管理员的身份登录才能使用。得到部门管理模块图如图6-4所示：图6-4部门管理模块图6.4考勤记录模块的设计本窗体只有以管理员的身份登录才能使用。本窗体主要对员工的考勤信息进行添加、编辑、删除、移动等操作，若操作成功的话，都将进行更新数据库的操作。后面的档案管理、工资管理、调动管理、工作评价等窗体都大同小异。此考勤统计模块分为基本考勤、其它考勤、考勤列表，考勤基本信息里的员工信息只有提前在员工档案里录入才可以在此模块加入考勤信息得到考勤统计模块图如图6-5所示：图6-5考勤统计模块图6.5员工评价模块设计此模块只能被管理者使用，是为员工的提拔提供了依据，此模块也被用于对员工绩效的考核以及员工的提拔。对于公司里俩考一评的结果进行最后的总结录入，填入员工评价信息时添加员工编号等与部门相关的信息就会自动显示出来，工作业绩说明等控件内需手工操作，但设置评价日期时不能添加大于当时计算机的显示时间，如果超过会出现错误提示窗口。得到员工评价模块图如图6-6所示：图6-6员工评价模块图6.6员工档案模块设计此模块只能管理员进行操作，主要用于对员工基本信息的添加。此模块主要包括员工基本信息、工作经验、信息列表，信息列表时用来显示所有的员工档案。此模块用于员工档案的添加、编辑、删除、返回用于向公司更高效率的提供员工档案信息，员工工作经验主要用于将员工安排到最适合的岗位。得到员工档案模块图如图6-7所示：图6-7员工档案模块图第7章系统测试系统测试是对整体性能的测试，主要解决各子系统之间的数据通信和数据共享问题，以及检测系统是否达到用户的实际要求。系统测试的依据是系统分析报告。系统测试应在系统的整个范围内进行，这种测试不只对软件进行，而是对构成系统的硬、软件一起进行。系统测试与建构同时进行或略慢。系统测试需要确认从头到尾的功能正常才算完成，应当尽量避免系统测试延到项目末尾进行。重点测试以下内容分别是用户登录、员工信息管理、部门管理、员工调动，系统测试成功后用户可以放心使用。经测试均能成功运行。结　论企业人事管理系统通过对员工基本信息的管理，实现了人力资源的合理调配、员工工资的自动计算和管理及员工劳保、计生的科学管理，实现了对人事相关信息数据及时、准确的获取，并可以根据不同的要求获取并打印相应的报表等功能；并提供系统维护功能,使用户方便进行数据备份和恢复、数据删除；同时也考虑到了减少数据冗余的问题,对于数据的一致性的问题也通过程序进行了有效的解决。企业人事管理系统可以推动企业依法管理，实现企业劳动人事管理的科学化、规范化和现代化，建立适合企业的劳动人事管理率和管理水平，具有较强的实用性。该系统功能基本符合用户需求，但该系统还有许多不尽人意的地方设计的过程中也出现比较多的问题，比如没有设置报表模块，没有打印功能等等。谢辞我从指导老师身上学到很多东西，郭老师认真负责的态度，严谨的治学精神和深厚的理论知识水平都使我受益匪浅。感谢她的耐心辅导，另外在系统开发过程中许多同学可我很大的帮助。通过这次毕业设计，我学到了很多知识，不管是理论还是实践都有了更进一步的认识，也培养了我独立思考的能力。参考文献[1]佟伟光著.VisualBasic6.0程序设计教程.电子工业出版社,2010　[2]黄明等著.VisualBasic中小型信息系统.机械工来出版社,2007[3]高春艳等著.VisualBasic数据库系统开发案例精选.人民邮电出版社,2006　[4]刘瑞新等.VisualBasic6.0程序设计教程.北京:电子工业出版社,2003[5]黄梯云等.管理信息系统.北京:高等教育出版社,2000[6]李玉林等.VisualBasic6.0毕业设计指南与项目实践.北京:科学出版社,2007[7]刘韬.骆娟.何旭等.VisualBasic6.0数据库系统开发实例导航.北京:人民邮电出版社,2002[8]郭瑞军.唐邦民等.VisualBasic6.0数据库实例精粹.北京:电子工业出版社,2005[9]周国民.VisualBasic6.0+Access数据库项目开发指南.北京:中国铁道出版社,2004[10]温小敏.VisualBasic6.0数据库系统项目开发实践.北京:科学出版社,2005[11]王钦.VisualBasic6.0入门与提高.京:人民邮电出版社.2002[12]白晓勇.余健.VisualBasic课程设计案例精编.北京:清华大学出版社,2007[13]谭浩强.袁枚等.VisualBasic程序设计.北京:清华大学出版社,2004[14]刘世峰.VisualBasic6.0程序设计.北京:中央广播电大出版社,2003[15]王珊.萨师煊.数据库系统概论.北京:高等教育出版社.2006[16]刘炳文.VisualBasic6.0程序设计教程.北京:清华大学出版社,2003[1]附　录部分模块的代码设计登录窗体：OptionExplicitPrivateCountsAsBytePrivateSubcmdcancel_Click()EndEndSubPrivateSubCmdLogin_Click()DimStrSQLAsStringUserName=CStr(Trim(TxtUserName.Text))PassWord=CStr(Trim(TxtPassWord.Text))IfUserName<>EmptyAndPassWord<>EmptyThenStrSQL="select用户名称,用户口令,用户权限from管理用户where用户名称='"&UserName&"'and用户口令='"&PassWord&"'"IfRsLoginCheck.State=adStateClosedThenRsLoginCheck.OpenStrSQL,DBCON,adOpenKeyset,adLockPessimistic,adCmdTextEndIfGroup=RsLoginCheck.Fields(2).ValueIfRsLoginCheck.Fields(2).Value<>"Administrators"ThenCallCheckLoginEndIfIfRsLoginCheck.RecordCount<>0ThenRsLoginCheck.CloseUnloadMeFrmmdimain.ShowElseIfCounts<2ThenMsgBox"用户名域密码错误",vbExclamation+vbOKOnly,"登录失败"RsLoginCheck.CloseCounts=Counts+1ElseMsgBox"密码错误不得超过三次，否则视您为非法用户！",vbCritical,"警告"EndEndIfElseMsgBox"用户名密码不能为空",vbExclamation+vbOKOnly,"登录失败"CallForm_LoadEndIfEndSubPrivateSubForm_Load()WinXPLogin.InitSubClassingTxtUserName.Text="Administrator"TxtPassWord.Text="admin"EndSub主窗口：PrivateSubMDIForm_Load()DimstrpathAsStringstrpath="\images\004.jpg"Frmmdimain.Picture=LoadPicture(App.Path&strpath)StaBar.Panels(1).Text="今天是："&Format(Date,"dddddd")StaBar.Panels(2).Text="当前用户："&UserNameStaBar.Panels(3).Text="用户权限："&GroupStaBar.Panels(4).Text="登录时间："&Time()EndSubPrivateSubmnuAboutAuthor_Click()frmAbout.ShowEndSubPrivateSubmnuAddCheck_Click()FrmCheck.ShowEndSubPrivateSubmnuAddComment_Click()FrmWorkComment.ShowEndSubPrivateSubmnuAddMove_Click()FrmMoveInfo.ShowEndSubPrivateSubmnuAddRecord_Click()FrmRecord.ShowEndSubPrivateSubmnuAdduser_Click()FrmAddUsers.ShowEndSubPrivateSubmnuCheckR_Click()DataRepCheck.ShowEndSubPrivateSubmnuClose_Click()OnErrorGoToErrUnloadUnloadMe.ActiveFormExitSubErrUnload:MsgBox"当前没有活动窗体",,"关闭窗口"EndSubPrivateSubmnuCommentR_Click()DataRepWorkComment.ShowEndSubPrivateSubmnuDeleteCheck_Click()FrmCheck.ShowEndSubPrivateSubmnuDeleteComment_Click()FrmWorkComment.ShowEndSubPrivateSubmnuDeleteMove_Click()FrmModifyMove.ShowEndSubPrivateSubmnuDeleteRecord_Click()FrmRecord.ShowEndSubPrivateSubmnuDeptManage_Click()FrmDeptManage.ShowEndSubPrivateSubmnuExit_Click()IfMsgBox("确定要退出系统吗？",vbInformation+vbYesNo,"退出系统")=vbYesThenEndEndIfEndSubPrivateSubmnuFindPay_Click()mnuQueryPay_ClickEndSubPrivateSubmnuModifyCheck_Click()FrmCheck.ShowEndSubPrivateSubmnuModifyComment_Click()FrmWorkComment.ShowEndSubPrivateSubmnuModifyMove_Click()FrmModifyMove.ShowEndSubPrivateSubmnuModifyPWD_Click()FrmModifyPassWord.ShowEndSubPrivateSubmnuMoveR_Click()DataReMove.ShowEndSubPrivateSubmnuOnlineUpdate_Click()FrmUpDate.ShowEndSubPrivateSubmnuPayR_Click()DataRepPay.ShowEndSubPrivateSubmnuPlanPay_Click()FrmPayManage.ShowEndSubPrivateSubmnuQueryCheck_Click()FrmQueryCheck.ShowEndSubPrivateSubmnuQueryComment_Click()FrmQueryComment.ShowEndSubPrivateSubmnuQueryMove_Click()FrmQueryMove.ShowEndSubPrivateSubmnuQueryPay_Click()FrmQueryPay.ShowEndSubPrivateSubmnuQueryRecord_Click()FrmQueryRecord.ShowEndSubPrivateSubmnuRecordR_Click()DataRepRecord.ShowEndSubPrivateSubmnuUpdateRecord_Click()FrmRecord.ShowEndSubPrivateSubmnuReLogin_Click()IfMsgBox("确定要重新登录吗？",vbInformation+vbYesNo,"重新登录")=vbYesThenUnloadMeLoadFrmLoginFrmLogin.ShowEndIfEndSubPrivateSubabout_Click()frmguanyu.ShowEndSub考勤统计：IfRstRecordCheck.State=adStateOpenThenRstRecordCheck.CloseEndIfRstRecordCheck.Open"select*from员工档案where员工编号='"&CmbCode.Text&"'",DBCON,adOpenKeyset,adLockOptimistic,adCmdTextTxtName.Text=RstRecordCheck.Fields(1).ValueCmbSex.Text=RstRecordCheck.Fields(2).ValueTxtTitle.Text=RstRecordCheck.Fields(18).ValueTxtBranch.Text=RstRecordCheck.Fields(16).ValueEndSubPrivateSubCmdRefresh_Click()SetVSDataCheck.DataSource=RsAddCheck.DataSourceEndSubPrivateSubCmdRetrun_Click()UnloadMeEndSubPrivateSubTmr_Timer()CallCmdRefresh_ClickVSDataCheck.RefreshEndSubPrivateSubForm_Load()WinXPCheck.InitSubClassingMe.Left=Frmmdimain.Width/5Me.Top=0IfRsAddCheck.State=adStateClosedThenRsAddCheck.Open"考勤信息",DBCON,adOpenKeyset,adLockOptimistic,adCmdTableEndIfIfRsAddCheck.RecordCount>0ThenCallFormTxtValue1ElseCallFormTxtValue2EndIfEndSubPrivateSubCmdAdd_Click()RsAddCheck.AddNewCallFormTxtValue2CallTxtStateCallCmdState1IfRsRecordCheck.State=adStateClosedThenRsRecordCheck.Open"员工档案",DBCON,adOpenKeyset,adLockPessimistic,adCmdTableEndIfSetCmbCode.RowSource=RsRecordCheckCmbCode.BoundColumn="员工编号"CmbCode.ListField="员工编号"EndSubPrivateSubCmdDel_Click()IfMsgBox("确定要删除吗？",vbInformation+vbYesNo,"删除信息")=vbYesThenIfRsAddCheck.RecordCount<>0ThenRsAddCheck.DeleteCallCmdMove_ClickElseMsgBox"当前没有任何记录",,"删除记录"CallFormTxtValue2EndIfEndIfEndSubPrivateSubCmdEdit_Click()CallCmdState1CallTxtStateEndSubPrivateSubCmdMove_Click()IfRsAddCheck.RecordCount<>0ThenRsAddCheck.MoveNextIfRsAddCheck.EOFThenRsAddCheck.MoveFirstEndIfCallFormTxtValue1ElseMsgBox"当前没有任何记录",,"移动记录"EndIfEndSubPrivateSubCmdPrint_Click()DataRepCheck.ShowEndSubPrivateSubCmdSave_Click()IfTrim(TxtOtherDay.Text)<>EmptyOrTrim(TxtLate.Text)<>EmptyOrTrim(TxtHlrdayDate.Text)<>EmptyOrTrim(TxtOverTime.Text)<>EmptyOrTrim(TxtVacetion.Text)<>EmptyOrTrim(TxtKuangon.Text)<>EmptyThenCallUpRsValueOnErrorGoToErrSaveRsAddCheck.UpdateCallCmdMove_ClickMsgBox"数据已保存",,"保存成功"SSTCheck.Tab=0CallCmdState2CallTxtState1ElseMsgBox"带*不能为空,若没有请填数字0",,"验证失败"SSTCheck.Tab=1EndIfExitSubErrSave:SelectCaseErr.NumberCase-2147352571MsgBox"没选择编号或带*内容没填,若没有请输入0",vbInformation+vbOKOnly,"输入错误"RsAddPay.CancelUpdateCaseElseMsgBox"错误描述："&Err.Description&vbCrLf&"错误代码："&Err.Number,vbCritical+vbOKOnly,"非法操作"EndSelectEndSubPrivateSubFormTxtValue1()CmbCode.Text=RsAddCheck.Fields(0).ValueTxtName.Text=RsAddCheck.Fields(1).ValueCmbSex.Text=RsAddCheck.Fields(2).ValueTxtTitle.Text=RsAddCheck.Fields(3).ValueTxtBranch.Text=RsAddCheck.Fields(4).ValueCmbAllDate.Text=RsAddCheck.Fields(5).ValueCmbPDate.Text=RsAddCheck.Fields(6).ValueTxtYear.Text=RsAddCheck.Fields(7).ValueCmbMonth.Text=RsAddCheck.Fields(8).ValueDTPForDate.Value=RsAddCheck.Fields(9).ValueDTPEndDate.Value=RsAddCheck.Fields(10).ValueDTPForTime.Value=RsAddCheck.Fields(11).ValueDTPEndTime.Value=RsAddCheck.Fields(12).ValueCmbLeaveType.Text=RsAddCheck.Fields(13).ValueTxtShenPi.Text=RsAddCheck.Fields(14).ValueTxtLeaveReason.Text=RsAddCheck.Fields(15).ValueTxtOtherDay.Text=RsAddCheck.Fields(16).ValueTxtOtherReason.Text=RsAddCheck.Fields(17).ValueTxtLate.Text=RsAddCheck.Fields(18).ValueTxtOverTime.Text=RsAddCheck.Fields(19).ValueTxtHlrdayDate.Text=RsAddCheck.Fields(20).ValueTxtVacetion.Text=RsAddCheck.Fields(21).ValueTxtKuangon.Text=RsAddCheck.Fields(22).ValueTxtRemark.Text=RsAddCheck.Fields(23).ValueLblCount.Caption=RsAddCheck.RecordCountEndSubPrivateSubFormTxtValue2()CmbCode.Text=EmptyTxtName.Text=EmptyCmbSex.Text=EmptyTxtTitle.Text=EmptyTxtBranch.Text=EmptyCmbAllDate.Text=EmptyCmbPDate.Text=EmptyTxtYear.Text=EmptyCmbMonth.Text=EmptyDTPForDate.Value=DateDTPEndDate.Value=DateDTPForTime.Value=DateDTPEndTime.Value=DateCmbLeaveType.Text=EmptyTxtShenPi.Text=EmptyTxtLeaveReason.Text=EmptyTxtOtherDay.Text=EmptyTxtOtherReason.Text=EmptyTxtLate.Text=EmptyTxtOverTime.Text=EmptyTxtHlrdayDate.Text=EmptyTxtVacetion.Text=EmptyTxtKuangon.Text=EmptyTxtRemark.Text=EmptyLblCount.Caption=RsAddCheck.RecordCountEndSubPrivateSubTxtState()CmbCode.Enabled=TrueCmbAllDate.Enabled=TrueCmbPDate.Enabled=TrueTxtYear.Enabled=TrueCmbMonth.Enabled=TrueDTPForDate.Enabled=TrueDTPEndDate.Enabled=TrueDTPForTime.Enabled=TrueDTPEndTime.Enabled=TrueCmbLeaveType.Enabled=TrueTxtShenPi.Enabled=TrueTxtLeaveReason.Enabled=TrueTxtOtherDay.Enabled=TrueTxtOtherReason.Enabled=TrueTxtLate.Enabled=TrueTxtOverTime.Enabled=TrueTxtHlrdayDate.Enabled=TrueTxtVacetion.Enabled=TrueTxtKuangon.Enabled=TrueTxtRemark.Enabled=TrueEndSub因工资管理、员工档案、员工调动、工作评价模块等内的设计大体相近，代码也大同小异，这里不再敖述！婚否专业出生日期员工姓名员工编号部门现住址政治面貌学历性别籍贯员工基本信息进公司时间职称事由应出勤天数请假类型性别员工编号审批人全勤天数职务所在部门姓名员工考勤信息房贴养老金奖金补贴底薪加班费部门实发时间姓名其他员工编号医疗保险员工工资信息IV