《EXCEL VBA行政与人力资源管理应用案例详解 第7章.pdf》由会员分享，可在线阅读，更多相关《EXCEL VBA行政与人力资源管理应用案例详解 第7章.pdf（27页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、 C H A P T E R 职工管理模块的设计 7-1 职工管理模块的总体设计 7-2 职工档案管理子模块设计 7-3 职工内部调动管理子模块设计 7-4 职工离退管理子模块设计 7-5 职工证照资料管理子模块设计 7-6 职工劳动技能管理子模块设计 7-7 为职工管理自定义菜单命令和自定义命令按钮指定宏 行政与人力资源管理应用案例详解 职工管理是企业人力资源管理的重要内容。职工管理的能力水平不仅反映了企业的经营管理水平，而且也关系到企业的发展方向和命运，在企业管理中的地位举足轻重。职工管理的一个重要内容就是企业职工的分配和调动。为了对企业职工进行合理的分配和调动，以最大化地发挥每个职工的能
2、力，需要查阅大量的职工资料。通过计算机对职工进行管理，建立职工管理系统，可以实现对职工资料的录入、保存、修改等的最大化，使企业领导很方便地掌握企业职工的情况，及时作出职工分配和调动。一个职工管理模块，至少应包括以下几个子模块：职工资料管理（包括基本资料管理、教育信息管理和工作经历信息管理）、职工内部调动管理、职工离退管理、职工证照资料管理和职工劳动技能管理等。本章将以一个简单的职工管理模块为例，介绍窗体设计、程序代码设计的方法和步骤。7-1 职工管理模块的总体设计 7-1-1 职工管理模块的构成 本章介绍的一个简单的职工管理模块由 5 个子模块组成，各个模块的功能如下。1职工档案管理 完成对职
3、工档案资料（包括基本信息、教育信息和工作经历信息资料）进行管理，包括信息资料的添加、修改、删除、保存、查询、导出和分析等功能。2职工内部调用管理 完成对职工的内部调动的管理工作，包括调动信息资料的添加、修改、删除、保存、查询和导出等功能。3职工离退管理 完成对职工调出、离退休的管理工作，包括离退信息资料的添加、修改、删除、保存、查询和导出等功能。4证照资料管理 完成对职工的证照资料的管理工作，包括证照资料的添加、修改、删除、保存、查询和导出等功能。5劳动技能管理 完成对职工劳动技能资料的管理工作，包括劳动技能资料的添加、修改、删除、保存、查询和导出等功能。7-1-2 设计职工管理数据表 根据对
4、职工管理模块的构成情况，职工管理数据表包括以下 7 个数据表，它们都是“人事管理.mdb”数据库的数据表。这些数据表的名称分别为“职工基本信息”、“职工教育信息”、“职工工作信息”、“职工调动信息”、“职工离退信息”、“职工证照信息”、“职工技能信息”，各个数据表的数据结构设计如下。288 职工管理模块的设计 7 1“职工基本信息”数据表“职工基本信息”数据表保存职工的基本资料信息，它以职工编号为关键字段。“职工基本信息”数据表所包含的字段信息如表 7-1 所示。表 7-1 “职工基本信息”数据表字段 字段名称 字段类型 字段大小 是否允许为空 说 明 职工编号 文本 5 否 关键字段。系统自
5、动编号 所属部门 文本 10 否 姓名 文本 10 否 性别 文本 1 否 职务 文本 10 否 职称 文本 10 否 学历 文本 10 否 民族 文本 12 否 籍贯 文本 40 否 健康状况 文本 5 否 婚姻状况 文本 2 否 出生日期 日期 否 年龄 数字 整型 否 由系统自动计算 身份证号码 文本 18 否 手机号码 文本 12 否 电子邮箱 文本 50 否 家庭地址 文本 40 否 邮政编码 文本 6 否 必须是数字文本 家庭电话 文本 12 否 联系人 文本 10 否 与联系人关系 文本 5 否 联系人电话 文本 12 否 备注 文本 50 是 照片 文本 20 是 2“职工教育
6、信息”数据表“职工教育信息”数据表保存职工的教育信息资料，它以职工编号（与“职工基本信息”数据表中的职工编号相同）为关键字。“职工教育信息”数据表所包含的字段信息如表7-2 所示。表 7-2 “教育信息”数据表字段 字段名称 字段类型字段大小是否允许为空说 明 职工编号 文本 5 否 关键字段。来源于“职工基本信息”数据表 所属部门 文本 10 否 来源于“职工基本信息”数据表 姓名 文本 10 否 来源于“职工基本信息”数据表 289 行政与人力资源管理应用案例详解教育序号 数字 整型 否 是每个职工的教育信息序号，由系统自动编号 学校 文本 40 否 续上表 字段名称 字段类型字段大小是否
7、允许为空说 明 所学专业 文本 30 否 学历 文本 10 否 入学时间 日期 否 毕业时间 日期 否 学制年限 数字 整型 否 备注 文本 50 是 3“职工工作信息”数据表“职工工作信息”数据表保存在职这个职工的工作经历信息资料，它以职工编号（与“职工基本信息”数据表中的职工编号相同）为关键字段。“职工工作信息”数据表所包含的字段信息如表 7-3 所示。表 7-3 “职工工作信息”数据表字段 字段名称 字段类型字段大小是否允许为空说 明 职工编号 文本 5 否 关键字段。来源于“职工基本信息”数据表 所属部门 文本 10 否 来源于“职工基本信息”数据表 姓名 文本 10 否 来源于“职工
8、基本信息”数据表 教育序号 数字 整型 否 是每个职工的工作信息序号，由系统自动编号 工作单位 文本 40 否 从事工作 文本 40 否 担任职务 文本 10 否 起始时间 日期 否 终止时间 日期 否 证明人 文本 10 否 备注 文本 50 是 4“职工调动信息”数据表“职工调动信息”数据表保存职工的内部调动信息资料，它以职工编号（与“职工基本信息”数据表中的职工编号相同）为关键字段。“职工调动信息”数据表所包含的字段信息如表 7-4 所示。表 7-4“职工调动信息”数据表字段 字段名称 字段类型字段大小是否允许为空说 明 职工编号 文本 5 否 关键字段。来源于“职工基本信息”数据表 姓
9、名 文本 10 否 来源于“职工基本信息”数据表 性别 文本 11 否 来源于“职工基本信息”数据表 新部门 文本 10 否 290 职工管理模块的设计 7 原部门 文本 10 否 调动日期 日期 否 调动原因 文本 20 否 备注 文本 50 是 5“职工离退信息”数据表“职工离退信息”数据表保存职工的离退信息资料，它以职工编号（与“职工基本信息”数据表中的职工编号相同）为关键字段。“职工离退信息”数据表所包含的字段信息如表 7-5 所示。表 7-5“职工离退信息”数据表字段 字段名称 字段类型字段大小是否允许为空说 明 原编号 文本 5 否 关键字段。来源于“职工基本信息”数据表 姓名 文
10、本 10 否 来源于“职工基本信息”数据表 性别 文本 1 否 来源于“职工基本信息”数据表 原部门 文本 10 否 来源于“职工基本信息”数据表 离退类别 文本 10 否 离退时间 日期 否 离退休费 数字 单精度型是 备注 文本 50 是 6“职工证照信息”数据表“职工证照信息”数据表保存职工的各种证照资料信息，它以职工编号（与“职工基本信息”数据表中的职工编号相同）为关键字段。“职工证照信息”数据表所包含的字段信息如表 7-6 所示。表 7-6“职工证照信息”数据表字段 字段名称 字段类型字段大小 是否允许为空说 明 职工编号 文本 5 否 关键字段。来源于“职工基本信息”数据表 姓名
11、文本 10 否 来源于“职工基本信息”数据表 性别 文本 11 否 来源于“职工基本信息”数据表 所属部门 文本 10 否 证照名称 文本 20 否 证照编号 文本 20 否 证照类型 文本 10 否 取证日期 日期 否 有效日期 日期 否 备注 文本 50 是 7“职工技能信息”数据表“职工技能信息”数据表保存职工的各种劳动技能信息资料，它以职工编号（与“职工基本信息”数据表中的职工编号相同）为关键字段。“职工技能信息”数据表所包含的字段信息如表 7-7 所示。291 行政与人力资源管理应用案例详解表 7-7 “职工技能信息”数据表字段 字段名称 字段类型字段大小 是否允许为空说 明 职工编
12、号 文本 5 否 关键字段。来源于“职工基本信息”数据表 姓名 文本 10 否 来源于“职工基本信息”数据表 续上表 字段名称 字段类型字段大小 是否允许为空说 明 性别 文本 1 否 来源于“职工基本信息”数据表 所属部门 文本 10 否 来源于“职工基本信息”数据表 技能名称 文本 20 否 技能级别 文本 10 否 取得日期 日期 否 备注 文本 50 是 上述 7 个数据表由系统自动创建，具体的程序代码可参阅第 2 章的有关内容。7-2 职工档案管理子模块设计 职工档案管理模块的功能是完成对职工档案（包括基本信息、教育信息和工作经历信息）的添加、修改、删除、保存、查询浏览等基本功能，以
13、及当某个职工基本信息记录删除、职工离退后，对职工的职工编号进行重新设置，以保持职工编号的连续性。职工档案管理子模块的这些功能是通过一个“职工档案管理”主窗体和一个“按钮查询”子窗体实现的。7-2-1 职工档案管理主窗体设计“职工档案管理”主窗体的结构与“招聘管理模块”中“应聘人员档案管理”主窗体的结构基本相同，只是窗体中的项目有所不同而已。因此，为了节省工作量，可以将“应聘人员档案管理”主窗体复制一份，再进行修改。“职工档案管理”主窗体的结构分别如图7-1图 7-3 所示。292 职工管理模块的设计 7 图 7-1 “职工档案管理”主窗体结构基本信息页面 图 7-2 “职工档案管理”主窗体结构
14、教育信息页面 293 行政与人力资源管理应用案例详解 图 7-3 “职工档案管理”主窗体结构工作经历页面 在“职工档案管理”用户窗体上，有 1 个多页控件 MultiPage1、3 个标签、1 个文本框、1 个复合框、1 个命令按钮和 1 个框架。用户窗体及各个控件的功能和属性设置说明如下：用户窗体：名称属性和 Caption 属性均设置为“职工档案管理”。3 个标签：分别对 1 个文本框和 1 个复合框的功能进行说明，其 Caption 属性分别设置为“职工编号:”、“（系统自动编号）”和“所属部门:”。1 个文本框：用于显示职工的职工编号，该编号由系统自动编制。该文本框的名称属性设置为“职
15、工编号”1 个复合框：用于输入职工的所属部门，其名称属性分别设置为“所属部门”，其他有关属性将在程序中进行设置。1 个命令按钮：功能是关闭窗体，其名称属性设置为“退出系统”，Caption 属性设置为“退出系统”。1 个框架：其 Caption 属性设置为空值，并将其高度属性（Herght）设置为 3，这样其外观看起来是两条水平直线。7-2-2 基本信息页面设计“基本信息”页面结构如图 7-1 所示。在此页面上，有 7 个框架、21 个标签、14 个文本框、7 个复合框、1 个 DTPicker 控件、1 个图象控件、1 个 Spreadsheet 控件和 12 个命令按钮。各个控件的功能和属
16、性设置说明如下。（1）框架 1：将职工的基本信息控件组合在一起，其 Caption 属性设置为“基本信息”。（2）框架 2：将职工的照片信息控件组合在一起，其 Caption 属性设置为“照片”。（3）框架 3：将显示职工列表清单的控件（即 Spreadsheet 控件 Spreadsheet1）组合在一起，其 Caption 属性设置为“职工清单（总数：0）”，但 Caption 属性值将在程序中进行重新设置。（3）框架 4：将有关编辑按钮控件（包括【保存数据】按钮、【输入新数据】按钮、【更新】按钮和【删除】按钮等 4 个命令按钮）组合在一起，其 Caption 属性设置为空值。294 职工
17、管理模块的设计 7（5）框架 5：将有关的查询、浏览、导出和查看按钮控件组合在一起，其 Caption 属性设置为空值。（6）框架 6 和框架 7：将框架 Frame5 内的命令按钮按查询、浏览、导出数据和查看数据库功能隔开，其 Caption 属性设置为空值，Herght 属性设置为 3，这样其外观看起来是两条水平直线。（7）框架 1 内各个控件的功能及属性设置：在框架 1 内有 21 个标签：分别对有关的控件功能进行说明，其 Caption 属性如图 7-1所示。在框架 1 内的 24 个输入数据的控件（包括 14 个文本框、7 个复合框、1 个 DTPicker控件、1 个图象控件和 1
18、 个命令按钮）：分别用于输入职工的有关基本信息，其功能和属性设置如表 7-8 所示。表 7-8 职工基本信息数据控件的功能说明和属性设置 控件类型 控件名称(名称属性)控件功能 文本框 基本信息_姓名 显示或输入姓名 复合框 基本信息_性别 显示或输入性别 复合框 基本信息_职务 显示或输入职务 复合框 基本信息_职称 显示或输入职称 复合框 基本信息_学历 显示或输入学历 复合框 基本信息_性别 显示或输入性别 复合框 基本信息_民族 显示或输入民族 复合框 基本信息_籍贯 显示或输入籍贯 文本框 基本信息_健康状况 显示或输入健康状况 复合框 基本信息_婚姻状况 显示或输入婚姻状况 DTP
19、icker 基本信息_出生日期 显示或输入出生日期 续上表 控件类型 控件名称(名称属性)控件功能 文本框 基本信息_年龄 显示年龄（系统自动计算）文本框 基本信息_身份证号码 显示或输入身份证号码 文本框 基本信息_手机号码 显示或输入手机号码 文本框 基本信息_电子邮箱 显示或输入电子邮箱 文本框 基本信息_家庭地址 显示或输入家庭地址 文本框 基本信息_邮政编码 显示或输入邮政编码 文本框 基本信息_家庭电话 显示或输入家庭电话 文本框 基本信息_联系人 显示或输入家庭联系人姓名 文本框 基本信息_与联系人关系 显示或输入职工与家庭联系人的关系 文本框 基本信息_联系人电话 显示或输入家
20、庭联系人的电话号码 文本框 基本信息_备注 显示或输入备注文字 命令按钮 获取照片文件名 获取应聘人员的照片文件名 文本框 基本信息_照片文件名 显示或输入照片文件名 295 行政与人力资源管理应用案例详解图象控件 照片 显示应聘人员照片（8）框架 4 和框架 5 内的 11 个命令按钮：分别完成保存、修改、查询浏览记录等功能，其功能说明和属性设置见表 7-9 所示。表 7-9 编辑查询浏览按钮的功能说明和属性设置 名称属性 Caption 属性 功 能 基本信息_保存 保存数据 保存职工基本信息记录 基本信息_新数据 输入新记录 将窗口数据清除，并自动编制新的职工编号 基本信息_更新 更新
21、更新职工基本人信息记录 基本信息_删除 删除 删除职工基本人信息记录 基本信息_查询 查询 启动一个查询窗口，查询某个职工的基本信息记录 基本信息_重置窗口 重置窗口 刷新窗口 基本信息_第一条 第一条 浏览第一条记录 基本信息_下一条 下一条 浏览下一条记录 基本信息_上一条 上一条 浏览上一条记录 基本信息_最末条 最末条 浏览最末条记录 基本信息_查看数据库 查看数据库 打开招聘申请管理数据表（9）在 Spreadsheet1 控件的单元格 A1:X1 中分别输入“职工编号”、“所属部门”、“姓名”、“性别”、“职务”、“职称”、“学历”、“民族”、“籍贯”、“健康状况”、“婚姻状况”、
22、“出生日期”、“年龄”、“身份证号码”、“手机号码”、“电子邮箱”、“家庭地址”、“邮政编码”、“家庭电话”、“联系人”、“与联系人关系”、“联系人电话”、“备注”和“照片文件名”，加粗字体，并居中显示。7-2-3 教育信息页面设计“教育信息”页面结构如图 7-2 所示。在此页面上，有 5 个框架、11 个标签、7 个文本框、2 个 DTPicker 控件、9 个命令按钮和 1 个 Spreadsheet 控件。各个控件的功能和属性设置说明如下。（1）5 个框架：分别将不同类型功能的控件组合在一起。其中 2 个框架的 Caption 属性分别设置为“教育信息”和“教育信息详细资料”，其他 3
23、个框架的 Caption 属性均设置为空值，并且其中 1 个框架的 Herght 属性设置为 3，使其看起来是两条水平直线。这里，还将框架“教育信息详细资料”的“（名称）”属性设置为“教育信息详细资料”。（2）“教育信息”框架内的 11 个标签：分别对有关的控件功能进行说明，其 Caption属性分别设置为“教育序号:”、“（自动编号）”、“姓名”，“毕业学校:”，“专业:”，“学历:”，“入学时间:”，“毕业时间:”，“学制年限:”、“年”和“备注:”。（3）“教育信息”框架内的 9 个输入数据的控件（7 个文本框和 2 个 DTPicker 控件）：分别用于输入职工的教育信息数据，其“（名
24、称）”属性分别设置为“教育_顺序号”、“教育_姓名”、“教育_学校”、“教育_专业”、“教育_学历”、“教育_入学时间”、“教育_毕业时间”、“教育_学制年限”和“教育_备注”。（4）9 个数据编辑和浏览按钮：分别完成数据的编辑和浏览功能，其功能说明和属性 296 职工管理模块的设计 7 设置见如 7-10 所示。表 7-10 编辑查询浏览按钮的功能说明和属性设置 名称属性 Caption 属性功 能 教育_保存 保存记录 保存职工教育记录 教育_输入下一条 输入下一条 将职工教育信息清除，准备输入该职工的下一条教育信息记录 教育_清除 输入新数据 准备输入新职工的教育信息 教育_更新 更新
25、更新职工教育信息记录 教育_删除 删除 删除职工教育信息记录 教育_第一条 第一条 浏览第一条记录 教育_下一条 下一条 浏览下一条记录 教育_上一条 上一条 浏览上一条记录 教育_最末条 最末条 浏览最末条记录（5）1 个 Spreadsheet 控件（名称为 Spreadsheet2）：用于显示某职工的详细教育信息，其有关属性将在程序中进行设置。在单元格 A1:I1 中分别输入“姓名”、“教育序号”、“毕业学校”、“专业”、“学历”、“入学时间”、“毕业时间”、“学制年限”和“备注”，加粗字体，并居中显示。7-2-4 工作经历页面设计“工作经历”页面结构如图 7-3 所示。在此页面上，有
26、5 个框架、10 个标签、7 个文本框、2 个 DTPicker 控件、9 个命令按钮和 1 个 Spreadsheet 控件。各个控件的功能和属性设置说明如下。（1）5 个框架：分别将不同类型功能的控件组合在一起。其中 2 个框架的 Caption 属性分别设置为“工作信息”和“工作经历详细资料”，其他 3 个框架的 Caption 属性均设置为空值，其中 1 个框架的 Herght 属性设置为 3，使其看起来是两条水平直线。这里，还将框架“工作经历详细资料”的“（名称）”属性设置为“工作经历详细资料”。（2）“工作信息”框架内的 10 个标签：分别对有关的控件功能进行说明，其 Captio
27、n属性分别设置为“工作序号:”、“（自动编号）”、“姓名”、“工作单位:”、“从事工作:”、“担任职务:”、“起始时间:”、“终止时间:”、“证明人:”和“备注:”。（3）“工作信息”框架内的 9 个输入数据的控件（7 个文本框和 2 个 DTPicker 控件）：分别用于输入职工的工作经历信息数据，其“（名称）”属性分别设置为“工作_顺序号”、“工作_姓名”、“工作_工作单位”、“工作_从事工作”、“工作_担任职务”、“工作_起始时间”、“工作_终止时间”、“工作_证明人”和“工作_备注”。（4）9 个数据编辑和浏览按钮：分别完成数据的编辑和浏览功能，其功能说明和属性设置如表 7-11 所示
28、。表 7-11 编辑查询浏览按钮的功能说明和属性设置 名称属性 Caption 属性 功 能 工作_保存 保存记录 保存职工工作信息记录 工作_输入下一条 输入下一条 将职工工作信息清除，准备输入该职工的下一条工作信息记录 297 行政与人力资源管理应用案例详解工作_清除 输入新数据 准备输入新职工的工作信息 工作_更新 更新 更新职工工作信息记录 工作_删除 删除 删除职工工作信息记录 工作_第一条 第一条 浏览第一条记录 工作_下一条 下一条 浏览下一条记录 工作_上一条 上一条 浏览上一条记录 工作_最末条 最末条 浏览最末条记录（6）1 个 Spreadsheet 控件（名称为 Spr
29、eadsheet3）：用于显示某职工的详细工作经历信息，其有关属性将在程序中进行设置。在单元格 A1:I1 中分别输入“姓名”、“工作序号”、“工作单位”、“从事工作”、“担任职务”、“起始时间”、“终止时间”、“证明人”和“备注”，加粗字体，并居中显示。7-2-5 主窗体程序代码设计 职工档案管理以“人事管理.mdb”数据库中的“职工基本信息”数据表、“职工教育信息”数据表和“职工工作信息”数据表为基础，通过“职工档案管理”主窗体和“按钮查询”子窗体，完成职工档案资料信息数据记录的添加、修改、删除及显示。“职工档案管理”窗体的程序代码与“应聘人员档案管理”窗体的程序代码大同小异，所不同的控件
30、数量不同、查询的数据表不同、一些子程序的名称不同而已。限于篇幅，此处不再详细介绍，具体的程序代码可查看光盘的系统软件。7-2-6 档案管理子模块应用示例 执行自定义菜单【职工管理】中的【职工档案管理】命令，或单击【职工日常管理】自定义工具栏中的【职工档案管理】命令按钮，就可以打开“职工档案管理”窗体，用户就可以通过此窗体输入、浏览编辑、查询职工档案资料信息。“职工档案管理”子模块的使用方法与“招聘管理”模块中的“应聘人员档案管理”子模块使用方法是一样的，读者可参阅“应聘人员档案管理”子模块的应用示例。图 7-4图 7-6 分别为职工的基本信息、教育信息和工作经历信息示例。298 职工管理模块的
31、设计 7 图 7-4 职工基本信息 图 7-5 某职工的教育信息 299 行政与人力资源管理应用案例详解 图 7-6 某职工的工作经历信息 7-3 职工内部调动管理子模块设计 在企业内部，根据实际需要，对职工的岗位进行合理分配，使每个职工尽可能发挥其作用，是人力资源管理部门的一项重要工作。利用本节介绍的职工内部调动管理子模块，可以很方便地完成职工内部调动管理工作。职工内部调动管理，是通过一个“内部调动管理”主窗体、一个“职工信息输入”子窗体和一个“按钮查询”子窗体完成的。“职工信息输入”子窗体和“按钮查询”子窗体在前面的章节中已经作了介绍，本节介绍“内部调动管理”主窗体的结构及程序代码的设计方
32、法和步骤。7-3-1 职工内部调动管理主窗体结构设计 职工内部调动管理主窗体结构的结构如图 7-7 所示。“内部调动管理”主窗体由1个用户窗体、6个框架、8个标签、6个文本框、1个DTPicker控件、1 个复合框、1 个 Spreadsheet 控件和 12 个命令按钮构成，用户窗体和各个控件的功能及属性设置说明如下。（1）用户窗体：名称属性设置为“内部调动管理”，Caption 属性设置为“内部调动管理”。（2）8 个标签：分别对输入显示职工调动信息的有关控件功能进行说明，其 Caption 属性分别设置为“职工编号:”、“姓名:”、“性别:”、“原部门:”、“新部门:”、“调动日期:”、
33、“调动原因:”和“备注”。（3）6 个框架：用于将不同功能的控件组合在一起，其中 5 个框架的 Caption 属性分别设置为“调动信息”、“编辑记录”、“查询浏览记录”、“统一更新”和“内部调动信息记录清单（记录总数：0）”；1 个框架的 Caption 属性设置为空值，Height 属性设置为3，并放于框架“查询浏览记录”内。此外，框架“内部调动信息记录清单（记录总数：0）”300 职工管理模块的设计 7 的“名称”属性设置为“内部调动信息记录清单”，其 Caption 属性将在程序中被重新设置。图 7-7 “内部调动管理”主窗体结构（4）框架“调动信息”内各个控件的功能及属性设置：在框架
34、“调动信息”内有 8 个输入调动数据的控件（包括 6 个文本框、1 个复合框和 1个 DTPicker 控件）：分别用于输入职工调动信息，其功能和属性设置如表 7-12 所示。表 7-12 职工基本信息数据控件的功能说明和属性设置 控件类型 控件名称(名称属性)控件功能 文本框 职工编号 显示或输入职工编号 文本框 姓名 显示或输入职工姓名 文本框 性别 显示或输入职工性别 文本框 原部门 显示或输入职工原部门 复合框 新部门 显示或输入职工新部门 DTPicker 调动日期 显示或输入调动日期 文本框 调动原因 显示或输入调动原因 文本框 基本信息_备注 显示或输入备注文字（5）用户窗体上的
35、 12 个命令按钮：分别完成保存、修改、查询浏览记录等功能，其功能说明和属性设置如表 7-13 所示。表 7-13 命令按钮的功能说明和属性设置 名称属性 Caption 属性 功 能 输入新数据 输入新数据 打开“职工信息输入”子窗体，准备输入新的调动记录 保存 保存 保存职工调动信息记录 更新 更新 更新调动信息记录 删除 删除 删除调动信息记录 查询 查询 启动一个查询窗口，查询调动信息记录 重置窗口 重置窗口 刷新窗口 第一条 第一条 浏览第一条记录 下一条 下一条 浏览下一条记录 301 行政与人力资源管理应用案例详解续上表 名称属性 Caption 属性 功 能 上一条 上一条 浏
36、览上一条记录 最末条 最末条 浏览最末条记录 职工信息统一更新 更新该职工所有数据库数据 对某职工的所有数据表的所属部门名称进行统一修改 退出 退出系统 关闭“内部调动管理”窗体（9）在 Spreadsheet1 控件的单元格 A1:H1 中分别输入“职工编号”、“姓名”、“性别”、“新部门”、“原部门”、“调动日期”、“调动原因”和“备注”，加粗字体，并居中显示。7-3-2 职工内部调动管理主窗体程序代码设计 内部调动管理，就是以“人事管理.mdb”数据库中的“职工调动信息”数据表和“部门设置”数据表为基础，通过通过“内部调动管理”窗体及有关控件，完成职工内部调动数据记录的添加、修改、删除、
37、显示和导出等功能。内部调动管理主窗体程序代码与上一章介绍的职工培训基本相同。但内部调动管理主窗体上有一个【职工信息统一更新】按钮，其功能是当某个职工从一个部门调到另一个部门后，对数据库有关数据表中该职工的所属部门进行修改。【职工信息统一更新】按钮的Click 事件程序代码如下：Private Sub 职工信息统一更新_Click()Dim mysql As String Dim rsChange As ADODB.Recordset 更新基本信息数据库中的数据 Set rsChange=New ADODB.Recordset mysql=update 职工基本信息 set 所属部门=&新部门.
38、Value&_&where 职工编号=&职工编号.Value&rsChange.Open mysql,cnn,adOpenKeyset,adLockOptimistic 更新基本信息数据库中的数据 Set rsChange=New ADODB.Recordset mysql=update 职工教育信息 set 所属部门=&新部门.Value&_&where 职工编号=&职工编号.Value&rsChange.Open mysql,cnn,adOpenKeyset,adLockOptimistic 更新工作经历信息数据库中的数据 Set rsChange=New ADODB.Recordset
39、mysql=update 职工工作信息 set 所属部门=&新部门.Value&_&where 职工编号=&职工编号.Value&rsChange.Open mysql,cnn,adOpenKeyset,adLockOptimistic MsgBox 职工信息统一更新完毕！,vbInformation,职工信息统一更新 End Sub 窗体的其他程序代码可参阅光盘的系统文件。7-3-3 职工内部调动管理子模块应用示例 执行自定义菜单【职工管理】中的【内部调动管理】命令，或单击【职工日常管理】302 职工管理模块的设计 7 自定义工具栏中的【内部调动管理】命令按钮，就可以打开“内部调动管理”窗体
40、，如图7-8 所示，用户就可以通过此窗体输入、浏览编辑、查询内部调动信息。图 7-8 职工内部调动管理窗口 首先单击【输入信数据】按钮，打开【职工信息输入】子窗体，选择要输入内部调动信息的职工，获取职工的基本信息数据。然后，在内部调动信息数据控件中输入内部调动信息数据，单击【保存】按钮，就将该职工的内部调动信息进行了保存。输入并保存某职工的内部调动信息后，再单击【更新该职工所有数据库数据】按钮，将所有数据表中该职工的所属部门字段数据都修改为新部门名称。输入完毕某职工的内部调动信息并进行统一修改后，单击【输入新数据】按钮，准备输入另一个职工的内部调动信息数据。通过“内部调动管理”窗体，还可以很方
41、便地查询、浏览、更新、删除职工内部调动信息记录。限于篇幅，此处不再论述。7-4 职工离退管理子模块设计 职工离退管理，是通过一个“职工离退管理”主窗体、一个“职工信息输入”子窗体和一个“按钮查询”子窗体完成的。“职工信息输入”子窗体和“按钮查询”子窗体在前面的章节中已经作了介绍，本节介绍“职工离退管理”主窗体的结构及程序代码的设计方法和步骤。7-4-1 职工离退管理主窗体结构设计“职工离退管理”主窗体的结构如图 7-9 所示，它与“内部调动管理”窗体的结构基本相同。因此，可以在“内部调动管理”窗体上进行修改。303 行政与人力资源管理应用案例详解 图 7-9 “职工离退管理”主窗体结构“职工离
42、退管理”主窗体由1个用户窗体、6个框架、8个标签、6个文本框、1个DTPicker控件、1 个复合框、1 个 Spreadsheet 控件和 12 个命令按钮构成，用户窗体和各个控件的功能及属性设置说明如下：（1）用户窗体：名称属性和 Caption 属性均设置为“职工离退管理”。（2）8 个标签：分别对输入显示职工调动信息的有关控件功能进行说明，其 Caption 属性分别设置为“职工编号:”、“姓名:”、“性别:”、“原部门:”、“离退类别:”、“离退日期:”、“离退休费:”和“备注”。（3）6 个框架：用于将不同功能的控件组合在一起，其中 5 个框架的 Caption 属性分别设置为“离
43、退信息”、“编辑记录”、“查询浏览记录”、“统一更新”和“离退职工记录清单（离退总人数：0）”；1 个框架的 Caption 属性设置为空值，Height 属性设置为 3，并放于框架“查询浏览记录”内。此外，框架“离退职工记录清单（离退总人数：0）”的“名称”属性设置为“离退职工记录清单”，其 Caption 属性将在程序中被重新设置。（4）框架“离退信息”内各个控件的功能及属性设置：在框架“离退信息”内有 8 个输入调动数据的控件（包括 6 个文本框、1 个复合框和 1个 DTPicker 控件：分别用于输入职工调动信息，其功能和属性设置如表 7-12 所示。表 7-12 职工基本信息数据控
44、件的功能说明和属性设置 控件类型 控件名称(名称属性)控件功能 文本框 职工编号 显示或输入职工编号 文本框 姓名 显示或输入职工姓名 文本框 性别 显示或输入职工性别 文本框 原部门 显示或输入职工原部门 复合框 离退类别 显示或输入离退类别 DTPicker 离退日期 显示或输入离退日期 文本框 离退休费 显示或输入离退休费 文本框 备注 显示或输入备注文字（5）用户窗体上的 12 个命令按钮：分别完成保存、修改、查询浏览记录等功能，其功能说明和属性设置如表 7-13 所示。304 职工管理模块的设计 7 表 7-13 命令按钮的功能说明和属性设置 名称属性 Caption 属性 功 能
45、输入新数据 输入新数据 打开“职工信息输入”子窗体，准备输入新的调动记录 保存 保存 保存职工调动信息记录 更新 更新 更新调动信息记录 删除 删除 删除调动信息记录 查询 查询 启动一个查询窗口，查询调动信息记录 重置窗口 重置窗口 刷新窗口 第一条 第一条 浏览第一条记录 下一条 下一条 浏览下一条记录 上一条 上一条 浏览上一条记录 最末条 最末条 浏览最末条记录 职工信息统一 更新 更新该职工所有数据库 数据 对某职工的所有数据表的所属部门名称进行统一修改 退出 退出系统 关闭“职工离退管理”窗体（9）在 Spreadsheet1 控件的单元格 A1:H1 中分别输入“职工编号”、“姓
46、名”、“性别”、“原部门”、“离退类别”、“离退日期”、“离退休费”和“备注”，加粗字体，并居中显示。7-4-2 职工离退管理主窗体程序代码设计 职工离退管理，就是以“人事管理.mdb”数据库中的“职工离退信息”数据表为基础，通过“职工离退管理”窗体及有关控件，完成职工离退数据记录的添加、修改、删除、显示等功能。内部离退管理主窗体程序代码与内部调动管理主窗体的程序代码大同小异。下面是一些差别较大的控件事件程序代码，其他的程序代码可参阅光盘的系统文件。1用户窗体的 Initialize 事件程序“职工离退管理”窗体的 Initialize 事件程序代码如下：Private Sub UserFor
47、m_Initialize()mySearchShow=False 窗体显示数据不是查询出的数据 建立与人事管理数据库的连接 Set cnn=New ADODB.Connection With cnn .Provider=microsoft.jet.oledb.4.0 .Open ThisWorkbook.Path&人事管理.mdb End With Call 离退信息查询 Call 显示离退信息记录清单(rsRetire)为复合框设置项目 With 离退类别 .AddItem 退休 .AddItem 离休 .AddItem 退职 .AddItem 退养 305 行政与人力资源管理应用案例详解
48、.AddItem 内退 .AddItem 离职 End With 离退时间.Value=Date:原编号.Enabled=False 姓名.Enabled=False:性别.Enabled=False:原部门.Enabled=False End Sub 2【职工信息统一更新】按钮的 Click 事件程序 当某个职工从一个部门调到另一个部门后，必须对数据库有关数据表中该职工的所属部门进行修改。单击【职工信息统一更新】按钮，即可立即完成这个任务。【职工信息统一更新】按钮的 Click 事件程序代码如下：Private Sub 职工信息统一更新_Click()Dim mysql As String,
49、myOldNum As String,myNewNum As String Dim rsMyRetire As ADODB.Recordset Dim rsNum As ADODB.Recordset Dim rsBasicInfo As ADODB.Recordset Dim rsDelete As ADODB.Recordset Dim i As Long Dim res res=MsgBox(本操作将删除职工&姓名.Value&的所有档案资料！_&是否继续进行？,vbQuestion+vbDefaultButton2+vbYesNo,删除档案资料)If res=vbNo Then Exi
50、t Sub 删除基本信息数据库中的数据 Set rsMyRetire=New ADODB.Recordset mysql=delete*from 职工基本信息 where 职工编号=&原编号.Value&rsMyRetire.Open mysql,cnn,adOpenKeyset,adLockOptimistic 删除教育信息数据库中的数据 Set rsMyRetire=New ADODB.Recordset mysql=delete*from 职工教育信息 where 职工编号=&原编号.Value&rsMyRetire.Open mysql,cnn,adOpenKeyset,adLockO