第25章 使用VBA制作人事管理系统

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
605
根据设计要求,完成表头建设即可,里面的数据通过以后在用户窗体来逐步添加。
25.3 设计登录窗体
人事管理系统最重要的常用功能是新增员工和查询修改,设计登录窗体时主要体现这 两个功能。
根据设计要求,可以设计为登录界面,步骤如下。
25..3.1 主窗体建设
➊ 打开上节创建的 Excel 工作簿“人事管理系统.xlsx”,将鼠标移至工作表 Sheet2 的标签处并 单击右键,在弹出的快捷菜单中选择【重命名】菜单命令。
第 6 步:建立窗体命令按钮 ➊ 单击【工具箱】¾【控件】中的【命令按钮】 。
➋ 在窗体的低端分别建立两个名称为“增加”和“取消”的按钮,并将其各自的【名称】属性 617
分别设为“CmdSave”和“CmdCancel”。
➌ 单击【保存】按钮,在弹出的窗口中选择“否”。
➍ 弹出窗口【另存为】¾【保存类型】中选择【Excel 启用宏的工作簿】命令。
Private Sub object_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
3. Click 事件 鼠标单击控件时触发 Click 事件,该事件的语法格式如下:
Private Sub object_Click()
25.2 设计人事管理表格
➋ 将工作表 Sheet2 并重命名为“登录界面”。
606
25
VBA
➌ 在【视图】选项卡中,选择【显示/隐藏】选项组中的【编辑栏】、【网格线】和【标题】三个 按钮前的复选项取消。
第 章 使 ➎ 在【插入】选项卡中,选择【插图】选项组中【形状】命令,并单击。在下拉菜单中选择【矩 用 形】¾【矩形】命令。 制 作 人 事 管 理 系 统
使

25.1.2 关键技术:用户窗体的创建和控制

创建一个窗体,并在窗体上绘制控件用来接收用户的输入,或者显示相应的信息。向 作
窗体添加控件有以下几种方法:
人 事
⑴ 单击【工具箱】中的控件,然后在窗体单击,控件以默认大小出来,可以通过拖动 管
来改变其大小。
理 系
⑵ 将控件从【工具箱】中拖到窗体,控件同样以默认大小出来。
➏ 按鼠标左键直接拖曳绘出如下图形。
607
➐ 在所绘制的矩形区域内单击右键,在弹出的菜单中选择【设置形状格式】菜单命令。
➑ 打开【设置形状格式】对话框,选择【填充】¾【颜色】¾【深蓝,文字 2,淡色 80%】主 题颜色并单击,然后单击【关闭】按钮,关闭对话框。
➒ 完成主窗体的建设。
608
25
25..3.2 设置界面标题





➌ 在光标闪烁处输入以下代码:
'添加项目到“学历”复合框 ComboBoxEdu.AddItem "硕士" ComboBoxEdu.AddItem "本科" ComboBoxEdu.AddItem "专科" ComboBoxEdu.AddItem "其它" '添加项目到“职称”复合框 ComboBoxTitle.AddItem "高工" ComboBoxTitle.AddItem "工程师" ComboBoxTitle.AddItem "经济师" ComboBoxTitle.AddItem "会计师" ComboBoxTitle.AddItem "技术员" '添加项目到“职务”复合框
理 系

➊ 在【插入】选项卡中,选择【插图】选项组中的【形状】命令,在弹出下拉菜单中选择【矩
形】¾【圆角矩形】命令。
VBA
wk.baidu.com
➋ 按鼠标左键直接拖曳,在主界面中绘出如下按钮。 609
➌ 单击此按钮,输入文字“新增员工”,完成【新增员工】按钮。 ➍ 重复上述➊~➌新建按钮,输入文字“查询修改”,完成【查询修改】按钮创建。 610
作 人

25.4.1 设计窗体界面



在设计用户窗体时,主要就是完成对员工基本信息表的添加和维护,窗体的各个功能 统
块也应参照员工基本信息表的表头项目来设计完成。
第 1 步:插入窗体
➊ 打开工作簿“人事管理系统.xlsx”,在【开发工具】选项卡中,选择【代码】选项组中的【Visual Basic】命令。
619
ComboBoxDuty.AddItem "总经理" ComboBoxDuty.AddItem "厂长" ComboBoxDuty.AddItem "主任" ComboBoxDuty.AddItem "科长" ComboBoxDuty.AddItem "组长"
➋ 从 A2 单元格到 L2 单元格依次输入“编号”、“姓名”、“性别”、“民族”、“出生年月”、“学历”、 “身份证号”、“职称”、“职务”、“工作部门”、“联系方式”和“备注”文本。
604
25
VBA
➌ 选中 A1:L1 区域,在【开始】选项卡中,选择【对齐方式】选项组中的【合并后居中】按钮, 并单击。
614
25
VBA
在 Excel 应用中,字母和汉字是一样的 长度,但在很多程序设计时往往是一个汉 字占两个字母长度。 ➍ 重复本步的➊~➌,完成如下窗体建设。并将“民族”后的文本框【名称】属性设为“TextNation”、 “出生年月”后的文本框【名称】属性设为“TextBirth”、“身份证号”后的文本框【名称】 属性设为“TextID”、“工作部门”后的文本框【名称】属性设为“TextDep”、“联系方式”后 的文本框【名称】属性设为“TextPhone”和“备注”后的文本框【名称】属性设为“TextMemo”。
612
25
单击【视图】¾【工具箱】可以打开【工 具箱】对话框。
➋ 在窗体中绘制一个标签,在左侧设置其【AutoSize】属性设为“Ture”,使标签控件的大小与 输入的内容自动适应以改变大小。

章 使 用
➌ 将【Caption】的属性设为“姓名”。








➍ 重复本步的➊~➌,完成如下窗体建设。
第 章 使 用
制 作 人 事 管 理 系 统
第 4 步:建立窗体选项按钮 ➊ 单击【工具箱】¾【控件】中的【选项按钮】 。
➋ 在窗体中紧接“性别”后绘制一个【选项按钮】,在左侧依次设置其【名称】属性设为 “OptionMan”、【AutoSize】属性设为“Ture”、【Caption】属性设为“男”、【GroupName】属 性设为“GroupSex”和【Value】属性设为“Ture”。
Initialize 事件发生在加载对象后,显示对象前。该事件的语法格式如下:
Private Sub object_Initialize()
格式中的 object 表示一个对象。 2. BeforeUpdate 事件
603
在控件中的数据要改变前,BeforeUpdate 事件触发。该事件的语法格式如下:

⑶ 当创建多个相同控件时,可双击【工具箱】中所需的控件,然后在窗体中每单击一
次便可创建一个控件。
利用窗体的属性可以修改其外观。例如大小、颜色、位置及动作等。同时在编写事件
时也会显示各种初始化的设置。
25.1.3 关键技术:用户窗体和控件的事件
在人事管理系统中会用到很多用户窗体和控件的事件,本章以以下几个事件为例重点 讲解。 1. Initialize 事件
VBA
613
可以复制“姓名”标签,逐个粘贴后 更改各个标签的【Caption】的属性。 第 3 步:建立窗体文本框 ➊ 单击【工具箱】¾【控件】中的【文本框】按钮 。
➋ 在窗体中紧接“姓名”后绘制一个文本框,在左侧设置其【名称】属性设为“TextName”。
➌ 将【MaxLength】的属性设为“4”。
第 章 使 ➍ 将鼠标移至工作表 Sheet1 的标签处并单击右键,在弹出的快捷菜单中选择【重命名】菜单命 用 令,将工作表 Sheet1 重命名为“员工基本信息表”。 制 作 人 事 管 理 系 统
➏ 单击【文件】选项卡,在弹出的列表中选择【保存】菜单命令,将工作簿保存为“人事管理 系统.xlsx”并保存。
25.1 系统分析
人事管理系统虽然单位的大小可能不同,但功能大同小异,基本类似。在此以最常用 的应用功能为基础来设计人事管理系统,达到学习目的。
25.1.1 设计思路

人事管理系统主要是对员工资料进行管理。常用功能包括新增员工登记、查询和修改 章
员工资料,实例掌握本单位员工信息和员工信息更新的目的。
25
Tips
复制【新增员工】按钮后,可在主窗 体中粘贴出一个按钮,将新复制的【新增 员工】按钮,改为【查询修改】,即可。
➎ 单击【文件】选项卡,在弹出的列表中选择【保存】菜单命令。 根据设计要求,完成登录窗体建设,并用来做为以后管理系统的主界面。
25.4 设计人事信息窗体

人事管理系统完成主界面设计后,接下来需要完成功能模块设计,主要是新增员工和 章
615
➌ 然后再同样绘制一个【选项按钮】,依次将其【名称】属性设为“OptionWoman”、【AutoSize】 属性设为“Ture”、【Caption】属性设为“女”、【GroupName】属性设为“GroupSex”和【Value】 属性设为“False”。
在设置【选项按钮】的【Value】属性 设为“Ture”表示选中状态,而【Value】 属性设为“False”表示未选中状态。 第 5 步:建立窗体复选框 ➊ 单击【工具箱】¾【控件】中的【复合框】按钮 。
第 1 步:设计复选框的下拉列表项代码 ➊ 打开上节完成的工作簿“人事管理系统.xlsm”, 单击【开发工具】¾【Visual Basic】。
25
VBA

章 使 用
➋ 在 VBA 环境下,双击“新增员工资料”【用户窗体】打开代码窗口。并选择右侧的下拉箭头, 制
选择“Initialize”事件。


人事管理系统最重要的一个环节是保存员工基本信息的员工基本信息表,首先设计员 工基本信息表,用来在管理系统中调用。
根据设计要求,本系统的功能要求比较简单常用,表格格式简单,使用前设置好表头 即可,用户不用直接操作此表,所有操作都通过用户窗体完成。 ➊ 打开 Excel 2010,单击 A1 单元格,输入“员工基本信息表”。
➊ 主窗体完成的基础上,在【开始】选项卡中,选择【字体】选项组中将字体设置为“粗体”; 字体颜色设置为“黑色”;字体设置为“宋体(正文)”,字号设置为“18”。
➋ 在【开始】选项卡中,选择【对齐方式】选项组中的【顶端对齐】命令,并单击。 ➌ 输入界面标题文字“人事管理系统”。

章 使 用





25..3.3 绘制界面按钮
第 25 章 使用 VBA 制作人事管 理系统
本章引言
人事管理系统是企事业单位在人事管理的主要内容之一。通过掌握人 员基本信息,加强和规范自身管理行为,造就和培养一支高素质的员工队 伍,促进单位的稳定和健康发展。本章主要讲解人事管理系统的制作方法 和制作技巧。
25
VBA
人事管理系统是企事业单元的一个重要应用,包括聘用、培训、考核和晋升等多个方 面,在对人事管理时,需要查询大量的信息,人事管理系统就可以解决这个问题。本章以 VBA 在人事资料管理的应用为例讲解。
➎ 单击【保存】按钮,即保存为工作簿“人事管理系统.xlsm”。 完成人事信息管理新增员工的主窗体设计,但没有后台代码的支持还是无法实现新增
员工的功能,需要进一步设计后台代码。
25.4.2 设计人事信息管理代码
在用户窗体创建完好各控件后,并设置好各控件属性时,就可以开始编写代码了。在 编写窗体的初始化代码,可首先添加复选框控件的下拉列表项目。 618
➋ 在窗体的“学历”后绘制一个【复选框】,在左侧设置其【名称】属性设为“ComboBoxEdu”。 616
25
VBA
➌ 然后为“职称”和“职务”分别绘制两个【复选框】,并将其各自的【名称】属性分别设为
“ComboBoxTitle”和“ComboBoxDuty”。


使 用
制 作 人 事 管 理 系 统
查询修改两个功能模块,本节首先设计新增员工模块。
使
新增员工模块的功能是收集整理新员工的基本资料,并添加到员工基本信息表中。虽 用
然可以直接在员工信息表中添加,但表中所有数据处在一个可修改范围,容易误操作破坏
原来数据。而本节所设计的是通过一个用户窗体添加数据到原始的员工基本信息表中,隔 制
离原始数据,提高了安全性。
VBA
611
打 开 Excel 工 作 表 , 选 择 快 捷 键 【Alt+F11】进入 VBA 环境。 ➋ 进入 VBA 环境下,选择【插入】¾【用户窗体】菜单命令。
➌ 选择【名称】,并将属性设为“Form1”,同时将【Caption】的属性改为“新增员工资料”。
第 2 步:建立窗体标签 ➊ 单击【工具箱】¾【控件】中的【标签】按钮 。
相关文档
最新文档