Access在人事管理中的应用省名师优质课获奖课件市赛课一等奖课件

第11章Access在人事管理中应用第1页本章学习关键点系统功效设计系统模块设计表字段设计表关系建立查询设计窗体创建报表创建宏命令和VBA代码创建系统调试系统运行与应用

第2页11.1实例导航系统功效目标开发关键点第3页11.1.1系统功效目标该系统有以下主要功效。新员工登记和员工资料修改。包含新员工个人资料详细输入、员工号分配和相关人事信息保留；还包含对现有员工工作资料进行创建和修改。人事变更统计。经过该功效，实现对员工工作职位改变跟踪和统计等。员工薪资情况查询。经过该功效，实现对员工薪金发放情况查询，而且能够按照各种福利薪金类别，打印出个人薪资报表。员工考勤情况查询。经过该功效，实现对员工考勤情况查询等，从而为薪金计算提供参考依据等。报表管理。经过该功效，实现报表生成和查看。报表又分为两部分，一个是对员工工资发放情况进行统计，另一个是对员工考勤情况进行统计。其它统计查询。允许管理者按各个部门、级别、员工类型、学历、职位、性别等员工信息进行统计，从而帮助人事部(或人力资源部门)进行人事结构分析、年纪工龄结构分析等。第4页11.1.2开发关键点了解数据表结构，掌握各数据表之间关系，熟悉查询和窗体设计，比较清楚地了解人事管理流程，从而开发出完整人事管理系统。本章主要目标，就是想经过建立一个完整人事管理系统，介绍完整数据库管理系统开发普通流程。第5页11.2系统需求分析与设计需求分析模块设计第6页11.2.1需求分析需求主要有以下几点。人事管理系统首先应该能够对企业当前人事情况进行统计。包含企业和员工劳动关系、员工就职部门、主要工作职责、上级经理等。其次，系统应该能够对企业员工人事变更情况进行统计，并据此能够灵活修改工作职责等各种人事情况信息。再次，系统应该能够依据需要进行各种统计和查询，比如查询员工年纪、学历等，方便给人力管理部门进行决议参考。最终，系统还应该对求职者信息进行对应管理，能够发掘适当人才，加盟该企业。第7页11.2.2模块设计企业人事管理系统功效模块能够由五个部分组成，每一部分依据实际应用又包含不一样功效。系统登录模块：在数据库系统中设置系统登录模块，是维持系统安全性最简单方法。在任何一个数据库系统中，该模块都是必需。员工人事登记模块：经过该模块，实现对新员工统计输入和现有员工统计修改。员工人事统计模块：经过该模块，实现对员工人事变动统计和查看管理。统计查询模块、经过该模块，对企业当前员工人事信息进行查询，比如薪资查询、考勤情况查询、学历查询、年纪查询等。报表生成模块：经过该模块，依据用户需求和查询结果生产对应报表。招聘管理模块：经过该模块，主要对求职者信息进行保留和查询，以方便招聘活动进行，发掘企业有用之材。第8页11.3数据库结构设计数据表结构需求分析结构空数据库系统数据表字段结构设计数据表表关系设计第9页11.3.1数据表结构需求分析在该“人事管理系统”中，我们初步设计17张数据表，各个表存放信息以下所表示。“SwitchboardItems”表：主要存放主切换面板和报表面板显示信息。“管理员”表：存放系统管理人员(普通是企业人事部人员)登记信息等。“员工信息”表：存放现有员工个人基本信息，比如姓名、性别、出生日期、所属级别等。“部门信息”表：主要存放企业各个部门信息，比如部门编号、名称、部门经理等。“人事变更统计”表：存放员工职位变更信息，统计员工原职位和现职位。“班次配置”表：统计员工上班班次信息。“出勤统计”表：统计全部员工天天出勤统计。“出勤配置”表：统计员工出勤信息。第10页11.3.1数据表结构需求分析“级别工资配置”表：统计员工所处工资级别详细信息。“加班统计”表：统计员工加班统计，以用于工资核实。“企业工资发放统计”表：企业工资财务统计，保留已经核发工资员工详细内容。“企业工资计算规则”表：保留企业内部工资计算规则。“职位津贴配置”表：保留企业内部关于津贴详细信息。“缺勤统计”表：统计全部员工缺勤信息。“月度出勤汇总”表：保留企业员工每个月出勤信息汇总。“签到统计”表：统计员工签到信息。“签出统计”表：假如员工需要签出时，使用该表登记在册。第11页11.3.2结构空数据库系统新建一个“人事管理系统.accdb”空白数据库。第一步：开启Access。单击屏幕最左上角Office徽标，在弹出Office功效菜单中选择【新建】命令；也能够直接双击屏幕中间【空白数据库】按钮，新建一个数据库，以下列图所表示。第二步：在屏幕右下方【文件名】文本框中输入“人事管理系统”，以下列图所表示。单击此处，新建一个空数据库。单击文本框右边文件夹按钮，更改数据库存放位置，以下列图所表示。在这里输入您想要文件名。第12页11.3.2结构空数据库系统新建一个“人事管理系统.accdb”空白数据库。第三步：单击【创建】按钮，完成新建一个空白数据库，系统自动创建一个空白数据表，以下列图所表示。第13页11.3.3数据表字段结构设计SwitchboardItems”表在“人事管理系统.accdb”数据库中创建“SwitchboardItems”表。第一步：创建“人事管理系统.accdb”数据库中自动创建了“表1”数据表，单击【数据表】选项卡下【视图】按钮，以下列图所表示。第二步：在弹出【另存为】对话框【表名称】文本框中输入“SwitchboardItems”，以下列图所表示。单击【确定】按钮，进入表【设计视图】，以下列图所表示。第14页11.3.3数据表字段结构设计SwitchboardItems”表在“人事管理系统.accdb”数据库中创建“SwitchboardItems”表。

第三步：在“SwitchboardItems”表【设计视图】中进行表字段设计。各个字段名称、数据类型等以下表所表示。第四步：输入并设置各个字段以后，表【设计视图】以下列图所表示。列

名数据类型字段宽度主

键SwitchboardID数字长整型是ItemNumber数字长整型是ItemText文本255否Command数字长整型否Argument文本255否第五步：单击屏幕左上角【保留】按钮，保留该表。单击【视图】按钮，进入表【数据表视图】。第15页11.3.3数据表字段结构设计“管理员”表“管理员”表中存放是该系统管理人员信息。

“管理员”表字段结构以下表。字

段

名数据类型字段宽度是否主键员工编号文本9是用户名文本18否密码文本18否第16页11.3.3数据表字段结构设计“员工信息”表“员工信息”表中存放企业员工个人信息，比如员工编号、姓名、性别等。字

段

名数据类型字段宽度是否主键员工编号文本9是姓名文本18否性别文本是/否否部门编号文本2否职位文本18否学历文本6否毕业院校文本255否专业文本255否家庭住址文本255否电话文本18否状态文本1否备注文本255否基本工资级别编号文本6否岗位津贴级别编号文本6否第17页11.3.3数据表字段结构设计“部门信息”表“部门信息”表存放企业中各个部门信息，比如部门编号、名称、部门经理等。“部门信息”表字段结构以下表。字

段

名数据类型字段宽度是否主键编号文本2是名称文本18否经理文体9否备注文本255否第18页11.3.3数据表字段结构设计“人事变更统计”表“人事变更统计”表是存放员工职位变更信息表，它统计了员工原职位和现职位。字

段

名数据类型字段宽度是否主键统计编号自动编号是员工编号文本9否原职位文本18否现职位文本18否登记时间日期/时间否备注文本255否“人事变更统计”表字段结构以下表。第19页11.3.3数据表字段结构设计“班次配置”表“班次配置”表用于统计员工上班班次信息。如“早晨班”“班次开始时间”、“班次结束时间”等。“班次配置”表字段结构以下表。字

段

名数据类型字段宽度是否主键班次编号文本2是名称文本18否班次开始时间日期/时间否班次结束时间日期/时间否备注文本255第20页11.3.3数据表字段结构设计“出勤统计”表“出勤统计”表用于统计全部员工天天出勤统计。“出勤统计”表字段结构以下表。字

段

名数据类型字段宽度是否主键统计号自动编号是日期日期/时间否员工编号文本9否出勤配置编号数字长整型否第21页11.3.3数据表字段结构设计“出勤配置”表“出勤配置”表用于统计员工出勤信息。“出勤配置”表字段结构以下表。字

段

名数据类型字段宽度是否主键出勤配置编号数字长整型是出勤说明文本255否第22页11.3.3数据表字段结构设计“级别工资配置”表“级别工资配置”表用于统计员工所处工资级别详细信息。“级别工资配置”表字段结构以下表。字

段

名数据类型字段宽度是否主键级别工资编号文本6是名称文本18否金额数字单精度型否备注文本255否第23页11.3.3数据表字段结构设计“加班统计”表“加班统计”表用于统计员工加班统计，以用于工资核实。“加班统计”表字段结构以下表。字

段

名数据类型字段宽度是否主键加班日期日期/时间是员工编号文本9是加班开始时间日期/时间否加班结束时间日期/时间否连续时间数字长整型否第24页11.3.3数据表字段结构设计“企业工资发放统计”表“企业工资发放统计”表是企业工资财务统计，保留着已经核发工资员工详细内容。“企业工资发放统计”表逻辑结构设计以下表。字

段

名数据类型字段宽度是否主键统计编号自动编号是年份数字长整型否月份数字长整型否日期日期/时间否员工编号文本9否基本工资数额数字单精度型否岗位津贴数额数字单精度型否加班补助数额数字单精度型否出差补助数额数字单精度型否违纪扣除数额数字单精度型否实际应发数额数字单精度型否备注文本255否第25页11.3.3数据表字段结构设计企业工资计算规则”表“企业工资计算规则”表保留着企业内部工资计算规则。“企业工资计算规则”逻辑结构设计以下表。字

段

名数据类型字段宽度是否主键加班补助数字单精度型否出差补助数字单精度型否迟到/早退扣除数字单精度型否缺席扣除数字单精度型否第26页11.3.3数据表字段结构设计“签出统计”表假如员工需要签出时，则使用该表登记在册，其逻辑结构设计以下表。字

段

名数据类型字段宽度是否主键日期日期/时间单精度型是员工编号文本9是班次编号文本2否签出时间日期/时间否备注文本255否第27页11.3.3数据表字段结构设计“签到统计”表签到时，使用“签到统计”表登记，其逻辑结构设计以下表。字

段

名数据类型字段宽度是否主键日期日期/时间单精度型是员工编号文本9是班次编号文本2否签到时间日期/时间否备注文本255否第28页11.3.3数据表字段结构设计“缺勤统计”表“缺勤统计”表统计着全部员工缺勤信息，其逻辑结构设计以下表。字

段

名数据类型字段宽度是否主键日期日期/时间单精度型是员工编号文本9是缺勤原因文本255否缺勤天数数字长整型否缺勤开始时间日期/时间否缺勤结束时间日期/时间否备注文本255否第29页11.3.3数据表字段结构设计月度出勤汇总”表“月度出勤汇总”表保留着企业员工每个月出勤信息汇总，其逻辑结构设计以下表。字

段

名数据类型字段宽度是否主键员工编号文本9是签到次数数字长整型否签出次数数字长整型否迟到次数数字长整型否早退次数数字长整型否出差天数数字长整型否请假天数数字长整型否休假天数数字长整型否加班时间汇总数字长整型否第30页11.3.3数据表字段结构设计“职位津贴配置”表“职位津贴配置”表保留着企业内部关于津贴详细信息，其逻辑结构设计以下表。字

段

名数据类型字段宽度是否主键职位津贴编号文本6是名称文本18否数额数字单精度型否备注文本255否第31页11.3.4数据表表关系设计为“人事管理系统.accdb”数据库建立表关系。第一步：开启Access，打开“人事管理系统.accdb”数据库，并切换到【数据库工具】选项卡，以下列图所表示。第二步：单击【数据库工具】选项卡下【显示/隐藏】组中【关系】按钮，即可进入该数据库【关系】视图，以下列图所表示。第32页11.3.4数据表表关系设计为“人事管理系统.accdb”数据库建立表关系。第三步：在【关系】视图中右击，在弹出快捷菜单中选择【显示表】命令；或者直接单击【关系】组中【显示表】按钮，以下列图所表示。第四步：系统弹出【显示表】对话框，以下列图所表示。

第33页11.3.4数据表表关系设计为“人事管理系统.accdb”数据库建立表关系。第五步：在【显示表】对话框中依次选择全部数据表，单击【添加】按钮，将全部数据表添加进【关系】视图，以下列图所表示。第六步：选择“员工信息”表中“员工编号”字段，按下鼠标左键不放并将其拖动到“管理员”表中“员工编号”字段上，释放鼠标左键，系统显示【编辑关系】对话框，以下列图所表示。第34页11.3.4数据表表关系设计为“人事管理系统.accdb”数据库建立表关系。第七步：选中【实施参考完整性】复选框，以确保在“管理员”表中登记“员工编号”都是在“员工信息”表中统计“员工编号”。单击【创建】按钮，创建一表关系，以下列图所表示。这么我们就完成了第一个表关系创建。重复以上步骤中第6步和第7步，建立其余各表间表关系，以下表所表示。表

名字

段

名相关表名字

段

名员工信息员工编号管理员员工编号员工信息员工编号人事变更信息员工编号员工信息员工编号出勤统计员工编号员工信息员工编号企业工资发放统计员工编号员工信息员工编号签到统计员工编号员工信息员工编号签出统计员工编号员工信息员工编号月度出勤汇总员工编号员工信息员工编号缺勤统计员工编号员工信息员工编号加班统计员工编号员工信息员工编号部门信息经理编号部门信息部门编号员工信息部门编号级别工资配置级别工资编号员工信息基本工资级别编号岗位津贴配置岗位津贴编号员工信息岗位津贴级别编号出勤配置出勤配置编号出勤统计出勤配置编号班次配置班次编号签出统计班次编号班次配置班次编号签到统计班次编号第35页11.3.4数据表表关系设计为“人事管理系统.accdb”数据库建立表关系。第八步：建立这些关系后能够在【关系】视图中预览全部关联关系，以下列图所表示。第九步：单击【关闭】按钮，系统弹出提醒保留布局对话框，单击【是】按钮，保留【关系】视图更改，以下列图所表示。第36页11.4窗体实现“主切换面板”窗体设计设计“登录”窗体创建“员工信息查询”窗体创建“员工人事变更统计”窗体创建“员工考勤统计查询”窗体创建“员工工资查询”窗体第37页11.4.1“主切换面板”窗体设计建立“主切换面板”窗体，实现系统功效导航作用。第一步：开启Access，打开“人事管理系统.accdb”数据库。第二步：单击【创建】选项卡下【窗体】组中【窗体设计】按钮，Access即新创建一个窗体并进入窗体【设计视图】，以下列图所表示。第三步：添加窗体标题。单击【控件】组中【标题】按钮，则窗体显示【窗体页眉】节，并在页眉区域中显示“主切换面板”标题。将窗体标题更改为“欢迎使用夕林人事管理系统”，并设置标题格式，以下列图所表示。“标题”各个属性以下列图所表示【属性表】窗格。第38页11.4.1“主切换面板”窗体设计建立“主切换面板”窗体，实现系统功效导航作用。第四步：添加系统徽标。单击【徽标】按钮，弹出选择徽标对话框。选择一个Bmp图片作为徽标，并将【图片类型】设为“嵌入”，最终止果以下列图所表示。第五步：设置主体背景颜色。在主体区域中右击，在弹出快捷菜单中选择【填充/背景色】命令，弹出以下列图所表示菜单。第39页11.4.1“主切换面板”窗体设计建立“主切换面板”窗体，实现系统功效导航作用。第六步：在颜色块中选择一个颜色作为背景颜色。第七步：添加按钮。单击【控件】组中【按钮】控件，并在窗体主体区域中单击，系统会弹出【命令按钮向导】对话框，以下列图所表示。第八步：单击【取消】按钮，取消该向导。单击按钮窗体，并在【属性表】窗格中设置按钮【名称】为“btn1”，删除【标题】属性中信息。第九步：在“btn1”按钮控件右方添加一个“标签”窗体控件，将【名称】属性改为“lbl1”，【标题】属性改为“1”。第40页11.4.1“主切换面板”窗体设计建立“主切换面板”窗体，实现系统功效导航作用。第十步：单击“lbl1”标签控件，在“lbl1”标签控件左边出现“”控件关联图标。单击该图标，系统弹出一个快捷菜单，以下列图所表示。第十一步：选择【将标签与控件关联】命令，系统弹出【关联标签】对话框，以下列图所表示。第41页11.4.1“主切换面板”窗体设计建立“主切换面板”窗体，实现系统功效导航作用。第十二步：选择“btn1”选项，并单击【确定】按钮。这么“btn1”按钮控件就与“lbl1”标签控件建立了关联。第十三步：重复以上步骤，在“btn1”按钮控件下方添加其余7个按钮窗体控件和标签窗体控件，以下列图所表示。第十四步：修改每个控件属性，以下表所表示。类

型名

称标

题标签lbl11标签lbl22标签lbl33标签lbl44标签lbl55标签lbl66标签lbl77标签lbl88按钮btn1按钮btn2按钮btn3按钮btn4按钮btn5按钮btn6按钮btn7按钮btn8第42页11.4.1“主切换面板”窗体设计建立“主切换面板”窗体，实现系统功效导航作用。第十五步：单击【保留】按钮，系统弹出【另存为】对话框，输入窗体名“主切换面板”，以下列图所表示。第十六步：单击【确定】按钮，则新创建了一个“主切换面板”窗体。这么就完成了“主切换面板”窗体创建。注意，在这里创建仅仅是一个空白窗体。该窗体【窗体视图】以下列图所表示。第43页11.4.1“主切换面板”窗体设计建立“主切换面板”窗体，实现系统功效导航作用。第十七步：在“SwitchboardItems”表中添加对应统计，以下表所表示。SwitchboardIDItemNumberItemTextComandArgument10主切换面板0默认11员工信息查询编辑2员工信息查询编辑12人事变更统计查询编辑2人事变更统计查询编辑13员工工资查询2员工工资查询14员工考勤统计查询2员工考勤统计查询15预览报表…2218退出数据库420报表切换面板021企业工资发放统计报表3企业工资发放统计报表22企业员工出勤统计报表3企业员工出勤统计报表28返回主面板11第44页11.4.2设计“登录”窗体利用和11.4.1节相同步骤，创建“登录”窗体，全部窗体控件信息以下表。创建窗体视图以下列图所表示。类

型名

称标

题标签用户名用户名：标签密码密码：文本框UserName文本框Password按钮OK按钮Cancel第45页11.4.3创建“员工信息查询”窗体使用窗体向导，来创建“员工信息查询”窗体。第一步：开启Access，打开“人事管理系统.accdb”数据库。第二步：切换到【创建】选项卡，单击【其它窗体】按钮，在弹出菜单中选择【窗体向导】选项，以下列图所表示。第三步：弹出【窗体向导】对话框，在【表/查询】下拉列表框中选择“表：员工信息”，将【可用字段】列表框中全部字段添加到右面【选定字段】列表框中，以下列图所表示。第46页11.4.3创建“员工信息查询”窗体使用窗体向导，来创建“员工信息查询”窗体。第四步：单击【下一步】按钮，弹出要求用户选择布局对话框。我们选择【纵栏表】选项，以下列图所表示。第五步：单击【下一步】按钮，弹出要求选择窗体样式对话框。在下拉列表框中选择Northwind选项，以下列图所表示。第47页11.4.3创建“员工信息查询”窗体使用窗体向导，来创建“员工信息查询”窗体。第六步：单击【下一步】按钮，输入窗体标题为“员工信息查询”，再选中【打开窗体查看或输入信息】单项选择按钮，以下列图所表示。第七步：单击【完成】按钮，完成窗体创建。第48页11.4.3创建“员工信息查询”窗体使用窗体向导，来创建“员工信息查询”窗体。这么我们就利用窗体向导创建了一个“员工信息查询”窗体，窗体界面以下列图所表示。在窗体中右击，在弹出快捷菜单中选择【设计视图】选项，进入该窗体【设计视图】，以下列图所表示。第49页11.4.3创建“员工信息查询”窗体使用窗体向导，来创建“员工信息查询”窗体。在【设计视图】中对自动生成窗体做深入修改。设置【窗体页眉】区域中背景颜色、标题信息等，然后重新调整各个文本框宽度、高度等。最终效果以下列图所表示。第50页11.4.4创建“员工人事变更统计”窗体使用窗体向导创建“员工人事变更统计”窗体。第一步：开启Access，打开“人事管理系统.accdb”数据库。第二步：切换到【创建】选项卡，单击【其它窗体】按钮，在弹出菜单中选择【窗体向导】选项，弹出【窗体向导】对话框。第三步：在向【选定字段】对话框输入字段之前，先选择“员工信息”表中“姓名”，然后再将“人事变更统计”表中全部字段选为选定字段，以下列图所表示。第四步：单击【下一步】按钮，选择【经过员工信息】选项，再选中【带有子窗体窗体】单项选择按钮，以下列图所表示。第51页11.4.4创建“员工人事变更统计”窗体使用窗体向导创建“员工人事变更统计”窗体。第五步：单击【下一步】按钮，弹出要求选择窗体布局对话框。我们选择【数据表】选项，以下列图所表示。第六步：单击【下一步】按钮，弹出要求选择样式对话框。我们选择Northwind选项，以下列图所表示。第52页11.4.4创建“员工人事变更统计”窗体使用窗体向导创建“员工人事变更统计”窗体。第七步：单击【下一步】按钮，输入窗体标题“员工人事变更统计”和子窗体标题“员工人事变更统计_子窗体”，然后在下面选中【打开窗体查看或输入信息】单项选择按钮，以下列图所表示。第八步：单击【完成】按钮，完成该窗体创建。第53页11.4.4创建“员工人事变更统计”窗体使用窗体向导创建“员工人事变更统计”窗体。这么我们就利用窗体向导建立了一个“员工人事变更统计”窗体。创建后窗体以下列图所表示。能够看到，自动创建窗体在布局上有些混乱。需要我们进行手工修改。在窗体中右击，在弹出快捷菜单中选择【设计视图】选项，进入该窗体【设计视图】，以下列图所表示。第54页11.4.4创建“员工人事变更统计”窗体使用窗体向导创建“员工人事变更统计”窗体。在【设计视图】中对自动生成窗体做深入修改。设置【窗体页眉】区域中背景颜色、标题信息，调整子窗体位置，调整各个文本框宽度、高度等。最终效果以下列图所表示。第55页11.4.5创建“员工考勤统计查询”窗体首先设计好窗体中各个控件属性，以下表所表示。类

型名

称标

题标签员工号标签员工号：标签开始时间标签开始时间：标签结束时间标签结束时间：文本框员工号文本框开始时间文本框结束时间按钮考勤查询按钮取消第56页11.4.5创建“员工考勤统计查询”窗体在窗体【设计视图】中，利用窗体各种控件创建“员工考勤统计查询”窗体。第一步：开启Access，打开“人事管理系统.accdb”数据库。第二步：切换到【创建】选项卡，然后单击【窗体】组中【窗体设计】按钮，进入窗体【设计视图】，以下列图所表示。第三步：单击【控件】组中“标题”控件，则在【设计视图】中显示【窗体页眉】区域，并在页眉区域中显示窗体标题。重新输入窗体标题，以下列图所表示。第57页11.4.5创建“员工考勤统计查询”窗体在窗体【设计视图】中，利用窗体各种控件创建“员工考勤统计查询”窗体。第四步：单击【控件】组中“文本框”控件，并在窗体【主体】区域中单击，弹出【文本框向导】对话框，以下列图所表示。第五步：按照【文本框向导】提醒，完成该文本框属性设置，并将该文本框命名为“员工号”。第58页11.4.5创建“员工考勤统计查询”窗体在窗体【设计视图】中，利用窗体各种控件创建“员工考勤统计查询”窗体。第六步：用一样方法添加另外两个文本框，并分别命名为“开始时间”和“结束时间”，以下列图所表示。第七步：设置“开始时间”和“结束时间”文本框控件格式。选择【属性表】窗格中【格式】选项卡，然后在【格式】行下拉列表框中选择【常规日期】选项，这么即可在程序中经过时间控件来输入时间信息，以下列图所表示。第59页11.4.5创建“员工考勤统计查询”窗体在窗体【设计视图】中，利用窗体各种控件创建“员工考勤统计查询”窗体。第七步：单击【控件】组中“按钮”控件，并在窗体【主体】区域中单击，弹出【命令按钮向导】对话框，单击【取消】按钮。第八步：在【属性表】窗格中，设置该按钮标题和名称均为“考勤查询”，以下列图所表示。第九步：用一样方法添加另外一个按钮，标题和名称均为“取消”。第十步：单击【保留】按钮，保留该按钮为“员工考勤统计查询”。第60页11.4.5创建“员工考勤统计查询”窗体在窗体【设计视图】中，利用窗体各种控件创建“员工考勤统计查询”窗体。这么我们就完成了“员工考勤统计查询”窗体设计，以下列图所表示。设计完成以后，设置窗体背景颜色、字体和字号等属性，最终效果创建后窗体【窗体视图】以下列图所表示。第61页11.4.6创建“员工工资查询”窗体用和11.4.5小节中一样方法，在【设计视图】中创建“员工工资查询”窗体，全部窗体控件信息以下表所表示。其中，在创建窗体组合框控件“开始月份”和“结束月份”时，创建效果以下列图所表示。类

型名

称标

题标签员工号标签员工号标签开始月份标签开始月份标签结束月份标签结束月份文本框员工号组合框开始月份组合框结束月份按钮工资查询按钮取消第62页11.4.6创建“员工工资查询”窗体这么组合框能够在【属性表】窗格中设置。选择该“开始月份”组合框，然后将【属性表】切换到【数据】选项卡，在【行起源类型】行中选择【值列表】选项，然后在【行起源】行中输入想要在列表框中出现选项。比如在本例中我们要实现12个月选择，所以能够输入“1;2;3;4;5;6;7;8;9;10;11;12”，以下列图所表示。将该窗体保留为“员工工资查询”窗体，最终效果以下列图所表示。第63页11.5创建查询“员工考勤统计”查询创建“员工工资”查询第64页11.5.1“员工考勤统计”查询建立一个查询，要求能够查询某一员工考勤统计。第一步：开启Access，打开“人事管理系统.accdb”数据库。第二步：切换到【创建】选项卡，然后单击【其它】组中【查询设计】按钮，以下列图所表示。第三步：系统进入查询【设计视图】，并弹出【显示表】对话框，以下列图所表示。第65页11.5.1“员工考勤统计”查询建立一个查询，要求能够查询某一员工考勤统计。第四步：在【显示表】对话框中选择“员工信息”表，单击【添加】按钮，将该表添加到查询【设计视图】中。用一样方法，将“出勤配置”表和“出勤统计”表也添加进【设计视图】中，以下列图所表示。第五步：向查询设计网格中添加字段。选择“出勤统计”表中“员工编号”字段，并按下鼠标左键将其拖动到下面第一个查询设计网格中。第六步：在网格【条件行】中输入查询条件为“[Forms]![员工考勤统计查询]![员工号]”。第66页11.5.1“员工考勤统计”查询建立一个查询，要求能够查询某一员工考勤统计。第七步：用一样方法，依次向网格中添加以下表所表示字段信息。字段表排序条件员工编号出勤统计无[Forms]![员工考勤统计查询]![员工编号]姓名员工信息无日期出勤统计升序Between[Forms]![员工考勤统计查询]![开始日期]And[Forms]![员工考勤统计查询]![结束日期]出勤说明出勤配置无设置好以后视图以下列图所表示。第八步：单击【保留】按钮，把此查询保留为“员工考勤统计查询”。第67页11.5.1“员工考勤统计”查询这么我们就完成了能够查询员工考勤信息一个查询，在导航窗格中双击执行该查询，能够弹出要求用户输入参数值对话框，以下列图所表示。输入员工编号，单击【确定】按钮，在弹出对话框中输入开始日期和结束日期，以下列图所表示。

这么即可实现员工考勤情况查询，查询结果以下列图所表示。第68页11.5.1“员工考勤统计”查询在创建该查询过程中，最难以确定就是各种查询条件。为了方便用户输入查询条件，Access提供了“表示式生成器”，用户能够在生成器中创建自己查询条件。在查询设计网格【条件】行右击，在弹出快捷菜单中选择【生成器】选项，以下列图所表示。弹出【表示式生成器】对话框，依次选择“窗体”|“员工考勤统计”|“员工号”，并双击“员工号”字段，即可在上面表示式输入窗口中显示该查询条件，以下列图所表示。第69页11.5.2创建“员工工资”查询创建“员工工资”查询与11.5.1小节步骤相同。其相关表为“部门信息”表、“员工信息”表和“企业工资发放统计”表3个表，其字段信息以下表所表示。字段表排序条件部门名称部门信息无员工编号企业工资发放统计无[Forms]![员工工资查询]![员工号]姓名员工信息无月份企业工资发放统计升序Between[Forms]![员工工资查询]![开始月份]And[Forms]![员工工资查询]![结束月份]年份企业工资发放统计升序实际应发数额企业工资发放统计无基本工资数额企业工资发放统计无岗位津贴数额企业工资发放统计无加班补助数额企业工资发放统计无出差补助数额企业工资发放统计无违规扣除数额企业工资发放统计无第70页11.5.2创建“员工工资”查询将该查询保留为“员工工资查询”，以下列图所表示。第71页11.6报表实现“员工考勤统计查询”报表“员工工资查询”报表“员工出勤统计”报表“企业工资发放统计”报表第72页11.6.1“员工考勤统计查询”报表该查询统计报表主要功效就是对员工考勤统计进行查询和打印。第一步：开启Access，打开“人事管理系统.accdb”数据库。第二步：切换到【创建】选项卡，在【报表】组中单击【报表向导】按钮，以下列图所表示。第三步：系统弹出【报表向导】对话框，在【表/查询】下拉列表框中选择“查询：员工考勤统计查询”，然后把全部字段作为选定字段。以下列图所表示。第73页11.6.1“员工考勤统计查询”报表该查询统计报表主要功效就是对员工考勤统计进行查询和打印。第四步：单击【下一步】按钮，弹出选择数据查看方式对话框。选择“经过出勤统计”选项，以下列图所表示。第五步：单击【下一步】按钮，弹出添加分组级别对话框。不选择分组字段，以下列图所表示。第74页11.6.1“员工考勤统计查询”报表该查询统计报表主要功效就是对员工考勤统计进行查询和打印。第六步：单击【下一步】按钮，弹出选择排序字段对话框。选择经过“日期”排序，排序方式为“升序”，以下列图所表示。第七步：单击【下一步】按钮，弹出选择布局方式对话框。选择【表格】选项，方向为【纵向】，以下列图所表示。第75页11.6.1“员工考勤统计查询”报表该查询统计报表主要功效就是对员工考勤统计进行查询和打印。第八步：单击【下一步】按钮，弹出选择报表样式对话框。选择【办公室】样式，以下列图所表示。第九步：单击【下一步】按钮，输入标题为“员工考勤统计查询报表”，并选中【预览报表】单项选择按钮，以下列图所表示。第十步：单击【完成】按钮，这么就创建了一个“员工考勤统计查询报表”。第76页11.6.1“员工考勤统计查询”报表用户能够在导航窗格中看到该报表，双击报表，弹出要求用户输入“员工编号”对话框(和双击查询一样)。输入正确参数以后，用户就能够查看该报表，以下列图所表示。进入报表【设计视图】，对以上用向导自动生成报表进行适当修改，比如设置标题格式、页脚内容等。最终设计效果以下列图所表示。第77页11.6.2“员工工资查询”报表我们来创建“员工工资查询报表”。第一步：开启Access，打开“人事管理系统.accdb”数据库。第二步：切换到【创建】选项卡，在【报表】组中单击【报表向导】按钮，以下列图所表示。第三步：弹出【报表向导】对话框，在【表/查询】中选择“查询：员工工资查询”，然后把全部字段作为选定字段，以下列图所表示。第78页11.6.2“员工工资查询”报表我们来创建“员工工资查询报表”。第四步：单击【下一步】按钮，弹出选择数据查看方式对话框。选择“经过企业工资发放统计”选项，以下列图所表示。第五步：单击【下一步】按钮，弹出选择是否分组对话框。不选择分组字段，以下列图所表示。第79页11.6.2“员工工资查询”报表我们来创建“员工工资查询报表”。第六步：单击【下一步】按钮，在排序方式中选择经过“年份”和“月份”进行排序，排序方式均为“升序”，以下列图所表示。第七步：单击【下一步】按钮，在弹出对话框中设置布局方式。布局选择【表格】选项，方向选择【横向】，以下列图所表示。第80页11.6.2“员工工资查询”报表我们来创建“员工工资查询报表”。第八步：单击【下一步】按钮，弹出选择样式对话框。选择【办公室】选项，以下列图所表示。第九步：单击【下一步】按钮，输入标题为“员工工资查询报表”，选中【预览报表】单项选择按钮，以下列图所表示。第十步：单击【完成】按钮，这么就创建了一个“员工工资查询报表”。第81页11.6.2“员工工资查询”报表该报表以“员工工资查询”为数据源，进行员工已发薪金筛选和查询。用户能够在导航窗格中看到该报表，双击报表，弹出要求用户输入员工编号对话框(和双击查询一样)。输入正确参数以后，用户就能够查看该报表，以下列图所表示。进入报表【设计视图】，对以上用向导自动生成报表进行适当修改，比如设置标题格式、页脚内容等。最终设计效果以下列图所表示。第82页11.6.3“员工出勤统计”报表我们利用报表向导，创建“员工出勤统计报表”。第一步：开启Access，打开“人事管理系统.accdb”数据库。第二步：切换到【创建】选项卡，在【报表】组中单击【报表向导】按钮。第三步：弹出【报表向导】对话框，在对话框中将“表：出勤统计”中“统计号”、“日期”、“员工编号”字段，“表：员工信息”中“姓名”字段和“表：出勤配置”中“出勤说明”字段添加到【选定字段】列表框中，以下列图所表示。第四步：单击【下一步】按钮，在弹出选择数据查看方式对话框中选择“经过出勤统计”选项，以下列图所表示。第83页11.6.3“员工出勤统计”报表我们利用报表向导，创建“员工出勤统计报表”。第五步：其余各操作步骤设置与11.6.2小节中一样，保留该报表为“员工出勤统计报表”，以下列图所表示。进入报表【设计视图】，对以上用向导自动生成报表进行适当修改。最终设计效果以下列图所表示。第84页11.6.4“企业工资发放统计”报表我们经过一样方式创建“企业工资发放统计“报表”第一步：开启Access，打开“人事管理系统.accdb”数据库。第二步：切换到【创建】选项卡，在【报表】组中单击【报表向导】按钮。第三步：弹出【报表向导】对话框，在对话框中将“表：员工信息”中“姓名”字段和“表：企业工资发放统计”中全部字段添加到【选定字段】列表框中，以下列图所表示。第85页11.6.4“企业工资发放统计”报表我们经过一样方式创建“企业工资发放统计“报表”第四步：单击【下一步】按钮，在弹出选择数据查看方式对话框中选择【经过企业工资发放统计】选项，以下列图所表示。第五步：其余各操作步骤设置与11.6.2小节中一样，保留该报表为“企业工资发放统计报表”，以下列图所表示。第86页11.7编码实现公用模块“登录”窗体代码“主切换面板”窗体代码“员工考勤统计查询”窗体代码“员工工资查询”窗体代码第87页11.7.1公用模块在Access开发过程中，用得最多还是各种事件过程，也即为各种控件等建立响应程序等。在这一小节中，我们要建立该系统中一个通用模块，该通用模块作用就是建立数据库连接、定义用户登录等。第88页11.7.1公用模块在数据库中建立一个公用模块，以实现数据库连接和用户登录。第一步：开启Access，打开“人事管理系统.accdb”数据库。第二步：切换到【创建】选项卡，单击【其它】组中【宏】按钮下小箭头，弹出二级菜单以下列图所表示。第三步：单击【模块】选项，系统新建一模块，并进入VBA编辑器，以下列图所表示。第89页11.7.1公用模块在数据库中建立一个公用模块，以实现数据库连接和用户登录。第四步：在【代码】窗口中输入以下代码：OptionCompareDatabaseOptionExplicitPubliccheckAsBoolean'经过字符串StrQuery所引用SQL语句返回一个'ADO.Recordset对象PublicFunctionGetRs(ByValStrQueryAsString)AsADODB.RecordsetDimrsAsNewADODB.RecordsetDimconnAsNewADODB.ConnectionOnErrorGoToGetRS_ErrorSetconn=CurrentProject.Connectionrs.OpenStrQuery,conn,adOpenKeyset,

adLockOptimisticSetGetRs=rsGetRS_Exit:Setrs=NothingSetconn=NothingExitFunctionGetRS_Error:MsgBox(Err.Description)ResumeGetRS_ExitEndFunctionGetRS函数实现经过一条SQL语句，返回一个ADODB.Recordset对象实例。该函数中用到两个主要对象以下。ADODB.Recordset.open方法：用于建立一个数据库连接，并返回数据库指针，用以指向数据库中数据表、查询、窗体等对象。adLockOptimistic：指示逐统计开放式锁定。提供程序使用开放式锁定，即仅在您调用Update方法时锁定统计。第五步：单击【保留】按钮，输入模块名“公共模块”，单击【确定】按钮即可。第90页11.7.2“登录”窗体代码我们已经创建了“登录”窗体，增加登录代码设计其实就是给窗体中各个控件加上事件过程，使用户操作窗体中控件时，程序能够对用户操作做出响应。我们在上面建立“登录”窗体界面以下列图所表示。类

型名

称标

题标签用户名用户名：标签密码密码：文本框UserName文本框Password按钮OK按钮Cancel窗体中各个控件名称和参数以下表。第91页11.7.2“登录”窗体代码为“登录”窗体添加各种事件过程，实现用户登录功效。为“登录”窗体添加“加载”事件过程第一步：开启Access，打开“人事管理系统.accdb”数据库。第二步：在导航窗格中单击“登录”窗体，在弹出快捷菜单中选择【设计视图】选项，进入窗体【设计视图】。第三步：设置窗体统计源。在窗体【属性表】窗格中，单击【所选内容类型：窗体】下拉列表框，选择“窗体”选项。切换到【数据】选项卡，在【统计源】行下拉列表框中选择“管理员”表，以下列图所表示。第四步：给窗体添加“加载”事件过程。将【属性表】切换到【事件】选项卡，在【加载】行中选择“事件过程”选项，并单击右边省略号按钮，以下列图所表示。第92页11.7.2“登录”窗体代码为“登录”窗体添加各种事件过程，实现用户登录功效。为“登录”窗体添加“加载”事件过程第五步：系统进入VBA编辑器，并自动新建了一个名称为“Form_Load()”Sub过程。第六步：在【代码】窗口中输入以下所表示VBA代码，给窗体添加“加载”事件过程。PrivateSubForm_Load()'最小化数据库窗体并初始化该窗体OnErrorGoToForm_Open_ErrDoCmd.SelectObjectacForm,"切换面板",TrueDoCmd.Minimizecheck=FalseForm_Open_Exit:ExitSubForm_Open_Err:MsgBoxErr.DescriptionResumeForm_Open_ExitEndSub第七步：保留该VBA代码，这么就给整个窗体加上了“加载”事件过程。此时【代码】窗口以下列图所表示。第93页11.7.2“登录”窗体代码为“登录”窗体添加各种事件过程，实现用户登录功效。为“OK”按钮添加事件过程第一步：在“登录”窗体【设计视图】中单击【确定】按钮，以选择“OK”按钮控件。第二步：给“OK”按钮控件添加“单击”事件过程。将【属性表】切换到【事件】选项卡，在【单击】行中选择“事件过程”选项，并单击右边省略号按钮，以下列图所表示。第三步：系统进入VBA编辑器，并自动新建了一个名称为“OK_Click()”Sub过程。第94页11.7.2“登录”窗体代码为“登录”窗体添加各种事件过程，实现用户登录功效。为“OK”按钮添加事件过程第四步：在【代码】窗口中输入以下所表示VBA代码，给按钮控件添加“单击”事件过程。PrivateSubOK_Click()OnErrorGoToErr_OK_ClickDimstrSQLAsStringDimrsAsNewADODB.RecordsetIfIsNull(Me.UserName)OrMe.UserName=""ThenDoCmd.BeepMsgBox("请输入用户名称！")ElseIfIsNull(Me.Password)OrMe.Password=""ThenDoCmd.BeepMsgBox("请输入密码！")ElsestrSQL="SELECT*FROM管理员WHERE用

户名='"&Me.UserName&"'and密码='"

&Me.Password&"'"Setrs=GetRs(strSQL)Ifrs.EOFThenDoCmd.BeepMsgBox("用户名或密码错误！")Me.UserName=""Me.Password=""Me.UserName.SetFocusExitSubElseDoCmd.Closecheck=TrueDoCmd.OpenForm("主切换面板")EndIfEndIfSetrs=NothingExit_OK_Click:ExitSubErr_OK_Click:MsgBox(Err.Description)Debug.PrintErr.DescriptionResumeExit_OK_ClickEndSub第95页11.7.2“登录”窗体代码为“登录”窗体添加各种事件过程，实现用户登录功效。为“OK”按钮添加事件过程第五步：保留该VBA代码，这么就给“OK”按钮控件加上“单击”事件过程。此时【代码】窗口以下列图所表示。第96页11.7.2“登录”窗体代码为“登录”窗体添加各种事件过程，实现用户登录功效。为“Concel”按钮添加事件过程第一步：在“登录”窗体【设计视图】中单击【取消】按钮，以选择“Concel”按钮控件。第二步：给“Concel”按钮控件添加“单击”事件过程。将【属性表】切换到【事件】选项卡，在【单击】行中选择“事件过程”选项，并单击右边省略号按钮，以下列图所表示。第三步：系统进入VBA编辑器，并自动新建了一个名称为“Concel_Click()”Sub过程。第97页11.7.2“登录”窗体代码为“登录”窗体添加各种事件过程，实现用户登录功效。为“Concel”按钮添加事件过程第四步：在【代码】窗口中输入以下所表示VBA代码，给按钮控件添加“单击”事件过程。第五步：保留该VBA代码，这么就给“Concel”按钮控件加上“单击”事件过程。此时【代码】窗口以下列图所表示。PrivateSubCancel_Click()check=FalseDoCmd.CloseEndSub第98页11.7.2“登录”窗体代码这么我们就完成了整个用户登录模块创建工作，在导航窗格中双击“登录”窗体，在窗体中输入用户名和密码，单击【确定】按钮，即可登录，以下列图所表示。第99页11.7.3“主切换面板”窗体代码为“主切换面板”窗体加上各种事件过程。为“主切换面板”窗体上“Btn1”按钮控件添加“单击”事件过程第一步：开启Access，打开“人事管理系统.accdb”数据库。第二步：在导航窗格中右击“主切换面板”窗体，在弹出快捷菜单中选择【设计视图】选项，进入窗体【设计视图】。第三步：调出【属性表】窗格，并将其切换到【数据】选项卡。单击【统计源】行小箭头，在弹出下拉列表框中选择“SwitchboardItems”表，以下列图所表示。第四步：单击btn1按钮，把【属性表】窗格切换到【事件】选项卡。在【单击】行属性框中输入“=HandleButtonClick(1)”，添加“btn1”按钮“单击事件”响应程序，以下列图所表示。第100页11.7.3“主切换面板”窗体代码为“主切换面板”窗体加上各种事件过程。为“主切换面板”窗体上“Btn1”按钮控件添加“单击”事件过程第五步：重复第2步，给其余7个按钮控件添加单击消息事件响应程序，各控件响应程序参数以下表所表示。第六步：在窗口【设计视图】任意位置右击，弹出右键快捷菜单，以下列图所表示。控

件事

件事件过程btn1单击=HandleButtonClick(1)btn2单击=HandleButtonClick(2)btn3单击=HandleButtonClick(3)btn4单击=HandleButtonClick(4)btn5单击=HandleButtonClick(5)btn6单击=HandleButtonClick(6)btn7单击=HandleButtonClick(7)btn8单击=HandleButtonClick(8)第101页11.7.3“主切换面板”窗体代码为“主切换面板”窗体加上各种事件过程。为“主切换面板”窗体上“Btn1”按钮控件添加“单击”事件过程第七步：选择【事件生成器】命令，弹出【选择生成器】对话框，以下列图所表示。第八步：选择【代码生成器】选项，并单击【确定】按钮，打开VBA程序编辑器，以下列图所表示。第102页11.7.3“主切换面板”窗体代码为“主切换面板”窗体加上各种事件过程。为“主切换面板”窗体上“Btn1”按钮控件添加“单击”事件过程第九步：删除系统自动生成“主体_Click()”过程代码，新建一个新Function函数HandleButtonClick，代码以下。PrivateFunctionHandleButtonClick(intbtnAsInteger)'处理按钮click事件ConstconCmdGotoSwitchboard=1ConstconCmdNewForm=2ConstconCmdOpenReport=3ConstconCmdExitApplication=4ConstconCmdRunMacro=8ConstconCmdRunCode=9ConstconCmdOpenPage=10ConstconErrDoCmdCancelled=2501DimrsAsADODB.RecordsetDimstrSQLAsStringOnErrorGoToHandleButtonClick_ErrSetrs=CreateObject("ADODB.Recordset")strSQL="SELECT*FROM[SwitchboardItems]"strSQL=strSQL&"WHERE[SwitchboardID]="&Me![SwitchboardID]&"AND[ItemNumber]="&intbtnSetrs=GetRs(strSQL)If(rs.EOF)ThenMsgBox"读取SwitchboardItems表时犯错。"rs.CloseSetrs=NothingExitFunctionEndIf

第103页SelectCasers![Command]'进入另一个切换面板CaseconCmdGotoSwitchboardMe.Filter="[ItemNumber]=0AND[SwitchboardID]="&rs![Argument]'打开一个新窗体CaseconCmdNewFormDoCmd.OpenFormrs![Argument]'打开报表CaseconCmdOpenReportDoCmd.OpenReportrs![Argument],acPreview'退出应用程序CaseconCmdExitApplicationCloseCurrentDatabase'运行宏.CaseconCmdRunMacroDoCmd.RunMacrors![Argument]'运行代码.CaseconCmdRunCodeApplication.Runrs![Argument]'打开一个数据存取页面CaseconCmdOpenPageDoCmd.OpenDataAccessPagers![Argument]'未定义选项CaseElseMsgBox"未知选项"EndSelect'Closetherecordsetandthedatabase.rs.CloseHandleButtonClick_Exit:OnErrorResumeNextSetrs=NothingExitFunctionHandleButtonClick_Err:If(Err=conErrDoCmdCancelled)ThenResumeNextElseMsgBox"执行命令时犯错。",vbCriticalResumeHandleButtonClick_ExitEndIfEndFunction输入上述代码后，单击【保留】按钮保留代码。函数HandleButtonClick则用来处理“主切换面板”上“按钮”控件“单击”消息事件。这么就完成了在控制面板上显示功效项目标目标。第104页11.7.3“主切换面板”窗体代码为“主切换面板”窗体加上各种事件过程。为“主切换面板”窗体添加“成为当前”事件过程单击【成为当前】行小箭头，在下拉列表框中选择“事件过程”选项，以下列图所表示。单击右边省略号按钮，进入VBA编辑器，系统自动建立了一个“Form_Current()”过程，在该过程中加入以下所表示代码。PrivateSubForm_Current()'更新标题并显示列表Me.Caption=Nz(Me![ItemText],"")FillbtnsEndSub此时【代码】窗口以下列图所表示。第105页11.7.3“主切换面板”窗体代码为“主切换面板”窗体加上各种事件过程。为“主切换面板”窗体添加“成为当前”事件过程上面过程中Fillbtns为另外一个能够实现报表选择功效过程，Fillbtns过程代码以下所表示。PrivateSubFillbtns()'显示切换框中列表'按钮数量ConstconNumButtonsAsInteger=8DimrsAsNewADODB.RecordsetDimstrSQLAsStringDimintbtnAsIntegerMe![btn1].SetFocusForintbtn=2ToconNumButtonsMe("btn"&intbtn).Visible=FalseMe("lbl"&intbtn).Visible=FalseNextintbtn'打开表SwitchboardItemsstrSQL="SELECT*FROM[SwitchboardItems]"strSQL=strSQL&"WHERE[ItemNumber]>0AND[SwitchboardID]="&Me!

[SwitchboardID]strSQL=strSQL&"ORDERBY

[ItemNumber];"Setrs=GetRs(strSQL)If(rs.EOF)ThenMe![lbl1].Caption="此切换面板页上无项目。"ElseWhile(Not(rs.EOF))Me("btn"&rs![ItemNumber]).Visible=TrueMe("lbl"&rs![ItemNumber]).Visible=TrueMe("lbl"&rs![ItemNumber]).Caption=rs![ItemText]rs.MoveNextWendEndIf'关闭数据集合和数据库rs.CloseSetrs=NothingEndSub其中，Fillbtns()子过程为实现“主切换面板”上控件数量和控件标题等信息。第106页11.7.3“主切换面板”窗体代码为“主切换面板”窗体加上各种事件过程。为“主切换面板”窗体添加“成为当前”事件过程此时Fillbtns过程视图以下所表示。第107页11.7.3“主切换面板”窗体代码为“主切换面板”窗体加上各种事件过程。为“主切换面板”窗体添加“加载”事件过程单击【加载】行小箭头，在下拉列表框中选择“事件过程”选项，以下列图所表示。单击右边省略号按钮，进入VBA编辑器，系统自动建立了一个“Form_Load()”过程，在该过程中加入以下所表示代码。PrivateSubForm_Load()IfNotcheckThenMsgBox("请先登录！")DoCmd.CloseDoCmd.OpenForm("登录")EndIfEndSub这几句代码作用，就是当用户打开该窗体时，系统先检验全局布尔变量Check值，假如Check值为False则弹出提醒用户先登录对话框。这么以确保用户在打开该切换面板前已经登录。第108页11.7.3“主切换面板”窗体代码此时【代码】窗口以下列图所表示。为“主切换面板”窗体加上各种事件过程。为“主切换面板”窗体添加“加载”事件过程第109页11.7.3“主切换面板”窗体代码为“主切换面板”窗体加上各种事件过程。为“主切换面板”窗体添加“打开”事件过程单击【打开】行小箭头，在下拉列表框中选择“事件过程”选项，以下列图所表示。单击右边省略号按钮，进入VBA编辑器，系统自动建立了一个“Form_Open()”过程，在该过程中加入以下所表示代码。PrivateSubForm_Open(CancelAsInteger)OnErrorGoToForm_Open_Err'显示默认选项Me.Filter="[ItemNumber]=0AND[Argument]='默认'"Me.FilterOn=TrueForm_Open_Exit:ExitSubForm_Open_Err:MsgBoxErr.DescriptionResumeForm_Open_ExitEndSub这组代码含义就是使用户在打开该主切换面板时，有默认选择值。第110页11.7.3“主切换面板”窗体代码为“主切换面板”窗体加上各种事件过程。为“主切换面板”窗体添加“打开”事件过程此时【代码】窗口以下列图所表示。这么就完成了主导航面板设计工作，双击导航窗格中“主切换面板”窗体，假如用户还没有登录，则会弹出用户还没有登录提醒对话框，以下列图所表示。单击【确定】按钮后，自动打开“登录窗体”进行登录。登录以后，即可打开“主切换面板”窗体，以下列图所表示。第111页11.7.4“员工考勤统计查询”窗体代码我们在上面建立了一个“员工考勤统计查询”查询，并基于该查询建立了“员工考勤统计查询报表”，用户还记得，我们在上面查询或报表中进行调试时，都是要手工在弹出参数对话框中输入各种查询参数，以下列图所表示。在这一节中，我们将利用建立“员工考勤统计查询”窗体，代替上面各个参数值对话框，实现考勤统计查询功效。第112页11.7.4“员工考勤统计查询”窗体代码已知“员工考勤统计查询”窗体中各种控件名称等属性以下表。类

型名

称标

题标签员工号标签员工号：标签开始时间标签开始时间：标签结束时间标签结束时间：文本框员工号文本框开始时间文本框结束时间按钮考勤查询按钮取消第113页11.7.4“员工考勤统计查询”窗体代码为“员工考勤统计查询”窗体添加各种事件过程。向“员工考勤统计查询”窗体添加“加载”事件过程第一步：在“员工考勤统计查询”窗体【设计视图】中单击“考勤查询”按钮。第二步：给“考勤查询”按钮控件添加“单击”事件过程。将【属性表】切换到【事件】选项卡，在【单击】行中选择“事件过程”选项，并单击右边省略号按钮，以下列图所表示。第三步：系统进入VBA编辑器，并自动新建了一个名称为“考勤查询_Click()”Sub过程。第114页11.7.4“员工考勤统计查询”窗体代码为“员工考勤统计查询”窗体添加各种事件过程。向“员工考勤统计查询”窗体添加“加载”事件过程第四步：在【代码】窗口中输入以下所表示VBA代码，给按钮控件添加“单击”事件过程。PrivateSub考勤查询_Click()IfIsNull([员工号])OrIsNull([开始时间])OrIsNull([结束时间])ThenMsgBox"您必须输入员工号、开始时间和结束时间。"DoCmd.GoToControl"开始时间"ElseIf[开始时间]>[结束时间]Then