企业人事管理毕业论文.docVIP

企业人事管理系统 专业：计算机科学与技术班级：2002级6班姓名：目 录引 言51系统分析71.1问题定义71.2系统可行性分析111.3系统需求分析142系统设计162.1 总体设计172.2 数据库设计183系统实现233.1系统启动界面设计233.2系统登录窗体设计253.3系统主窗体设计263.4系统人事管理模块的设计283.5系统离退休人员管理模块设计373.6系统工资管理模块设计413.7系统保险管理模块设计443.8系统维护模块设计463.9系统帮助窗体设计504系统的使用与维护504.1系统的使用514.2系统维护51结论52致谢53参考文献54附录1源程序摘 要本文介绍了企业人事管理信息系统（Management Information System，简称MIS）的设计与实现过程。开发本系统的目的是帮助企业实现人事信息管理的系统化、规范化和自动化，提高企业的管理效率。本系统的开发采用“自顶向下，逐层分解”的方法，文章共分为四大部分，包括系统分析、系统设计、系统实现以及系统维护与使用，其中系统分析、系统设计和系统实现三个部分是文章的主要部分。系统分析部分，对人事系统进行了可行性分析和需求分析，二者是开发一个软件系统的基础，后续的工作都建立在分析的基础上。系统设计部分是本文的核心，包括数据库设计、功能设计、用户界面设计等部分，构成了系统的框架。系统实现部分是在系统分析阶段建立的框架基础上进行的，使系统成为一个实际的软件产品。本系统的开发采用了面向对象的程序设计思想和可视化的设计方法，后台的数据库管理则采用了Microsoft Access,开发工具为Visual Basic 6.0。关键词：人事管理；管理信息系统；面向对象；Access；VBAbstractThis paper has introduced the design and realization process of the Management Information System (called MIS) of enterprise. The development of the system will help personnel management move towards the systematized, the standardization and the automation to enhance the efficiency of enterprise management.The development of this system has used a method called “top-down, chase-layer and resolve”. The paper is divided into four main parts, including system analysis, design, and realization, maintenance and usage. The part of system analysis is made up of feasible analysis and demand analysis; both of them are the foundation of developing a software system, the follow-up work is set up on the basis of analysis. The core of this text is system design, including the design of the database, the function and user interface. It forms the systematic frame. The system realization continues on the basis of frame that system analysis sets up, by this way the system become a real software product. We adopt the Object-oriented design concept and visual design method to develop the system. Backstage database management adopt Microsoft Access, developing instrument is Visual Basic 6.0.Keywords:Personnel management；MIS；Object-oriented；Access；VB引 言企业人事管理是现代企业管理的重要组成部分，人事管理水平的高低直接关系到企业的经济效益，而以现代计算机技术、信息技术、管理科学和系统科学为基础建立的管理信息系统(简称MIS)，在企业管理决策中，正发挥着日益重要的作用，所以建立人事管理系统已经成为实现企业管理信息化的关键。随着生产力的发展，企业管理体制的变革，人事管理也在随之改变，企业如何管理好人事信息已经成为企业管理人员面临的一个重大问题。在这种情况下，一个系统化、规范化、自动化的人事管理系统就显得非常重要。一个功能完备的人事信息管理系统，可以提高人事信息的管理水平，实现人事信息管理的科学化和标准化，并能迅速准确的提供综合统计信息，提高工作效率和经济效益。科学合理的管理是开发MIS的前提，只有在合理的管理体制，完善的规章制度，稳定的生产秩序，配套的科学管理方法和完整的原始数据的基础上，才能有效的开发企业信息管理系统。因此，MIS开发与企业管理工作是相辅相成、共同发展的。为了适应MIS开发的要求，企业必须以MIS的开发为契机，完善企业的管理基础工作，逐步实现基础管理的规范化、管理业务程序化、定额指标科学化、报表文件统一化、信息名称代码化和编码体系标准化。总之，实现科学的管理是系统开发中很重要的前提。企业有必要的投资作保证，并能提供系统维护人员的编制和维护费用；企业管理人员的知识结构满足系统建设的需要；基础数据齐全，规范这些都是建立管理信息系统的必要条件。随着全球信息化时代的到来，信息技术对社会发展和经济增长的作用越来越明显，充分利用信息技术和信息资源，为社会创造更多的财富，将成为社会进步的重要标志。企业作为连接生产与消费的纽带和桥梁，应用信息技术不仅可以提高自身的市场竞争力，同时还可以指导生产、引导消费。毋庸置疑，在未来的企业经营管理体系中，信息技术的应用将成为必不可少的重要组成部分和基本手段。企业有效的采用信息技术手段，可以加速企业的发展与进步，因此信息化建设已成为当前企业提高企业管理水平、谋求生存、参与市场竞争的必由之路。1系统分析系统分析的主要任务是将在系统调查中所得到的文档资料集中到一起，对组织内部整体管理状况和信息处理过程进行分析。系统分析的目的是将使用者的需求及其解决方法确定下来，这些需要确定的结果包括：开发者关于现有组织管理状况的了解；使用者对信息系统功能的要求；数据和业务流程；管理功能和管理数据指标体系；新系统拟改动和新增的管理模型等等。系统分析所确定的内容是今后系统设计和系统实现的基础。1.1问题定义1.1.1系统现状分析现有的管理体制，所有工作基本依靠手工处理，这种手工处理劳动强度大，效率低，而且经常出错。数据量如此之大，使原始数据准确性差。而且各种统计报表不能做到及时准确上报，很容易影响其它部门的工作进度，各种信息反馈不及时给企业的资金周转及企业的正常生产造成了障碍，影响企业的决策，影响整个企业的快速发展。在当前激烈的市场竞争中，企业的发展迫切需要实行现代化人事信息管理方法。为了应付编制大量人事工资的信息文件和处理信息，从总厂到车间、班组分别向下层单位要一套报表，从而形成了基层单位向上级部门传递信息的多头关系。这样不仅浪费了大量的人力、物力，而且因为多头关系容易造成信息的不统一。仅仅关心本部门的数据要求，各职能部门及各级机构对于信息化建设工程的投资与内容竭力表现出各自独立的业务特征与倾向，缺乏在统一的信息技术战略规划下协调发展及宏观控制的观念和主动性。目前信息处理分散在企业的各个部门，为了处理各项业务，每个部门都有“自己的”信息，不能发挥信息的共享作用。通讯方式落后，企业各部门之间的人事信息交流主要依靠大量的报表信息，转抄次数多，增加了出错概率，使信息的可靠性降低。更为严重的是，信息流总是严重落后于物流，管理部门所需信息不能及时反映上来，或反映上来的信息与实际不符。信息处理仍处于手工阶段，业务处理过程中需要填写大量的报表，数据抄来抄去，传来传去，不仅容易造成错误，而且占用工作人员大量的时间，烦琐的事物性工作占去了管理人员的大部分精力，使其没有充分的时间和精力更好的进行调查研究，提高管理水平，创造精神也受到束缚。工资报表记录保存困难，使查询工作不便进行。现有计算机在管理上的应用在某种程度上改善了管理，但还存在着不少问题。首先，这些应用都是单项开发的，功能不全。各个子系统之间不能很好地进行信息交换和通讯，以至于子系统和数据不能共享，从而数据中的重复量较大，使用者大部分时间都花在数据的输入上。其次，已有的计算机应用系统基本上没有一致的规范文件，用来说明系统开发的目的、系统的功能、设计思想和使用方法，从而难以推广和完善。再次，企业缺乏一个统一的计算机管理权威机构来有效地组织、管理。计算机专业人员分布在企业的各个职能部门，他们之间缺乏应有的联系和合作。以上各种现象的存在给企业造成了可见与不可见的种种损失，因此必须通过信息技术应用的实践来加以改变，这就需要信息化建设队伍必须具备求实、求是的科学态度，以及百折不挠的毅力和足够的耐心。1.1.2解决方案重新设计一套企业人事管理信息系统，使其同时具有录入、查询、统计、打印报表的管理功能，该系统可以克服原有系统的弊端，基本实现办公自动化。为了将人才集中起来，必须建立一个完善的人事管理信息系统，集中精力对人员进行培训,加强企业对员工的管理,随时了解所管辖员工的背景材料和业务进展,分析每个人的工作负荷,从而根据业务的轻重缓急合理地调度人力资源,加强管理能力。 改善企业内部和企业与客户之间的信息交流方式,满足业务部门对信息处理和共享的需求,使企业迅速掌握瞬息万变的市场行情,在企业的管理和业务过程中,使企业信息更有效地发挥效力。提高办公自动化水平,提高工作效率,降低管理成本,提高企业在市场上的竞争能力。1.1.3系统目标管理信息系统的开发，不仅可以应用计算机完成烦琐复杂的日常工作，提高信息准确性和管理效率，更重要的是可以完成手工难以完成的信息处理，为加强企业管理和决策提供分析结果和最佳决策方法，辅助各级管理人员对企业进行管理和控制，从而提高企业的管理水平和经济效益。根据对系统的初步调查和分析，可以看出目前系统存在一些问题。为了提高企业人事信息的管理水平，实现人事信息管理的科学化和标准化，提高工作效率和工作效益，所以设计了一个企业人事管理系统。根据系统存在的问题，提出新系统建设的目标：减少大量的手工劳动，降低工作强度，由于人工的数据输入，计算和整理花费大量的时间，影响人事信息的反馈速度，同时，手工数据的传抄也容易出现错误。实现人事数据的共享，便于公司各部门对人事信息的查询、统计，便于公司领导根据人事信息做出正确决策。为增强企业效益，及时提供人事情况，发现问题，及时处理。缩短人事工资报表的生成周期，提高报表的准确性。1.2系统可行性分析 系统的可行性分析 ，就是按照各种有效的方法和工作程序，对拟建项目在技术上的先进性、适用性，经济上的合理性，以及项目的实施等方面进行深入的分析，确定目标，提出问题，制定方案和项目评估，从而为决策提供科学的依据。1.2.1系统开发的必要性当前，席卷全球的信息化浪潮正在蓬勃兴起，这将推动社会进入信息时代。在由计划经济体制向社会主义市场经济体制转变过程中，企业必须按照市场要求组织生产经营，必须及时、准确、全面的获得市场信息，必须经过信息系统的处理和分析作为企业决策的参考。另外，为了加快集约型经济增长，企业必须加强内部管理，以提高劳动生产率，适应市场竞争。在计算机的帮助下，可以对企业生产经营诸要素进行优化组合和合理配置，使生产和经营活动过程中的人流、物流、资金流、信息流处于最佳状态，达到以最少的投入获得最大的产出，这就是企业管理信息系统的作用所在。与传统的人工管理方式相比，MIS提供的信息不仅迅速，而且全面和准确，能够为经营生产管理和决策提供详尽的经过分析处理的信息，使管理人员及时掌握企业生产经营全貌。MIS在企业中的全面应用，可使中下层管理人员从繁琐的事务性工作中解脱出来，有更多的精力去考虑具体的生产经营过程中的管理问题；高层管理人员则从计算机网络获得信息，并直接与各个部门交流、管理和指挥，这些会提高企业的管理效率，进而提高企业的效益。因此，不建立MIS，企业就不能适应将来信息的处理的要求，不能适应市场竞争的环境，建立企业信息管理系统势在必行。1.2.2 经济可行性分析对开发成本进行估算，对可能取得的经济效益进行评估，确定要开发的项目的效益是否能够超过它的开发成本。判断系统在经济上是否可行，是经济可行性所要解决的主要问题。MIS建设需要资金投入作为保证。对MIS的资金投入不仅是用于购置计算机设备，还包括软件开发、人员培训等费用。在系统开发完成后，还有系统运行和维护费用，通过考核企业产值、销售收入、利润、资金等技术指标，企业完全可以负担MIS建设的费用。系统运行后，可以大大减少企业员工的手工操作，节省了大量人力，提高了工作效率，给企业带来更多的直接或间接的经济效益。另外该系统所需要的软硬件配置相对于它投入使用后创造的经济效益来说费用不高，因为新系统可以提高工作效率，减轻劳动强度，提高企业员工利用率，使企业的人力资源得到合理分配，达到资源优化。因此，新系统在经济上是可行的。1.2.3 技术可行性分析技术可行性是从技术条件和技术力量两个方面来分析新系统实现的可能性。企业必须拥有高新技术和高级技术人员。企业有一支强大的开发队伍，已经培养出一批技术人员。许多刚刚走出校门的年轻人，迅速成长为企业的业务骨干。企业具有一流的工作环境、优秀的人才、科学的管理，完全可以胜任本系统运行后的日常维护工作。企业的员工素质较高，对自己的业务非常熟练，有一定的计算机操作能力和数据库维护能力，对该人事信息管理系统的使用得心应手，对该系统的维护也没有问题，而且企业内部已经联网，可以实现数据的共享。因此，开发人事管理信息系统在技术上是可行的。1.2.4 管理可行性分析 计算机在管理方面的应用受到企业的普遍重视，企业信息化建设开始进入崭新的阶段。随着企业对信息化建设的重视程度大大提高，他们对信息化建设的热情和积极性也随之提高。而实施MIS必须有企业的各级管理人员积极参与配合，人员是信息技术应用的重要因素，拥有应用开发队伍是企业MIS正常运行的保证。企业在多年的MIS应用开发中培养计算机应用技术骨干，形成一定的基础力量。在正式使用该系统之前，应对业务人员进行有效的培训，培训合格后便可进入正式使用阶段。而且本系统的设计是采用Windows风格，界面友好，通俗易懂，操作便利，使管理人员通过极短时期的培训即可完全掌握本操作系统，所以本系统在管理上是可行的。1.3系统需求分析1.3.1系统功能(1)数据录入功能将人员的基本状况，履历，人员调动情况，职务变动情况，职称变动情况，离退休人员基本状况等重要的信息及相关内容录入数据库各自的表中。(2)数据的修改与删除功能对于各数据表中的数据可根据需要进行及时修改和删除。(3)数据加工和处理功能 此项功能将完成数据的汇总计算，包括各种报表的统计和部分数据的分析，尽力深化数据加工的层次，提供有价值的分析数据，以便为领导的经营决策提供保障。(4)数据的查询功能能够根据需要对数据进行查询，能够按各字段进行查询。例如：人员基本状况查询，职务变动查询，职称变动查询，工资查询，保险查询，离退休查询等。(5)信息的输出功能信息的输出是数据经过加工处理后再次体现，输出的信息要求精确，及时和实用，能体现一定的业务内容，主要包括查询结果，报表打印，例如：打印人员基本状况表，查询离退休人员基本状况，打印工资明细表等。(6)系统维护功能在人事信息管理系统中安全性非常重要，系统要提供定时备份的功能，并能对数据进行重建和恢复。 2系统设计系统设计是信息系统开发中另一个重要阶段。在这一阶段中，将根据系统分析的结果，进行新系统设计。在系统设计阶段，主要任务是在各种技术和实施方法中权衡利弊，精心设计，合理的使用各种资源，最终构划出新系统的详细设计方案。系统设计的主要内容包括总体设计和数据库设计。系统设计的结果是一系列的系统设计文件，这些文件是物理的实现一个信息系统的重要基础。2.1总体设计2.1.1模块结构设计模块结构设计是管理信息系统总体设计的重要内容。在总体设计阶段，将采用“自顶向下，逐层分解”的结构化设计思想，采用模块化的方法进行系统结构设计。该方法用于管理信息系统的总体设计，可以同系统分析阶段中的结构化系统分析与实施阶段中结构化程序设计方法前后衔接起来使用。结构化系统设计的基本思想是采用分解的方法，将系统设计成由相对独立的、单一功能的模块组成的结构，每一模块都可以单独地被理解、编写、测试、纠错和修改，从而有效地防止错误在模块之间扩展蔓延，这样不仅提高了系统的质量，同时，也使开发工作得到大大简化。而通过“自上而下”和“自下而上”的反复，把系统逐层划分为多个大小适当、功能明确、具有一定独立性且容易实现的模块，从而把复杂系统的设计转变为多个简单模块的设计。2.1.2系统功能模块图图1 人事管理系统功能模块图2.2数据库设计数据库表结构：表1 人员基本状况表字段名类型长度编号Text7姓名Text10出生年月Date/time8性别Text2政治面貌Text4是否退休Text2身份证号Text20填表日期Date/time8家庭住址Text50民族Text8文化程度Text4籍贯Text4单位电话Text16职务Text8职称Text14所属单位Text16所属部门Text6表2 权限表字段名类型长度操作员姓名Text10操作员密码Text10密码确定Text10操作员性质Text10表3 部门代码表字段名类型长度部门号Text2部门名称Text6表4 单位代码表字段名类型长度单位号Text2单位名称Text16表5 履历表字段名类型长度编号Text7姓名Text10身体状况Text4记录日期Date/time8曾获奖励Text50有何处分Text50表6 离退休人员基本状况表字段名类型长度编号Text7姓名Text10出生年月Date/time8性别Text2政治面貌Text4民族Text8所属单位Text16联系电话Text16退休时间Date/time8文化程度Text4工龄Text2所属部门Text16填表日期Date/time8表7 基本工资标准表字段名类型长度职务号Text8工资Currency8表8 奖金标准表字段名类型长度部门号Text6奖金Currency8表9 岗位津贴标准表字段名类型长度部门号Text6岗位津贴Currency8表10 住房补贴标准表字段名类型长度职务号Text8住房补贴Currency8表11 工资表字段名类型长度编号Text7姓名Text10基本工资Currency8岗位津贴Currency8住房补贴Currency8奖金Currency8病事扣款Currency8应发工资Currency8代扣水电Currency8托儿费Currency8福利费Currency8实发工资Currency8开支日期Date/time8职务号Text8部门号Text16表12 人员变动表字段名类型长度编号Text7姓名Text10现编号Text7现单位Text16以前单位Text16调动日期Date/time8表13职务变动表字段名类型长度编号Text7姓名Text10现职务Text8以前职务Text8职务变动日期Date/time8表14 职称变动表字段名类型长度编号Text7姓名Text10现职称Text14以前职称Text14职称变动日期Date/time8表15 养老保险表字段名类型长度编号Text7姓名Text10年月Date/time8缴纳日期Date/time8个人缴纳Currency8表16 住房公积金表字段名类型长度编号Text7姓名Text10年月Date/time8缴纳日期Date/time8个人缴纳Currency83系统实现3.1系统启动界面设计该界面为本系统的启动界面，为使用者提供一个友好界面，给使用者一种循序渐进的感觉。窗体如图2所示。图2 系统启动界面相关代码：Private Sub Form_Click()FrmLogin.ShowUnload MeEnd SubPrivate Sub Image1_Click(Index As Integer)FrmLogin.ShowUnload MeEnd SubPrivate Sub Label1_Click()FrmLogin.ShowUnload MeEnd SubPrivate Sub Timer1_Timer()DoEventsFrmLogin.ShowUnload MeEnd Sub3.2系统登录窗体设计该窗体为系统的登录窗体，使用者先选择用户名，然后输入密码，单击“确定”按钮进行身份验证。如果输入正确，使用者即可进入系统的主操作界面，进行各种信息的录入、查询以及打印报表等操作。如果输入错误，系统将提示重新输入；如果使用者要取消登录，单击“取消”按钮即可。如果使用者3次输入密码不正确，将会自动退出程序，这样可以实现系统的安全性。窗体如图3所示。图3 登录窗体相关代码：Private Sub Form_Load()OpenDb 人事数据库.mdb, DbSet Rst = Db.OpenRecordset(权限表)Set MyRst = Db.OpenRecordset(权限表, dbOpenDynaset)If Rst.RecordCount 0 Then Rst.MoveLast Rst.MoveFirst For i = 0 To Rst.RecordCount - 1 Combo1.AddItem Rst.Fields(0).Value, i Rst.MoveNext Next Combo1.ListIndex = 0End IfiChance = 0End Sub3.3系统主窗体设计在主窗体的设计中加入状态栏控件，可以实时反映系统中的各个状态的变化。将状态栏控件分为七个面板，然后在程序中设置面板的宽度，其中面板3用来显示当前操作员的姓名，面板5用来显示当前日期，面板7用来显示当前时间。窗体如图4所示。图4 主窗体界面相关代码：Private Sub Form_Load()Dim i As Longi = Screen.Width / 8StatusBar1.Panels.Item(1).Width = i * 2StatusBar1.Panels.Item(2).Width = iStatusBar1.Panels.Item(3).Width = iStatusBar1.Panels.Item(4).Width = iStatusBar1.Panels.Item(5).Width = iStatusBar1.Panels.Item(6).Width = iStatusBar1.Panels.Item(7).Width = iStatusBar1.Panels.Item(3).Text = sOperEnd Sub3.4系统人事管理模块的设计3.4.1职员基本状况(1)信息录入窗体该窗体除了拥有信息录入的功能外，同时还拥有对信息进行相应的“修改”和“删除”的功能，这样可以方便管理员进行相应的操作。当使用者要录入信息时，可单击“添加”按钮，便可进行信息录入的工作，然后保存即可。窗体如图5所示。图5 信息录入窗体相关代码：Private Sub Form_Load()Dim sPath As StringOpenDb 人事数据库.mdb, DbsPath = Right(Trim(App.Path), 1)If sPath Then Data1.DatabaseName = App.Path + 人事数据库.mdbElse Data1.DatabaseName = App.Path + 人事数据库.mdbEnd IfData1.RecordSource = 人员基本状况表Data1.RefreshSet Rst = Db.OpenRecordset(人员基本状况表)Set MyRst = Db.OpenRecordset(人员基本状况表, dbOpenDynaset) End sub(2)信息查询窗体该窗体主要用于对企业员工的基本信息进行查询。为了方便企业管理者对企业员工基本情况的了解，这里对企业员工的一些基本资料进行公示，方便管理者进行查询，了解员工的工作情况。在这里管理者可以通过企业员工的编号、姓名进行精确查询，方便使用。窗体如图6所示。图6 信息查询窗体相关代码：Private Sub Form_Load()Dim sPath As StringOpenDb 人事数据库.mdb, DbCombo1.ClearCombo1.AddItem 编号, 0Combo1.AddItem 姓名, 1Combo1.ListIndex = 0sPath = Right(Trim(App.Path), 1)If sPath Then Data1.DatabaseName = App.Path + 人事数据库.mdbElse Data1.DatabaseName = App.Path + 人事数据库.mdbEnd IfData1.RecordSource = 人员基本状况表Data1.RefreshSet Rst = Db.OpenRecordset(人员基本状况表, dbOpenDynaset)End Sub(3)报表统计窗体该窗体主要用于对企业员工的基本情况进行相关的统计工作。在使用者输入单位名称后，单击“统计”按钮，将进行相关内容的统计，例如对企业员工进行文化程度统计、政治面貌统计等。窗体如图7所示。图7 报表统计窗体统计(Command1)按钮的Click事件：Private Sub Command1_Click()Dim rs As New ADODB.RecordsetDim conn As New ADODB.ConnectionIf IsNull(Text4.Text) Then MsgBox 请输入公司名称!, vbOKCancel, 警告Elseconn.Open provider=microsoft.jet.oledb.4.0;data source=c:毕业设计人事数据库.mdbrs.Open select count(*) from 人员基本状况表 where 文化程度=博士 and 所属单位= & Text10.Text & , conn, 1, 1Text1.Text = rs.Fields(0).Valuers.Closers.Open select count(*) from 人员基本状况表 where 文化程度=硕士 and 所属单位= & Text10.Text & , conn, 1, 1Text2.Text = rs.Fields(0).Valuers.Closers.Open select count(*) from 人员基本状况表 where 文化程度=本科 and 所属单位= & Text10.Text & , conn, 1, 1Text3.Text = rs.Fields(0).Valuers.Closers.Open select count(*) from 人员基本状况表 where 文化程度=大专 and 所属单位= & Text10.Text & , conn, 1, 1Text4.Text = rs.Fields(0).Valuers.Closers.Open select count(*) from 人员基本状况表 where 文化程度=中专 and 所属单位= & Text10.Text & , conn, 1, 1Text5.Text = rs.Fields(0).Valuers.Closers.Open select count(*) from 人员基本状况表 where 文化程度=技校 and 所属单位= & Text10.Text & , conn, 1, 1Text6.Text = rs.Fields(0).Valuers.Closers.Open select count(*) from 人员基本状况表 where 文化程度=高中 and 所属单位= & Text10.Text & , conn, 1, 1Text7.Text = rs.Fields(0).Valuers.Closers.Open select count(*) from 人员基本状况表 where 文化程度=初中 and 所属单位= & Text10.Text & , conn, 1, 1Text8.Text = rs.Fields(0).Valuers.Closers.Open select count(*) from 人员基本状况表 where 文化程度=小学 and 所属单位= & Text10.Text & , conn, 1, 1Text9.Text = rs.Fields(0).Valuers.CloseEnd IfEnd Sub(4)报表打印窗体该窗体主要用于生成打印报表。当企业的管理者需要以报表的形式汇报有关企业员工的信息，比如员工的工资信息、各种保险信息、退休信息等等，此时系统的打印报表功能就可以很方便的打印出来，有效的提高了企业的管理效率。窗体如图8所示。图8 报表打印窗体3.4.2职员变动情况(1) 职务变动窗体该窗体主要用于对企业员工的职务变动情况进行记录。当企业员工有职务变动时，就可以用该窗体进行添加、修改和删除等。窗体如图9所示。图9 职务变动窗体相关代码：Private Sub Form_Load()Dim sPath As StringOpenDb 人事数据库.mdb, DbsPath = Right(Trim(App.Path), 1)If sPath Then Data1.DatabaseName = App.Path + 人事数据库.mdbElse Data1.DatabaseName = App.Path + 人事数据库.mdbEnd IfData1.RecordSource = 职务变动表Data1.RefreshSet Rst = Db.OpenRecordset(职务变动表)Set MyRst = Db.OpenRecordset(职务变动表, dbOpenDynaset)End sub(2)职称变动窗体该窗体可用于添加、修改和删除企业职员的职称变动信息，提高企业对职称管理的规范性、统一性，便于管理者了解企业职称的相关信息。窗体如图10所示。图10 职称变动窗体相关代码：Private Sub Form_Load()Dim sPath As StringOpenDb 人事数据库.mdb, DbsPath = Right(Trim(App.Path), 1)If sPath Then Data1.DatabaseName = App.Path + 人事数据库.mdbElse Data1.DatabaseName = App.Path + 人事数据库.mdbEnd IfData1.RecordSource = 职称变动表Data1.RefreshSet Rst = Db.OpenRecordset(职称变动表)Set MyRst = Db.OpenRecordset(职称变动表, dbOpenDynaset)End sub(3)人员调动录入窗体当企业出现人员跨单位或跨部门调动时，便要对调动人员进行相关登记，比如从哪个单位调到哪个部门，调动日期等。利用该窗体就可以很方便的进行相关操作。窗体如图11所示。图11 人员调动录入窗体相关代码：Private Sub Form_Load()Dim sPath As StringOpenDb 人事数据库.mdb, DbsPath = Right(Trim(App.Path), 1)If sPath Then Data1.DatabaseName = App.Path + 人事数据库.mdbElse Data1.DatabaseName = App.Path + 人事数据库.mdbEnd IfData1.RecordSource = 人员调动表Data1.RefreshSet Rst = Db.OpenRecordset(人员调动表)Set MyRst = Db.OpenRecordset(人员调动表, dbOpenDynaset)End sub3.5系统离退休人员管理模块设计3.5.1信息录入窗体企业员工达到退休年龄时，需要对退休员工的基本情况进行统计。单击“添加”按钮，即可进行相关信息的录入工作。如果有变动情况，无须重新录入，只要单击“修改”按钮就可以进行相关的信息修改。窗体如图12所示。图12 离退休人员录入窗体相关代码：Private Sub Form_Load()Dim sPath As StringOpenDb 人事数据库.mdb, DbsPath = Right(Trim(App.Path), 1)If sPath Then Data1.DatabaseName = App.Path + 人事数据库.mdbElse Data1.DatabaseName = App.Path + 人事数据库.mdbEnd IfData1.RecordSource = 离退休人员基本状况表Data1.RefreshSet Rst = Db.OpenRecordset(离退休人员基本状况表)Set MyRst = Db.OpenRecordset(离退休人员基本状况表, dbOpenDynaset)End sub3.5.2信息查询窗体在下拉菜单中选择查询方式，然后输入相关查询的信息，该窗体就可以显示出你要查询的人员的相关情况，包括编号、姓名、出生年月、退休时间等信息。窗体如图13所示。图13 离退休人员查询窗体相关代码：OpenDb 人事数据库.mdb, DbCombo1.ClearCombo1.AddItem 编号, 0Combo1.AddItem 姓名, 1Combo1.AddItem 性别, 2Combo1.AddItem 政治面貌, 3Combo1.AddItem 所属部门, 4Combo1.AddItem 民族, 5Combo1.AddItem 所属单位, 6Combo1.AddItem 工龄, 7Combo1.AddItem 文化程度, 8Combo1.ListIndex = 0Data1.RecordSource = 离退休人员基本状况表Data1.RefreshSet Rst = Db.OpenRecordset(离退休人员基本状况表, dbOpenDynaset)End Sub3.5.3报表打印窗体该窗体主要用于打印离退休人员基本状况的报表。窗体如图14所示。图14 离退休人员基本状况打印窗体3.6系统工资管理模块设计3.6.1信息录入窗体该窗体用于完成员工资的录入工作。窗体装载时，将自动显示数据库中的第一条记录。当点击“应发工资”按钮后，将会显示工资额；当点击“实发工资”按钮后，系统将根据应发工资减去其它项进行计算，然后显示出来；“保险费”一项也是根据应发工资计算出来的。窗体如图15所示。图15 工资录入窗体相关代码：Private Sub Form_Load()Dim sPath As StringOpenDb 人事数据库.mdb, DbsPath = Right(Trim(App.Path), 1)If sPath Then Data1.DatabaseName = App.Path + 人事数据库.mdbElse Data1.DatabaseName = App.Path + 人事数据库.mdbEnd IfData1.RecordSource = 工资表Data1.RefreshSet Rst = Db.OpenRecordset(工资表)Set MyRst = Db.OpenRecordset(工资表, dbOpenDynaset)End sub3.6.2信息查询窗体该窗体主要用于查询工资的相关信息，比如基本工资、奖金、津贴、住房补贴、其它相关费用、开支日期等。窗体如图16所示。图16 工资查询窗体相关代码：Private Sub Form_Load()Dim sPath As StringOpenDb 人事数据库.mdb, DbCombo1.ClearCombo1.AddItem 编号, 0Combo1.AddItem 姓名, 1Combo1.ListIndex = 0sPath = Right(Trim(App.Path), 1)If sPath Then Data1.DatabaseName = App.Path + 人事数据库.mdbElse Data1.DatabaseName = App.Path + 人事数据库.mdbEnd IfData1.RecordSource = 工资表Data1.RefreshSet Rst = Db.OpenRecordset(工资表, dbOpenDynaset)End Sub3.6.3报表打印窗体利用DataReport控件生成报表，根据录入到数据库中的信息，打印出职工的工资明细表。窗体如图17所示。图17 工资报表打印窗体3.7系统保险管理模块设计3.7.1养老保险与其它查询窗体功能相似，在下拉列表框中选择