人才管理_现代企业人才管理系统

现代企业人才管理系统摘要 本论文是从现代企业管理中的人才管理现状出发，针对人才管理的复杂程序，经过详细的系统调查，开发出的操作简单而且方便实用的一个人才管理系统。 本系统的前端开发工具是Visual Basic 6.0，后台数据库引擎选用数据库软件Access 2000。 本系统经过测试，运行稳定，已得到认可。 关键词：人才管理系统，Visual Basic 6.0，Access 2000Summary Manage the current situation and set out from talent in modern business administration in this thesis, to talent complicated procedure of management , investigate through detailed system operation simple and convenient practical one talent administrative system that develop. The front developing instrument of this system is Visual Basic 6.0, backstage supporters database engine selects the database software Access 2000 for use. This system runs steadily, has already been approved through testing.Keyword: Talents administrative system, Visual Basic 6.0, Access 2000前言 随着计算机技术的不断发展，计算机作为知识经济时代的产物，已被广泛应用于社会各个行业和领域。随着我国国企改革的深入和社会主义市场经济的日趋繁荣，导致各企业间的竞争日益激烈，迫使企业采取先进的计算机硬件设备以及高质量的辅助软件来管理企业的各项运作，以提高本企业的劳动生产率以及人员效率。人才管理系统软件作为一种理软件正在各企事业单位中得到越来越广泛的应用。目录 摘要1 前言2 绪论4 第一章 人才管理系统概述 第二章 怎样开发一个学生档案管理系统？ 2.1编程环境的选择 2.2 关系型数据库的实现 2.3二者的结合（DBA） 第三章 使用Access2000 实现关系型数据库 3.1 数据库的概念 3.2新建一个数据库 3.3 修改已建的数据库 3.4 实现数据库之间的联系 第四章:人才管理系统分析 4.1可行性分析 4.2系统数据流程图 4.3数据字典 第五章:人才管理系统设计 5.1系统功能模块图 5.2数据库设计 5.3界面设计 5.4程序设计 第六章:系统测试 第七章:系统使用说明 第八章：结束语第九章：参考文献第十章：程序源代码绪论1、 设计名称: 人才管理系统2、开发单位: 葫芦岛广播电视大学3、开发期限: 3.8-4.284、设计目标:（1） 近期目标:在5.1之前能达到基本的人才管理信息的录入,管理以及打印.（2） 长期目标:在3年之内能够完善软件全部功能,实行软件的长运经济战略.第一章 人才管理系统概述 人力资源管理系统的发展历史可以追溯到20世纪60年代末期。由于当时计算机技术已经进入实用阶段，同时大型企业用手工来计算和发放薪资既费时费力又非常容易出差错，为了解决这个矛盾，第一代的人力资源管理系统应运而生。当时由于技术条件和需求的限制，用户非常少，而且那种系统充其量也只不过是一种自动计算薪资的工具，既不包含非财务的信息，也不包含薪资的历史信息，几乎没有报表生成功能和薪资数据分析功能。但是，它的出现为人力资源的管理展示了美好的前景，即用计算机的高速度和自动化来代替手工的巨大工作量，用计算机的高准确性来避免手工的错误和误差，使大规模集中处理大型企业的薪资成为可能第二章 怎样开发一个人才管理系统一、 编程环境的选择微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。关系型数据库的实现Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。二者的结合（DBA）微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。DATA 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。我们可以设置DATA控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。DATA控件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。第三章 使用Access2000 实现关系型数据库一、数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。二、新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1.标识需要的数据；2.收集被标识的字段到表中；3.标识主关键字字段；4.绘制一个简单的数据图表；5.规范数据；6.标识指定字段的信息；7.创建物理表。三、修改已建的数据库数据库的修改分为：添加、编辑和删除记录.这三种操作均可由Visual Basic 创建的程序来完成.四、实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系.第四章 人才管理系统分析一、可行性分析：“需求分析”和“运营效率分析”是人才管理系统的重要依据，这两份分析应说明“确实有要求”和“值得开发”。人才管理系统的成败，人是决定因素，如果用帕拉图ABC分类来看，人才是A类，数据是B类，软件是C类，应值得注意技术上的开发与维护，经济上是否盈亏，法律上的版权保护。本版软件具有技术，运营，经济，法律等多方面的可行性。 ACCESS中文版作为一个关系型数据库系统，它提供了面向对象的编程技术，可简化数据库管理，使开发应用程序这项艰辛的工作就象堆积木那样简单方便。另外，用ACCESS中文版开发的应用程序可以独立运行于windows平台 。二、系统分析图人才信息表提档招聘单位管理员人才信息库归档人才信息查询信息登记人才信息表应聘人员招聘信息表单位信息表招聘信息表提档管理员应聘人员招聘信息库归档单位信息表信息登记招聘单位招聘信息查询外部项 人工输入 人工操作 文档 归档文档 三、数据字典（1）数据元素 a人才信息表所包含的元素 基本信息包括：编号、姓名、性别、民族、户口所在地、目前所在地、证件类型、证件号 码、出生日期、政治面貌、婚姻状况、目前、身高、体重等。个 人简历包括：教育经历（入学时间、毕业时间、所学专业、所在学校、获得学历），培训情况（开始时间、结束时间、培训单位、培训课程、获得证书），工作经历（起始时间、结束时间、公司名称、公司性质、工作部门、工作职位）等。求职意向包括：期望单位性质、期望工作地点、期望职位、职位名称、期望工资要求等。技能特长包括：外语（外语种类、外语水平），汽车驾驶（驾照、驾龄），计算机（计算机水平），其他特长等。自我评价包括：自我评价，职业目标等。 b单位信息表所包含的元素：单位编号、单位名称、单位电话、经营范围、单位地址、传真、电子信箱、登记时间、法人代表、单位性质、企业网址、电话、联系人等。 c. 招聘信息表包括：单位名称、编号、需求人数、性别、专业、学历、开始时间、截止时间、基本要求等。 第五章 人才管理系统设计一、系统功能模块图主系统P0P1数据库P2信息表P3编辑P4查询P5报表P6系统P1数据库P1.4更新P1.3回收站P1.7关闭P1.6备份P1.5恢复P1.2打开P1.1新建P2信息表P2.1人才求职信息登记表P2.4关闭信息表P2.3招聘信息表P2.2单位基本信息表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.1添加数据P4.3综合查询P4.2异表查询P4.1当前表查询P4查询P5.3打印P5.2打印预览P5.1页面设置P5报表P6.5退出P6.4关于P6.3作者P6.2软件说明书P6.1用户设置P6系统(1) 数据库设计人才信息求职意向个人简历基本信息技能特长基本信息姓名民族联系方式地址身高职位目前状况婚姻状况政治面貌出生日期专业类别身份证号码性别联系人照片体重个人简历工作经历培训情况教育经历培训结果培训形式培训内容培训单位结束时间开始时间学历学位学习形式院校、系别结束时间开始时间专业开始时间培训结果培训形式培训内容培训单位结束时间基本要求求职意向自荐培训情况薪金要求希望月薪希望年薪最低月薪其他要求专业代码要求工作地区拟从事工作拟求职位意向单位流动条件流动方式其他特长计算机汽车驾驶外语技能特长计算机水平驾照驾龄外语语种外语水平 （E-R图之人才信息）单位信息单位招聘信息招聘单位信息性别需求人数单位编号基本要求结束时间开始时间学历专业联系人电话单位地址单位性质单位名称单位编号联系人身份证号登记时间经营范围联系人姓名单位电话法人姓名 （E-R图之单位信息）(2) 界面设计(3)程序设计系统测试在人才信息管理系统这个软件制作好了以后并不是就没事了！其实日后的测试、推广与更新维护才是最重要的！第一节 功能测试功能测试是测试阶段要完成的最普通，也是最显而易见的测试。必须对整个管理软件进行检查，以确保所有功能正确执行，不会产生不期望出现的错误信息、异常和执行动作。对于管理项目，功能测试中最重要的一点就是电脑兼容性测试，即，确保管理软件在所有电脑上都能操作正常。同样，还要检查软件在不同操作系统条件下输入数据功能是否正常。 对于一个人才信息管理软件，甚至即使是一个很少的数据录入，花在测试上的时间也是很多的。下面是在进行功能测试时需要注意的事项：（1） 链接：是否存在链接中断，是否存在错误链接？（2） 录入：录入内容是否正确（3） 信息表格：能否正确填写并保存（4） 设计：有没有不能看到或读取的因素（5） 打印：所需的人才信息页面能否正确打印进行功能测试时，要从最特殊的情形开始，或者从可能产生问题最多的配置开始。然后再测试大多数招聘单位录入是所用电脑时采用的配置。如果在上述情况下，次软件能正常工作，那么，对于其他情况基本上也不会出现太多的问题。一旦完成所有更改后，那么反过来再进行一次性大多数人才信息录入时采用配置的测试，以便检查确认，经过上述测试后没有产生新的问题。进行功能测试时，应该尽量超越被认为是电脑正常运行使用的情况。比如说，对于人才信息输入测试，应该试着随意输入一些或同时输入诸如逗号、引号、省略号、换行符、尖括号、百分号等特殊字符，以检查是否会产生录入错误。第二节 错误管理在进行测试时，需要建立一套机制，以记录和处理暴露出来的错误和缺陷，这可以保证测试者发现一个错误时，可以系统地将之记录下来。为了使测试工作安全地进行，测试者有时对一个错误处理后，还需要重新生成这个错误。尤其是对于递归测试，可能更要考虑更进一步的测试，并且能再试着生成这个错误。对于一个有多个测试者的项目，采用数据库的方式记录、跟踪和管理错误信息更合适。这样，多个测试者就可以同时使用数据库，并且数据库有访问和验证控制功能，以使错误纪录的过程更加有效和可靠。数据库的结构属性依赖于错误纪录处理过程。错误记录和管理数据库包含以下字段：（1）人才编号：如果给每个错误纪录独一无二的编号，那么就可以很容易地找到指定的错误纪录。（2）日期记录：错误记录日期（3）记录人：记录错误的人员（4）优先级：可以设定错误的重要级别，这个级别对应处理时间（5）类型：可以按错误类型将错误分类（6）描述：关于错误的详细描述。它包括关于错误的所有信息及错误是如何产生的信息（7）错误发现日期：错误第一次发现的时间（8）负责人：错误处理责任人（9）意见：当责任人看到错误时提出的意见（10）状态：错误当前的状态（11）处理日期：错误解决的时间第三节 运行测试对于一个人才信息管理系统的软件运行测试尤为重要，尽管我们在进行功能测试时已检查出用户界面的错误，但离开软件或进行数据输出的结果，还需要进行运行测试。定义运行测试的界限依赖于人才管理信息的范围。在很多情况下，解决运行测试时暴露的问题不是由软件设计者负责，而是应该由人才管理的单位自己或有关的第三方负责。但由于系统的整体性问题，同时软件设计者负责的部分也是次软件站的核心，因此，运行问题还是需要软件设计者和人才管理的单位及第三方共同去解决。 一个好的信息管理软件，不仅仅是一次性制作完美就可以的，由于人才信息的情况在不断地变化，软件的管理内容也需要随之调整。这就要求我们对软件进行长期的不间断的维护和更新。第四节 软件的维护 软件维护一般包含以下内容：内容的更新（如人才信息的更新，招聘单位的招聘信息的动态更新，招聘启示更新等）。软件风格的更新（如软件改版）、软件重要页面设计制作（如启示类重大事件页面及招聘单位周年庆等页面制作）、软件系统维护服务（如：系统管理员帐号、软件版本升级、人才信息管理的维护、招聘单位的招聘信息等）。第七章 系统使用说明一、系统环境与安装硬件配置建议配置：CPU：PII 450 或更高；内存：32MB以上；显卡：支持800X600或更高；打印机：至少能够打印A4纸。软件配置操作系统：中文版Microsoft window 98 或Microsoft window 2000应用软件：中文版 Microsoft Word 97/2000(软件说明书)软件安装检查当前系统时间的正确性将载有人才管理系统的光盘放入光驱（如果有多个光驱时，放入第一个光驱），系统自动检测光盘的合法性。系统自动启动人才管理系统的安装系统，用户在安装系统的中文提示下，可以轻松完成软件的安装。人才管理系统安装成功后，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 本菜单组实现对当前数据表的编辑操作，主表要求全部手工操作，实现数据库的更新，副表可以实现对主表的数据的补充，并实现对过期记录的处理。所有操作均要求作撤消和保存操作处理，以确认。当前数据表的添加与修改均有对当前记录的当前字段合法性检验，以保证数据的准确性。1、 数据表的“编号”为系统自动标号，采用的是12为编码，分别是年2位，月2位，日2位，时2位，分2位，秒2位，数据超长分项取当前值的末2位，不足则左补“0”，以保证数据的唯一性。2、 时间限制的日期值，将进行数据比较，合法才可以继续，否则将要求对数据进行人工检验。3、 字录入文本框要求仅录入数字，非数字将不予接受。4、 日期录入文本框要求仅录入数字和“-”或“/”。七、查询实现当前表和异表查询。如图7-1。 图7-1 1、 当前查询 因对本系统的调研不足，无法了解更为详细的系统要求，故建立如图7-2所示的数据查询窗体，要求操作人员必须对人才管理有一定的了解，同时应具备一定的计算机操作技能和数据库SQL语句的知识（此项需要改进，但目前可以保证本系统的强大的查询功能）。 图7-22、 异表查询 可以实现对当前主表选定数据的的配套查询。如：当前表为“人才信息表”，则可以选定一条记录，进行异表查询，找到适合本记录要求的单位招聘信息。此项功能为后台操作，系统自动完成。八、报表实现数据报表的设置、预览和打印。如图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:Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click() 设置全局变量为 false 不提示失败的登录 LoginSucceeded = False End End SubPrivate Sub cmdOK_Click() 检查正确的密码 If txtPassword = 0322 And txtUserName = admin Then 将代码放在这里传递 成功到 calling 函数 设置全局变量时最容易的 LoginSucceeded = True Me.Hide face_window.Show Else MsgBox 无效的密码，请重试!, , 登录 txtPassword.SetFocus SendKeys Home+End End If End Sub二、face_window: Private Sub Form_Load()Move (Screen.Width - Me.Width) 2, (Screen.Height - Me.Height) 2End SubPrivate Sub Picture1_KeyPress(Keyascii As Integer)If Keyascii = 13 Then Unload Me speed_window.ShowEnd IfEnd Sub3speed_window:Private Sub Command1_Click()If Command1.Caption = 取消 ThenEndElseUnload MeEnd IfEnd SubPrivate Sub Command2_Click() Command2.Enabled = False Load Main_Window Main_Window.Show Main_Window.WindowState = 2 ProgressBar1.Value = 10 ProgressBar1.Refresh Load person_window person_window.Hide ProgressBar1.Value = 20 ProgressBar1.Refresh Load factory_window factory_window.Hide ProgressBar1.Value = 30 ProgressBar1.Refresh Load engage_window engage_window.Hide ProgressBar1.Value = 40 ProgressBar1.Refresh Load author_window author_window.Hide ProgressBar1.Value = 50 ProgressBar1.Refresh Load factory_report factory_report.Hide ProgressBar1.Value = 60 ProgressBar1.Refresh Load Search_Window Search_Window.Hide ProgressBar1.Value = 70 ProgressBar1.Refresh Load Need_report Need_report.Hide ProgressBar1.Value = 80 ProgressBar1.Refresh Load Person_report Person_report.Hide ProgressBar1.Value = 90 ProgressBar1.Refresh Load about_system_window about_system_window.Hide ProgressBar1.Value = 100 ProgressBar1.Refresh Command1.Caption = 完成End SubPrivate Sub Form_Load() Move (Screen.Width - Me.Width) 2, (Screen.Height - Me.Height) 2 SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3 End Sub4main_window:Option ExplicitDim Reco_Cancel As Integer 记录操作标记Dim BMark As Variant 记录标签Dim SData(100) As Variant 当前记录的字段数组Dim Cycle_Set As Integer 回收站操作标记Const MSG2 = （无）Private Sub MAbout_Author_Click()Call About_AuthorEnd SubPrivate Sub MAbout_System_Click()Call About_SystemEnd SubPrivate Sub MAll_Search_Click()Call All_SearchEnd SubPrivate Sub MAppend_Recorder_Click()Call Append_RecorderEnd SubPrivate Sub MBack_Data_Click()Call Back_DataEnd SubPrivate Sub MCancle_Recorder_Click()Call Cancle_RecorderEnd SubPrivate Sub MClear_Reco_Click()Call Clear_RecoEnd SubPrivate Sub MClose_Data_Click()Call Close_DataEnd SubPrivate Sub MClose_Table_Click()Call Close_TableEnd SubPrivate Sub MCycle_Data_Click()Call Cycle_DataEnd SubPrivate Sub MDelete_Reco_Click()Call Delete_RecoEnd SubPrivate Sub MDelete_Recorder_Click()Call Delete_RecorderEnd SubPrivate Sub MDIForm_Load()Dim i As IntegerCoolBar1.Bands(3).Visible = FalseFor i = 10 To 20Toolbar(0).Buttons(i).Enabled = FalseNext iMInfo_Table.Enabled = FalseMEdit_Recorder.Enabled = FalseMQuery_Table.Enabled = FalseMReport_Form.Enabled = FalseReco_Cancel = 0Cycle_Set = 0End SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)Dim Key As IntegerKey = MsgBox(你真的退出人才管理系统吗？, 33, 退出管理系统！)If Key = 1 Then end_window.ShowElse Cancel = TrueEnd IfEnd SubPrivate Sub MEngage_Table_Click()Call engage_TableEnd SubPrivate Sub MExit_System_Click()Call Exit_SystemEnd SubPrivate Sub MFactory_Table_Click()Call Factory_TableEnd SubPrivate Sub MFirst_Recorder_Click()Call First_RecorderEnd SubPrivate Sub MHelp_Text_Click()Call Help_TextEnd SubPrivate Sub MLast_Recorder_Click()Call Last_RecorderEnd SubPrivate Sub MModify_Recorder_Click()Call Modify_RecorderEnd SubPrivate Sub MNew_Data_Click()Call New_DataEnd SubPrivate Sub MNext_Recorder_Click()Call Next_RecorderEnd SubPrivate Sub MOpen_Data_Click()Call Open_DataEnd SubPrivate Sub MOther_Search_Click()Call Other_SearchEnd SubPrivate Sub MPaper_Set_Click()Call Paper_SetEnd SubPrivate Sub MPerson_Table_Click()Call Person_TableEnd SubPrivate Sub MPresent_Search_Click()Call Present_SearchEnd SubPrivate Sub MPrevious_Recorder_Click()Call Previous_RecorderEnd SubPrivate Sub MPrint_Form_Click()Call Print_formEnd SubPrivate Sub MPrint_Previous_Click()Call Print_PreviousEnd SubPrivate Sub MResume_Data_Click()Call Resume_DataEnd SubPrivate Sub MRevert_Reco_Click()Call Revert_RecoEnd SubPrivate Sub MSave_Cycle_Click()Call Save_CycleEnd SubPrivate Sub MSave_Recorder_Click()Call Save_RecorderEnd SubPrivate Sub MUpdate_Data_Click()Call Update_DataEnd SubPrivate Sub MUser_Set_Click()Call User_SetEnd SubPrivate