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

洛阳理工学院毕业设计（论文）题目＿＿＿企业人事治理系统的设计与实现＿姓名＿＿＿＿＿＿系（部）工程治理系＿＿＿＿＿专业＿经济信息治理＿＿＿指导教师＿＿＿＿＿＿＿＿2013年5月企业人事治理系统的设计与实现摘要企业人事治理系统要紧用于关于企业职员档案治理，职员的调动情况的查询及治理，职职员作的评价，职员考勤治理，职职员资治理是便于企业治理者利用计算机高效率完成劳动人事治理的日常事务。该系统要紧利用VisualBasic6.0、MicrosoftofficeAccess等工具设计开发完成。开发过程中采纳模块化设计，不同的模块实现了不同的功能。作为计算机应用的一部分，使用计算机对人事信息进行治理的系统，是一个公司治理及合理分配每个人员，使其发挥其自身最大价值的全然软件。关键词：人事治理，模块化，Visualbasic6.0，MicrosoftofficeAccessThedesignandimplementationofenterprisepersonnelmanagementsystemABSTRACTEnterprisepersonnelmanagementsystemismainlyusedinfilemanagementforenterpriseemployees,transfertothestaffqueryandmanagement,staffevaluation,staffattendancemanagement,employeewages,isadvantageousfortheenterprisemanagersusecomputerefficientcompletelaborpersonnelmanagementofdailyaffairs.ThesystemmainlyusingVisualBasicandMicrosoftofficeAccesstoolssuchasdesignanddevelopment.DevelopmentprocessUSESthemodulardesign,differentmodulerealizesthedifferentfunctions.Asapartofcomputerapplication,usingcomputertomanagethepersonnelinformationsystem,isamanagementandreasonabledistributionofeachcompanypersonnel,andmakeitplayamaximumvalueofitsfundamentalsoftware.KEYWORDS:personnelmanagement,modular,Visualbasic6.0,MicrosoftofficeAccess目录前言 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系统开发背景所有的治理的目标差不多上为了效益,在打算经济时代，传统用人制度忽视人事治理的开发和治理问题，缺乏人事治理的理念和认识，忽视了人才的资源性、整体性等特征。在市场经济和知识经济时代，人事治理必须实现把适应社会主义打算经济的人事治理体制调整为社会主义市场经济体制相配套的人事治理体制，重视人才的资源性和人力资本的核算和认识，树立以人为本的思想,把人作为资源和资本，强调整体性人事治理系统的开发人事治理是企业治理的一个重要内容，随着时代的进步，企业也逐渐变得庞大起来。如何治理好企业内部职员的信息和各种文件成为企业治理中的一个大的问题。在这种情况下，一个能够规范化,自动化的企业人事治理系统就显的特不必要。目前市面上流行的人事治理系统许多，然而关于小中型企业的人事治理系统来讲，不需要大型的数据库系统。只需要一个操作方便，功能有用，能满足差不多中心对数据的治理及需求的系统。我的目标确实是在于开发一个功能有用、操作方便，简单明了的人事治理系统。人事治理系统是针对现在公司的大量业务处理工作而开发的治理软件，依照用户需求，实现人员差不多情况治理，职位调整治理等几个方面的功能。用户通过输入姓名、密码、职工履历、计发工资、职员评价等差不多信息，另外操作人员还能够对这些差不多信息进行定期的更新与删除，人事治理系统力求给用户方便快捷的途径去治理这些繁琐的数据。随着计算机的分苏进展，计算机在企业治理中的应用普及，利用计算机实现惹事档案的治理势在必行。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个表，分不是职员信息表、职员考勤表、职职员资表、用户表、部门信息表。人事治理信息系统要紧包含职员差不多信息，工作情况，学历，职位情况等各方面信息，内容比较全面。同时还综合了其他系统的功能，如工资治理、部门治理、职员调动、考勤治理等，总结归纳出所需现有的功能。要紧是为人事信息进行服务，对职位的变动，职员资料查询，添加修改等功能。总体上讲具有编辑、查询、删除等功能。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附录部分模块的代码设计登录窗体：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