现代企业的HR战略及现代企业人才管理系统

现代企业的e-HR战略随着网络技术跳跃式的发展，以网络经济为主导的新经济形势下的现代企业之竞争愈来愈直接地反映为人才战略的竞争。在此背景下，企业管理的转型，尤其是人力资源管理的转型就日显重要。为适应快速变化的市场，企业需要更加灵活、快速反应的人力资源管理平台和解决方案。“人力资源管理”已真正成为企业管理炙手可热的话题。无论从形式还是从内容上，企业的确是越来越重视人力资源的管理与开发。然而，在人力资源管理是否应该实施e-化、以及如何实现e-化的问题上，不少现代企业还存在着诸多困惑。笔者结合自身的工作实践和学习体会，妄谈以下观点与大家分享。不妥之处，请见谅。

一、人力资源管理需要企业全员参与

经过几年的发展和培育，国内企业终于出现了一批专业的人力资源管理者，他们不仅接受了先进人力资源管理理念的熏陶，而且掌握了企业人力资源实务操作方法。为此，在大多数企业经营者和广大员工看来：在建立企业的人力资源管理体系等问题上，似乎只有HR管理者们最具有发言权，人力资源管理也只是HR专业人士的事情。

然而，现代人力资源理论越来越多地认为：人力资源管理绝不仅仅是人力资源部和HR专业人士的事，他要求企业全员的支持和参与。没有了领导和决策层的强有力支持，HR部门的战略就无法与企业业务战略协调一致、许多计划就很难得以实施，这就势必会影响到HR部门的工作力度，从而影响企业完整的HR管理体系的建立。同时，作为业务能手的企业中层经理们的全面参与和配合，将极大地推动公司新的HR计划和政策的制订和实施－－这无疑会大大减轻HR部门的工作强度，使政策和制度的制定和实施真正落实到位。另外，员工的广泛参与会有助于提高HR服务的速度、质量和员工满意度。

总之，企业的人力资源管理活动是需要通过企业不同角色（HR专业人士、决策层、中层经理以及员工）的共同参与来完成的，而不只是HR部门的工作。这也就是所谓的“全面人力资源管理”。理想状况下，企业不同角色之间应该建立起一条良性的HR管理生态链。HR管理首先是企业经营的需要；HR部门为满足这种需求设计和制订各种用于加强HR管理的各项规章和制度（比如薪酬福利体系、绩效管理体系、招聘甑选体系、以及员工培训和发展体系等），并通过分析市场的各种反馈，来帮助企业提升需求的层次；同时，HR部门还需要将企业内部的各级中层经理培养成为各项HR规章制度的代言人和实施者，由中层经理直接面对作为最终用户的员工进行日常管理。

可以想见，如果没有全员的参与，人力资源管理无异于HR部门闭门造车。而企业一旦能够切实按照全员参与的原则进行HR管理，HR部门就可以把精力放在分析作为其顾客的其他角色（包括公司高层、中层和员工）的需求，并不断提升自己满足客户需求的能力，为客户提供更好的HR产品与服务。

当然，目前中国大多数企业的实际情况是：由于过去几年对人力资源管理的培训主要集中在人力资源专业人事身上，而忽视了对企业高层和中层经理及员工的相关培训，使得很多的企业经营者对人力资源管理缺乏理性和感性认识，导致HR管理生态链上的各个角色不能很好地进入状态。因此，对于大多数中国企业而言，接受过专业培训的HR部门还必须承担起宣传和推广HR管理产品和服务（包括管理理念与管理技术两个层面）的责任。

那么，如何才能更有效地使HR体系和产品和服务在企业中更广泛地得到高效应用呢？建立e-化的HR系统是现代企业加强人力资源管理，增强可持续竞争力的有效办法。

二、实施人力资源管理e-化战略

在企业的资金、技术、市场和人才等诸多经营要素中，管理者对人力资源的经营是最为模糊的。很多企业往往将人力资源视为一种不得已的成本开销，而不知道如何对人力资源进行价值经营。在人力资源经营理念中，很重要的一个概念就是人力资本。企业的所有经营活动，都是依赖于人力资本来实现的。资金、技术、市场是相对容易掌握的，而可持续竞争优势的创造最终要靠人。而实现人力资本的最大化，有赖于对企业内部不同角色客户之需求的满足。这就要求HR部门通过分析不同客户的需求，有针对性地为他们提供HR管理产品与服务。那么，作为客户的企业高层、中层经理以及普通员工对HR的需求又分别是什么呢？

人力资源管理的主要功能在于“选人、用人、育人、留人”，每一个功能其实都可以设计相应的指标来进行效果评价。人力成本的组成要素可以由企业自行定义，比如吸收成本、使用成本、安置成本、追加成本、流动成本、机会成本、沉没成本、重置成本乃至原始成本等，都是可考虑的因素。比如：每流失一名关键岗位的员工，都会给企业的人力资本带来损失，而这个值基本上可以通过该岗位的平均人力成本来衡量，于是，这些关键岗位的离职率越低，企业的人力资本损失就越少，从另外一个角度来看，就是HR部门为企业实现的人力资本的保值增值。事实上，通过对HR部门的工作进行定量评价，也有助于企业决策者对HR部门的认识从“成本中心”向“利润中心”转变。

对于企业高层而言，过去他们都习惯于看销售额、利润、利润率、增长率等经营指标，却很少去分析人力资源状态指标与经营指标的内在联系，因而很难从根本上找到提升企业经营绩效的办法；但如果能够建立起不同部门（机构）、不同人群（如销售、研发、管理和服务等）的经营指标与关键的人力资源状态指标（如总人数、学历结构、年龄结构、司龄状况、离职率、晋升率、人力成本等）之间的关系，就能使高层比较直观地掌握企业经营指标受人力资源状态指标影响的规律，从而有针对性地制订相应策略、通过人力资源管理、开发、经营手段来提升组织绩效。

一旦企业高层真正意识到人力资源经营的重要性，并掌握了人力资源经营效果的评价方法，他们就会成为对HR管理需求的发起者，从而使人力资源管理真正列上决策者的重要议事日程，而不是通常人们所说的：“人力资源管理是重要但不紧急的”。因此，HR部门针对企业高层进行的人力资源宣传推广策略应该是：通过提供一些关键的、可获取结果的人力资源投入产出经营指标以及人力资源状态指标，将人力资源经营的理念传递给高层。而对于中层管理人员而言，他们往往是业务能力强于管理能力，而其中最为薄弱的恐怕是对人力资源的管理了。原因在于，过去人们普遍认为HR管理只是HR部门的事，人力资源管得好与坏也只与HR部门有关系。但现代人力资源管理的发展趋势是：多数人力资源活动（比如员工招聘与录用、绩效管理、培训与发展、薪酬管理、企业文化和员工关系等）的实施将由中层经理与HR部门共同完成，甚至委托/授权给中层经理独立完成。事实上，HR部门是无法了解到每一个员工的详细情况的，只有一线中层经理才对自己下属的状况与需求最为熟悉。HR部门要做的，是制定HR管理的计划、流程以及策略（即设计制造HR管理产品、并提供顾问咨询和服务平台），通过培训一线中层经理熟悉并善于在日常管理中贯彻这些计划、流程与策略。同时，人力资源部还可以通过着重培养一线中层经理的沟通技巧，以确保沟通渠道的畅通和有效。通过培训与授权，让中层经理参与到HR管理全部活动中来，使得他们在管理能力得到提升的同时还能促进其业务的发展。

对于一般员工而言，一套完善的HR管理体系以及对管理体系的执行力度是他们最为关注的。因为大多数人都会倾向于选择一个有序、透明的工作环境。HR管理体系的建立与对管理体系的宣传指导应该由HR部门来统一实施，而作为HR管理产品和服务代言人的一线中层经理将负责在管理体系上的执行。让员工共享更多的信息，是增进员工与HR部门之间信任度的重要因素。当然，在让员工了解HR部门工作的基础上，要想进一步减少员工的抱怨，提升员工对HR部门工作的满意度，就需要员工参与到HR管理活动中来，同时还要求HR部门做到能满足员工的个性化需求，给予员工更多的关注。比如：使员工能够方便地自主更新并获得与个人相关的人事信息、能够得到及时的转正；生日能够得到公司的祝福；培训能够得到及时的安排；能够及时了解内部职位的空缺信息；能够随时了解自己的薪资福利状况和股权信息；能够方便的请假、销假；能够随时查询并调整自己的工作目标；能够和HR部门进行有效沟通等等。不过，这些服务的提供，实际上是需要利用技术手段来支持员工与HR部门之间建立更多的互动，否则这些服务的提供是很难实现的。

总之，HR部门对企业内不同客户进行的人力资源管理推广，一靠对HR管理体系的宣传指导与切实执行，二靠通过技术手段满足大家不同层次的个性化需求，给予大家更多的关注，并让大家参与到HR管理活动中来。让他们充分应用HR管理产品和服务，才是成功的保证。而有效地利用信息技术手段，建立起企业的e-HR管理平台，将有力地推动HR管理生态链上不同角色对HR管理活动的参与热情和参与深度。

三、金蝶软件实施e-HR战略、推动企业全面人力资源管理

HR部门通常需要通过人力资源宣传推广手段，促进企业不同角色参与到HR管理活动中来，并希望借助信息技术的手段（人力资源管理系统）真正实现“全面人力资源管理”。

事实上，人力资源管理系统已经经历了比较长的发展过程，只不过传统的人力资源管理系统，主要是用来解决HR部门自身的业务管理问题，比如人事信息管理、薪资计算、考勤管理等等，这类信息系统的应用，能够从某种程度上提升HR管理的效率，但由于系统的用户对象主要是HR部门的管理人员，HR管理的信息流无法突破本部门之外，从而导致了HR管理体系的封闭状况始终不能得到改善。

随着互联网技术的出现，信息流突破了部门的限制而延伸到企业内外的各个角落，使得HR管理的业务流程再造成为可能，HR管理体系也将因此而突破封闭的模式，企业各级管理者及普通员工也能参与到HR的管理活动中来。于是e-HR应运而生了。与传统人力资源管理系统不同，e-HR是从"全面人力资源管理"的角度出发，利用互联网技术为HR管理搭建一个标准化、规范化、网络化的工作平台，在满足HR部门业务管理需求的基础上，还能将HR管理生态链上不同的角色联系起来，使得e-HR成为企业实行“全面人力资源管理”的纽带。

作为国内民营企业的娇娇者，金蝶软件很早就认识到人力资源管理的重要性，总裁徐少春自身就是人力资源工作最大的推动者，好几年前就提出了激情管理与数字化管理相结合的管理模式，致力于提升企业管理竞争力。在成功开发K/3人力资源系统的过程中，积极在本集团加以推广应用，从而在很大程度上保证了e-HR在金蝶的成功实施。

金蝶通过与咨询公司等合作从制订战略开始，首先理顺了高层管理人员的思路，再逐层落实组织结构，在职位分析方面，从任职资格到职位评估，做了大量的基础工作。对金蝶来说这一切都是值得的，它使得整个公司的管理明确化，无论是为管理工作e化的实现，还是更进一步提升企业的管理工作，都可以顺利的实现。在金蝶，通过K/3人力资源系统，每一个员工都可以通过自己的职位自动确定自己在系统中所拥有的权限和范围，并可获取与之相关的资源和信息。而系统中的人力资源管理事务也都随之展开。部门有招聘需求时，系统会自动生成用工需求，提供与职位相关的信息，同时可根据任职要求自动过滤应聘人员资料；而培训体系也是基于任职要求和员工职业发展通路建立起来，这也就解决了很多企业管理者想培训却不知如何培训的问题。员工的绩效考核和干部管理人员民主评议更是可以方便地实现在线操作。

通过实践，金蝶人真正感受到了e-HR的好处。以下是我们的一些体会：

1．e-HR之于HR部门

HR部门实施的人力资源管理活动，包括了从人力资源计划、招聘、在职管理（人事信息管理、考勤休假管理、培训管理、绩效管理、薪酬管理、员工关系）一直到员工离职的所有HR管理职能。虽然越来越多的HR管理活动会授权和委托给一线中层经理来实施，但HR管理体系的建立、HR管理活动的计划、管理过程的监控、管理结果的汇总与分析、以及结果应用等工作都需要HR部门统一来完成。只是HR管理活动的过程将更多地授权给中层经理和普通员工来完成。因此，对HR部门而言，除了负责eHR平台的系统管理之外，更多地是通过eHR平台来进行HR管理活动的计划、监控与分析，而不是进行大量的数据维护，而数据维护的工作经授权后将逐渐由一线经理与员工分担完成。当然，出于管理的需要，类似于薪酬管理这样的职能，很多企业还将以HR部门为主来完成。

2．e-HR之于高层

对公司高层而言，e-HR首先是人力资源信息查询与决策支持的平台。决策者能不通过HR部门的帮助，自助式地获取企业人力资源的状态信息，在条件允许的情况下（要求企业业务管理系统、财务系统的基础数据比较完善，并能跟e-HR平台集成起来），高层决策者还能获得各种辅助其进行决策的人力资源经营指标。其次，利用e-HR平台，当某个HR管理活动的流程到达高层决策者桌面时，决策者还可以在网上直接进行处理。

3．e-HR之于中层经理

对一线中层经理来讲，e-HR是其参与HR管理活动的工作平台，通过这个平台，中层经理们可在授权范围内在线查看所有下属员工的人事信息，更新员工考勤信息，向人力资源部提交招聘、培训计划和申请，对员工的转正、培训、请假、休假、离职等流程进行在线审批，并能在线对员工进行绩效评估和管理，并对各级管理人员和员工进行在线民主评议。4．e-HR之于员工

员工利用e-HR平台，可在线查看企业规章制度、组织结构、重要人员信息、内部招聘信息、个人当月薪资及薪资历史情况、期权信息和执行情况、个人福利累计情况、个人考勤休假情况，注册内部培训课程、提交请假/休假申请，更新个人数据，进行个人绩效和目标管理，与HR部门进行电子方式的在线沟通等等。

值得指出的是，由于e-HR是建立在标准业务流程基础之上的，它要求个人的习惯服从于企业统一的管理规范，这对实现HR管理行为的一贯化是十分有意义的，而管理只有成为大家共同遵循的一种习惯，才能发挥最佳功效。

要想成功实施e-HR,最重要的是企业决策人员要对人力资源管理工作高度重视。对于人力资源的投入往往是一种长期效应，其短期效益的体现不是很明显。如果得不到高层决策人员的支持是不可能得到有效的资源来e化企业的人力资源管理的。

企业的信息工程往往是一把手工程，而对于通常被视为“重要但不紧急”的人力资源系统的实施又尤为明显。作为企业决策者，最关心的莫过于企业的利润，但企业的利润从何而来？靠的是企业的员工！一个企业只有将它的员工的个人绩效进行提升并进行有效组织，才能体现为整个企业对外的竞争力，才能更好地提升客户满意度，从而获取更多的利润。而只有通过这种手段和方式获得的企业竞争力才是最具可持续性的。现代企业人才管理系统摘要本论文是从现代企业管理中的人才管理现状出发，针对人才管理的复杂程序，经过详细的系统调查，开发出的操作简单而且方便实用的一个人才管理系统。

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

本系统经过测试，运行稳定，已得到认可。关键词：人才管理系统，VisualBasic6.0，Access2000

SummaryManagethecurrentsituationandsetoutfromtalentinmodernbusinessadministrationinthisthesis,totalentcomplicatedprocedureofmanagement,investigatethroughdetailedsystemoperationsimpleandconvenientpracticalonetalentadministrativesystemthatdevelop.ThefrontdevelopinginstrumentofthissystemisVisualBasic6.0,backstagesupporter'sdatabaseengineselectsthedatabasesoftwareAccess2000foruse.Thissystemrunssteadily,hasalreadybeenapprovedthroughtesting.Keyword:Talent'sadministrativesystem,VisualBasic6.0,Access2000前言

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

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

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

DATA控件在数据库中的信息与将信息显示给用户看的VisualBasic程序之间架起了一座桥梁。我们可以设置DATA控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。DATA控件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。第三章使用Access2000实现关系型数据库一、数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（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.一三保存记录P3.12撤消操作P3.11尾记录P3.10下一条记录P3.9上一条记录P3.一三保存记录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或Microsoftwindow2000\应用软件：中文版MicrosoftWord97/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本菜单组实现对当前数据表的编辑操作，主表要求全部手工操作，实现数据库的更新，副表可以实现对主表的数据的补充，并实现对过期记录的处理。所有操作均要求作撤消和保存操作处理，以确认。当前数据表的添加与修改均有对当前记录的当前字段合法性检验，以保证数据的准确性。数据表的“编号”为系统自动标号，采用的是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=一三ThenUnloadMespeed_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_TableCase一三'人才信息表CallPerson_TableCase14'招聘信息表Callengage_TableCase一五'关闭信息表CallClose_TableCase17'页面设置CallPaper_SetCase一八'打印预览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_RecorderCase一三'尾记录CallLast_RecorderCase一五'撤消CallCancle_RecorderCase16'保存CallSave_RecorderCase一八'搜索当前表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(一五).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(一五).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(