人事管理信息系统论文

系统需求分析的目的是需要把整个系统按照功能划分为不同的业务功能模块，业务功能模块间业务逻辑彼此独立，仅通过业务逻辑接口进行关联，并在单个业务功能模块内完成业务流程的需求分析。以下是小编精心整理的《人事管理信息系统论文(精选3篇)》，仅供参考，大家一起来看看吧。

人事管理信息系统论文 篇1：

浅谈高职院校人事管理信息系统建设

摘 要：建立一套完整的数字化的高职院校人事管理信息系统，可以实现办公网络条件下的自动化、数字化管理，并能够在提高管理效率、提供决策依据和实现信息互通、资源共享、优质服务等方面都起着至关重要的作用。

关键词：高职院校；人事管理；信息系统；建设

随着现代化、科技化的不断发展，高职院校的人事管理工作，已经取得了进一步的发展，从手工操作逐渐转变为计算机管理。人事信息的网络化管理即高职院校所建立的人事管理信息系统已经成为高职院校人事管理工作的主流。

高职院校的人事管理信息系统的建立可以扩大人事信息资源的整合，极大地提高了组织、人事、教务、科研等部门的工作效率和服务质量，同时也为学校节约了大量的人力和物资资源，取得了显著的经济效益和社会效益。

一、高职院校建设人事管理信息系统的必要性

建立一套完整的高职院校人事管理信息系统可以有效地将全校教职员工的个人信息进行集中整合，形成一个较大的信息资源库，可以有效地掌握人事异动信息，随着高职院校办学规模的不断扩大，人员流动越来越频繁，能够有效地将教职员工的学历、学位、职务、职称、科研、考察、进修、培训、社会服务以及教学情况等数据进行必要的掌握以及能够及时地跟踪调整，改变了采用传统的office组件中的Word、Excel等电子文档操作、保存的各类数据，往往会出现更改不及时，或顾此失彼，而且修改后的都是当前最新数据，而历史数据不易保存，即使保存了也不易查找、统计。

高职院校才培养工作状态数据采集、师资队伍建设、事业单位年报、高等学校基层报表等信息上报工作往往是人事管理人员较为头疼的工作之一，传统的手工操作，不但浪费时间，而且不敢保证数据的准确性，并且不能够实现数据的共享，人事管理信息系统的建立可以实现数据的自动汇总、分析，管理人员只需设定相應的汇总分析类别，便可以实现相应的操作，大大地提高了人事管理工作的工作效率，而且保证了数据的准确性。

人事管理信息系统的建立可以将全校教职员工的信息有效地汇总在一起，并可以查看相关的佐证材料，这样可以改变原始的档案查找方式，教职工的提职资格审察、职称评定的资格审核、科研成果的申报以及人员退休的审核等完全可以调整电子档案进行信息的核查，这样可以提高核查的速度，减少纸质档案的翻阅次数，使纸质档案保存更加完整。

二、高职院校人事管理信息系统的设计原则

高职院校人事管理信息系统的建立应当与国家、省、市相关信息采集的相关信息集和信息项保持完全一致，尽可能地遵守并符合国家的相关标准。按照本学院的机构设置以及人事管理层次和模式进行建构，适合人事管理机构的管理，按类别设定不同的权限，满足更多人员的查找需求，在权限范围内全面提高学院各部门（单位）对人事信息查找、使用的便捷性。

人事管理信息系统的建立不应单纯考虑现有状况，在设计过程中要富有远见性，系统的开发应采用较为成熟、可靠的先进技术，能向不断发展中的现代技术过渡的产品，综合考虑当前的实用性、较高的性能价格比、系统使用的生命周期、系统今后的扩展和升级等几个因素。

人事管理信息系统应具有方便和强有力的网络管理功能，具有较好的可维护性，信息的开发设计要简便，便于人事管理人员较快地掌握系统的应用，也能够较好地实现系统的维护与管理的操作。

人事管理信息系统的建立要注意信息的安全性，信息的共享可以有效地提高工作效率，但相对而言就会使信息的安全性能降低，在人事管理信息系统的设计之初要进行深入的调研，征求意见，设计好权限的下发，保证信息的安全。人事管理信息系统的建立，要从硬件、软件、数据、用户等多环节全面考虑信息系统的安全保密要求，从技术设计和管理体制上把好关。

三、高职院校人事管理信息系统的功能实现

实现教职工信息统一管理。建立高职院校人事管理信息系统，除了人事基础的信息之外，教师的教学、科研等也是人事管理信息系统内部数据之一，这样可以将教师在工作期间的所有的相关信息均予以记录，以免出现数据的多部门登记，同时也避免了一个部门需求多种数据，由多部门（单位）提供。

建立高职院校人事管理信息系统，可以实现数据的共享，以及信息材料的网上传递，避免佐证材料的复印，实现无纸化办公。

建立高职院校人事管理信息系统，在实现基础材料完整的前提下，可以按不同类别、不同条件的进行数据的查询、统计功能，并且可以形成直观、丰富的图形图表，动态的分析可以提高工作的效率，保证准确性，并可以通过WORD、EXCEL等软件格式导出，便于电子统计的保存。

四、高职院校人事管理信息系统的功能模块设计

根据人事管理部门职责的不同，通常高职院校人事管理信息系统需要预设以下模块：人事信息管理模块，人事档案管理模块，人员（异动）管理模块，工资福利管理模块，岗位设置与聘任管理模块，职务（等级）评聘管理模块，年度考核管理模块，培训进修管理模块，挂职锻炼模块，社会服务模块，人才招聘管理系统，提醒管理系统，数据统计分析系统，系统管理模块。

（一）人事信息管理系统

人事信息管理系统模块需要支持不同部门的不同用户可以有不同的操作权限和操作范围，信息采集工作可以采取教职员工本人填报，部门（单位）可在办公室设定一名管理人员，并赋予管理、审核的权限，各部门（单位）管理人员一方面可以将教职工所填写的人事信息数据审核后及时通过网络进行上报，另一方面也可以迅速地接收到人事管理部门所反馈的各种人事信息等。采用这样的管理运行模式，人事管理部门以及基层单位可以对信息进行有效地采集和维护，建立可靠的基础库，实现一次录入，多次使用，资源共享，保证数据的一致性、时效性。

（二）人事档案管理模块

在实现原有传统人事档案管理的基础上，人事管理信息系统可以不断地丰富教师专业知识结构、学术科研成果水平及实际工作业绩等材料，逐步达到教学业务档案和人事档案的相互融合。一方面能够更加全面地反映教职员工各方面业绩成果，另一方面将纸质档案转变为电子信息档案，为教职员工在今后的出国培训、进修、离职等服务提供了极大的方便。

（三）人员（异动）管理模块

通过此模块可以有效地掌握学校人员的部门（单位）变化情况以及新入职、退休人员的具体情况。实现人员（异动）网络化管理，当有新员工入职时可以在签订合同后，通过网络程序，完成相应的报到手续，退休同理。当学校人员部门（单位）发生变化，或职务发生变化时，也可根据学校的相关文件调整相应的项目，通过网络告知各部门（单位）。

（四）工资福利管理模块

工资福利管理模块包含教职员工的工资管理、薪级管理、岗位津贴管理、绩效工资管理以及保险管理、丧葬费管理、公积金管理等。通过此模块的操作管理，可以根据人员的增加、减少、职称职务的调整等流程传递的数据，对相关人员进行工资变动处理；对人事代理人员和企业性质人员的保险缴纳情况进行管理，自动生成相应报表；学院福利、加班费的发放情况进行信息化管理。避免手工操作，减少错误率。

（五）岗位设置与聘任管理模块

按照省、市人社部门的统一安排部署，根据学院编制的核定情况确定各类人员以及各等级人员的数量，通过网络发布岗位设置和聘任方案，教职工可以在网上进行相关申报工作并通过网络上传提交申报材料。完成岗位设置与聘任的网上操作，包括信息报送、表格的填写以及岗位及等级的即时调整等。

（六）职务（等级）评聘管理模块

职务评审的教职工在人事管理系统的相应模块填写职称评审表格，相关职能部门通过人事管理信息系统进行申报人员所提交的相关佐证的审核工作。利用人事管理信息系统可以减少职称评审时表格手工填写、数据审核的重复性劳动，提高材料的准确性和工作效率，且能让评委了解到申报人员更全面的信息，使评审工作更加公开透明。

（七）年度考核管理模块

年度考核工作是事业单位院校每年都要进行的一项工作，通过此模块的操作，可以实现员工在人事管理信息系统中填写年度考核表，并通过系统传至部门（单位），统一报至人事管理部门。并可以通过系统进行考核结果的数据统计与分析功能。

（八）培训进修管理模块

当教职员工拟进行学历、学位教育以及业务能力培训时应进入本模块填写相应的表格，进行申请，当批准后方可进行；当教职员工完成学历、学位教育或业力能力培训时，应在系统中提交总结并附相应的佐证材料。

（九）社会服务模块

高职院校的特征之一便是社会服务工作。高职院校的教师基本上都是双师型教师，具体企业的兼职经验，或参与到一些社会科研等。通过此模块可以对高职院校教职员工在企业兼职、或参与企业研发等情况进行记录备案，并进行统计分析。

（十）人才招聘管理系统

当学校进行人员招聘时，可以在学校的主网站发布人才招聘的政策以及人才招聘的相关信息。应聘人员可以登录人事管理网站进行注册申请，在网上登录系统，填报应聘信息，并提交相应的佐证材料，人事管理人员在网上查看并审核应聘人员信息，并可以将应聘人员信息分拨至用人部门（单位），使用人单位可以全面了解报名人员的基本情况，组织考核面试，并在网站进行公示。实现人才招聘工作的网络化、信息化管理。

（十一）提醒管理系统

提供待办事项通过系统消息和短消息提醒等多种功能。当管理员需要传递消息给某用户的时候，可以通过系统给某人发消息，如果没有回复则系统会不断提醒该用户有任务要做。同时本模块还支持将消息内容发送到用户手机上。

（十二）数据统计分析系统

人事统计报表是人事管理工作中必不可少统计项目之一，手工统计的数据可能出现统计的误差，尤其在现在报表多表关联的情况下，即使一点点的错误也会导致数据的无法提交，使用数据统计分析统计，可以方便人事管理人员使用特定的统计功能和丰富的查询功能，可以按用户的要求进行任意的查询。方便各类人员查看相关信息，为学院各类报表填报、师资队伍建设、人事调整、政策制定提供信息支持。

总之，高职院校人事管理信息系统的建立是高职院校“数字化”校园建设的重要组成部门。通过人事管理信息系统的建立，可以不断提高高职院校的人才服务质量，提升高職院校教育教学水平，为社会的发展提供更多的技能型、复合型人才。

作者：李文强　马琼

人事管理信息系统论文 篇2：

人事管理信息系统需求分析

系统需求分析的目的是需要把整个系统按照功能划分为不同的业务功能模块，业务功能模块间业务逻辑彼此独立，仅通过业务逻辑接口进行关联，并在单个业务功能模块内完成业务流程的需求分析。

1 总体业务描述

本文设计的人事管理信息系统是一个针对单位人事管理单位管理职工档案信息和管理职工的实际工作情况，并结合单位人事管理通用的管理功能和操作习惯等特点开发设计的一个基于WEB的人事管理信息系统。

单位职工可以通过该系统变更、调整、申请等业务。人事管理员可以对档案信息进行查询，财务可以对工资信息发放，单位领导可查询职工具体情况。

1.1 系统业务流程

根据需求分析得到的现行业务处理流程，一是公司员工登录和查询信息业务流程：登录、进入查询模块、查询信息；二是系统操作员登录和后续相关操作的业务流程：登录，进入处理模块，查询处理信息。其次进入修改和添加模块，进行修改、添加和删除相关信息。

1.2 系统数据流程

数据流程表示求解某一问题的数据通路。在人事管理信息系统的需求分析过中，还将使用结构化的分析方法。所谓结构化的分析方法就是通过自顶向下、逐层分解的方法，把大问题分解成小问题，然后分别解决。

人事管理系统的数据流。分为员工和操作员登录的两大部分，员工可以在系统中进行注册，注册信息后可登录界面，进而进行查询。对于操作员登录后能对登记的信息进行修改和维护等操作。

2 系统数据字典

数据字典是配合数据流程使用的工具之一。在结构化分析时所定义的数据字典，主要用来描述数据流程中的数据流、数据存储、处理过程、数据源点和终点。

2.1 系统的主要数据流

1. 流 名： 登陆验证

位 置： 操作员"登陆处理

定 义： 登陆验证=操作员姓名+密码

2. 流 名： 验证结果

位 置： 登陆处理"操作员

定 义： 验证结果=[登陆成功|用户未注册|密码错误]

3. 流 名： 登记信息

位 置： 登记处理"人事管理基本信息

定 义： 登记信息=人事管理基本信息

4. 流 名： 登记结果

位 置： 人事管理基本信息"登陆处理

定 义： 登陆结果=[成功|失败]

5. 流 名： 员工注册

位 置： 员工"登陆处理

定 义： 员工注册=员工基本信息+密码

6. 流 名： 注册结果

位 置： 登陆处理"员工

定 义： 注册结果=[注册成功|注册失败]

7. 流 名： 员工登陆

位 置： 员工"登陆处理

定 义： 登陆验证=员工姓名+密码

8. 流 名： 登记结果

位 置： 登记处理"员工处理

定 义： 登陆结果=[成功|失败]

9. 流 名： 查询要求

位 置： 员工处理"人事管理基本信息

定 义： 查询要求=员工姓名

10. 流 名： 查询结果

位 置： 人事管理基本信息"员工处理

定 义： 查询结果=[人事管理基本信息|失败]

11. 流 名： 系统维护

位 置： 登记处理"人事管理基本信息

定 义： 登记新到员工的基本信息、人员调动、福利、出勤、请假、基本工资、操作员授权等

12. 流 名： 维护结果

位 置： 人事管理基本信息"登记处理

定 义： 把登记的员工的基本信息、人员调动、福利、出勤、请假、基本工资、操作员授权信息等反馈给操作员。

2.2 系统的主要数据存储

1.数据存储名称： 操作员授权

输 出： P1

数据结构： 操作员姓名+密码

2. 数据存储名称： 人事管理基本信息

输 入： P1

输 出： P3

数据结构： 员工的基本信息、人员调动、福利、出勤、请假、基本工资信息等

3 数据存储名称： 员工信息

输 出： P2

数据结构： 员工姓名+密码

3.系统的功能性需求

从功能上看，该人事管理系统可以分为七个子功能模块：人员基本信息管理、人员档案信息管理、工资管理、考勤管理、休假管理、统计查询和系统维护。

人员基本信息管理子功能模块与系统权限管理模块相结合，将人员权限落实到每一个人，在系统中授予相应的权限，体现出以人为本的管理理念。

人员档案信息管理子功能模块：主要包括姓名、性别、出生日期、年龄、照片、户籍、地址、电话、身份证号码、最高学历、家庭状况、主要简历等。

工资管理子功能模块：工资帐套管理、工资档案结算等。

考勤管理模块：该模块分为基本考勤、加班考勤和出差考勤三部分

统计查询模块：包括人事档案查询、职工调整查询、合同续签查询、职工培训、奖惩、考核查询、工资档案查询。

系统维护模块：模块包含单位设置、数据字典、自定界面、编号设置、提醒设置等。

每个包一个子功能模块，分别对相应的事务进行管理。用例中包括5个用例：领导、人事档案管理员、财务管理员、系统管理员和职员。

人事档案系统：人事档案系统是劳动人事管理系统中的核心模块之一。人事档案管理员可以管理人员档案信息，进行人员相关信息职评定修改、调动管理。

系统管理：系统管理员可以根据系统需要，添加部门，删除、更新部门，管理系统基本资料。

财务管理：财务管理员的职责尤为重要，该财务管理主要是针对人才培养投入的各种经费管理，包括工资等等多种经费的管理。

综合查询：此模块功能简单明确。领导登陆后可以查阅任何信息。

4 系统非功能性需求

非功能性需求，是指软件产品为满足用户业务需求而必须具有且除功能需求以外的特性。

（1）系统的完整性

系统的完整性指为完成业务需求和系统正常运行本身要求而必须具有的功能，这些功能往往是用户不能提出的，典型的功能包括联机帮助、数据管理、用户管理、软件发布管理和在线升级等。

（2）技术适应性与应用适应性

系统的适应性与系统的可扩充性和可维护性的概念相似，也表现产品的一种应变能力，但适应性强调的是在不进行系统设计修改的前提下对技术与应用需求的适应能力，软件产品的适应性通常表现为产品的可配置能力。

（3）系统的可扩展性与可维护性

指系统对业务和技术需求变化的支持能力。当技术变化或业务变化时，不可避免将带来系统的改变。因此不仅要进行设计实现的修改，甚至要进行产品定义的修改。

5.总结

本章介绍了人事管理系统的基本概念和基本特点，并对人事管理系统的典型需求进行了分析描述。此外还介绍了人事管理系统的具体功能需求和非功能性需求，并针对非功能性需求提出了技术解决方案。

作者：栾贞

人事管理信息系统论文 篇3：

基于Excel /Access的人事管理信息系统开发

［摘 要］ Excel是最优秀的电子表格，它在中小企业信息管理开发方面有较大的优势与潜力。本设计采用Excel、Access和ADO 技术对人事管理信息系统进行VBA编程，较好地解决了文本框、组合框和照片在Excel界面上的使用问题；用界面Excel显示人员信息，大量记录存放在Access数据库中，Excel通过ADO与Access进行数据交换。在查询人员遇到重名时，重名记录显示在主界面下。只要双击要选择的人员工号，界面上就可以显示出其信息。

［关键词］ Excel VBA； Access； ADO； 人事管理信息系统

doi : 10 . 3969 / j . issn . 1673 - 0194 . 2011 . 01 . 024

［

１人事管理主界面

人事信息管理主界面如图１所示。

２数据库设计

数据库名：ｍｙｆｒｉｅｎｄ．ｍｄｂ 表名：ｍｙｔａｂｌｅ

表结构：Ｘ１ ，Ｘ２ ，Ｘ３， Ｘ４，Ｘ５ ，Ｘ６ ，Ｘ７， Ｘ８， Ｘ９ ，Ｘ１０，Ｘ１１，Ｘ１２ ，Ｘ１３ ，Ｘ１４， Ｘ１５，Ｘ１６ ，Ｘ１７ ，Ｘ１８， Ｘ１９， Ｘ２０ ，Ｘ２１分别表示：工号、姓名、性别、出生年月、民族、学历、政治面貌、部门、职务、身份证、职称、工资卡、岗位、养老、进厂时间、公积金、电话、医保、手机、Ｅ-ｍａｉｌ和家庭地址。

３ＡＤＯ（Ｍｉｃｒｏｓｏｆｔ ＡｃｔｉｖｅＸ Ｄａｔａ Ｏｂｊｅｃｔ）

（１） 开发工具—Ｖｉｓａｕｌ Ｂａｓｉｃ—进入ＶＢＥ窗口。

（２） 选择菜单“工具”—“引用”命令。在下拉列表框中查找并选中“Ｍｉｃｒｏｓｏｆｔ ＡｃｔｉｖｅＸ Ｄａｔａ Ｏｂｊｅｃｔｓ ２．１ Ｌｉｂｒａｒｙ”复选框，完成对ＡＤＯ的引用。

４几项关键技术

４．１ 人员照片

人员照片以ＯＥＬ对象插入数据库表字段中，而是将全部员工照片存在某一个目录。本设计目录为：ｍｐｉｃｕｔｕｒｅ。照片格式为ｊｐｇ。每个人员照片名利用它的工号，即工号＋ｊｐｇ，如工号为０１０１员工照片名为：０１０１．ｊｐｇ。由于没有重复工号，所以照片名也不会有重复问题。当某一个人没有照片时，则显示没有照片的图片，即：ｅｒｒｏｒＰｉｃｔｕｒｅ．ｊｐｇ，如图２所示。

关键语句：

（１） 当有照片时：

．Ｐｉｃｔｕｒｅ ＝＂＼ｍｐｉｃｔｕｒｅ＼＂＆ ｒｓ（＂ｘ１＂）＆ ＂．ｊｐｇ＂）

（２）当没有照片时：

．Ｐｉｃｔｕｒｅ ＝ ＬｏａｄＰｉｃｔｕｒｅ（ＴｈｉｓＷｏｒｋｂｏｏｋ．Ｐａｔｈ

＆ ＂＼ｍｐｉｃｔｕｒｅ＼＂ ＆ ＂ｅｒｒｏｒＰｉｃｔｕｒｅ．ｊｐｇ＂）

４．２重名处理

当查询某一姓名时，可能遇到重名问题。主界面上先显示第一条查到的某一人员信息。然后在主界面下方，再显示同名人员相关信息。如果主界面上不是所要查询的人员，只要在主界面下方，找到本次查询所需要某一人员，双击其工号，系统会自动将所要查询人的信息显示在当前的主界面上。关键代码如下：

Ｐｒｉｖａｔｅ Ｓｕｂ Ｗｏｒｋｓｈｅｅｔ＿Ｂｅｆｏｒｅ ＤｏｕｂｌｅＣｌｉｃｋ

（ＢｙＶａｌ Ｔａｒｇｅｔ Ａｓ Ｒａｎｇｅ， Ｃａｎｃｅｌ Ａｓ Ｂｏｏｌｅａｎ）

Ｄｉｍ ｍ＿ＴｘｔＮｏ Ａｓ Ｓｔｒｉｎｇ

ｍｙＲａｎｇｅ ＝ Ｒａｎｇｅ（＂Ａ１４：Ａ２０＂）

Ｉｆ ＡｃｔｉｖｅＣｅｌｌ．Ｃｏｌｕｍｎ ＝ １ Ａｎｄ （ＡｃｔｉｖｅＣｅｌｌ．Ｒｏｗ ＞＝ １４ Ａｎｄ ＡｃｔｉｖｅＣｅｌｌ．Ｒｏｗ ＜＝ ２０） Ｔｈｅｎ

ｍ＿ＴｘｔＮｏ ＝ Ｔｒｉｍ（ＡｃｔｉｖｅＣｅｌｌ．Ｖａｌｕｅ）

ｄｉｓｐｌａｙ重名 （ｍ＿ＴｘｔＮｏ）

Ｃａｎｃｅｌ ＝ Ｔｒｕｅ

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｓｕｂ

４．３组合框赋初值

使用ＶＢＡ的窗体进行组合框设初值，比较简单，也无需ＶＢＡ编程。而使用Ｅｘｃｅｌ在界面上设计组合框的初值就需要ＶＢＡ编程。

首先在Ｅｘｃｅｌ第二页面，页面名为“资料”，填写各种组合框下拉项目值，然后用ＶＢＡ代码将它写到对应的组合框下。其代码如下：

Ｐｒｉｖａｔｅ Ｓｕｂ Ｗｏｒｋｂｏｏｋ＿Ａｃｔｉｖａｔｅ（）

Ｄｉｍ ｍｃｏｌ Ａｓ Ｉｎｔｅｇｅｒ

ｍｃｏｌ ＝ Ｓｈｅｅｔｓ（＂资料＂） ＿

．Ｒａｎｇｅ（＂Ａ１００＂）．Ｅｎｄ（ｘｌＵｐ）．Ｒｏｗ

Ｆｏｒ ｉ ＝ １ Ｔｏ ｍｃｏｌ

Ｓｈｅｅｔｓ（＂人事管理＂）．Ｃｍｂ学历．ＡｄｄＩｔｅｍ Ｓｈｅｅｔｓ（＂资料＂）．Ｃｅｌｌｓ（ｉ， １）

Ｎｅｘｔ ｉ

其他组合框赋初值方法与此类似。

５主要ＶＢＳ宏

５．１增加新人员

Ｓｕｂ ａｄｄ＿ｒｅｃｏｒｄ（）

Ｄｉｍ ｍ＿ＴｘｔＮｏ Ａｓ Ｓｔｒｉｎｇ

Ｉｆ Ｓｈｅｅｔｓ（＂人事管理＂）．Ｔｘｔ工号．Ｖａｌｕｅ ＝ ＂＂ Ｏｒ Ｓｈｅｅｔｓ（＂人事管理＂）．Ｔｘｔ姓名．Ｖａｌｕｅ ＝ ＂＂ Ｔｈｅｎ

Ａｎｓｗｅｒ ＝ ＭｓｇＢｏｘ（＂没有输入工号或姓名，请重新输入。＂， ６４， ＂错误提示＂）

Ｅｘｉｔ Ｓｕｂ

Ｅｌｓｅ

Ｓｅｔ ｃｏｎｎ ＝ ＣｒｅａｔｅＯｂｊｅｃｔ（＂ＡＤＯＤＢ．ｃｏｎｎｅｃｔｉｏｎ＂）

Ｓｅｔ ｒｓ１ ＝ ＣｒｅａｔｅＯｂｊｅｃｔ（＂ａｄｏｄｂ．ｒｅｃｏｒｄｓｅｔ＂）

ｃｏｎｎ．Ｏｐｅｎ ＂Ｐｒｏｖｉｄｅｒ＝Ｍｉｃｒｏｓｏｆｔ．Ｊｅｔ．ＯＬＥＤＢ．４．０；Ｄａｔａ Ｓｏｕｒｃｅ＝＂ ＆ ＴｈｉｓＷｏｒｋｂｏｏｋ．Ｐａｔｈ ＆ ＂＼ｍｙｆｒｉｅｎｄ．ｍｄｂ＂

ｍ＿ＴｘｔＮｏ ＝ Ｔｒｉｍ（Ｓｈｅｅｔｓ（＂人事管理＂）．Ｔｘｔ工号．Ｖａｌｕｅ）

Ｓｑｌ ＝ ＂ｓｅｌｅｃｔ * ｆｒｏｍ ｍｙｔａｂｌｅｗｈｅｒｅ ｔｒｉｍ（ｘ１）＝＇＂ ＆ ｍ＿ＴｘｔＮｏ ＆ ＂＇ ＂

ｒｓ１．Ｏｐｅｎ Ｓｑｌ， ｃｏｎｎ， ３， ３

Ｉｆ Ｎｏｔ ｒｓ１．ＥＯＦ Ｔｈｅｎ

Ａｎｓｗｅｒ ＝ ＭｓｇＢｏｘ（＂此职工已存在，请检查工号，重新输入。＂， ６４， ＂错误提示＂）

ｒｓ１．Ｃｌｏｓｅ

Ｓｅｔ ｒｓ１ ＝ Ｎｏｔｈｉｎｇ

Ｅｘｉｔ Ｓｕｂ

Ｅｌｓｅ

Ｓｅｔ ｒｓ ＝ ＣｒｅａｔｅＯｂｊｅｃｔ（＂ａｄｏｄｂ．ｒｅｃｏｒｄｓｅｔ＂）

Ｓｑｌ ＝ ＂ｓｅｌｅｃｔ * ｆｒｏｍ ｍｙｔａｂｌｅ ＂

ｒｓ．Ｏｐｅｎ Ｓｑｌ， ｃｏｎｎ， ３， ３

ｒｓ．Ａｄｄｎｅｗ

Ｗｉｔｈ Ｓｈｅｅｔｓ（＂人事管理＂）

ｒｓ（＂ｘ１＂） ＝ ．Ｔｘｔ工号．Ｖａｌｕｅ

ｒｓ（＂ｘ２＂） ＝ ．Ｔｘｔ姓名．Ｖａｌｕｅ

Ｉｆ ．Ｏｐｔ男．Ｖａｌｕｅ ＝ Ｔｒｕｅ Ｔｈｅｎ

ｒｓ（＂ｘ３＂） ＝ ＂男＂

Ｅｌｓｅ

ｒｓ（＂ｘ３＂） ＝ ＂女＂

Ｅｎｄ Ｉｆ

ｒｓ（＂ｘ４＂） ＝ ．Ｔｘｔ出生．Ｖａｌｕｅ

ｒｓ（＂ｘ５＂） ＝ ．Ｃｍｂ民族．Ｖａｌｕｅ

ｒｓ（＂ｘ６＂） ＝ ．Ｃｍｂ学历．Ｖａｌｕｅ

ｒｓ（＂ｘ７＂） ＝ ．Ｃｍｂ政面．Ｖａｌｕｅ

ｒｓ（＂ｘ８＂） ＝ ．Ｃｍｂ部门．Ｖａｌｕｅ

ｒｓ（＂ｘ９＂） ＝ ．Ｃｍｂ职务．Ｖａｌｕｅ

ｒｓ（＂ｘ１０＂） ＝ ．Ｔｘｔ身份证．Ｖａｌｕｅ

ｒｓ（＂ｘ１１＂） ＝ ．Ｃｍｂ职称．Ｖａｌｕｅ

ｒｓ（＂ｘ１２＂） ＝ ．Ｔｘｔ工资卡．Ｖａｌｕｅ

ｒｓ（＂ｘ１３＂） ＝ ．Ｃｍｂ岗位．Ｖａｌｕｅ

ｒｓ（＂ｘ１４＂） ＝ ．Ｔｘｔ养老．Ｖａｌｕｅ

ｒｓ（＂ｘ１５＂） ＝ ．Ｔｘｔ进厂时间．Ｖａｌｕｅ

ｒｓ（＂ｘ１６＂） ＝ ．Ｔｘｔ公积金．Ｖａｌｕｅ

ｒｓ（＂ｘ１７＂） ＝ ．Ｔｘｔ电话．Ｖａｌｕｅ

ｒｓ（＂ｘ１８＂） ＝ ．Ｔｘｔ医保．Ｖａｌｕｅ

ｒｓ（＂ｘ１９＂） ＝ ．Ｔｘｔ手机．Ｖａｌｕｅ

ｒｓ（＂ｘ２０＂） ＝ ．ＴｘｔＥｍａｉｌ．Ｖａｌｕｅ

ｒｓ（＂ｘ２１＂） ＝ ．Ｔｘｔ地址．Ｖａｌｕｅ

Ｅｎｄ Ｗｉｔｈ

ｒｓ．Ｕｐｄａｔｅ

Ｅｎｄ Ｉｆ

ｒｓ．Ｃｌｏｓｅ

Ｓｅｔ ｒｓ ＝ Ｎｏｔｈｉｎｇ

ｃｏｎｎ．Ｃｌｏｓｅ

Ｓｅｔ ｃｏｎｎ ＝ Ｎｏｔｈｉｎｇ

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｓｕｂ

５．２人员记录删除

Ｓｕｂ ｄｅｌｅ＿ｒｅｃｏｒｄ（）

Ｄｉｍ Ａｎｓｗｅｒ Ａｓ Ｉｎｔｅｇｅｒ

Ｄｉｍ ｍ＿ＴｘｔＮｏ Ａｓ Ｓｔｒｉｎｇ

Ｄｉｍ ｍ＿ＴｘｔＮａｍｅ Ａｓ Ｓｔｒｉｎｇ

ｍ＿ＴｘｔＮｏ ＝ Ｔｒｉｍ（Ｓｈｅｅｔｓ（＂人事管理＂）．Ｔｘｔ工号．Ｖａｌｕｅ）

ｍ＿ＴｘｔＮａｍｅ ＝ Ｔｒｉｍ（Ｓｈｅｅｔｓ（＂人事管理＂）．Ｔｘｔ姓名．Ｖａｌｕｅ）

Ｉｆ ｍ＿ＴｘｔＮｏ ＝ ＂＂ Ｏｒ ｍ＿ＴｘｔＮａｍｅ ＝ ＂＂ Ｔｈｅｎ

Ａｎｓｗｅｒ ＝ ＭｓｇＢｏｘ（＂没有删除所需的记录。＂， ６４， ＂错误提示＂）

Ｅｘｉｔ Ｓｕｂ

Ｅｎｄ Ｉｆ

Ａｎｓｗｅｒ ＝ ＭｓｇＢｏｘ（＂你确认要删除这条记录吗？＂， ｖｂＹｅｓＮｏ， ＂友情提示＂）

Ｉｆ Ａｎｓｗｅｒ ＝ ７ Ｔｈｅｎ

Ｅｘｉｔ Ｓｕｂ

Ｅｎｄ Ｉｆ

Ｓｅｔ ｃｏｎｎ ＝ ＣｒｅａｔｅＯｂｊｅｃｔ（＂ＡＤＯＤＢ．ｃｏｎｎｅｃｔｉｏｎ＂）

ｃｏｎｎ．Ｏｐｅｎ ＂Ｐｒｏｖｉｄｅｒ＝Ｍｉｃｒｏｓｏｆｔ．Ｊｅｔ．ＯＬＥＤＢ．４．０；Ｄａｔａ Ｓｏｕｒｃｅ＝＂ ＆ ＴｈｉｓＷｏｒｋｂｏｏｋ．Ｐａｔｈ ＆ ＂＼ｍｙｆｒｉｅｎｄ．ｍｄｂ＂

Ｓｑｌ ＝ ＂Ｄｅｌｅｔｅ ＊ ｆｒｏｍ ｍｙｔａｂｌｅｗｈｅｒｅ ｔｒｉｍ（ｘ１）＝＇＂ ＆ ｍ＿ＴｘｔＮｏ ＆ ＂＇ｏｒ ｔｒｉｍ（ｘ２）＝＇＂ ＆ ｍ＿ＴｘｔＮａｍｅ ＆ ＂ ＇ ＂

ｃｏｎｎ．Ｅｘｅｃｕｔｅ （Ｓｑｌ）

ＰｅｒｓｏｎＣｌｅａｒ ＇调用清除宏

ｃｏｎｎ．Ｃｌｏｓｅ

Ｓｅｔ ｃｏｎｎ ＝ Ｎｏｔｈｉｎｇ

［Ｂ２：Ｂ７］ ＝ ＂＂

［Ｄ２：Ｄ５］ ＝ ＂＂

Ｅｎｄ Ｓｕｂ

５．３人员记录查询

Ｓｕｂ ＰｅｒｓｏｎＦｉｎｄ（）

Ｄｉｍ ｍｐｉｃｔｕｒｅ Ａｓ Ｓｔｒｉｎｇ

Ｄｉｍ ｉ Ａｓ Ｉｎｔｅｇｅｒ

Ｄｉｍ ｍｗ Ａｓ Ｉｎｔｅｇｅｒ

Ｄｉｍ ｍｈ Ａｓ Ｉｎｔｅｇｅｒ

Ｄｉｍ ｍ＿ＴｘｔＮｏ Ａｓ Ｓｔｒｉｎｇ

Ｄｉｍ ｍ＿ＴｘｔＮａｍｅ Ａｓ Ｓｔｒｉｎｇ

ｉ ＝ ０

ｍｗ ＝ ０

ｍｈ ＝ ０

ｍＲｅｃｏｒｄＣｏｕｎｔ ＝ ０

Ｓｅｔ ｃｏｎｎ ＝ ＣｒｅａｔｅＯｂｊｅｃｔ （＂ＡＤＯＤＢ．ｃｏｎｎｅｃｔｉｏｎ＂）

Ｓｅｔ ｒｓ ＝ ＣｒｅａｔｅＯｂｊｅｃｔ（＂ａｄｏｄｂ．ｒｅｃｏｒｄｓｅｔ＂）

ｃｏｎｎ．Ｏｐｅｎ＂Ｐｒｏｖｉｄｅｒ＝Ｍｉｃｒｏｓｏｆｔ．Ｊｅｔ．ＯＬＥＤＢ．４．０；Ｄａｔａｏｕｒｃｅ＝＂ ＆ＴｈｉｓＷｏｒｋｂｏｏｋ．Ｐａｔｈ ＆ ＂＼ｍｙｆｒｉｅｎｄ．ｍｄｂ＂

ｍ＿ＴｘｔＮｏ ＝ Ｔｒｉｍ（Ｓｈｅｅｔｓ（＂人事管理＂）．Ｔｘｔ工号．Ｖａｌｕｅ）

ｍ＿ＴｘｔＮａｍｅ ＝ Ｔｒｉｍ（Ｓｈｅｅｔｓ（＂人事管理＂）．Ｔｘｔ姓名．Ｖａｌｕｅ）

Ｓｑｌ ＝ ＂ｓｅｌｅｃｔ * ｆｒｏｍ ｍｙｔａｂｌｅｗｈｅｒｅ ｔｒｉｍ（ｘ１）＝＇＂ ＆ ｍ＿ＴｘｔＮｏ ＆ ＂＇ｏｒ ｔｒｉｍ（ｘ２）＝＇＂ ＆ ｍ＿ＴｘｔＮａｍｅ ＆ ＂ ＇ ＂

ｒｓ．Ｏｐｅｎ Ｓｑｌ， ｃｏｎｎ， ３， ３

Ｉｆ ｒｓ．ＥＯＦ Ｔｈｅｎ

Ａｎｓｗｅｒ ＝ ＭｓｇＢｏｘ（＂查无此人。＂， ６４， ＂友情提示＂）

Ｅｌｓｅ

Ｗｉｔｈ Ｓｈｅｅｔｓ（＂人事管理＂）

．Ｔｘｔ工号．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１＂）

．Ｔｘｔ姓名．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ２＂）

Ｉｆ ｒｓ（＂ｘ３＂） ＝ ＂男＂ Ｔｈｅｎ

．Ｏｐｔ男．Ｖａｌｕｅ ＝ Ｔｒｕｅ

Ｅｌｓｅ

．Ｏｐｔ女．Ｖａｌｕｅ ＝ Ｔｒｕｅ

Ｅｎｄ Ｉｆ

．Ｔｘｔ出生．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ４＂）

．Ｃｍｂ民族．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ５＂）

．Ｃｍｂ学历．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ６＂）

．Ｃｍｂ政面．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ７＂）

．Ｃｍｂ部门．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ８＂）

．Ｃｍｂ职务．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ９＂）

．Ｔｘｔ身份证．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１０＂）

．Ｃｍｂ职称．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１１＂）

．Ｔｘｔ工资卡．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１２＂）

．Ｃｍｂ岗位．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１３＂）

．Ｔｘｔ养老．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１４＂）

．Ｔｘｔ进厂时间．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１５＂）

．Ｔｘｔ公积金．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１６＂）

．Ｔｘｔ电话．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１７＂）

．Ｔｘｔ医保．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１８＂）

．Ｔｘｔ手机．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１９＂）

．ＴｘｔＥｍａｉｌ．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ２０＂）

．Ｔｘｔ地址．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ２１＂）

Ｅｎｄ Ｗｉｔｈ

Ｗｉｔｈ Ｓｈｅｅｔｓ（＂人事管理＂）．Ｉｍａｇｅ１

ｍｗ ＝ ．Ｗｉｄｔｈ

ｍｈ ＝ ．Ｈｅｉｇｈｔ

Ｖｉｓｉｂｌｅ ＝ Ｆａｌｓｅ

Ｏｎ Ｅｒｒｏｒ ＧｏＴｏ １００

．Ｐｉｃｔｕｒｅ ＝ ＬｏａｄＰｉｃｔｕｒｅ（ＴｈｉｓＷｏｒｋｂｏｏｋ．Ｐａｔｈ ＆ ＂＼ｍｐｉｃｔｕｒｅ＼＂ ＆ ｒｓ（＂ｘ１＂） ＆ ＂．ｊｐｇ＂）

．ＡｕｔｏＳｉｚｅ ＝ Ｔｒｕｅ

．Ｗｉｄｔｈ ＝ ｍｗ

．Ｈｅｉｇｈｔ ＝ ｍｈ

．Ｖｉｓｉｂｌｅ ＝ Ｔｒｕｅ

Ｅｎｄ Ｗｉｔｈ

ＧｏＴｏ ２００

１００：

Ｗｉｔｈ Ｓｈｅｅｔｓ（＂人事管理＂）．Ｉｍａｇｅ１

ｍｗ ＝ ．Ｗｉｄｔｈ

ｍｈ ＝ ．Ｈｅｉｇｈｔ

．Ｖｉｓｉｂｌｅ ＝ Ｆａｌｓｅ

．Ｐｉｃｔｕｒｅ ＝ ＬｏａｄＰｉｃｔｕｒｅ（ＴｈｉｓＷｏｒｋｂｏｏｋ．Ｐａｔｈ ＆ ＂＼ｍｐｉｃｔｕｒｅ＼＂ ＆ ＂ｅｒｒｏｒＰｉｃｔｕｒｅ．ｊｐｇ＂）

．ＡｕｔｏＳｉｚｅ ＝ Ｔｒｕｅ

．Ｗｉｄｔｈ ＝ ｍｗ

．Ｈｅｉｇｈｔ ＝ ｍｈ

．Ｖｉｓｉｂｌｅ ＝ Ｔｒｕｅ

Ｅｎｄ Ｗｉｔｈ

Ｅｎｄ Ｉｆ

２００：

Ｉｆ ｒｓ．ＲｅｃｏｒｄＣｏｕｎｔ ＞ １ Ｔｈｅｎ

ｉ ＝ １

Ｄｏ Ｗｈｉｌｅ Ｎｏｔ ｒｓ．ＥＯＦ

Ｗｉｔｈ Ｓｈｅｅｔｓ（＂人事管理＂）

．Ｃｅｌｌｓ（１３ ＋ ｉ， １） ＝ ｒｓ（＂ｘ１＂）

．Ｃｅｌｌｓ（１３ ＋ ｉ， ２） ＝ ｒｓ（＂ｘ２＂）

．Ｃｅｌｌｓ（１３ ＋ ｉ， ３） ＝ ｒｓ（＂ｘ８＂）

．Ｃｅｌｌｓ（１３ ＋ ｉ， ４） ＝ ｒｓ（＂ｘ３＂）

．Ｃｅｌｌｓ（１３ ＋ ｉ， ５） ＝ ｒｓ（＂ｘ４＂）

Ｅｎｄ Ｗｉｔｈ

ｉ ＝ ｉ ＋ １

ｒｓ．ＭｏｖｅＮｅｘｔ

Ｌｏｏｐ

Ｅｎｄ Ｉｆ

ｒｓ．Ｃｌｏｓｅ

Ｓｅｔ ｒｓ ＝ Ｎｏｔｈｉｎｇ

ｃｏｎｎ．Ｃｌｏｓｅ

Ｓｅｔ ｃｏｎｎ ＝ Ｎｏｔｈｉｎｇ

Ｅｎｄ Ｓｕｂ

５．４重名处理

Ｆｕｎｃｔｉｏｎ ｄｉｓｐｌａｙ重名（ｍ＿ＴｘｔＮｏ Ａｓ Ｓｔｒｉｎｇ）

Ｄｉｍ ｉ Ａｓ Ｉｎｔｅｇｅｒ

Ｄｉｍ ｍｗ Ａｓ Ｉｎｔｅｇｅｒ

Ｄｉｍ ｍｈ Ａｓ Ｉｎｔｅｇｅｒ

ｉ ＝ ０

ｍｗ ＝ ０

ｍｈ ＝ ０

Ｓｅｔ ｃｏｎｎ ＝ ＣｒｅａｔｅＯｂｊｅｃｔ ＿

（＂ＡＤＯＤＢ．ｃｏｎｎｅｃｔｉｏｎ＂）

Ｓｅｔ ｒｓ ＝ ＣｒｅａｔｅＯｂｊｅｃｔ（＂ａｄｏｄｂ．ｒｅｃｏｒｄｓｅｔ＂）

ｃｏｎｎ．Ｏｐｅｎ＂Ｐｒｏｖｉｄｅｒ＝Ｍｉｃｒｏｓｏｆｔ．Ｊｅｔ．ＯＬＥＤＢ．４．０；ＤａｔａＳｏｕｒｃｅ＝＂＆ＴｈｉｓＷｏｒｋｂｏｏｋ．Ｐａｔｈ＆ ＂＼ｍｙｆｒｉｅｎｄ．ｍｄｂ＂

Ｓｑｌ ＝ ＂ｓｅｌｅｃｔ * ｆｒｏｍ ｍｙｔａｂｌｅｗｈｅｒｅ ｔｒｉｍ（ｘ１）＝＇＂ ＆ ｍ＿ＴｘｔＮｏ ＆ ＂＇ ＂

ｒｓ．Ｏｐｅｎ Ｓｑｌ， ｃｏｎｎ， ３， ３

Ｗｉｔｈ Ｓｈｅｅｔｓ（＂人事管理＂）

．Ｔｘｔ工号．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１＂）

．Ｔｘｔ姓名．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ２＂）

Ｉｆ ｒｓ（＂ｘ３＂） ＝ ＂男＂ Ｔｈｅｎ

．Ｏｐｔ男．Ｖａｌｕｅ ＝ Ｔｒｕｅ

Ｅｌｓｅ

．Ｏｐｔ女．Ｖａｌｕｅ ＝ Ｔｒｕｅ

Ｅｎｄ Ｉｆ

．Ｔｘｔ出生．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ４＂）

．Ｃｍｂ民族．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ５＂）

．Ｃｍｂ学历．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ６＂）

．Ｃｍｂ政面．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ７＂）

．Ｃｍｂ部门．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ８＂）

．Ｃｍｂ职务．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ９＂）

．Ｔｘｔ身份证．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１０＂）

．Ｃｍｂ职称．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１１＂）

．Ｔｘｔ工资卡．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１２＂）

．Ｃｍｂ岗位．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１３＂）

．Ｔｘｔ养老．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１４＂）

．Ｔｘｔ进厂时间．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１５＂）

．Ｔｘｔ公积金．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１６＂）

．Ｔｘｔ电话．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１７＂）

．Ｔｘｔ医保．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１８＂）

．Ｔｘｔ手机．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ１９＂）

．ＴｘｔＥｍａｉｌ．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ２０＂）

．Ｔｘｔ地址．Ｖａｌｕｅ ＝ ｒｓ（＂ｘ２１＂）

Ｅｎｄ Ｗｉｔｈ

Ｗｉｔｈ Ｓｈｅｅｔｓ（＂人事管理＂）．Ｉｍａｇｅ１

ｍｗ ＝ ．Ｗｉｄｔｈ

ｍｈ ＝ ．Ｈｅｉｇｈｔ

．Ｖｉｓｉｂｌｅ ＝ Ｆａｌｓｅ

Ｏｎ Ｅｒｒｏｒ ＧｏＴｏ １００

．Ｐｉｃｔｕｒｅ ＝ ＬｏａｄＰｉｃｔｕｒｅ（ＴｈｉｓＷｏｒｋｂｏｏｋ．Ｐａｔｈ ＆ ＂＼ｍｐｉｃｔｕｒｅ＼＂ ＆ ｒｓ（＂ｘ１＂） ＆ ＂．ｊｐｇ＂）

．ＡｕｔｏＳｉｚｅ ＝ Ｔｒｕｅ

．Ｗｉｄｔｈ ＝ ｍｗ

．Ｈｅｉｇｈｔ ＝ ｍｈ

．Ｖｉｓｉｂｌｅ ＝ Ｔｒｕｅ

Ｅｎｄ Ｗｉｔｈ

ＧｏＴｏ ２００

１００：

Ｗｉｔｈ Ｓｈｅｅｔｓ（＂人事管理＂）．Ｉｍａｇｅ１

ｍｗ ＝ ．Ｗｉｄｔｈ

ｍｈ ＝ ．Ｈｅｉｇｈｔ

．Ｖｉｓｉｂｌｅ ＝ Ｆａｌｓｅ

．Ｐｉｃｔｕｒｅ ＝ ＬｏａｄＰｉｃｔｕｒｅ（ＴｈｉｓＷｏｒｋｂｏｏｋ．Ｐａｔｈ ＆ ＂＼ｍｐｉｃｔｕｒｅ＼＂ ＆ ＂ｅｒｒｏｒＰｉｃｔｕｒｅ．ｊｐｇ＂）

．ＡｕｔｏＳｉｚｅ ＝ Ｔｒｕｅ

．Ｗｉｄｔｈ ＝ ｍｗ

．Ｈｅｉｇｈｔ ＝ ｍｈ

．Ｖｉｓｉｂｌｅ ＝ Ｔｒｕｅ

Ｅｎｄ Ｗｉｔｈ

２００：

ｒｓ．Ｃｌｏｓｅ

Ｓｅｔ ｒｓ ＝ Ｎｏｔｈｉｎｇ

ｃｏｎｎ．Ｃｌｏｓｅ

Ｓｅｔ ｃｏｎｎ ＝ Ｎｏｔｈｉｎｇ

Ｅｎｄ Ｆｕｎｃｔｉｏｎ

５．５人员信息更改

Ｓｕｂ ＰｅｒｓｏｎＥｄｉｔ（）

Ｄｉｍ ｍ＿ＴｘｔＮｏ Ａｓ Ｓｔｒｉｎｇ

Ｉｆ Ｓｈｅｅｔｓ（＂人事管理＂）．Ｔｘｔ工号．Ｖａｌｕｅ ＝ ＂＂ Ｏｒ Ｓｈｅｅｔｓ（＂人事管理＂）．Ｔｘｔ姓名．Ｖａｌｕｅ ＝ ＂＂ Ｔｈｅｎ

Ａｎｓｗｅｒ ＝ ＭｓｇＢｏｘ（＂工号或姓名为空，不能保存。＂， ６４， ＂错误提示＂）

Ｅｘｉｔ Ｓｕｂ

Ｅｌｓｅ

Ｓｅｔ ｃｏｎｎ ＝ ＣｒｅａｔｅＯｂｊｅｃｔ （＂ＡＤＯＤＢ．ｃｏｎｎｅｃｔｉｏｎ＂）

Ｓｅｔ ｒｓ ＝ ＣｒｅａｔｅＯｂｊｅｃｔ（＂ａｄｏｄｂ．ｒｅｃｏｒｄｓｅｔ＂）

ｃｏｎｎ．Ｏｐｅｎ ＂Ｐｒｏｖｉｄｅｒ＝Ｍｉｃｒｏｓｏｆｔ．Ｊｅｔ．ＯＬＥＤＢ．４．０；Ｄａｔａ Ｓｏｕｒｃｅ＝＂ ＆ ＴｈｉｓＷｏｒｋｂｏｏｋ．Ｐａｔｈ ＆ ＂＼ｍｙｆｒｉｅｎｄ．ｍｄｂ＂

ｍ＿ＴｘｔＮｏ ＝ Ｔｒｉｍ（Ｓｈｅｅｔｓ（＂人事管理＂）．Ｔｘｔ工号．Ｖａｌｕｅ）

Ｓｑｌ ＝ ＂ｓｅｌｅｃｔ * ｆｒｏｍ ｍｙｔａｂｌｅｗｈｅｒｅ ｔｒｉｍ（ｘ１）＝＇＂ ＆ ｍ＿ＴｘｔＮｏ ＆ ＂＇ ＂

ｒｓ．Ｏｐｅｎ Ｓｑｌ， ｃｏｎｎ， ２， ３

Ｉｆ ｒｓ．ＥＯＦ Ｔｈｅｎ

Ａｎｓｗｅｒ ＝ ＭｓｇＢｏｘ（＂工号不能修改。＂， ６４， ＂友情提示＂）

Ｅｘｉｔ Ｓｕｂ

Ｅｎｄ Ｉｆ

Ｗｉｔｈ Ｓｈｅｅｔｓ（＂人事管理＂）

ｒｓ（＂ｘ２＂） ＝ ．Ｔｘｔ姓名．Ｖａｌｕｅ

Ｉｆ ．Ｏｐｔ男．Ｖａｌｕｅ ＝ Ｔｒｕｅ Ｔｈｅｎ

ｒｓ（＂ｘ３＂） ＝ ＂男＂

Ｅｌｓｅ

ｒｓ（＂ｘ３＂） ＝ ＂女＂

Ｅｎｄ Ｉｆ

ｒｓ（＂ｘ４＂） ＝ ．Ｔｘｔ出生．Ｖａｌｕｅ

ｒｓ（＂ｘ５＂） ＝ ．Ｃｍｂ民族．Ｖａｌｕｅ

ｒｓ（＂ｘ６＂） ＝ ．Ｃｍｂ学历．Ｖａｌｕｅ

ｒｓ（＂ｘ７＂） ＝ ．Ｃｍｂ政面．Ｖａｌｕｅ

ｒｓ（＂ｘ８＂） ＝ ．Ｃｍｂ部门．Ｖａｌｕｅ

ｒｓ（＂ｘ９＂） ＝ ．Ｃｍｂ职务．Ｖａｌｕｅ

ｒｓ（＂ｘ１０＂） ＝ ．Ｔｘｔ身份证．Ｖａｌｕｅ

ｒｓ（＂ｘ１１＂） ＝ ．Ｃｍｂ职称．Ｖａｌｕｅ

ｒｓ（＂ｘ１２＂） ＝ ．Ｔｘｔ工资卡．Ｖａｌｕｅ

ｒｓ（＂ｘ１３＂） ＝ ．Ｃｍｂ岗位．Ｖａｌｕｅ

ｒｓ（＂ｘ１４＂） ＝ ．Ｔｘｔ养老．Ｖａｌｕｅ

ｒｓ（＂ｘ１５＂） ＝ ．Ｔｘｔ进厂时间．Ｖａｌｕｅ

ｒｓ（＂ｘ１６＂） ＝ ．Ｔｘｔ公积金．Ｖａｌｕｅ

ｒｓ（＂ｘ１７＂） ＝ ．Ｔｘｔ电话．Ｖａｌｕｅ

ｒｓ（＂ｘ１８＂） ＝ ．Ｔｘｔ医保．Ｖａｌｕｅ

ｒｓ（＂ｘ１９＂） ＝ ．Ｔｘｔ手机．Ｖａｌｕｅ

ｒｓ（＂ｘ２０＂） ＝ ．ＴｘｔＥｍａｉｌ．Ｖａｌｕｅ

ｒｓ（＂ｘ２１＂） ＝ ．Ｔｘｔ地址．Ｖａｌｕｅ

Ｅｎｄ Ｗｉｔｈ

Ｅｎｄ Ｉｆ

ｒｓ．Ｕｐｄａｔｅ

ｒｓ．Ｃｌｏｓｅ

ｃｏｎｎ．Ｃｌｏｓｅ

Ｓｅｔ ｃｏｎｎ ＝ Ｎｏｔｈｉｎｇ

Ｅｎｄ Ｓｕｂ

５．６人员信息清空

只需对文本框等清空就行了。主要是对照片的处理，其语句为：．Ｉｍａｇｅ１．Ｐｉｃｔｕｒｅ ＝ ＬｏａｄＰｉｃｔｕｒｅ（ｎｏｎｅ）。

６结束语

本设计就Ｅｘｃｅｌ ＶＢＡ开发人事管理信息系统中的关键技术作了介绍，并开发了出具有基本功能的人事管理软件。就原理上讲，其软件达到较高的技术水平，但要真正应用到某一个具体单位，还要在此原型上进一步开发，以便达到实用目的。

主要参考文献

［１］ 钟伟．Ｅｘｃｅｌ ＶＢＡ入门及应用［Ｍ］． 北京：清华大学出版社，２００８．

［２］ 刘宇．Ｅｘｃｅｌ 高效办公——ＶＢＡ入门与实践［Ｍ］． 北京：人民邮电出版社，２００６．

［３］ 赵志东．Ｅｘｃｅｌ ＶＢＡ技巧应用 ［Ｍ］． 北京：人民邮电出版社，２００７．

作者：苏先娜