Access在人事管理中的应用

1、1会计学Access在人事管理中的应用在人事管理中的应用第一步：启动Access 2007。单击屏幕最左上角的Office徽标，在弹出的Office功能菜单中选择【新建】命令；也可以直接双击屏幕中间的【空白数据库】按钮，新建一个数据库，如下图所示。 第二步：在屏幕右下方的【文件名】文本框中输入“人事管理系统”，如下图所示。 单击此处，新建一个空数据库。单击文本框右边的文件夹按钮，更改数据库的存放位置，如下图所示。 在这里输入您想要的文件名。构造空数据库系统 l 新建一个“人事管理系统.accdb”空白数据库。 第三步：单击【创建】按钮，完成新建一个空白数据库，系统自动创建一个空白数据表，如下图

2、所示。 第一步：创建的“人事管理系统.accdb”数据库中自动创建了“表1”数据表，单击【数据表】选项卡下的【视图】按钮，如下图所示。 第二步：在弹出的【另存为】对话框的【表名称】文本框中输入“Switchboard Items”，如下图所示。 单击【确定】按钮，进入表的【设计视图】，如下图所示。 第三步：在“Switchboard Items”表的【设计视图】中进行表字段的设计。各个字段的名称、数据类型等如下表所示。 第四步：输入并设置各个字段以后，表的【设计视图】如下图所示。 列 名数据类型字段宽度主 键SwitchboardID数字长整型是ItemNumber数字长整型是ItemText

3、文本255否Command数字长整型否Argument文本255否第五步：单击屏幕左上角的【保存】按钮，保存该表。单击【视图】按钮，进入表的【数据表视图】。 数据表字段结构设计 l “管理员”表“管理员”表中存放的是该系统管理人员的信息。 “管理员”表的字段结构如下表。 字 段 名数据类型字段宽度是否主键员工编号文本9是用户名文本18否密码文本18否字 段 名数据类型字段宽度是否主键员工编号文本9是姓名文本18否性别文本是/否否部门编号文本2否职位文本18否学历文本6否毕业院校文本255否专业文本255否家庭住址文本255否电话文本18否状态文本1否备注文本255否基本工资级别编号文本6否岗位

4、津贴级别编号文本6否“部门信息”表的字段结构如下表。 字 段 名数据类型字段宽度是否主键编号文本2是名称文本18否经理文体9否备注文本255否字 段 名数据类型字段宽度是否主键记录编号自动编号是员工编号文本9否原职位文本18否现职位文本18否登记时间日期/时间否备注文本255否“人事变更记录”表的字段结构如下表。 “班次配置”表的字段结构如下表。 字 段 名数据类型字段宽度是否主键班次编号文本2是名称文本18否班次开始时间日期/时间否班次结束时间日期/时间否备注文本255“出勤记录”表的字段结构如下表。 字 段 名数据类型字段宽度是否主键记录号自动编号是日期日期/时间否员工编号文本9否出勤配置

5、编号数字长整型否“出勤配置”表的字段结构如下表。 字 段 名数据类型字段宽度是否主键出勤配置编号数字长整型是出勤说明文本255否“级别工资配置”表的字段结构如下表。 字 段 名数据类型字段宽度是否主键级别工资编号文本6是名称文本18否金额数字单精度型否备注文本255否“加班记录”表的字段结构如下表。 字 段 名数据类型字段宽度是否主键加班日期日期/时间是员工编号文本9是加班开始时间日期/时间否加班结束时间日期/时间否持续时间数字长整型否“企业工资发放记录”表逻辑结构设计如下表。 字 段 名数据类型字段宽度是否主键记录编号自动编号是年份数字长整型否月份数字长整型否日期日期/时间否员工编号文本9否

6、基本工资数额数字单精度型否岗位津贴数额数字单精度型否加班补贴数额数字单精度型否出差补贴数额数字单精度型否违纪扣除数额数字单精度型否实际应发数额数字单精度型否备注文本255否“企业工资计算规则”逻辑结构设计如下表。 字 段 名数据类型字段宽度是否主键加班补贴数字单精度型否出差补贴数字单精度型否迟到/早退扣除数字单精度型否缺席扣除数字单精度型否字 段 名数据类型字段宽度是否主键日期日期/时间单精度型是员工编号文本9是班次编号文本2否签出时间日期/时间否备注文本255否字 段 名数据类型字段宽度是否主键日期日期/时间单精度型是员工编号文本9是班次编号文本2否签到时间日期/时间否备注文本255否字 段

7、 名数据类型字段宽度是否主键日期日期/时间单精度型是员工编号文本9是缺勤原因文本255否缺勤天数数字长整型否缺勤开始时间日期/时间否缺勤结束时间日期/时间否备注文本255否字 段 名数据类型字段宽度是否主键员工编号文本9是签到次数数字长整型否签出次数数字长整型否迟到次数数字长整型否早退次数数字长整型否出差天数数字长整型否请假天数数字长整型否休假天数数字长整型否加班时间汇总数字长整型否字 段 名数据类型字段宽度是否主键职位津贴编号文本6是名称文本18否数额数字单精度型否备注文本255否第一步：启动Access 2007，打开“人事管理系统.accdb”数据库，并切换到【数据库工具】选项卡，如下图

8、所示。 第二步：单击【数据库工具】选项卡下【显示/隐藏】组中的【关系】按钮，即可进入该数据库【关系】视图，如下图所示。 数据表的表关系设计 l 为“人事管理系统.accdb”数据库建立表关系。 第三步：在【关系】视图中右击，在弹出的快捷菜单中选择【显示表】命令；或者直接单击【关系】组中的【显示表】按钮，如下图所示。 第四步：系统弹出【显示表】对话框，如下图所示。 数据表的表关系设计 l 为“人事管理系统.accdb”数据库建立表关系。 第五步：在【显示表】对话框中依次选择所有的数据表，单击【添加】按钮，将所有数据表添加进【关系】视图，如下图所示。 第六步：选择“员工信息”表中的“员工编号”字段

9、，按下鼠标左键不放并将其拖动到“管理员”表中的“员工编号”字段上，释放鼠标左键，系统显示【编辑关系】对话框，如下图所示。 数据表的表关系设计 l 为“人事管理系统.accdb”数据库建立表关系。 第七步：选中【实施参照完整性】复选框，以保证在“管理员”表中登记的“员工编号”都是在“员工信息”表中记录的“员工编号”。单击【创建】按钮，创建一表关系，如下图所示。 这样我们就完成了第一个表关系的创建。重复以上步骤中的第6步和第7步，建立其余各表间的表关系，如下表所示。 表 名字 段 名相关表名字 段 名员工信息员工编号管理员员工编号员工信息员工编号人事变更信息员工编号员工信息员工编号出勤记录员工编号

10、员工信息员工编号企业工资发放记录员工编号员工信息员工编号签到记录员工编号员工信息员工编号签出记录员工编号员工信息员工编号月度出勤汇总员工编号员工信息员工编号缺勤记录员工编号员工信息员工编号加班记录员工编号员工信息员工编号部门信息经理编号部门信息部门编号员工信息部门编号级别工资配置级别工资编号员工信息基本工资级别编号岗位津贴配置岗位津贴编号员工信息岗位津贴级别编号出勤配置出勤配置编号出勤记录出勤配置编号班次配置班次编号签出记录班次编号班次配置班次编号签到记录班次编号数据表的表关系设计 l 为“人事管理系统.accdb”数据库建立表关系。 第八步：建立这些关系后可以在【关系】视图中预览所有的关联关

11、系，如下图所示。 第九步：单击【关闭】按钮，系统弹出提示保存布局的对话框，单击【是】按钮，保存【关系】视图的更改，如下图所示。 第一步：启动Access 2007，打开“人事管理系统.accdb”数据库。 第二步：单击【创建】选项卡下【窗体】组中的【窗体设计】按钮，Access即新创建一个窗体并进入窗体的【设计视图】，如下图所示。 第三步：添加窗体标题。单击【控件】组中的【标题】按钮，则窗体显示【窗体页眉】节，并在页眉区域中显示“主切换面板”标题。将窗体标题更改为“欢迎使用夕林人事管理系统”，并设置标题格式，如下图所示。 “标题”各个属性如下图所示的【属性表】窗格。 主切换面板”窗体的设计 l

12、 建立“主切换面板”窗体，实现系统功能的导航作用。 第四步：添加系统徽标。单击【徽标】按钮，弹出选择徽标的对话框。选择一个Bmp图片作为徽标，并将【图片类型】设为“嵌入”，最终结果如下图所示。 第五步：设置主体背景颜色。在主体区域中右击，在弹出的快捷菜单中选择【填充/背景色】命令，弹出如下图所示的菜单。 主切换面板”窗体的设计 l 建立“主切换面板”窗体，实现系统功能的导航作用。 第六步：在颜色块中选择一种颜色作为背景颜色。 第七步：添加按钮。单击【控件】组中的【按钮】控件，并在窗体主体区域中单击，系统会弹出【命令按钮向导】对话框，如下图所示。 第八步：单击【取消】按钮，取消该向导。单击按钮窗

13、体，并在【属性表】窗格中设置按钮的【名称】为“btn1”，删除【标题】属性中的信息。 第九步：在“btn1”按钮控件右方添加一个“标签”窗体控件，将【名称】属性改为“lbl1”，【标题】属性改为“1”。 主切换面板”窗体的设计 l 建立“主切换面板”窗体，实现系统功能的导航作用。 第十步：单击“lbl1”标签控件，在“lbl1”标签控件左边出现“”控件关联图标。单击该图标，系统弹出一个快捷菜单，如下图所示。 第十一步：选择【将标签与控件关联】命令，系统弹出【关联标签】对话框，如下图所示。 主切换面板”窗体的设计 l 建立“主切换面板”窗体，实现系统功能的导航作用。 第十二步：选择“btn1”选

14、项，并单击【确定】按钮。这样“btn1”按钮控件就与“lbl1”标签控件建立了关联。 第十三步：重复以上步骤，在“btn1”按钮控件下方添加其余7个按钮窗体控件和标签窗体控件，如下图所示。 第十四步：修改每个控件的属性，如下表所示。 类 型名 称标 题标签lbl11标签lbl22标签lbl33标签lbl44标签lbl55标签lbl66标签lbl77标签lbl88按钮btn1按钮btn2按钮btn3按钮btn4按钮btn5按钮btn6按钮btn7按钮btn8主切换面板”窗体的设计 l 建立“主切换面板”窗体，实现系统功能的导航作用。 第十五步：单击【保存】按钮，系统弹出【另存为】对话框，输入窗体

15、名“主切换面板”，如下图所示。 第十六步：单击【确定】按钮，则新创建了一个“主切换面板”窗体。这样就完成了“主切换面板”窗体的创建。注意，在这里创建的仅仅是一个空白窗体。该窗体的【窗体视图】如下图所示。 主切换面板”窗体的设计 l 建立“主切换面板”窗体，实现系统功能的导航作用。 第十七步：在“Switchboard Items”表中添加相应的记录，如下表所示。 SwitchboardIDItemNumberItemTextComandArgument10主切换面板0默认11员工信息查询编辑2员工信息查询编辑12人事变更记录查询编辑2人事变更记录查询编辑13员工工资查询2员工工资查询14员工考

16、勤记录查询2员工考勤记录查询15预览报表2218退出数据库420报表切换面板021企业工资发放记录报表3企业工资发放记录报表22企业员工出勤记录报表3企业员工出勤记录报表28返回主面板11设计“登录”窗体 l 利用和节相似的步骤，创建“登录”窗体，所有窗体控件信息如下表。l 创建的窗体视图如下图所示。 类 型名 称标 题标签用户名用户名：标签密码密码：文本框UserName文本框Password按钮OK按钮Cancel第一步：启动Access 2007，打开“人事管理系统.accdb”数据库。 第二步：切换到【创建】选项卡，单击【其他窗体】按钮，在弹出的菜单中选择【窗体向导】选项，如下图所示。

17、 第三步：弹出【窗体向导】对话框，在【表/查询】下拉列表框中选择“表：员工信息”，将【可用字段】列表框中的所有字段添加到右面【选定字段】列表框中，如下图所示。 创建“员工信息查询”窗体 l 使用窗体向导，来创建“员工信息查询”窗体。 第四步：单击【下一步】按钮，弹出要求用户选择布局的对话框。我们选择【纵栏表】选项，如下图所示。 第五步：单击【下一步】按钮，弹出要求选择窗体样式的对话框。在下拉列表框中选择Northwind选项，如下图所示。 创建“员工信息查询”窗体 l 使用窗体向导，来创建“员工信息查询”窗体。 第六步：单击【下一步】按钮，输入窗体标题为“员工信息查询”，再选中【打开窗体查看或

18、输入信息】单选按钮，如下图所示。 第七步：单击【完成】按钮，完成窗体创建。 创建“员工信息查询”窗体 l 使用窗体向导，来创建“员工信息查询”窗体。 这样我们就利用窗体向导创建了一个“员工信息查询”窗体，窗体界面如下图所示。 在窗体中右击，在弹出的快捷菜单中选择【设计视图】选项，进入该窗体的【设计视图】，如下图所示。 创建“员工信息查询”窗体 l 使用窗体向导，来创建“员工信息查询”窗体。 在【设计视图】中对自动生成的窗体做进一步的修改。设置【窗体页眉】区域中的背景颜色、标题信息等，然后重新调整各个文本框的宽度、高度等。最终效果如下图所示。 第一步：启动Access 2007，打开“人事管理系

19、统.accdb”数据库。 第二步：切换到【创建】选项卡，单击【其他窗体】按钮，在弹出的菜单中选择【窗体向导】选项，弹出【窗体向导】对话框。 第三步：在向【选定字段】对话框输入字段之前，先选择“员工信息”表中的“姓名”，然后再将“人事变更记录”表中的所有字段选为选定字段，如下图所示。 第四步：单击【下一步】按钮，选择【通过员工信息】选项，再选中【带有子窗体的窗体】单选按钮，如下图所示。 创建“员工人事变更记录”窗体 l 使用窗体向导创建“员工人事变更记录”窗体。 第五步：单击【下一步】按钮，弹出要求选择窗体布局的对话框。我们选择【数据表】选项，如下图所示。 第六步：单击【下一步】按钮，弹出要求选

20、择样式的对话框。我们选择Northwind选项，如下图所示。 创建“员工人事变更记录”窗体 l 使用窗体向导创建“员工人事变更记录”窗体。 第七步：单击【下一步】按钮，输入窗体标题“员工人事变更记录”和子窗体标题“员工人事变更记录_子窗体”，然后在下面选中【打开窗体查看或输入信息】单选按钮，如下图所示。 第八步：单击【完成】按钮，完成该窗体的创建。 创建“员工人事变更记录”窗体 l 使用窗体向导创建“员工人事变更记录”窗体。 这样我们就利用窗体向导建立了一个“员工人事变更记录”窗体。创建后的窗体如下图所示。 可以看到，自动创建的窗体在布局上有些混乱。需要我们进行手工修改。在窗体中右击，在弹出的

21、快捷菜单中选择【设计视图】选项，进入该窗体的【设计视图】，如下图所示。 创建“员工人事变更记录”窗体 l 使用窗体向导创建“员工人事变更记录”窗体。 在【设计视图】中对自动生成的窗体做进一步的修改。设置【窗体页眉】区域中的背景颜色、标题信息，调整子窗体的位置，调整各个文本框的宽度、高度等。最终效果如下图所示。 类 型名 称标 题标签员工号标签员工号：标签开始时间标签开始时间：标签结束时间标签结束时间：文本框员工号文本框开始时间文本框结束时间按钮考勤查询按钮取消第一步：启动Access 2007，打开“人事管理系统.accdb”数据库。 第二步：切换到【创建】选项卡，然后单击【窗体】组中的【窗体

22、设计】按钮，进入窗体的【设计视图】，如下图所示。 第三步：单击【控件】组中的“标题”控件，则在【设计视图】中显示【窗体页眉】区域，并在页眉区域中显示窗体标题。重新输入窗体标题，如下图所示。 创建“员工考勤记录查询”窗体l 在窗体的【设计视图】中，运用窗体的各种控件创建“员工考勤记录查询”窗体。 第四步：单击【控件】组中的“文本框”控件，并在窗体【主体】区域中单击，弹出【文本框向导】对话框，如下图所示。 第五步：按照【文本框向导】的提示，完成该文本框的属性设置，并将该文本框命名为“员工号”。 创建“员工考勤记录查询”窗体l 在窗体的【设计视图】中，运用窗体的各种控件创建“员工考勤记录查询”窗体。

23、 第六步：用同样的方法添加另外两个文本框，并分别命名为“开始时间”和“结束时间”，如下图所示。 第七步：设置“开始时间”和“结束时间”文本框控件的格式。选择【属性表】窗格中的【格式】选项卡，然后在【格式】行的下拉列表框中选择【常规日期】选项，这样即可在程序中通过时间控件来输入时间信息，如下图所示。 创建“员工考勤记录查询”窗体l 在窗体的【设计视图】中，运用窗体的各种控件创建“员工考勤记录查询”窗体。 第七步：单击【控件】组中的“按钮”控件，并在窗体【主体】区域中单击，弹出【命令按钮向导】对话框，单击【取消】按钮。 第八步：在【属性表】窗格中，设置该按钮的标题和名称均为“考勤查询”，如下图所示

24、。 第九步：用同样的方法添加另外的一个按钮，标题和名称均为“取消”。 第十步：单击【保存】按钮，保存该按钮为“员工考勤记录查询”。 创建“员工考勤记录查询”窗体l 在窗体的【设计视图】中，运用窗体的各种控件创建“员工考勤记录查询”窗体。 这样我们就完成了“员工考勤记录查询”窗体的设计，如下图所示。 设计完成以后，设置窗体的背景颜色、字体和字号等属性，最终效果创建后窗体的【窗体视图】如下图所示。 类 型名 称标 题标签员工号标签员工号标签开始月份标签开始月份标签结束月份标签结束月份文本框员工号组合框开始月份组合框结束月份按钮工资查询按钮取消这样的组合框可以在【属性表】窗格中设置。选择该“开始月份

25、”组合框，然后将【属性表】切换到【数据】选项卡，在【行来源类型】行中选择【值列表】选项，然后在【行来源】行中输入想要在列表框中出现的选项。例如在本例中我们要实现12个月的选择，因此可以输入“1;2;3;4;5;6;7;8;9;10;11;12”，如下图所示。 将该窗体保存为“员工工资查询”窗体，最终效果如下图所示。 第一步：启动Access 2007，打开“人事管理系统.accdb”数据库。 第二步：切换到【创建】选项卡，然后单击【其他】组中的【查询设计】按钮，如下图所示。 第三步：系统进入查询【设计视图】，并弹出【显示表】对话框，如下图所示。 员工考勤记录”查询 l 建立一个查询，要求可以查

26、询某一员工的考勤记录。 第四步：在【显示表】对话框中选择“员工信息”表，单击【添加】按钮，将该表添加到查询【设计视图】中。用同样的方法，将“出勤配置”表和“出勤记录”表也添加进【设计视图】中，如下图所示。 第五步：向查询设计网格中添加字段。选择“出勤记录”表中的“员工编号”字段，并按下鼠标左键将其拖动到下面的第一个查询设计网格中。 第六步：在网格的【条件行】中输入查询的条件为“Forms!员工考勤记录查询!员工号”。 员工考勤记录”查询 l 建立一个查询，要求可以查询某一员工的考勤记录。 第七步：用同样的方法，依次向网格中添加如下表所示的字段信息。 字 段表排 序条 件员工编号出勤记录无For

27、ms!员工考勤记录查询!员工编号姓名员工信息无日期出勤记录升序Between Forms!员工考勤记录查询!开始日期 And Forms!员工考勤记录查询!结束日期出勤说明出勤配置无设置好以后的视图如下图所示。第八步：单击【保存】按钮，把此查询保存为“员工考勤记录查询”。 员工考勤记录”查询 这样我们就完成了能够查询员工考勤信息的一个查询，在导航窗格中双击执行该查询，可以弹出要求用户输入参数值的对话框，如下图所示。 输入员工编号，单击【确定】按钮，在弹出的对话框中输入开始日期和结束日期，如下图所示。 这样即可实现员工的考勤情况查询，查询结果如下图所示。 在创建该查询的过程中，最难以确定的就是各

28、种查询条件。为了方便用户输入查询条件，Access提供了“表达式生成器”，用户可以在生成器中创建自己的查询条件。在查询设计网格的【条件】行右击，在弹出的快捷菜单中选择【生成器】选项，如下图所示。 弹出【表达式生成器】对话框，依次选择“窗体”|“员工考勤记录”|“员工号”，并双击“员工号”字段，即可在上面的表达式输入窗口中显示该查询条件，如下图所示。 字 段表排 序条 件部门名称部门信息无员工编号企业工资发放记录无Forms!员工工资查询!员工号姓名员工信息无月份企业工资发放记录升序Between Forms! 员工工资查询!开始月份 And Forms!员工工资查询!结束月份年份企业工资发放记

29、录升序实际应发数额企业工资发放记录无基本工资数额企业工资发放记录无岗位津贴数额企业工资发放记录无加班补贴数额企业工资发放记录无出差补贴数额企业工资发放记录无违规扣除数额企业工资发放记录无第一步：启动Access 2007，打开“人事管理系统.accdb”数据库。 第二步：切换到【创建】选项卡，在【报表】组中单击【报表向导】按钮，如下图所示。 第三步：系统弹出【报表向导】对话框，在【表/查询】下拉列表框中选择“查询：员工考勤记录查询”，然后把所有字段作为选定字段。如下图所示。 第四步：单击【下一步】按钮，弹出选择数据查看方式的对话框。选择“通过出勤记录”选项，如下图所示。 第五步：单击【下一步】

30、按钮，弹出添加分组级别的对话框。不选择分组字段，如下图所示。 第六步：单击【下一步】按钮，弹出选择排序字段的对话框。选择通过“日期”排序，排序方式为“升序”，如下图所示。 第七步：单击【下一步】按钮，弹出选择布局方式的对话框。选择【表格】选项，方向为【纵向】，如下图所示。 员工考勤记录查询”报表l 该查询记录报表的主要功能就是对员工的考勤记录进行查询和打印。 第八步：单击【下一步】按钮，弹出选择报表样式的对话框。选择【办公室】样式，如下图所示。 第九步：单击【下一步】按钮，输入标题为“员工考勤记录查询报表”，并选中【预览报表】单选按钮，如下图所示。 第十步：单击【完成】按钮，这样就创建了一个“

31、员工考勤记录查询报表”。 员工考勤记录查询”报表用户可以在导航窗格中看到该报表，双击报表，弹出要求用户输入“员工编号”的对话框(和双击查询一样)。输入正确的参数以后，用户就可以查看该报表，如下图所示。 进入报表的【设计视图】，对以上用向导自动生成的报表进行适当的修改，比如设置标题格式、页脚内容等。最终的设计效果如下图所示。 第一步：启动Access 2007，打开“人事管理系统.accdb”数据库。 第二步：切换到【创建】选项卡，在【报表】组中单击【报表向导】按钮，如下图所示。 第三步：弹出【报表向导】对话框，在【表/查询】中选择“查询：员工工资查询”，然后把所有字段作为选定字段，如下图所示。

32、 员工工资查询”报表 l 我们来创建“员工工资查询报表”。 第四步：单击【下一步】按钮，弹出选择数据查看方式的对话框。选择“通过企业工资发放记录”选项，如下图所示。 第五步：单击【下一步】按钮，弹出选择是否分组的对话框。不选择分组字段，如下图所示。员工工资查询”报表 l 我们来创建“员工工资查询报表”。 第六步：单击【下一步】按钮，在排序方式中选择通过“年份”和“月份”进行排序，排序方式均为“升序”，如下图所示。 第七步：单击【下一步】按钮，在弹出的对话框中设置布局方式。布局选择【表格】选项，方向选择【横向】，如下图所示。 员工工资查询”报表 l 我们来创建“员工工资查询报表”。 第八步：单击

33、【下一步】按钮，弹出选择样式的对话框。选择【办公室】选项，如下图所示。 第九步：单击【下一步】按钮，输入标题为“员工工资查询报表”，选中【预览报表】单选按钮，如下图所示。 第十步：单击【完成】按钮，这样就创建了一个“员工工资查询报表”。 员工工资查询”报表 该报表以“员工工资查询”为数据源，进行员工已发薪金的筛选和查询。用户可以在导航窗格中看到该报表，双击报表，弹出要求用户输入员工编号的对话框(和双击查询一样)。输入正确的参数以后，用户就可以查看该报表，如下图所示。 进入报表的【设计视图】，对以上用向导自动生成的报表进行适当的修改，比如设置标题格式、页脚内容等。最终的设计效果如下图所示。 第一

34、步：启动Access 2007，打开“人事管理系统.accdb”数据库。 第二步：切换到【创建】选项卡，在【报表】组中单击【报表向导】按钮。 第三步：弹出【报表向导】对话框，在对话框中将“表：出勤记录”中的“记录号”、“日期”、“员工编号”字段，“表：员工信息”中的“姓名”字段和“表：出勤配置”中的“出勤说明”字段添加到【选定字段】列表框中，如下图所示。 第四步：单击【下一步】按钮，在弹出的选择数据查看方式的对话框中选择“通过出勤记录”选项，如下图所示。 员工出勤记录”报表 l 我们利用报表向导，创建“员工出勤记录报表”。 第五步：其余各操作步骤设置与小节中的一样，保存该报表为“员工出勤记录报

35、表”，如下图所示。 进入报表的【设计视图】，对以上用向导自动生成的报表进行适当的修改。最终的设计效果如下图所示。 企业工资发放记录”报表 l 我们通过同样的方式创建“企业工资发放记录“报表”第一步：启动Access 2007，打开“人事管理系统.accdb”数据库。 第二步：切换到【创建】选项卡，在【报表】组中单击【报表向导】按钮。 第三步：弹出【报表向导】对话框，在对话框中将“表：员工信息”中的“姓名”字段和“表：企业工资发放记录”中的所有字段添加到【选定字段】列表框中，如下图所示。 企业工资发放记录”报表 l 我们通过同样的方式创建“企业工资发放记录“报表”第四步：单击【下一步】按钮，在弹

36、出的选择数据查看方式的对话框中选择【通过企业工资发放记录】选项，如下图所示。 第五步：其余各操作步骤设置与小节中的一样，保存该报表为“企业工资发放记录报表”，如下图所示。 第一步：启动Access 2007，打开“人事管理系统.accdb”数据库。 第二步：切换到【创建】选项卡，单击【其他】组中的【宏】按钮下的小箭头，弹出二级菜单如下图所示。 第三步：单击【模块】选项，系统新建一模块，并进入VBA编辑器，如下图所示。 公用模块l 在数据库中建立一个公用模块，以实现数据库的连接和用户登录。第四步：在【代码】窗口中输入如下代码： Option Compare DatabaseOption Expl

37、icitPublic check As Boolean通过字符串StrQuery所引用的SQL语句返回一个ADO.Recordset对象Public Function GetRs(ByVal StrQuery As String) As ADODB.Recordset Dim rs As New ADODB.Recordset Dim conn As New ADODB.Connection On Error GoTo GetRS_Error Set conn = CurrentProject.Connection rs.Open StrQuery, conn, adOpenKeyset, a

38、dLockOptimistic Set GetRs = rsGetRS_Exit: Set rs = Nothing Set conn = Nothing Exit FunctionGetRS_Error: MsgBox (Err.Description) Resume GetRS_ExitEnd Function GetRS函数实现通过一条SQL语句，返回一个ADODB.Recordset对象实例。该函数中用到的两个重要的对象如下。方法：用于建立一个数据库连接，并返回数据库指针，用以指向数据库中的数据表、查询、窗体等对象。 adLockOptimistic：指示逐记录的开放式锁定。提供程序使

39、用开放式锁定，即仅在您调用Update 方法时锁定记录。 第五步：单击【保存】按钮，输入模块名“公共模块”，单击【确定】按钮即可。 类 型名 称标 题标签用户名用户名：标签密码密码：文本框UserName文本框Password按钮OK按钮Cancel窗体中各个控件的名称和参数如下表。 登录”窗体代码 第一步：启动Access 2007，打开“人事管理系统.accdb”数据库。 第二步：在导航窗格中单击“登录”窗体，在弹出的快捷菜单中选择【设计视图】选项，进入窗体的【设计视图】。 第三步：设置窗体的记录源。在窗体的【属性表】窗格中，单击【所选内容的类型：窗体】下拉列表框，选择“窗体”选项。切换到

40、【数据】选项卡，在【记录源】行的下拉列表框中选择“管理员”表，如下图所示。 第四步：给窗体添加“加载”事件过程。将【属性表】切换到【事件】选项卡，在【加载】行中选择“事件过程”选项，并单击右边的省略号按钮，如下图所示。 登录”窗体代码 l 为“登录”窗体添加各种事件过程，实现用户的登录功能。 为“登录”窗体添加“加载”事件过程 第五步：系统进入VBA编辑器，并自动新建了一个名称为“Form_Load()”的Sub过程。 第六步：在【代码】窗口中输入如下所示的VBA代码，给窗体添加“加载”事件过程。 Private Sub Form_Load() 最小化数据库窗体并初始化该窗体On Error

41、GoTo Form_Open_Err DoCmd.SelectObject acForm, 切换面板, True DoCmd.Minimize check = False Form_Open_Exit: Exit SubForm_Open_Err: MsgBox Err.Description Resume Form_Open_ExitEnd Sub第七步：保存该VBA代码，这样就给整个窗体加上了“加载”事件过程。此时【代码】窗口如下图所示。 登录”窗体代码 l 为“登录”窗体添加各种事件过程，实现用户的登录功能。 为“OK”按钮添加事件过程第一步：在“登录”窗体的【设计视图】中单击【确定】按

42、钮，以选择“OK”按钮控件。 第二步：给“OK”按钮控件添加“单击”事件过程。将【属性表】切换到【事件】选项卡，在【单击】行中选择“事件过程”选项，并单击右边的省略号按钮，如下图所示。 第三步：系统进入VBA编辑器，并自动新建了一个名称为“OK_Click()”的Sub过程。 登录”窗体代码 l 为“登录”窗体添加各种事件过程，实现用户的登录功能。 为“OK”按钮添加事件过程第四步：在【代码】窗口中输入如下所示的VBA代码，给按钮控件添加“单击”事件过程。 Private Sub OK_Click() On Error GoTo Err_OK_Click Dim strSQL As Strin

43、g Dim rs As New ADODB.RecordsetIf IsNull(Me.UserName) Or Me.UserName = Then DoCmd.Beep MsgBox (请输入用户名称！)ElseIf IsNull(Me.Password) Or Me.Password = Then DoCmd.Beep MsgBox (请输入密码！) Else strSQL = SELECT * FROM 管理员 WHERE 用 户名= & Me.UserName & and 密码= & Me.Password & Set rs = GetRs(strSQ

44、L) If rs.EOF Then DoCmd.Beep MsgBox (用户名或密码错误！) Me.UserName = Me.Password = Exit Sub Else DoCmd.Close check = True DoCmd.OpenForm (主切换面板) End If End If Set rs = NothingExit_OK_Click: Exit SubErr_OK_Click: MsgBox (Err.Description) Debug.Print Err.Description Resume Exit_OK_ClickEnd Sub登录”窗体代码 l 为“登录”

45、窗体添加各种事件过程，实现用户的登录功能。 为“OK”按钮添加事件过程第五步：保存该VBA代码，这样就给“OK”按钮控件加上“单击”事件过程。此时的【代码】窗口如下图所示。 l 为“登录”窗体添加各种事件过程，实现用户的登录功能。 为“Concel”按钮添加事件过程第一步：在“登录”窗体的【设计视图】中单击【取消】按钮，以选择“Concel”按钮控件。 第二步：给“Concel”按钮控件添加“单击”事件过程。将【属性表】切换到【事件】选项卡，在【单击】行中选择“事件过程”选项，并单击右边的省略号按钮，如下图所示。 第三步：系统进入VBA编辑器，并自动新建了一个名称为“Concel_Click(

46、)”的Sub过程。 l 为“登录”窗体添加各种事件过程，实现用户的登录功能。 为“Concel”按钮添加事件过程第四步：在【代码】窗口中输入如下所示的VBA代码，给按钮控件添加“单击”事件过程。 第五步：保存该VBA代码，这样就给“Concel”按钮控件加上“单击”事件过程。此时的【代码】窗口如下图所示。 Private Sub Cancel_Click() check = False DoCmd.CloseEnd Sub第一步：启动Access 2007，打开“人事管理系统.accdb”数据库。 第二步：在导航窗格中右击“主切换面板”窗体，在弹出的快捷菜单中选择【设计视图】选项，进入窗体的【

47、设计视图】。 第三步：调出【属性表】窗格，并将其切换到【数据】选项卡。单击【记录源】行的小箭头，在弹出的下拉列表框中选择“Switchboard Items”表，如下图所示。 第四步：单击btn1按钮，把【属性表】窗格切换到【事件】选项卡。在【单击】行的属性框中输入“=HandleButtonClick(1)”，添加“btn1”按钮“单击事件”的响应程序，如下图所示。 主切换面板”窗体代码 l 为“主切换面板”窗体加上各种事件过程。 为“主切换面板”窗体上的“Btn1”按钮控件添加 “单击”事件过程 第五步：重复第2步，给其余7个按钮控件添加单击消息事件响应程序，各控件的响应程序参数如下表所示

48、。 第六步：在窗口【设计视图】的任意位置右击，弹出右键快捷菜单，如下图所示。 控 件事 件事件过程btn1单击=HandleButtonClick(1)btn2单击=HandleButtonClick(2)btn3单击=HandleButtonClick(3)btn4单击=HandleButtonClick(4)btn5单击=HandleButtonClick(5)btn6单击=HandleButtonClick(6)btn7单击=HandleButtonClick(7)btn8单击=HandleButtonClick(8)主切换面板”窗体代码 l 为“主切换面板”窗体加上各种事件过程。 为“

49、主切换面板”窗体上的“Btn1”按钮控件添加 “单击”事件过程 第七步：选择【事件生成器】命令，弹出【选择生成器】对话框，如下图所示。 第八步：选择【代码生成器】选项，并单击【确定】按钮，打开VBA程序编辑器，如下图所示。 主切换面板”窗体代码 l 为“主切换面板”窗体加上各种事件过程。 为“主切换面板”窗体上的“Btn1”按钮控件添加 “单击”事件过程 第九步：删除系统自动生成的“主体_Click()”过程代码，新建一个新的Function函数HandleButtonClick，代码如下。 Private Function HandleButtonClick(intbtn As Intege

50、r) 处理按钮click事件 Const conCmdGotoSwitchboard = 1 Const conCmdNewForm = 2 Const conCmdOpenReport = 3 Const conCmdExitApplication = 4 Const conCmdRunMacro = 8 Const conCmdRunCode = 9 Const conCmdOpenPage = 10 Const conErrDoCmdCancelled = 2501 Dim rs As ADODB.Recordset Dim strSQL As String On Error GoTo

51、HandleButtonClick_Err Set rs = CreateObject(ADODB.Recordset) strSQL=SELECT * FROM Switchboard Items strSQL = strSQL & WHERE SwitchboardID= & Me!SwitchboardID & AND ItemNumber= & intbtn Set rs = GetRs(strSQL) If (rs.EOF) Then MsgBox读取 Switchboard Items 表时出错。 rs.Close Set rs = Nothing

52、Exit Function End If Select Case rs!Command 进入另一个切换面板 Case conCmdGotoSwitchboard Me.Filter = ItemNumber = 0 AND SwitchboardID= & rs!Argument 打 开一个新窗体 Case conCmdNewForm DoCmd.OpenForm rs!Argument 打开报表 Case conCmdOpenReport DoCmd.OpenReport rs!Argument, acPreview 退出应用程序 Case conCmdExitApplication

53、 CloseCurrentDatabase 运行宏. Case conCmdRunMacro DoCmd.RunMacro rs!Argument 运行代码. Case conCmdRunCode Application.Run rs!Argument 打开一个数据存取页面 Case conCmdOpenPage DoCmd.OpenDataAccessPage rs!Argument 未定义的选项 Case Else MsgBox 未知选项 End Select Close the recordset and the database. rs.CloseHandleButtonClick_E

54、xit: On Error Resume Next Set rs = Nothing Exit FunctionHandleButtonClick_Err: If (Err = conErrDoCmdCancelled) Then Resume Next Else MsgBox 执行命令时出错。, vbCritical Resume HandleButtonClick_Exit End IfEnd Function输入上述代码后，单击【保存】按钮保存代码。函数HandleButtonClick则用来处理“主切换面板”上“按钮”控件的“单击”消息事件。这样就完成了在控制面板上显示功能项目的目标。

55、 主切换面板”窗体代码 l 为“主切换面板”窗体加上各种事件过程。 为“主切换面板”窗体添加“成为当前”事件过程单击【成为当前】行的小箭头，在下拉列表框中选择“事件过程”选项，如下图所示。 单击右边的省略号按钮，进入VBA编辑器，系统自动建立了一个“Form_Current()”过程，在该过程中加入如下所示的代码。 Private Sub Form_Current() 更新标题并显示列表 Me.Caption = Nz(Me!ItemText, ) FillbtnsEnd Sub此时的【代码】窗口如下图所示。 主切换面板”窗体代码 l 为“主切换面板”窗体加上各种事件过程。 为“主切换面板”窗

56、体添加“成为当前”事件过程上面过程中的Fillbtns为另外一个能够实现报表选择功能的过程，Fillbtns过程代码如下所示。 Private Sub Fillbtns() 显示切换框中的列表 按钮数量 Const conNumButtons As Integer = 8 Dim rs As New ADODB.Recordset Dim strSQL As String Dim intbtn As Integer Me!btn1.SetFocus For intbtn = 2 To conNumButtons Me(btn & intbtn).Visible = False Me(l

57、bl & intbtn).Visible = False Next intbtn 打开表Switchboard Items strSQL = SELECT * FROM Switchboard Items strSQL = strSQL & WHERE ItemNumber 0 AND SwitchboardID= & Me!SwitchboardID strSQL = strSQL & ORDER BY ItemNumber;Set rs = GetRs(strSQL) If (rs.EOF) Then Me!lbl1.Caption=此切换面板页上无项目。

58、Else While (Not (rs.EOF) Me(btn & rs!ItemNumber).Visible = True Me(lbl & rs!ItemNumber).Visible = True Me(lbl & rs!ItemNumber).Caption = rs!ItemText rs.MoveNext WendEnd If 关闭数据集合和数据库 rs.Close Set rs = NothingEnd Sub其中，Fillbtns()子过程为实现“主切换面板”上的控件数量和控件标题等信息。 主切换面板”窗体代码 l 为“主切换面板”窗体加上各种事件过程

59、。 为“主切换面板”窗体添加“成为当前”事件过程此时Fillbtns过程的视图如下所示。 主切换面板”窗体代码 l 为“主切换面板”窗体加上各种事件过程。 为“主切换面板”窗体添加“加载”事件过程单击【加载】行的小箭头，在下拉列表框中选择“事件过程”选项，如下图所示。 单击右边的省略号按钮，进入VBA编辑器，系统自动建立了一个“Form_Load()”过程，在该过程中加入如下所示的代码。 Private Sub Form_Load() If Not check Then MsgBox (请先登录！) DoCmd.Close DoCmd.OpenForm (登录) End IfEnd Sub这几

60、句代码的作用，就是当用户打开该窗体时，系统先检查全局布尔变量Check的值，如果Check值为False则弹出提示用户先登录的对话框。这样以确保用户在打开该切换面板前已经登录。 此时【代码】窗口如下图所示。 l 为“主切换面板”窗体加上各种事件过程。 为“主切换面板”窗体添加“加载”事件过程主切换面板”窗体代码 l 为“主切换面板”窗体加上各种事件过程。 为“主切换面板”窗体添加“打开”事件过程单击【打开】行的小箭头，在下拉列表框中选择“事件过程”选项，如下图所示。 单击右边的省略号按钮，进入VBA编辑器，系统自动建立了一个“Form_Open()”过程，在该过程中加入如下所示的代码。 Private Sub Form_Open(Cancel As Integer) On Error GoTo Form_Open_