《人事管理系统》说明书

太原科技高校成人教育学院2005届本科毕业设计说明 书 关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf 第PAGE1页共NUMPAGES39页摘要由于各种缘由，现在我们大齿集团公司的人事档案的管理水平还停留在计算机加纸介质办公的尴尬境界，这样的机制已经不能适应时代的飞速进展，由于这种管理水平不能充分发挥先进的高性能计算机的作用，同时又铺张了很多人力和办公用品，在信息时代若想取代这种不合理的管理方法就必需由我们生疏企业内部特点的新一代青年人为企业分忧解难，开发出符合企业管理特点的软件，利用毕业设计的实践活动开发出一个符合企业管理特点的有用程序，既检验我们所学的学问，完成毕业设计，又能挂念公司进行更有效的人事管理。系统设计的指导思想是，针对大齿集团公司的实际境况开发，有用性强。公司内部实现信息化、可视化管理，充分考虑到公司的集成化管理进展的需要。力求使这个系统具有良好的人机沟通界面，符合公司人事管理的实际需要，可操作性强，运行速度快，数据平安牢靠。·具体系统功能需求描述(1)档案信息管理供应对”人员档案信息”数据输入、查询功能。(2)工资管理供应对”职工工资表”数据的输入、查询、统计功能，并能快速为企业财务部门快速供应工资变更信息。(3)工资统计供应对“职工工资表”数据的月统计，由系统自行生成“职工工资构成状况表”实现该表的查询、打印功能。(4)部门查询供应以某一部门为索引的”人员档案信息”查询功能。(5)特殊查询供应对日期型字段和 合同 劳动合同范本免费下载装修合同范本免费下载租赁合同免费下载房屋买卖合同下载劳务合同范本下载 期限的”人员档案信息”查询功能。(6)报表查询供应对工资、职工履历的信息以报表的形式供用户查询、打印，另外用户还可以对这些基本信息进行保存名目的选择，使信息更加平安，依据肯定的权限使作废能便利地更新信息和删除无用数据。由于毕业设计时间较短，我们对VB程序的生疏还不够深刻这次的成果还有很多的不足需要我们在以后去提高。关键词：管理系统，信息检索，人力资源，主键，窗口。前言随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻生疏，它已进入人类社会的各个领域并发挥着越来越重要的作用。尤其是信息系统随着计算机技术和网络技术等信息技术的进展而不断的进展，管理信息系统MIS，决策支持系统DSS，总裁信息系统EIS，办公自动化系统OA，国际电子商贸系统EDI等等层出不穷，在国际交往，企业管理中发挥着越来越重要的作用，例如人们熟知的办公自动化系统OA，极大地提高了我们的办公效率，但仍旧与我们传统的中华文化有着不小的差异，其他国际企业界较为流行的决策支持系统DSS，总裁信息系统EIS等，由于大多由国外软件商开发而成与我国的国情相比有很大的差异，不能发挥全部的作用，甚至被多数企业束之高阁。由于我国社会制度的特殊性，人事管理系统就更加没有现成的可直接使用的管理系统。作为计算机应用的一部分，使用计算机对人事劳资信息进行管理，具有着用手工管理所无法比拟的优点。例如:检索快速、查找便利、牢靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事劳资管理的效率，也是企业的科学化、正规化管理，与世界接轨的重要条件。人事管理系统是一个企业单位不行缺少的部分，它的内容对于企业的决策者和管理者来说都至关重要，所以人事劳资管理系统应当能够为用户供应充分的信息和快捷的查询手段。但始终以来人们使用传统人工的方式管理文件档案，这种管理方式存在着很多缺点，如：效率低、保密性差，另外时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。因此，开发这样一套管理软件成为很有必要的事情，在下面的各章中我们将以开发这套符合企业管理需要的人事管理系统为题目，谈谈这次毕业设计的选题思路与设计实践过程和所涉及到的问题及解决方法。第一章绪论1.1信息化的进展随着人类迈入二十一世纪，计算机技术、通信技术、网络技术为代表的现代信息技术的飞跃进展，人类正在从工业时代向信息时代迈进，人们越来越重视信息资源的开发和利用，”信息化”已成为一个国家经济和社会进展的关键环节，信息化水平的凹凸已成为衡量一个国家现代化水平和综合国力的重要标志，信息化的实质是使信息━━这一社会的主导资源充分发挥作用，可以说推广信息技术是手段，真正利用信息是目的，信息化则是实现目的的过程。1993年，美国提出建立“信息高速大路”，有称国家信息基础设施（NII）的 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 ，其核心是建立全国的高速网络，把全部的计算机网络连接起来。这个方案的实现将对经济和社会生活产生重大的影响，由此引起的信息化建设浪潮已波及世界各国。我国自1983年大力推广微型计算机应用以来，在管理信息领域，无论在理论方面，还是在实践方面都有了很大的进展。1986年2月国务院批准建设了国家经济信息系统，全国从中心到省、市地方都间续成立了信息中心，各行各业应用电子计算机的热忱普遍高涨。目前，已从单项业务的信息管理快速向综合的管理层和决策层的信息管理进展，应用水平日趋提高；以金桥工程、金关工程和金卡工程为代表的国民经济信息工程也正在加速建设。1.2系统开发背景由于前言中所阐述的缘由，现在我们大齿集团公司的人事档案的管理水平还停留在计算机加纸介质办公的尴尬境界，这样的机制已经不能适应时代的飞速进展，由于这种管理水平不能充分发挥先进的高性能计算机的作用，同时又铺张了很多人力和办公用品，在信息时代若想取代这种不合理的管理方法就必需由我们生疏企业内部特点的新一代青年人为企业分忧解难，开发出符合企业管理特点的软件。我们作为学习计算机信息管理的高校生，期望可以在这方面有所贡献。我们期望能用两年来所学的学问，利用毕业设计的实践活动开发出一个符合企业管理特点的有用程序，既检验我们所学的学问，完成毕业设计，又能挂念公司进行更有效的人事管理。归纳起来，好处大约有以下几点：1．可以存储全部职工的人事档案和工资档案，平安、高效地管理企业的人力资源，并期望今后成为企业决策管理系统的一部分，联机并网，发挥更大的作用；2．只需一到二名录入员即可操作系统，节省大量人力，通过企业内部局域网省去打印环节即可直接猎取人力资源信息，即高效，又节省；3．各部门负责人依据权限级别，可以快速查到所需人力资源信息。1.3课题争辩的目的人事管理系统是一个企业单位不行缺少的部分,它的内容对于企业的决策者和管理者来说都至关重要,所以人事管理系统应当能够为用户供应充分的信息和快捷的查询手段。但始终以来人们无法脱离传统人工的方式管理档案文件，克服落后的管理方式存在着的很多缺点,如:效率低、保密性差，另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。就是由于没有一套完整的适应企业管理特点的系统。作为计算机应用的一部分,使用计算机对人事劳资信息进行管理,具有着手工管理所无法比拟的优点.例如:检索快速、查找便利、牢靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事劳资管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。1.4系统设计的指导思想针对大齿集团公司的实际境况开发，有用性强。公司内部实现信息化、可视化管理，充分考虑到公司的集成化管理进展的需要。使这个系统具有良好的人机沟通界面，可操作性强，运行速度快，数据平安牢靠，其次章开发人事管理系统的问题2.1人事管理系统的简介人事管理系统是针对人事部的大量业务处理工作而开发的管理软件。依据用户的要求，在大量调查争辩的基础上充分考虑各种企业特色需求来实现人员基本状况管理、和工资管理高效查询，资源共享等几个方面的功能。设计出符合企业需要的管理模块，使用户通过输入工资、职工履历等基本信息，由系统自行生成相应的统计数据及各类统计报表以供用户查询、打印，另外用户还可以对这些基本信息进行定期的更新和删除，人事管理系统力求给用户便利快捷的途径去管理这些繁琐的数据。·总体功能需求人事管理系统是针对人事处的大量业务处理工作用计算机进行全面现代化管理。主要包括人员基本状况管理、和工资管理的高效查询，资源共享等几个方面的功能，以实现用户便利的输入、查询、统计、打印相关报表的业务需求。·具体系统功能需求描述(1)档案信息管理供应对”人员档案信息”数据输入、查询功能。(2)工资管理供应对”职工工资表”数据的输入、查询、统计功能，并能快速为企业财务部门快速供应工资变更信息。(3)工资统计供应对“职工工资表”数据的月统计，由系统自行生成“职工工资构成状况表”实现该表的查询、打印功能。(4)部门查询供应以某一部门为索引的”人员档案信息”查询功能。(5)特殊查询供应对日期型字段和合同期限的”人员档案信息”查询功能。(6)报表查询供应对工资、职工履历的信息以报表的形式供用户查询、打印，另外用户还可以对这些基本信息进行保存名目的选择，使信息更加平安，依据肯定的权限使作废能便利地更新信息和删除无用数据。第三章人事管理系统的 分析 定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析 和设计3.1人事管理系统的分析和概要设计依据实际状况，我们使用原型法（RapidPrototyping）即以少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后接受循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质渐渐增加上去，直到全部的性质全部满足。此时模块也进展成为最终产品了。通过对用户需求的分析，我们可以分析出该人事管理系统大致可以分为六个模块：人事档案管理模块、职工工资管理模块、工资统计模块的实现、部门查询模块、特殊查询模块、报表查询模块。现在对这六个模块做具体说明：人事基本状况管理模块：输入：职工信息输出：“人员档案表”功能：对人事基本信息的查询职工工资管理模块输入：人员月工资输出：“职工工资表”功能：完成员工工资的查询工资统计模块输出：“职工工资统计表”功能：完成员工工资的统计和打印部门查询模块输出：以部门为索引的“职工档案信息”功能：完成以部门为索引的“职工档案信息”的统计和查询特殊查询模块的实现输出：满足查询条件的“职工档案信息”和职工合同的期限功能：完成满足查询条件的“职工档案信息”和职工合同的期限的查询报表查询模块的实现输出：员工履历信息和工资信息的基本状况查询及打印功能功能：完成对员工履历信息和工资信息基本状况的查询及打印3.2人事管理系统数据库设计由于考虑到本系统初始阶段是应用在单机系统上，与完成毕业设计时间短的关系，我们先只建立起一个数据库，在此数据库基础上建立起如下表：　·职工基本信息表　　employee_information_table　·职工工资表employee_salary_table　·系统信息表system_table下面我们具体说明：·职工基本信息表　　employee_information_table主键：职工编号Workercode列名（中文）列名（英文）数据类型宽度小数点位数是否为空职工编号WorkercodeStringNo部门DepartmenStringNo职务PrincipalshipStringNo职工姓名NameStringNo身份证号IDStringNo性别SexStringNo诞生日期BirthDayDate8No婚否MarryStringNo文化程度Wen_HuaStringNo政治面目Zheng_MianStringNo毕业时间Time_GruduationDate8　No毕业学校School_GruduationStringNo所学专业SpecialityStringNo联系电话Contact_telephoneStringYes籍贯Native_placeStringYes民族FolkStringYes家庭地址AddressStringNo邮政编码Post_NO。StringYes如单位时间Time_inputDate8Yes合同期限Qi_XianInteger2Yes职称Zhi_ChengStringNo评定时间Assess_TimeDate照片PhotoBinaryYes备注MemoMemoNo·职工工资表employee_salary_table主键：职工编号Workercode，日期Date列名（中文）列名（英文）数据类型宽度小数点位数是否为空职工编号WorkercodeStringNo职工姓名NameStringNo年/月Year/monthStringNo技能工资Salary_jnDouble82No工龄工资Salary_glDouble82Yes岗位工资Salary_gwDouble82Yes职务工资Salary_zhwDouble82Yes洗理费Charge_xlDouble82Yes房屋补贴Subsidy_fwDouble82Yes交通补贴Subsidy_jtDouble82Yes价格补贴Subsidy_priceDouele82Yes工会会费Charge_ghDouble82Yes房屋租金Charge_fwDouble82Yes养老保险Insurance_ylDouble82Yes建房扣款KK_jfDouble82Yes扣款KKDouble82Yes实发工资Salary_sfDouble82No·系统信息表system_table主键：用户名Useid列名（中文）列名（英文）数据类型宽度小数点位数是否为空用户名UsenameStringYes密码PasswordStringYes第四章人事管理系统的具体实现4.1模块化的开发环境的简介_VisualBasicVisualBasic是在Windows环境中广泛使用的应用程序设计语言，它以Basic语言基础，具有可视化、面对对象程序设计、大事驱动机制等特点。可视化程序设计是指开发图形用户界面的一种方法，使用这种方法，编程人员不必编写大量的代码去描述用户界面上元素的位置和外观，比如命令按钮、文本框、组合框等元素，编程人员只需在“可视”的编程环境下，用鼠标将VB中预先建立的界面元素拖放到用户图形界面的适应位置上，并且用鼠标还可直接修改用户界面上元素的外观等特性。接受可视化程序设计方法，大大的削减了编程人员的编码工作量，并能轻松快捷地设计出友好的用户界面，从而提高应用程序的开发效率。VisualBasic是一种面对图形用户界面的、交互性讲的可视编程工具。4.1.1大事驱动的应用程序VisualBasic使用的是一种“大事驱动”机制。所谓“大事驱动”机制是指Windows应用程序是通过大事来驱动运行的，当用户或者系统触发对象的某个大事时，系统自动地执行与该大事相关的一段代码来响应，完成特定的功能。例如，用户界面上有一个命令按钮，当用户单击该按钮时，命令按钮将触发大事，而当该大事发生时，由系统自动执行一段与该大事相应的代码，完成指定的操作，当该操作完成后，应用程序将暂停，等待狭义大事的发生。在“大事驱动”机制下，应用程序的执行过程完全由对象大事驱动实现，与传统的面对过程的应用程序的执行过程完全不同。4.1.2面对对象的编程VisualBasic接受面对对象技术，利用对象的属性、大事和方法进行程序设计，从而　实现应用程序的特定需要。在VisualBasic中，对象无处不在，窗体、命令按钮、文本框、组合框等用于设计用户图形界面的元素都是对象。利用VisualBasic的对象编程技术，就好像在一块空白的画布上，通过设置对象的属性，使用对象的方法，编程对象的大事过程，将系统预先建立的对象，依据设计要求将它们有机地组合起来，勾画出一幅完善的图画，从而完成用户需求。4.2系统模块的具体实现在本系统中有六个模块组成。它们分别是员工基本信息模块、员工工资管理模块、工资统计模块的实现、部门查询模块的实现、特殊查询模块的实现、报表查询模块的实现，下面就开发这几个模块的过程及所遇到的问题分别加以介绍。1人事档案信息模块履历表该模块主要完成员工基本信息的录入、查询、统计及打印功能。(其流程图如图3.2.1.1所示)源文件主文件更新模块更新文件计算机打印模块人事变动资料图4.2.1.1人事系统档案信息系统流程图该模块部分功能源代码如下：OptionExplicitPrivateDeclareFunctionGetMenuLib"user32"(ByValhwndAsLong)AsLongPrivateDeclareFunctionGetSubMenuLib"user32"(ByValhMenuAsLong,ByValnPosAsLong)AsLongPrivateDeclareFunctionSetMenuItemBitmapsLib"user32"(ByValhMenuAsLong,ByValnPositionAsLong,ByValwFlagsAsLong,ByValhBitmapUncheckedAsLong,ByValhBitmapCheckedAsLong)AsLongConstmyflag=&H800&Dimadd,alertAsIntegerPrivateSubaa()…PrivateSubCombo6_Click()SelectCaseCombo6.TextCase"生产部"Combo7.ClearCombo7.AddItem"经理"Combo7.AddItem"主管"Combo7.AddItem"职员"Combo7.Text=Combo7.List(0)…Case"总经理室"Combo7.ClearCombo7.AddItem"总经理"Combo7.AddItem"秘书"Combo7.Text=Combo7.List(0)EndSelectEndSubPrivateSubCombo7_Change()EndSub…PrivateSubData1_Reposition()IfData1.Recordset.RecordCount=0ThenElseIfCombo6.Text="生产部"ThenCombo7.ClearCombo7.AddItem"经理"Combo7.AddItem"主管"Combo7.AddItem"职员"Combo7.Text=Data1.Recordset("职务")Else…Combo7.ClearCombo7.AddItem"经理"Combo7.AddItem"主管"Combo7.AddItem"职员"Combo7.Text=Data1.Recordset("职务")EndIf…EndIf…EndSubPrivateSubTimer1_Timer()Label29.Caption=timeEndSub4.2.2工资管理模块该模块是完成对员工的工资信息的输入、查询、并以此进行统计获得“职工实发工资”。此模块主要包括工资录入、职工实发工资统计和职工工资总额信息，后两者是通过点击汇总和统计工资按钮获得。(其流程图如图4.2.2.1所示)扣款单工资单主文件更新模块上月主文件本月主文件计算机打印模块工资表图4.2.1.1人事系统工资信息系统流程图　此窗口“职工工资统计表”的数据源均是从数据库EMPOYEE_SAL表。该模块部分功能源代码如下：PrivateSubCommand1_Click()Dima(1To15)AsDoubleOnErrorGoToa0IfText6.Text=“”ThenText6.Text=“0.00”EndIfIfText7.Text=“”ThenText7.Text=“0.00”EndIfIfText8.Text=“”ThenText8.Text=“0.00”EndIfIfText9.Text=“”ThenText9.Text=“0.00”EndIfIfText10.Text=“”ThenText10.Text=“0.00”EndIfIfText11.Text=“”ThenText11.Text=“0.00”EndIfIfText12.Text=“”ThenText12.Text=“0.00”EndIfIfText13.Text=“”ThenText13.Text=“0.00”EndIfIfText14.Text=“”ThenText14.Text=“0.00”EndIfIfText15.Text=“”ThenText15.Text=“0.00”EndIfIfText16.Text=“”ThenText16.Text=“0.00”EndIfIfText18.Text=“”ThenText18.Text=“0.00”EndIfIfText19.Text=“”ThenText19.Text=“0.00”EndIfa(1)=CDbl(Text6.Text)a(2)=CDbl(Text7.Text)a(3)=CDbl(Text8.Text)a(4)=CDbl(Text9.Text)a(5)=CDbl(Text10.Text)a(6)=CDbl(Text11.Text)a(7)=CDbl(Text12.Text)a(8)=CDbl(Text13.Text)a(9)=CDbl(Text14.Text)a(10)=CDbl(Text15.Text)a(11)=CDbl(Text16.Text)a(12)=CDbl(Text18.Text)a(13)=CDbl(Text19.Text)a(14)=a(1)+a(2)+a(3)+a(4)+a(5)+a(6)–a(7)–a(8)–a(9)–a(10)+a(11)+a(12)+a(13)Text17.Text=a(14)ExitSuba0:MsgBox“工资各项数值不能为字符串”,vbOKOnly,“提示信息”EndSubPrivateSubCommand10_Click()OnErrorGoToa0DimaAsString,bAsString,cAsString,wwAsStringIfText21.Text=“”ThenMsgBox“请输入查找条件”Text21.SetFocusExitSubEndIfa=Combo5.Textb=Text21.Textc=a&“Like‘”&b&“’”Data1.Recordset.FindNextcIfData1.Recordset.NoMatchThenMsgBox“找不到与条件相符的记录”,vbOKOnly,“提示信息”Elseww=Data1.Recordset(“职工编号”)ww=“职工编号like‘”&ww&“’”Data3.Recordset.FindFirstwwEndIfIfData1.Recordset.BOFOrData1.Recordset.EOFThenData1.Recordset.MoveLastData3.Recordset.MoveLastEndIfExitSuba0:‘MsgBox“找不到与条件相符的记录”,vbOKOnly,“提示信息”EndSub4.2.3工资统计模块的实现该模块是对职工工资信息以部门为索引进行汇总，然后进行统计得到“全体职工工资总额”，并供应打印功能。该模块部分功能源代码如下：PrivateSubForm_Activate()OnErrorGoToa0Dima,b,ca=0IfData1.Recordset.RecordCount=0ThenExitSubEndIfData1.Recordset.MoveFirstDoUntilData1.Recordset.EOFb=Data1.Recordset("实发工资")a=a+bData1.Recordset.MoveNextLoopLabel35.Caption=aLabel25.Caption=Data1.Recordset.RecordCounta=0b=0c=0Data1.Recordset.MoveFirstData1.Recordset.FindFirst"职工编号like'GDCW*'"DoUntilData1.Recordset.NoMatcha=a+1b=Data1.Recordset("实发工资")c=b+cData1.Recordset.FindNext"职工编号like'GDCW*'"LoopLabel16.Caption=aLabel26.Caption=ca=0b=0c=0Data1.Recordset.MoveFirstData1.Recordset.FindFirst"职工编号like'GDYY*'"DoUntilData1.Recordset.NoMatcha=a+1b=Data1.Recordset("实发工资")c=b+cData1.Recordset.FindNext"职工编号like'GDYY*'"LoopLabel17.Caption=aLabel27.Caption=ca=0b=0c=0Data1.Recordset.MoveFirstData1.Recordset.FindFirst"职工编号like'GDGC*'"DoUntilData1.Recordset.NoMatcha=a+1b=Data1.Recordset("实发工资")c=b+cData1.Recordset.FindNext"职工编号like'GDGC*'"LoopLabel18.Caption=aLabel28.Caption=ca=0b=0c=0Data1.Recordset.MoveFirstData1.Recordset.FindFirst"职工编号like'GDSC*'"DoUntilData1.Recordset.NoMatcha=a+1b=Data1.Recordset("实发工资")c=b+cData1.Recordset.FindNext"职工编号like'GDSC*'"LoopLabel19.Caption=aLabel29.Caption=ca=0b=0c=0Data1.Recordset.MoveFirstData1.Recordset.FindFirst"职工编号like'GDRS*'"DoUntilData1.Recordset.NoMatcha=a+1b=Data1.Recordset("实发工资")c=b+cData1.Recordset.FindNext"职工编号like'GDRS*'"LoopLabel20.Caption=aLabel30.Caption=ca=0b=0c=0Data1.Recordset.MoveFirstData1.Recordset.FindFirst"职工编号like'GDBA*'"DoUntilData1.Recordset.NoMatcha=a+1b=Data1.Recordset("实发工资")c=b+cData1.Recordset.FindNext"职工编号like'GDBA*'"LoopLabel21.Caption=aLabel31.Caption=ca=0b=0c=0Data1.Recordset.MoveFirstData1.Recordset.FindFirst"职工编号like'GDZW*'"DoUntilData1.Recordset.NoMatcha=a+1b=Data1.Recordset("实发工资")c=b+cData1.Recordset.FindNext"职工编号like'GDZW*'"LoopLabel22.Caption=aLabel32.Caption=ca=0b=0c=0Data1.Recordset.MoveFirstData1.Recordset.FindFirst"职工编号like'GDGH*'"DoUntilData1.Recordset.NoMatcha=a+1b=Data1.Recordset("实发工资")c=b+cData1.Recordset.FindNext"职工编号like'GDGH*'"LoopLabel23.Caption=aLabel33.Caption=ca=0b=0c=0Data1.Recordset.MoveFirstData1.Recordset.FindFirst"职工编号like'GDJL*'"DoUntilData1.Recordset.NoMatcha=a+1b=Data1.Recordset("实发工资")c=b+cData1.Recordset.FindNext"职工编号like'GDJL*'"LoopLabel24.Caption=aLabel34.Caption=ca0:EndSubPrivateSubForm_Load()DimaAsInteger,bAsIntegera=Year(Date)b=Month(Date)Label36.Caption=""&a&"年"&b&"月"EndSubPrivateSubLabel10_Click()OnErrorGoToa0Data2.Recordset.EditData2.Recordset("bm")="生产部"Data2.Recordset.Updatea0:Form12.ShowEndSub…PrivateSubLabel9_Click()OnErrorGoToa0Data2.Recordset.EditData2.Recordset("bm")="人事部"Data2.Recordset.Updatea0:Form12.ShowEndSubPrivateSubmnuprint_Click()OnErrorGoToa0Me.PrintForma0:EndSubPrivateSubmnuquit_Click()UnloadMeEndSub4.2.4部门查询模块的实现该模块是对部门为索引的“职工档案信息”进行查询，凡符合查找要求的职工将基本信息显示出来，如要了解更多的信息可单击该人员的职工编号可进行进一步的查询。该模块部分功能源代码如下：OptionExplicitDimrecoAsInteger,XAsInteger,YAsInteger,zAsIntegerPrivateSubCommand1_Click()OnErrorGoToa0DimaAsString,bAsString,cAsStringa=Combo1.TextCommand2.Enabled=FalseCommand3.Enabled=FalseIfCombo1.Text=""ThenMsgBox"请输入查找条件"Combo1.SetFocusExitSubEndIfLabel9.Caption=""Label10.Caption=""…Label68.Caption=""Label69.Caption=""a=Combo1.Textc="部门Like'"&a&"'"Data1.Recordset.FindFirstcIfData1.Recordset.NoMatchThenExitSubElseLabel9.Caption=Data1.Recordset("职工编号")b=Data1.Recordset("职工编号")Label29.Caption=Data1.Recordset("职工姓名")Label39.Caption=Data1.Recordset("性别")Label49.Caption=Data1.Recordset("部门")Label59.Caption=Data1.Recordset("职务")b="职工编号Like'"&b&"'"Data2.Recordset.FindFirstbLabel69.Caption=Data2.Recordset("实发工资")reco=1EndIfIfData1.Recordset.BOFThenData1.Recordset.MoveFirstEndIfIfData1.Recordset.EOFThenData1.Recordset.MoveLastEndIfData1.Recordset.FindNextcIfData1.Recordset.NoMatchThenExitSubElseLabel10.Caption=Data1.Recordset("职工编号")b=Data1.Recordset("职工编号")Label28.Caption=Data1.Recordset("职工姓名")Label38.Caption=Data1.Recordset("性别")Label48.Caption=Data1.Recordset("部门")Label58.Caption=Data1.Recordset("职务")b="职工编号Like'"&b&"'"Data2.Recordset.FindFirstbLabel68.Caption=Data2.Recordset("实发工资")reco=reco+1EndIfIfData1.Recordset.BOFThenData1.Recordset.MoveFirstEndIfIfData1.Recordset.EOFThenData1.Recordset.MoveLastEndIf…IfData1.Recordset.BOFThenData1.Recordset.MoveFirstEndIfIfData1.Recordset.EOFThenData1.Recordset.MoveLastEndIfCommand3.Enabled=TrueCombo1.Locked=Truez=0ExitSuba0:MsgBox"找不到与条件相符的记录",vbOKOnly,"提示信息"EndSub…PrivateSubLabel9_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfLabel9.Caption=""ThenLabel9.MousePointer=0ExitSubElseLabel9.MouseIcon=Image1.PictureLabel9.MousePointer=99EndIfEndSubPrivateSubmnuquit_Click()UnloadMeEndSubPrivateSubTimer1_Timer()Label2.Caption=timeEndSub4.2.5特殊查询模块的实现该模块是对日期型字段和合同期限的”人员信息”进行查询。对日期型字段的查询具体表现为：系统将按用户所需的查找范围进行查询，并将查找的信息显示出来。如要了解更多的信息可双击该人员的职工编号可进行进一步的查询。对合同期限的查询具体表现为：系统将职工的“入单位时间”字段、“合同期限”字段和当前日期进行计算得到合同期限的剩余时间，并将查找的信息显示出来。如该时间小于等于零，将“合同期限”反显伴有报警声消灭。如要了解更多的信息可双击该人员的职工编号可进行进一步的查询。该模块部分功能源代码如下：OptionExplicitDimrecoAsInteger,XAsInteger,YAsInteger,zAsIntegerPrivateSubCombo1_Click()DimaAsStringa=Combo1.TextLabel3.Caption=aEndSubPrivateSubCommand7_Click()Text31.Locked=FalseText32.Locked=FalseCombo1.Locked=FalseCommand1.Enabled=FalseCommand2.Enabled=FalseEndSubPrivateSubForm_Load()Timer1.Interval=1000Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseText31.Locked=TrueText32.Locked=TrueCombo1.Locked=TrueEndSubPrivateSubImage3_Click()Image4.Picture=Image2.PictureImage3.Picture=Image1.PictureLabel3.Caption="合同期限(天)"Command4.Enabled=True'Command5.Enabled=True'Command6.Enabled=TrueExitSubEndIfb=Data1.Recordset("入单位时间")Text3.Text=Data1.Recordset("职工编号")Text4.Text=Data1.Recordset("职工姓名")Text22.Text=CInt(Data1.Recordset("合同期限"))*365-(a-b)IfCInt(Data1.Recordset("合同期限"))*365-(a-b)<1ThenText22.BackColor=&HC0FFFFBeepEndIfData1.Recordset.MoveNextIfData1.Recordset.EOFThenExitSubEndIf4.2.6报表查询模块的实现该模块的功能是对员工履历信息和工资信息基本状况以报表的形式查询及打印。实现方法是将“职工基本信息表”(employee_information_table)和“职工工资表”(employee_salary_table)用DataGrid控件进行显示。打印功能是接受了CrystalReports控件将数据库中内容先生成(*.rpt)文件然后在进行打印。该模块部分功能源代码如下：OptionExplicitPrivateDeclareFunctionGetMenuLib"user32"(ByValhwndAsLong)AsLongPrivateDeclareFunctionGetSubMenuLib"user32"(ByValhMenuAsLong,ByValnPosAsLong)AsLongPrivateDeclareFunctionSetMenuItemBitmapsLib"user32"(ByValhMenuAsLong,ByValnPositionAsLong,ByValwFlagsAsLong,ByValhBitmapUncheckedAsLong,ByValhBitmapCheckedAsLong)AsLongConstmyflag=&H800&PrivateSubForm_Load()DimmhandleAsLong,lretAsLong,shandleAsLongmhandle=GetMenu(hwnd)shandle=GetSubMenu(mhandle,0)lret=SetMenuItemBitmaps(shandle,2,myflag,Image1.Picture,Image1.Picture)lret=SetMenuItemBitmaps(shandle,3,myflag,Image1.Picture,Image1.Picture)DBGrid2.Visible=FalseEndSubPrivateSubmnuexit_Click()UnloadMeEndSubPrivateSubmnuin_Click()DBGrid1.Visible=TrueDBGrid2.Visible=FalseEndSubPrivateSubmnul_Click()OnErrorGoToa0rpt1.Action=1a0:EndSubPrivateSubmnus_Click()OnErrorGoToa0rpt2.Action=1a0:EndSubPrivateSubmnut_Click()DBGrid2.Visible=TrueDBGrid1.Visible=FalseEndSub4.3系统开发的其他方面在这一节中，我们主要争辩了两个问题，一个是系统的联机文档，另一个是系统的测试，下面我们分别加以说明。作为一个完整的系统，联机文档是其中不行缺少的部分也是相当重要的部分。好的文档能够使用户快速了解并精确     的使用系统的各项功能。削减误操作，削减错误产生的可能，这对用户和开发人员都有很多的好处。所以在开发本系统中，也加入了不少的文档，除了对于三大模块的具体说明外，对于易出错和不易操作的地方又作了具体的说明。由于本身力量的局限性，所以做编写的代码，即使经过反复检查也难免出错所以在本阶段力求使用有限的时间找出尽可能多的错误，力求系统尽量正确。我们在本系统的测试中使用了黑盒法（即不关怀程序内部的规律结构，而是依据程序的功能来设计是检测）请一位不生疏本系统的人来进行任凭性的操作，打破习惯的操作挨次，从中发觉错误，在此阶段系统的大量错误得到了改正。第五章人事管理系统的运行环境·软件环境：Windows95/98/ME或者WindowsNT4.0/2000/XP及以上版本。·硬件环境：Pentium133或更高档的处理机；3.5寸软盘驱动器；VGA或更高辨别率的监视器；16MB内存或32MB内存(WindowsNT)。·硬盘空间：至少需要10MB空间。第六章：人事管理系统的程序开发程序开发：本次毕业设计是使用VB编程，完成人事管理的一系列问题。由于对VB的了解并不格外深化，所以在毕业设计中消灭了很多问题。首先，对人事管理的需要做进一步了解，了解用户的需求。其次，是对于模块的设计。利用VB开发程序是为了削减计算机硬件的需求，适应各个公司的经济需要，削减开资。在程序开发的过程中由于自身的力量也消灭了这样那样的问题，但是在指导老师的指导下都已一一解决。比如如何削减操作错误，削减数据冗余。在对程序开发的过程中我了解到自身力量的不足，还应加强对程序开发的学习。第七章结束语经过两个多月的设计和开发，人事管理系统基本开发完毕。其功能基本符合用户需求，能够完成员工基本信息、工资的输入和统计。以及各类相关报表的打印。同时也考虑到了单位编码以削减数据冗余的问题，对于数据的全都性的问题也通过程序进行了有效的解决。但是由于毕业设计时间较短，所以该系统还有很多不尽如人意的地方，比如用户界面不够美观，出错处理不够等多方面问题。这些都有待进一步改善。各位领导：在本次毕业设计中，我们使用了VB语言。但我对VB语言并不格外了解，在这方面我的指导老师任老师为我供应了充分的指导。他认真的为我讲解不理解的地方，指出我的错误。人事管理系统的开发成功是与任老师的付出所分不开的，因此我要再次感谢我的指导老师为我们所付出的一切。此致感谢常静柴霞王利斌胡润花梁晓云2007年11月集体於太原科技高校成人教育学院参考文献[1]VisualBasic编程基础与应用董宛清华高校出版社2002年[2]活用VisualBasic5.0数据库编程陈俊源、王一华清华高校出版社1998年[3]数据库原理及应用毛　军　王清心　唐云锦重庆：重庆高校出版社，1997[4]基于数据仓库的决策支持系统框架．系统工程理论与实践谢　榕