案例6 人事管理系统.pdf

《案例6 人事管理系统.pdf》由会员分享，可在线阅读，更多相关《案例6 人事管理系统.pdf（45页珍藏版）》请在金锄头文库上搜索。

1、 案例 6 人事管理系统 案例引言 人事管理系统是企事业单位在人事管理的主要内容之一 通过掌握人员基 本信息 加强和规范自身管理行为 造就和培养一支高素质的员工队伍 促进单位的稳定和健康发展 本章主要讲解人事管理系统的制作方法和制 作技巧 366 Excel 2007综合应用案例电子书 人事管理系统是企事业单元的一个重要应用 包括聘用 培训 考核和晋升等多个方 面 在对人事管理时 需要查询大量的信息 人事管理系统就可以解决这个问题 本章以 VBA 在人事资料管理的应用为例讲解 6 16 1 系统描述 人事管理系统虽然单位的大小可能不同 但功能大同小异 基本类似 在此以最常用 的应用功能为基础来

2、设计人事管理系统 达到学习目的 6 1 1 设计思路 人事管理系统主要是对员工资料进行管理 常用功能包括新增员工登记 查询和修改 员工资料 实例掌握本单位员工信息和员工信息更新的目的 6 1 2 关键技术 用户窗体的创建和控制 创建一个窗体 并在窗体上绘制控件用来接收用户的输入 或者显示相应的信息 向 窗体添加控件有以下几种方法 1 单击 工具箱 中的控件 然后在窗体单击 控件以默认大小出来 可以通过拖动来 改变其大小 2 将控件从 工具箱 中拖到窗体 控件同样以默认大小出来 3 当创建多个相同控件时 可双击 工具箱 中所需的控件 然后在窗体中每单击一次 便可创建一个控件 利用窗体的属性可以修

3、改其外观 例如大小 颜色 位置及动作等 同时在编写事件 时也会显示各种初始化的设置 6 1 3 关键技术 用户窗体和控件的事件 在人事管理系统中会用到很多用户窗体和控件的事件 本章以以下几个事件为例重点 讲解 1 Initialize 事件 Initialize 事件发生在加载对象后 显示对象前 该事件的语法格式如下 Private Sub object Initialize 2 BeforeUpdate 事件 格式中的 object 表示一个对象 367 案例 6 人事管理系统 在控件中的数据要改变前 BeforeUpdate 事件触发 该事件的语法格式如下 Private Sub obje

4、ct BeforeUpdate ByVal Cancel As MSForms ReturnBoolean 3 Click 事件 鼠标单击控件时触发 Click 事件 该事件的语法格式如下 Private Sub object Click 6 26 2 设计人事管理表格 人事管理系统最重要的一个环节是保存员工基本信息的员工基本信息表 首先设计员 工基本信息表 用来在管理系统中调用 根据设计要求 本系统的功能要求比较简单常用 表格格式简单 使用前设置好表头 即可 用户不用直接操作此表 所有操作都通过用户窗体完成 打开 Excel 并新建工作表 单击 A1 单元格 输入 员工基本信息表 从 A2

5、单元格到 L2 单元格依次输入 编号 姓名 性别 民族 出生年月 学历 身份证号 职称 职务 工作部门 联系方式 和 备注 文本 选中 A1 L1 区域 在 开始 选项卡中 选择 对齐方式 选项组中的 合并后居中 按钮 依次在所选的区域中输 入对应的项目 368 Excel 2007综合应用案例电子书 并单击 将鼠标移至工作表 Sheet1 的标签处并单击右键 在弹出的快捷菜单中选择 重命名 菜单命 令 将工作表 Sheet1 重命名为 员工基本信息表 单击左上角 Office 按钮 在弹出菜单中选择 另存为 Excel 工作簿 菜单命令 将工作簿命名为 人事管理系统 xlsx 并保存 单击

6、重命名 单击 合并后居中 按钮 369 案例 6 人事管理系统 根据设计要求 完成表头建设即可 里面的数据通过以后在用户窗体来逐步添加 6 36 3 设计登录窗体 人事管理系统最重要的常用功能是新增员工和查询修改 设计登录窗体时主要体现这 两个功能 根据设计要求 可以设计为登录界面 步骤如下 第 1 步 主窗体建设 打开上节 Excel 工作簿 人事管理系统 xlsx 将鼠标移至工作表 Sheet2 的标签处并单击右 键 在弹出的快捷菜单中选择 重命名 菜单命令 将工作表 Sheet2 并重命名为 登录界面 单击 重命名 370 Excel 2007综合应用案例电子书 在 视图 选项卡中 选择

7、 显示 隐藏 选项组中的 编辑栏 网格线 和 标题 三个 按钮前的复选项取消 在 插入 选项卡中 选择 插图 选项组中 形状 命令 并单击 在下拉菜单中选择 矩 形 矩形 命令 按鼠标左键直接拖曳绘出如下图形 去掉三个按钮前的复选项 371 案例 6 人事管理系统 在所绘制的矩形区域内单击右键 在弹出的菜单中选择 设置形状格式 菜单命令 打开 设置形状格式 对话框 选择 填充 颜色 深蓝 文字 2 淡色 80 主 题颜色并单击 然后单击 关闭 按钮 关闭对话框 372 Excel 2007综合应用案例电子书 完成主窗体的建设 第 2 步 设置界面标题 主窗体完成的基础上 在 开始 选项卡中 选

8、择 字体 选项组中将字体设置为 粗体 字体颜色设置为 黑色 字体设置为 宋体 正文 字号设置为 18 在 开始 选项卡中 选择 对齐方式 选项组中的 顶端对齐 命令 并单击 输入界面标题文字 人事管理系统 第 3 步 绘制界面按钮 在 插入 选项卡中 选择 插图 选项组中的 形状 命令 在弹出下拉菜单中选择 矩 形 圆角矩形 命令 373 案例 6 人事管理系统 按鼠标左键直接拖曳 在主界面中绘出如下按钮 单击此按钮 输入文字 新增员工 完成 新增员工 按钮 重复上述 新建按钮 输入文字 查询修改 完成 查询修改 按钮创建 374 Excel 2007综合应用案例电子书 单击左上角 Offic

9、e 按钮 在弹出菜单中选择 保存 菜单命令 根据设计要求 完成登录窗体建设 并用来做为以后管理系统的主界面 6 46 4 设计人事信息窗体 人事管理系统完成主界面设计后 接下来需要完成功能模块设计 主要是新增员工和 查询修改两个功能模块 本节首先设计新增员工模块 新增员工模块的功能是收集整理新员工的基本资料 并添加到员工基本信息表中 虽 然可以直接在员工信息表中添加 但表中所有数据处在一个可修改范围 容易误操作破坏 原来数据 而本节所设计的是通过一个用户窗体添加数据到原始的员工基本信息表中 隔 离原始数据 提高了安全性 Tips 复制 新增员工 按钮后 可在主窗体中粘贴出一个按钮 将新复制的

10、新增员工 按钮 改为 查询修改 即可 375 案例 6 人事管理系统 6 4 1 设计窗体界面 在设计用户窗体时 主要就是完成对员工基本信息表的添加和维护 窗体的各个功能 块也应参照员工基本信息表的表头项目来设计完成 第 1 步 插入窗体 打开工作簿 人事管理系统 xlsx 在 开发工具 选项卡中 选择 代码 选项组中的 Visual Basic 命令 进入 VBA 环境下 选择 插入 用户窗体 菜单命令 选择 名称 并将属性设为 Form1 同时将 Caption 的属性改为 新增员工资料 打开 Excel 工作表 选择快捷键 Alt F11 进入 VBA 环境 376 Excel 2007

11、综合应用案例电子书 第 2 步 建立窗体标签 单击 工具箱 控件 中的 标签 按钮 在窗体中绘制一个标签 在左侧设置其 AutoSize 属性设为 Ture 使标签控件的大小与 输入的内容自动适应以改变大小 将 Caption 的属性设为 姓名 单击 视图 工具箱 可以打开 工具箱 对话框 377 案例 6 人事管理系统 重复本步的 完成如下窗体建设 第 3 步 建立窗体文本框 单击 工具箱 控件 中的 文本框 按钮 可以复制 姓名 标签 逐个粘贴后更改各个标签的 Caption 的属性 378 Excel 2007综合应用案例电子书 在窗体中紧接 姓名 后绘制一个文本框 在左侧设置其 名称

12、属性设为 TextName 将 MaxLength 的属性设为 4 重复本步的 完成如下窗体建设 并将 民族 后的文本框 名称 属性设为 TextNation 出生年月 后的文本框 名称 属性设为 TextBirth 身份证号 后的文本框 名称 在 Excel 应用中 字母和汉字是一样的长度 但在很多程序设计时往往是一个汉字 占两个字母长度 379 案例 6 人事管理系统 属性设为 TextID 工作部门 后的文本框 名称 属性设为 TextDep 联系方式 后 的文本框 名称 属性设为 TextPhone 和 备注 后的文本框 名称 属性设为 TextMemo 第 4 步 建立窗体选项按钮

13、单击 工具箱 控件 中的 选项按钮 在窗体中紧接 性别 后绘制一个 选项按钮 在左侧依次设置其 名称 属性设为 OptionMan AutoSize 属性设为 Ture Caption 属性设为 男 GroupName 属 性设为 GroupSex 和 Value 属性设为 Ture 380 Excel 2007综合应用案例电子书 然后再同样绘制一个 选项按钮 依次将其 名称 属性设为 OptionWoman AutoSize 属性设为 Ture Caption 属性设为 女 GroupName 属性设为 GroupSex 和 Value 属性设为 False 第 5 步 建立窗体复选框 单击

14、 工具箱 控件 中的 复合框 按钮 在设置 选项按钮 的 Value 属性设为 Ture 表示选中状态 而 Value 属性 设为 False 表示未选中状态 381 案例 6 人事管理系统 在窗体的 学历 后绘制一个 复选框 在左侧设置其 名称 属性设为 ComboBoxEdu 然后为 职称 和 职务 分别绘制两个 复选框 并将其各自的 名称 属性分别设为 ComboBoxTitle 和 ComboBoxDuty 第 6 步 建立窗体命令按钮 单击 工具箱 控件 中的 命令按钮 382 Excel 2007综合应用案例电子书 在窗体的低端分别建立两个名称为 增加 和 取消 的按钮 并将其各自

15、的 名称 属性 分别设为 CmdSave 和 CmdCancel 单击 保存 按钮 在弹出的窗口中选择 否 弹出窗口 另存为 保存类型 中选择 Excel 启用宏的工作簿 命令 单击 保存 按钮 即保存为工作簿 人事管理系统 xlsm 383 案例 6 人事管理系统 完成人事信息管理新增员工的主窗体设计 但没有后台代码的支持还是无法实现新增 员工的功能 需要进一步设计后台代码 6 4 2 设计人事信息管理代码 在用户窗体创建完好各控件后 并设置好各控件属性时 就可以开始编写代码了 在 编写窗体的初始化代码 可首先添加复选框控件的下拉列表项目 第 1 步 设计复选框的下拉列表项代码 打开上节完成

16、的工作簿 人事管理系统 xlsm 单击 开发工具 Visual Basic 选项卡 在 VBA 环境下 双击 新增员工资料 用户窗体 打开代码窗口 并选择右侧的下拉箭头 选择 Initialize 事件 384 Excel 2007综合应用案例电子书 在光标闪烁处输入以下代码 添加项目到 学历 复合框 ComboBoxEdu AddItem 硕士 ComboBoxEdu AddItem 本科 ComboBoxEdu AddItem 专科 ComboBoxEdu AddItem 其它 添加项目到 职称 复合框 ComboBoxTitle AddItem 高工 ComboBoxTitle AddItem 工程师 ComboBoxTitle AddItem 经济师 ComboBoxTitle AddItem 会计师 ComboBoxTitle AddItem 技术员 添加项目到 职务 复合框 ComboBoxDuty AddItem 总经理 ComboBoxDuty AddItem 厂长 ComboBoxDuty AddItem 主任 ComboBoxDuty AddItem 科长 Comb