现代企业人才管理系统样本样本

当代公司人才管理系统摘要本论文是从当代公司管理中人才管理现状出发，针对人才管理复杂程序，通过详细系统调查，开发出操作简朴并且以便实用一种人才管理系统。

本系统前端开发工具是VisualBasic6.0，后台数据库引擎选用数据库软件Access。

本系统通过测试，运营稳定，已得到承认。核心词：人才管理系统，VisualBasic6.0，Access

SummaryManagethecurrentsituationandsetoutfromtalentinmodernbusinessadministrationinthisthesis，totalentcomplicatedprocedureofmanagement，investigatethroughdetailedsystemoperationsimpleandconvenientpracticalonetalentadministrativesystemthatdevelop.ThefrontdevelopinginstrumentofthissystemisVisualBasic6.0，backstagesupporter'sdatabaseengineselectsthedatabasesoftwareAccessforuse.Thissystemrunssteadily，hasalreadybeenapprovedthroughtesting.Keyword：Talent'sadministrativesystem，VisualBasic6.0，Access前言

随着计算机技术不断发展，计算机作为知识经济时代产物，已被广泛应用于社会各个行业和领域。随着国内国企改革进一步和社会主义市场经济日趋繁华，导致各公司间竞争日益激烈，迫使公司采用先进计算机硬件设备以及高质量辅助软件来管理公司各项运作，以提高本公司劳动生产率以及人员效率。人才管理系统软件作为一种理软件正在各企事业单位中得到越来越广泛应用。

目录摘要…………………………1前言…………………………2绪论…………………………4第一章人才管理系统概述第二章如何开发一种学生档案管理系统？

2.1编程环境选取

2.2关系型数据库实现

2.3两者结合（DBA）第三章使用Access实现关系型数据库

3.1数据库概念

3.2新建一种数据库

3.3修改已建数据库

3.4实现数据库之间联系第四章:人才管理系统分析4.1可行性分析4.2系统数据流程图4.3数据字典第五章:人才管理系统设计5.1系统功能模块图5.2数据库设计5.3界面设计5.4程序设计第六章:系统测试第七章:系统使用阐明第八章：结束语第九章：参照文献第十章：程序源代码绪论设计名称：人才管理系统2、开发单位:葫芦岛广播电视大学3、开发期限:3.8-4.284、设计目的:近期目的:在5.1之前能达到基本人才管理信息录入,管理以及打印.长期目的:在3年之内可以完善软件所有功能,实行软件长运经济战略.人才管理系统概述人力资源管理系统发展历史可以追溯到20世纪60年代末期。由于当时计算机技术已经进入实用阶段，同步大型公司用手工来计算和发放薪资既费时费力又非常容易出差错，为理解决这个矛盾，第一代人力资源管理系统应运而生。当时由于技术条件和需求限制，顾客非常少，并且那种系统充其量也只但是是一种自动计算薪资工具，既不包括非财务信息，也不包括薪资历史信息，几乎没有报表生成功能和薪资数据分析功能。但是，它浮现为人力资源管理展示了美好前景，即用计算机高速度和自动化来代替手工巨大工作量，用计算机高精确性来避免手工错误和误差，使大规模集中解决大型公司薪资成为也许……第二章如何开发一种人才管理系统编程环境选取微软公司VisualBasic6.0是Windows应用程序开发工具，使当前最为广泛、易学易用面向对象开发工具。VisualBasic提供了大量控件，这些控件可用于设计界面和实现各种功能，减少了编程人员工作量，也简化了界面设计过程，从而有效提高了应用程序运营效率和可靠性。故而，实现本系统VB是一种相对较好选取。

关系型数据库实现Access就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access长处在于它能使用数据表达图或自定义窗体收集信息。数据表达图提供了一种类似于Excel电子表格，可以使数据库一目了然。此外，Access容许创立自定义报表用于打印或输出数据库中信息。Access也提供了数据存储库，可以使用桌面数据库文献把数据库文献置于网络文献服务器，与其她网络顾客共享数据库。Access是一种关系数据库工具，关系数据库是已开发最通用数据库之一。如上所述，Access作为关系数据库开发具备了许多长处，可以在一种数据包中同步拥有桌面数据库便利和关系数据库强大功能。两者结合（DBA）微软JET数据库引擎提供了与数据库打交道途径，咱们是通过它以及VisualBasic来访问数据库并对其进行各种操作。VisualBasic、Access以及其她微软软件产品都是通过共用JET数据库引擎，从而给顾客提供了丰富数据类型。

DATA控件在数据库中信息与将信息显示给顾客看VisualBasic程序之间架起了一座桥梁。咱们可以设立DATA控件各个属性，告诉它要调用那个数据库哪个某些。缺省状况下，DATA控件依照数据库中一种或各种数据表建立一种dynaset-type（动态集合）类型记录集合。一种记录集合是动态也就意味着，当本来数据表中容变化了后来，该记录集合中记录也会随之变化。DATA控件还提供了用来浏览不同记录各种跳转按钮。将DATA控件放置在窗体中之后，咱们还必要在该控件与要解决数据库之间建立联系。第三章使用Access实现关系型数据库一、数据库概念数据库是一种存储数据并对数据进行操作工具。数据库作用在于组织和表达信息，简而言之，数据库就是信息集合。计算机数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包括了各种数据表信息，数据库具有各个不同某些术语，象记录、域等。二、新建一种数据库

创立任何一种数据库第一步是仔细规划数据库，设计必要是灵活、有逻辑。创立一种数据库构造过程被以为是数据模型设计。

1.标记需要数据；

2.收集被标记字段到表中；

3.标记主核心字字段；

4.绘制一种简朴数据图表；

5.规范数据；

6.标记指定字段信息；

7.创立物理表。三、修改已建数据库

数据库修改分为：添加、编辑和删除记录.这三种操作均可由VisualBasic创立程序来完毕.四、实现数据库之间联系

数据库之间关系指明两个库之间共享一种共同核心字值。一种连接是指一种虚拟表，这种表是在当顾客规定从互有关联各个不同表中获取信息时建立，核心字段用于在互相连接不同表中查找匹配记录。一种更高档连接形式称为自连接。这种连接是指一种表被连接到它自己一种字段，或在不同纪录中由重复数据组合字段。数据库中有三种不同类型核心字：主核心字、组合核心字和外核心字。在表中使用核心字类型用于描述库表达什么以及在数据库中如何与其他库建立关系.第四章人才管理系统分析一、可行性分析：“需求分析”和“运营效率分析”是人才管理系统重要根据，这两份分析应阐明“的确有规定”和“值得开发”。人才管理系统成败，人是决定因素，如果用帕拉图ABC分类来看，人才是A类，数据是B类，软件是C类，应值得注意技术上开发与维护，经济上与否盈亏，法律上版权保护。本版软件具备技术，运营，经济，法律等多方面可行性。

ACCESS中文版作为一种关系型数据库系统，它提供了面向对象编程技术，可简化数据库管理，使开发应用程序这项艰辛工作就象堆积木那样简朴以便。此外，用ACCESS中文版开发应用程序可以独立运营于windows平台。

二、系统分析图人才信息表提档招聘单位管理员人才信息库归档人才信息查询信息登记人才信息表应聘人员人才信息表提档招聘单位管理员人才信息库归档人才信息查询信息登记人才信息表应聘人员招聘信息表招聘信息表单位信息表招聘信息表提档管理员应聘人员招聘信息库归档单位信息表信息登记招聘单位招聘信息查询单位信息表招聘信息表提档管理员应聘人员招聘信息库归档单位信息表信息登记招聘单位招聘信息查询外部项外部项人工输入人工操作文档归档文档三、数据字典（1）数据元素a．人才信息表所包括元素基本信息涉及：编号、姓名、性别、民族、户口所在地、当前所在地、证件类型、证件号码、出生日期、政治面貌、婚姻状况、当前、身高、体重等。个人简历涉及：教诲经历（入学时间、毕业时间、所学专业、所在学校、获得学历），培训状况（开始时间、结束时间、培训单位、培训课程、获得证书），工作经历（起始时间、结束时间、公司名称、公司性质、工作部门、工作职位）等。求职意向涉及：盼望单位性质、盼望工作地点、盼望职位、职位名称、盼望工资规定等。技能特长涉及：外语（外语种类、外语水平），汽车驾驶（驾照、驾龄），计算机（计算机水平），其她特长等。自我评价涉及：自我评价，职业目的等。b．单位信息表所包括元素：单位编号、单位名称、单位电话、经营范畴、单位地址、传真、电子信箱、登记时间、法人代表、单位性质、公司网址、电话、联系人等。c.招聘信息表涉及：单位名称、编号、需求人数、性别、专业、学历、开始时间、截止时间、基本规定等。第五章人才管理系统设计一、系统功能模块图主系统P0主系统P0P1数据库P2信P1数据库P2信息表P3编辑P4查询P5报表P6系统P1数据库P1数据库P1.4更新P1.3回收站P1.4更新P1.3回收站P1.7关闭P1.6备份P1.5恢复P1.2打开P1.1新建P2信息表P2信息表P2.1人才求P2.1人才求职信息登记表P2.4关闭信息表P2.3招聘信息表P2.2单位基本信息表P3.13保存记录P3.12撤消操作P3.11尾记录P3.10下一条记录P3.9上一条记录P3.13保存记录P3.12撤消操作P3.11尾记录P3.10下一条记录P3.9上一条记录P3.7保存回收站数据P3.8首记录P3.6伪删除数据还原P3.5物理删除P3.4清空回收站P3.3逻辑删除P3.2修改P3编辑P3.1P3.1添加数据P4.3综合查询P4.2异P4.3综合查询P4.2异表查询P4.1当前表查询P4查询P5.3打印P5.2打印预P5.3打印P5.2打印预览P5.1页面设置P5报表P6.5退出P6.4关于P6.3作者P6.2软P6.5退出P6.4关于P6.3作者P6.2软件说明书P6.1用户设置P6系统数据库设计人才信息人才信息求职意向个人简历基本信息技能特长求职意向个人简历基本信息技能特长基本信息基本信息姓名民族联系方式地址身高职位当前状况婚姻状况政治面貌出生日期专业类别身份证号码性别联系人照片体重姓名民族联系方式地址身高职位当前状况婚姻状况政治面貌出生日期专业类别身份证号码性别联系人照片体重个人简历个人简历工作经历培训状况教诲经历 工作经历培训状况教诲经历培训成果培训形式培训内容培训单位结束时间开始时间培训成果培训形式培训内容培训单位结束时间开始时间学历学位学习形式院校、系别结束时间开始时间专业学历学位学习形式院校、系别结束时间开始时间专业开始时间培训成果培训形式培训内容培训单位结束时间开始时间培训成果培训形式培训内容培训单位结束时间基本规定求职意向基本规定求职意向自荐培训状况薪金规定自荐培训状况薪金规定但愿月薪但愿年薪最低月薪其她规定专业代码规定工作地区拟从事工作拟求职位意向单位流动条件流动方式但愿月薪但愿年薪最低月薪其她规定专业代码规定工作地区拟从事工作拟求职位意向单位流动条件流动方式其她特长计算机汽车驾驶外语技能特长其她特长计算机汽车驾驶外语技能特长计算机水平驾照驾龄外语语种外语水平计算机水平驾照驾龄外语语种外语水平（E-R图之人才信息）单位信息单位信息单位招聘信息招聘单位信息单位招聘信息招聘单位信息性别需求人数单位编号基本规定结束时间开始时间学历专业联系人电话单位地址单位性质单位名称单位编号联系人身份证号登记时间经营范畴联系人姓名单位电话法人姓名性别需求人数单位编号基本规定结束时间开始时间学历专业联系人电话单位地址单位性质单位名称单位编号联系人身份证号登记时间经营范畴联系人姓名单位电话法人姓名（E-R图之单位信息）界面设计(3)程序设计系统测试在人才信息管理系统这个软件制作好了后来并不是就没事了！其实日后测试、推广与更新维护才是最重要！第一节功能测试功能测试是测试阶段要完毕最普通，也是最显而易见测试。必要对整个管理软件进行检查，以保证所有功能对的执行，不会产生不盼望浮现错误信息、异常和执行动作。对于管理项目，功能测试中最重要一点就是电脑兼容性测试，即，保证管理软件在所有电脑上都能操作正常。同样，还要检查软件在不同操作系统条件下输入数据功能与否正常。对于一种人才信息管理软件，甚至虽然是一种很少数据录入，花在测试上时间也是诸多。下面是在进行功能测试时需要注意事项：链接：与否存在链接中断，与否存在错误链接？录入：录入内容与否对的信息表格：能否对的填写并保存设计：有无不能看到或读取因素打印：所需人才信息页面能否对的打印进行功能测试时，要从最特殊情形开始，或者从也许产生问题最多配备开始。然后再测试大多数招聘单位录入是所用电脑时采用配备。如果在上述状况下，次软件能正常工作，那么，对于其她状况基本上也不会浮现太多问题。一旦完毕所有更改后，那么反过来再进行一次性大多数人才信息录入时采用配备测试，以便检查确认，通过上述测试后没有产生新问题。进行功能测试时，应当尽量超越被以为是电脑正常运营使用状况。例如说，对于人才信息输入测试，应当试着随意输入某些或同步输入诸如逗号、引号、省略号、换行符、尖括号、百分号等特殊字符，以检查与否会产生录入错误。第二节错误管理在进行测试时，需要建立一套机制，以记录和解决暴露出来错误和缺陷，这可以保证测试者发现一种错误时，可以系统地将之记录下来。为了使测试工作安全地进行，测试者有时对一种错误解决后，还需要重新生成这个错误。特别是对于递归测试，也许更要考虑更进一步测试，并且能再试着生成这个错误。对于一种有各种测试者项目，采用数据库方式记录、跟踪和管理错误信息更适当。这样，各种测试者就可以同步使用数据库，并且数据库有访问和验证控制功能，以使错误纪录过程更加有效和可靠。数据库构造属性依赖于错误纪录解决过程。错误记录和管理数据库包括如下字段：（1）人才编号：如果给每个错误纪录独一无二编号，那么就可以很容易地找到指定错误纪录。（2）日期记录：错误记录日期（3）记录人：记录错误人员（4）优先级：可以设定错误重要级别，这个级别相应解决时间（5）类型：可以按错误类型将错误分类（6）描述：关于错误详细描述。它涉及关于错误所有信息及错误是如何产生信息（7）错误发现日期：错误第一次发现时间（8）负责人：错误解决负责人（9）意见：当负责人看到错误时提出意见（10）状态：错误当前状态（11）解决日期：错误解决时间第三节运营测试对于一种人才信息管理系统软件运营测试尤为重要，尽管咱们在进行功能测试时已检查出顾客界面错误，但离开软件或进行数据输出成果，还需要进行运营测试。定义运营测试界限依赖于人才管理信息范畴。在诸多状况下，解决运营测试时暴露问题不是由软件设计者负责，而是应当由人才管理单位自己或关于第三方负责。但由于系统整体性问题，同步软件设计者负责某些也是次软件站核心，因而，运营问题还是需要软件设计者和人才管理单位及第三方共同去解决。一种好信息管理软件，不但仅是一次性制作完美就可以，由于人才信息状况在不断地变化，软件管理内容也需要随之调节。这就规定咱们对软件进行长期不间断维护和更新。第四节软件维护软件维护普通包括如下内容：内容更新（如人才信息更新，招聘单位招聘信息动态更新，招聘启示更新等）。软件风格更新（如软件改版）、软件重要页面设计制作（如启示类重大事件页面及招聘单位周年庆等页面制作）、软件系统维护服务（如：系统管理员帐号、软件版本升级、人才信息管理维护、招聘单位招聘信息等）。第七章系统使用阐明一、系统环境与安装硬件配备建议配备：CPU：PII450或更高；内存：32MB以上；显卡：支持800X600或更高；打印机：至少可以打印A4纸。软件配备操作系统：中文版Microsoftwindow98或Microsoftwindow\应用软件：中文版MicrosoftWord97/(软件阐明书)软件安装检查当前系统时间对的性将载有《人才管理系统》光盘放入光驱（如果有各种光驱时，放入第一种光驱），系统自动检测光盘合法性。系统自动启动《人才管理系统》安装系统，顾客在安装系统中文提示下，可以轻松完毕软件安装。《人才管理系统》安装成功后，Window操作系统“开始”——“程序”组里将自动增长“人才应招信息管理系统”程序组。目录阐明：PIC——图片；MODULE——模块；PHOTO——人员照片；RPORT——报表与数据环境软件卸载在“人才管理系统”程序组中选定“删除人才管理系统”程序项，（或者打开Window操作系统中“控制面板”，单击“添加/删除程序”，在列表中找到“人才管理系统”程序组选项）单击，按照屏幕提示操作即可以安全、迅速地删除《人才管理系统》。二、启动系统系统启动过程如下：1.进入Window操作系统后，单击任务栏中“开始”——“程序”组——“人才管理系统”程序组中“人才管理系统”程序项，启动程序。2.一方面，将显示系统登录窗口，如图2-1所示，顾客输入对的顾客名和密码，按“ENTER”键，确认对的后即可进入系统。图2.1试用版环境下，系统仅给定缺省顾客名——“ADMIN”和密码——“0322”，并且不进行数据加密。原文本鉴定。3然后将会浮现图2.2界面,按下“Enter”键。图2.24．这时将浮现图2.3窗体。图2.35.通过系统检查顾客将顺利进入本系统，看到系统主界面。图2.4三、菜单项和工具栏如图3-1所示是《人才应招信息管理系统》中菜单项。图3-1菜单中包括本系统所有功能，系统菜单项重要由六大某些构成，分别是：数据库：实现数据库新建、打开、数据回收、自动更新、恢复、备份和关闭数据库等功能项；信息表：实现主表数据和副表数据选定与关闭；编辑：实现当前主表添加、修改、逻辑删除和当前副表（回收站）清空、物理删除、数据还原及保存副表数据等，同步设立记录移动和撤除、保存变化数据记录；查询：实现当前表查询和异表查询（综合查询暂不可用）；报表：实现数据报表设立、预览和打印；系统：系统辅助信息显示与系统退出。二、工具栏简介如图3-2所示是《人才管理系统》中工具栏。图3-2由上至下，由左向右分别是：1、新建——打开——回收站——自动更新——还原——备份——关闭数据库2、打开单位信息表——人才信息表——招聘信息表——关闭信息表3、打印设立——预览——打印4、顾客设立——软件阐明书——作者信息——系统信息——退出系统5、添加——修改——逻辑删除6、清空回收站——物理删除——还原——保存回收站数据7、首记录——上一条记录——下一条记录——尾记录8、撤除数据操作——保存9、当前表查询——异表查询——综合查询四、数据库操作实现数据库新建、打开、数据回收、自动更新、恢复、备份和关闭数据库等项功能。如图4-1。图4-1所有在后台操作：（数据库不带密码，应用人员可打开数据库更改不合理项）新建：清除当前目录下应用程序数据库所有主表记录；打开：将当前数据库主表作为操作对象；回收站：将当前数据库副表作为操作对象；自动更新：将当前数据库中主表过期数据逻辑删除到数据回收站；恢复和备份：在试用版环境下，此选项不可用；关闭数据库：关闭当前数据库主表或副表，以变化数据操作对象。五、信息表操作实现主表数据和副表数据选定与关闭。如图5-1。图5-11.将主表或副表中人才信息表作为当前日操作对象，并打开。如图5-2。图5-22.将主表或副表中单位信息表作为当前操作对象，并打开。如图5-3。图5-33、将主表或副表中招聘信息表作为当前日操作对象，并打开。如图5-4。图5-44、关闭信息表，以变化数据操作对象。六、编辑实现当前主表数据添加、修改、删除和当前副表数据（回收站）清空、物理删除、数据还原及保存副表数据等，同步设立记录移动和撤除、保存变化数据记录。如图6-1。图6-1本菜单组实现对当前数据表编辑操作，主表规定所有手工操作，实现数据库更新，副表可以实现对主表数据补充，并实现对过期记录解决。所有操作均规定作撤除和保存操作解决，以确认。当前数据表添加与修改均有对当前记录当前字段合法性检查，以保证数据精确性。数据表“编号”为系统自动标号，采用是12为编码，分别是年2位，月2位，日2位，时2位，分2位，秒2位，数据超长分项取当前值末2位，局限性则左补“0”，以保证数据唯一性。时间限制日期值，将进行数据比较，合法才可以继续，否则将规定对数据进行人工检查。字录入文本框规定仅录入数字，非数字将不予接受。日期录入文本框规定仅录入数字和“-”或“/”。七、查询实现当前表和异表查询。如图7-1。图7-1当前查询因对本系统调研局限性，无法理解更为详细系统规定，故建立如图7-2所示数据查询窗体，规定操作人员必要对人才管理有一定理解，同步应具备一定计算机操作技能和数据库SQL语句知识（此项需要改进，但当前可以保证本系统强大查询功能）。图7-2异表查询可以实现对当前主表选定数据配套查询。如：当前表为“人才信息表”，则可以选定一条记录，进行异表查询，找到适合本记录规定单位招聘信息。此项功能为后台操作，系统自动完毕。八、报表实现数据报表设立、预览和打印。如图8-1。图8-1系统自动形成报表数据涉及信息表所有数据和对当前主表进行同表查询和对当前记录进行异表查询成果，可以实现数据选取输出。如图8-2。图8-2九、系统系统辅助信息显示与系统退出。如图9-1。图9-11、显示系统信息。如图9-2。图9-22、显示作者信息。如图9-3。图9-33、退出如图9-4，完毕操作。图9-4结束语通过两个多月设计和开发，人才管理系统基本开发完毕。其功能基本符合顾客需求，可以完毕人才信息查询以及各类有关报表打印。并提供某些系统维护功能,使顾客以便进行数据备份和恢复、数据删除。对于数据一致性问题也通过程序进行了有效解决，但是由于毕业设计时间较短，因此该系统尚有许多不尽如人意地方.道谢：在本次毕业设计中，我从指引教师王刚教师身上学到了诸多东西。王教师认真负责工作态度，严谨治学精神和深厚理论水平都使我收益匪浅。她无论在理论上还是在实践中，都给与我很大协助，使我得到不少提高这对于我后来工作和学习均有一种巨大协助，感谢她耐心辅导，使得系统能及时开发完毕，尚有同组同窗同样给我不少协助，这里一并感谢。

第十章程序源代码password_window:OptionExplicitPublicLoginSucceededAsBooleanPrivateSubcmdCancel_Click()'设立全局变量为false'不提示失败登录LoginSucceeded=FalseEndEndSubPrivateSubcmdOK_Click()'检核对的密码IftxtPassword="0322"AndtxtUserName="admin"Then'将代码放在这里传递'成功到calling函数'设立全局变量时最容易LoginSucceeded=TrueMe.Hideface_window.ShowElseMsgBox"无效密码，请重试!"，，"登录"txtPassword.SetFocusSendKeys"{Home}+{End}"EndIfEndSub二、face_window:PrivateSubForm_Load()Move(Screen.Width-Me.Width)\2，(Screen.Height-Me.Height)\2EndSubPrivateSubPicture1_KeyPress(KeyasciiAsInteger)IfKeyascii=13ThenUnloadMespeed_window.ShowEndIfEndSub3\speed_window:PrivateSubCommand1_Click()IfCommand1.Caption="取消"ThenEndElseUnloadMeEndIfEndSubPrivateSubCommand2_Click()Command2.Enabled=FalseLoadMain_WindowMain_Window.ShowMain_Window.WindowState=2ProgressBar1.Value=10ProgressBar1.RefreshLoadperson_windowperson_window.HideProgressBar1.Value=20ProgressBar1.RefreshLoadfactory_windowfactory_window.HideProgressBar1.Value=30ProgressBar1.RefreshLoadengage_windowengage_window.HideProgressBar1.Value=40ProgressBar1.RefreshLoadauthor_windowauthor_window.HideProgressBar1.Value=50ProgressBar1.RefreshLoadfactory_reportfactory_report.HideProgressBar1.Value=60ProgressBar1.RefreshLoadSearch_WindowSearch_Window.HideProgressBar1.Value=70ProgressBar1.RefreshLoadNeed_reportNeed_report.HideProgressBar1.Value=80ProgressBar1.RefreshLoadPerson_reportPerson_report.HideProgressBar1.Value=90ProgressBar1.RefreshLoadabout_system_windowabout_system_window.HideProgressBar1.Value=100ProgressBar1.RefreshCommand1.Caption="完毕"EndSubPrivateSubForm_Load()Move(Screen.Width-Me.Width)\2，(Screen.Height-Me.Height)\2SetWindowPosMe.hwnd，-1，0，0，0，0，3EndSub4\main_window:OptionExplicitDimReco_CancelAsInteger'记录操作标记DimBMarkAsVariant'记录标签DimSData(100)AsVariant'当前记录字段数组DimCycle_SetAsInteger'回收站操作标记ConstMSG2="（无）"PrivateSubMAbout_Author_Click()CallAbout_AuthorEndSubPrivateSubMAbout_System_Click()CallAbout_SystemEndSubPrivateSubMAll_Search_Click()CallAll_SearchEndSubPrivateSubMAppend_Recorder_Click()CallAppend_RecorderEndSubPrivateSubMBack_Data_Click()CallBack_DataEndSubPrivateSubMCancle_Recorder_Click()CallCancle_RecorderEndSubPrivateSubMClear_Reco_Click()CallClear_RecoEndSubPrivateSubMClose_Data_Click()CallClose_DataEndSubPrivateSubMClose_Table_Click()CallClose_TableEndSubPrivateSubMCycle_Data_Click()CallCycle_DataEndSubPrivateSubMDelete_Reco_Click()CallDelete_RecoEndSubPrivateSubMDelete_Recorder_Click()CallDelete_RecorderEndSubPrivateSubMDIForm_Load()DimiAsIntegerCoolBar1.Bands(3).Visible=FalseFori=10To20Toolbar(0).Buttons(i).Enabled=FalseNextiMInfo_Table.Enabled=FalseMEdit_Recorder.Enabled=FalseMQuery_Table.Enabled=FalseMReport_Form.Enabled=FalseReco_Cancel=0Cycle_Set=0EndSubPrivateSubMDIForm_QueryUnload(CancelAsInteger，UnloadModeAsInteger)DimKeyAsIntegerKey=MsgBox("你真退出人才管理系统吗？"，33，"退出管理系统！")IfKey=1Thenend_window.ShowElseCancel=TrueEndIfEndSubPrivateSubMEngage_Table_Click()Callengage_TableEndSubPrivateSubMExit_System_Click()CallExit_SystemEndSubPrivateSubMFactory_Table_Click()CallFactory_TableEndSubPrivateSubMFirst_Recorder_Click()CallFirst_RecorderEndSubPrivateSubMHelp_Text_Click()CallHelp_TextEndSubPrivateSubMLast_Recorder_Click()CallLast_RecorderEndSubPrivateSubMModify_Recorder_Click()CallModify_RecorderEndSubPrivateSubMNew_Data_Click()CallNew_DataEndSubPrivateSubMNext_Recorder_Click()CallNext_RecorderEndSubPrivateSubMOpen_Data_Click()CallOpen_DataEndSubPrivateSubMOther_Search_Click()CallOther_SearchEndSubPrivateSubMPaper_Set_Click()CallPaper_SetEndSubPrivateSubMPerson_Table_Click()CallPerson_TableEndSubPrivateSubMPresent_Search_Click()CallPresent_SearchEndSubPrivateSubMPrevious_Recorder_Click()CallPrevious_RecorderEndSubPrivateSubMPrint_Form_Click()CallPrint_formEndSubPrivateSubMPrint_Previous_Click()CallPrint_PreviousEndSubPrivateSubMResume_Data_Click()CallResume_DataEndSubPrivateSubMRevert_Reco_Click()CallRevert_RecoEndSubPrivateSubMSave_Cycle_Click()CallSave_CycleEndSubPrivateSubMSave_Recorder_Click()CallSave_RecorderEndSubPrivateSubMUpdate_Data_Click()CallUpdate_DataEndSubPrivateSubMUser_Set_Click()CallUser_SetEndSubPrivateSubToolbar_ButtonClick(IndexAsInteger，ByValButtonAsMSComctlLib.Button)SelectCaseIndexCase0SelectCaseButton.IndexCase1'新建CallNew_DataCase2'打开CallOpen_DataCase4'回收站CallCycle_DataCase6'更新CallUpdate_DataCase7'恢复CallResume_DataCase8'备份CallBack_DataCase10'关闭数据库CallClose_DataCase12'打开单位信息表CallFactory_TableCase13'人才信息表CallPerson_TableCase14'招聘信息表Callengage_TableCase15'关闭信息表CallClose_TableCase17'页面设立CallPaper_SetCase18'打印预览CallPrint_PreviousCase19'打印CallPrint_formCase21'顾客设立CallUser_SetCase23'软件阐明书CallHelp_TextCase24'作者CallAbout_AuthorCase25'关于CallAbout_SystemCase27'退出CallExit_SystemEndSelectCase1SelectCaseButton.IndexCase1'添加CallAppend_RecorderCase2'修改CallModify_RecorderCase3'删除CallDelete_RecorderCase5'清空CallClear_RecoCase6'删除CallDelete_RecoCase7'还原CallRevert_RecoCase8'保存回收站数据CallSave_CycleCase10'首记录CallFirst_RecorderCase11'上一条记录CallPrevious_RecorderCase12'下一条记录CallNext_RecorderCase13'尾记录CallLast_RecorderCase15'撤除CallCancle_RecorderCase16'保存CallSave_RecorderCase18'搜索当前表CallPresent_SearchCase19'搜索异表CallOther_SearchCase20'综合查询CallAll_SearchEndSelectEndSelectEndSubPrivateSubNew_Data()DimKeyAsIntegerSet_Data_EnableFalseSet_Table_EnableTrueSet_Back_ButtonFalseSet_Main_ButtonTrueMInfo_Table.Enabled=TrueStatusBar1.Panels(1).Text="新建数据表单，将清除所有原始数据"'数据库初始化Key=MsgBox("初始化——将清空人才表、单位表、招聘表所有数据，继续吗？"，33，"初始化提示信息！")IfKey=1ThenPerson_Connection.Provider="microsoft.jet.oledb.4.0"Person_Connection.OpenApp.Path&"\person.mdb"，"admin"Person_Connection.Execute"delete*from人才"Person_Connection.Execute"delete*from单位"Person_Connection.Execute"delete*from招聘"Person_Connection.Execute"delete*from人才备份"Person_Connection.Execute"delete*from单位备份"Person_Connection.Execute"delete*from招聘备份"TableSelect=TrueEndIfEndSubPrivateSubOpen_Data()Set_Data_EnableFalseSet_Table_EnableTrueSet_Back_ButtonFalseSet_Main_ButtonTrueMInfo_Table.Enabled=TrueStatusBar1.Panels(1).Text="打开原始数据表单，实现数据增、删、改"Person_Connection.Provider="microsoft.jet.oledb.4.0"Person_Connection.OpenApp.Path&"\person.mdb"，"admin"TableSelect=TrueEndSubPrivateSubCycle_Data()Set_Data_EnableFalseSet_Table_EnableTrueSet_Back_ButtonTrueSet_Main_ButtonFalseMInfo_Table.Enabled=TrueStatusBar1.Panels(1).Text="打开伪删除数据表单，对回收站内数据进行再解决"TableSelect=FalseEndSubPrivateSubUpdate_Data()Set_Data_EnableFalseStatusBar1.Panels(1).Text="对原始数据表单内数据进行刷新解决"EndSubPrivateSubResume_Data()MsgBox"试用版环境下此选项不可用！！"，vbOKOnly，"提示"'Set_Data_EnableFalse'WithCommonDialog1'.Flags=2'.CancelError=True'OnErrorGoToErrend'.DefaultExt="MDB"'.DialogTitle="数据恢复"'.FileName=""'.Filter="数据库文献(*.mdb)|*.mdb"'.FilterIndex=1'.InitDir=App.Path'.Action=1'EndWith'IfCommonDialog1.FileName=""Then'MsgBox"请选取导入文献名称"，vbOKOnly+48，"导入错误！"'Else'IfCommonDialog1.FileName<>App.Path&"\person.mdb"Then'oFSO.DeleteFileApp.Path&"\perosn.mdb"，True'oFSO.CopyFileCommonDialog1.FileName，App.Path&"\person.mdb"，True'EndIf'EndIf'StatusBar1.Panels(1).Text="从备份库中导出数据，对原始数据表单内数据进行恢复解决"EndSubPrivateSubBack_Data()MsgBox"试用版环境下此选项不可用！！"，vbOKOnly，"提示"'Set_Data_EnableFalse'WithCommonDialog1'.Flags=2'.CancelError=True'OnErrorGoToErrend'.DefaultExt="MDB"'.DialogTitle="数据保存和备份"'.FileName=""'.Filter="数据库文献(*.mdb)|*.mdb"'.FilterIndex=1'.InitDir=App.Path'.Action=2'EndWith'IfCommonDialog1.FileName=""Then'MsgBox"请输入备份文献名称"，vbOKOnly+48，"导出错误！"'Else'IfCommonDialog1.FileName<>App.Path&"\person.mdb"Then'oFSO.CopyFileApp.Path&"\person.mdb",CommonDialog1.FileName，True'EndIf'EndIf''Set_Data_EnableFalseStatusBar1.Panels(1).Text="对原始数据表单内数据进行备份解决，导出原始数据"EndSubPrivateSubClose_Data()Set_Data_EnableTrueMInfo_Table.Enabled=FalseSet_Table_EnableFalseMClose_Table=FalseToolbar(0).Buttons(15).Enabled=FalseCoolBar1.Bands(3).Visible=FalseStatusBar1.Panels(1).Text="关闭所有数据库"Person_Connection.CloseEndSubPrivateSubPerson_Table()Select_Table=1SetJudge_Form=person_windowJudge_Form.SSTab.Tab=0Judge_Form.WindowState=2SetJudge_Table=Judge_Form.Adodc1.RecordsetSet_Con_EnableSet_StatusbarJudge_Form.ShowEndSubPrivateSubFactory_Table()SetJudge_Form=factory_windowSelect_Table=2Judge_Form.WindowState=2SetJudge_Table=Judge_Form.Adodc1.RecordsetSet_Con_EnableSet_StatusbarJudge_Form.ShowEndSubPrivateSubengage_Table()SetJudge_Form=engage_windowSelect_Table=3Judge_Form.WindowState=2SetJudge_Table=Judge_Form.Adodc1.RecordsetSet_Con_EnableSet_StatusbarJudge_Form.ShowEndSubPublicSubRefresh_Judge()Set_Con_EnableSet_StatusbarJudge_Form.ShowEndSubPrivateSubClose_Table()DimiAsIntegerSet_Table_EnableTrueSet_Query_ButtonFalseSet_Report_ButtonFalseSetJudge_Table=NothingSetJudge_Back=NothingJudge_Form.HideStatusBar1.Panels(2).Text="数据表已经关闭"EndSubPrivateSubAppend_Recorder()DimYdate，Mdate，Ddate，Htime，Mtime，StimeAsStringReco_Cancel=1Set_EnableJudge_Form，TrueSet_Save_ButtonTrueSet_Main_ButtonFalseSet_Move_ButtonFalseSet_Query_ButtonFalseSet_Report_ButtonFalseMClose_Table.Enabled=FalseToolbar(0).Buttons(15).Enabled=FalseOnErrorGoToAddErrJudge_Table.AddNew'Judge_Form.Text1=DateYdate=Right("00"+Trim(Str(Year(Date)))，2)Mdate=Right("00"+Trim(Str(Month(Date)))，2)Ddate=Right("00"+Trim(Str(Day(Date)))，2)Htime=Right("00"+Trim(Str(Hour(Time)))，2)Mtime=Right("00"+Trim(Str(Minute(Time)))，2)Stime=Right("00"+Trim(Str(Second(Time)))，2)Judge_Form.Text(0).Text=Ydate+Mdate+Ddate+Htime+Mtime+StimeExitSubAddErr:MsgBoxErr.DescriptionEndSubPrivateSubModify_Recorder()DimiAsIntegerReco_Cancel=2Set_EnableJudge_Form，TrueSet_Save_ButtonTrueSet_Main_ButtonFalseSet_Move_ButtonFalseSet_Query_ButtonFalseSet_Report_ButtonFalseMClose_Table.Enabled=FalseToolbar(0).Buttons(15).Enabled=FalseFori=0ToJudge_Table.Fields.Count-1SData(i)=Judge_Table.Fields(i).ValueNextiBMark=Judge_Table.BookmarkEndSubPrivateSubDelete_Recorder()DimKey，iAsIntegerKey=MsgBox("请慎重，误操作将导致联机数据不可恢复！！"，vbOKCancel，"警告！")IfKey=1ThenReco_Cancel=3Set_Save_ButtonTrueSet_Main_ButtonFalseSet_Move_ButtonFalseSet_Query_ButtonFalseSet_Report_ButtonFalseMClose_Table.Enabled=FalseToolbar(0).Buttons(15).Enabled=FalseFori=0ToJudge_Table.Fields.Count-1SData(i)=Judge_Table.Fields(i).ValueNextiOnErrorResumeNextWithJudge_Table.Delete.MoveNextIf.EOFThen.MoveLastEndIfEndWithEndIfEndSubPrivateSubClear_Reco()IfToolbar(1).Buttons(5).Value=tbrPressedThenCycle_Set=1Toolbar(1).Buttons(6).Value=tbrUnpressedToolbar(1).Buttons(7).Value=tbrUnpressedElseCycle_Set=0EndIfEndSubPrivateSubDelete_Reco()IfToolbar(1).Buttons(6).Value=tbrPressedThenCycle_Set=2Toolbar(1).Buttons(7).Value=tbrUnpressedToolbar(1).Buttons(5).Value=tbrUnpressedElseCycle_Set=0EndIfEndSubPrivateSubRevert_Reco()IfToolbar(1).Buttons(7).Value=tbrPressedThenCycle_Set=3Toolbar(1).Buttons(5).Value=tbrUnpressedToolbar(1).Buttons(6).Value=tbrUnpressedElseCycle_Set=0EndIfEndSubPrivateSubSave_Cycle()DimiAsIntegerSelectCaseCycle_SetCase0MsgBox"请先选定回收站操作方式（清空/删除/还原）！！"+Space(5)，vbOKOnly+48，"回收站操作信息！"Case1Toolbar(1).Buttons(5).Value=tbrUnpressedOnErrorResumeNextWithJudge_Table.MoveFirstWhileNot.EOF.Delete.MoveNextWendEndWithMsgBox"数据回收站已经被清空！！"+Space(5)，vbOKOnly+48，"回收站操作信息！"Judge_Table.UpdateBatchadAffectAllSet_Move_ButtonFalseSet_Back_ButtonFalseCase2Toolbar(1).Buttons(6).Value=tbrUnpressedOnErrorResumeNextWithJudge_Table.Delete.MoveNextIf.EOFThen.MoveLastEndIfEndWithMsgBox"数据回收站当前记录已经被删除！！"+Space(5)，vbOKOnly+48，"回收站操作信息！"Judge_Table.UpdateBatchadAffectCurrentIfJudge_Table.RecordCount=0ThenSet_Move_ButtonFalseSet_Back_ButtonFalseEndIfCase3Toolbar(1).Buttons(7).Value=tbrUnpressedOnErrorResumeNextFori=0ToJudge_Table.Fields.Count-1SData(i)=Judge_Table.Fields(i).ValueNextiWithJudge_Table.Delete.MoveNextIf.EOFThen.MoveLastEndIfEndWithJudge_Table.UpdateBatchadAffectAllJudge_Back.AddNewFori=0ToJudge_Back.Fields.Count-1Judge_Back.Fields(i).Value=SData(i)NextiJudge_Back.UpdateBatchadAffectAllMsgBox"数据回收站当前记录已经被还原！！"+Space(5)，vbOKOnly+48，"回收站操作信息！"IfJudge_Table.RecordCount=0ThenSet_Move_ButtonFalseSet_Back_ButtonFalseEndIfEndSelectCycle_Set=0Set_StatusbarEndSubPrivateSubFirst_Recorder()Judge_Table.MoveFirstSet_StatusbarEndSubPrivateSubPrevious_Recorder()WithJudge_Table.MovePreviousIf.BOFThen.MoveFirstEndIfEndWithSet_StatusbarEndSubPrivateSubNext_Recorder()WithJudge_Table.MoveNextIf.EOFThen.MoveLastEndIfEndWithSet_StatusbarEndSubPrivateSubLast_Recorder()WithJudge_Table.MoveLastEndWithSet_StatusbarEndSubPrivateSubCancle_Recorder()DimiAsIntegerSet_EnableJudge_Form，FalseSet_Save_ButtonFalseSet_Query_ButtonTrueSet_Report_ButtonTrueMClose_Table.Enabled=TrueToolbar(0).Buttons(15).Enabled=TrueSelectCaseReco_CancelCase1OnErrorResumeNextWithJudge_Table.Delete.MoveNextIfNot.BOFAnd.EOFThen.MoveLastSet_Move_ButtonTrueSet_Main_ButtonTrueIf.BOFThenSet_Main_ButtonFalseSet_Move_ButtonFalseToolbar(1).Buttons(1).Enabled=TrueEndIfEndIfEndWithCase2Fori=0ToJudge_Table.Fields.Count-1Judge_Table.Fields(i).Value=SData(i)NextiOnErrorResumeNextJudge_Table.UpdateBatchadAffectAllJudge_Table.Bookmark=BMarkSet_Move_ButtonTrueSet_Main_ButtonTrueCase3OnErrorResumeNextJudge_Table.AddNewFori=0ToJudge_Table.Fields.Count-1Judge_Table.Fields(i).Value=SData(i)NextiJudge_Table.UpdateBatchadAffectAllSet_Move_ButtonTrueSet_Main_ButtonTrueEndSelectJudge_Form.DataGrid.RefreshEndSubPrivateSubSave_Recorder()DimiAsIntegerIfReco_Cancel=3ThenOnErrorResumeNextJudge_Back.AddNewFori=0ToJudge_Back.Fields.Count-1Judge_Back.Fields(i).Value=SData(i)NextiJudge_Back.UpdateBatchadAffectAllEndIfOnErrorResumeNextJudge_Table.MovePreviousIfJudge_Table.BOFThenJudge_Table.MoveFirstEndIfJudge_Table.MoveNextIfJudge_Table.EOFThenJudge_Table.MoveLastEndIfSet_EnableJudge_Form，FalseSet_Save_ButtonFalseMClose_Table.Enabled=TrueToolbar(0).Buttons(15).Enabled=TrueIfJudge_Table.RecordCount=0ThenToolbar(1).Buttons(1).Enabled=TrueSet_Query_ButtonFalseSet_Report_ButtonFalseElseSet_Query_ButtonTrueSet_Report_ButtonTrueSet_Move_ButtonTrueSet_Main_ButtonTrueEndIfSet_StatusbarEndSubPrivateSubPresent_Search()Search_TableSearch_Window.ShowJudge_Form.HideEndSubPrivateSubOther_Search()DimsSQLString，sSQLString1，sSQLString2AsStringDimsDELStringAsStringJudge_Form.HideSetJudge_Back=Judge_TablesSQLString=vbNullStringSelectCaseSelect_TableCase1IfTableSelect=TrueThensDELString="delete*from招聘打印表"sSQLString1="insertinto招聘打印表select*from招聘where(性别='不限'"EndIfsSQLString2="select*from招聘where(性别='不限'"IfLen(Trim(Judge_Back.Fields("性别").Value))>0ThensSQLString=sSQLString+"or性别='"+Trim(Judge_Back.Fields("性别").Value)+"')"EndIfIfLen(Trim(Judge_Back.Fields("拟从事工作（1）").Value))>0ThensSQLString=sSQLStrin