第9章 工资系统开发案例学习目标：u掌握一个实际应用项目的开发过程 u自主开发一个小型的信息管理系统 第9章 工资系统开发案例教学内容：9.1 系统结构 9.2 设计系统启动窗体 9.3 设计用户登录窗体 9.4 设计系统主窗体9.5 设计基本数据输入窗体 9.6 设计基本数据修改窗体 9.7 设计专项数据修改窗体 9.8 设计工资组合查询窗体 9.9 设计查询工资明细窗体 9.10 有待完善的问题与思考 9.1 系统结构1.系统流程图 返回目录9.1 系统结构2. 系统的中的窗体模块 frmStart：显示开发人员的名单及开发日期等 frmLogin：用户登录界面frmMain：含系统菜单的主窗体 frmInBase：输入每个职工的基本数据 frmInEdit：浏览、修改、删除及查找职工的基本数据frmInSpecial：修改指定职工的基本工资和和岗位工资frmQryZh：查询指定职工或指定部门的职工工资情况 frmQryGr：查询指定职工详细的工资信息frmPrtGzd：打印指定职工的工资单 frmPrtDepart：打印指定部门的所有职工的工资单 返回目录9.1 系统结构3. 系统中的数据库及数据表 工资库.MDB 基本工资表 返回目录9.1 系统结构工资库.MDB 部门表工资库.MDB 密码表 返回目录9.2 设计系统启动窗体frmStart 1. 窗体设计 返回目录工程：wagesystem.vbp窗体：frmStart2. 代码要求无论单击窗体、标签或 按下某个键，均显示登录 窗体frmLogin9.3 设计用户登录窗体frmLogin 1. 窗体设计 “工程添加窗体”保存为frmLogin.frm返回目录9.3 设计用户登录窗体frmLogin 2. 编写代码 (1) 在“通用”声明段定义该模块通用的sSQL、sirname、sirpwd变量(2) 主要的事件响应代码：窗体的初始化事件(Form_Initialize)：将密码表中的用户 名添加到登录窗体的下拉列表框中。“确定”按钮的单击事件(cmdOK_Click)：在“密码表”中 查找是否有对应的记录。有则显示frmMain窗体，否则 提示重新输入密码。“密码”文本框的按键事件(txtPassword_KeyPress)：输 入密码后，按回车键相当于单击“确定”按钮 返回目录9.4 设计系统主窗体frmMain 1. 窗体设计 “工程添加窗体”，保存为frmMain.frm 返回目录9.4 设计系统主窗体frmMain2. 编写代码 ：单击菜单命令打开相应的窗体返回目录9.5 设计基本数据输入窗体frmInBase1. 窗体设计 “工程添加窗体”，保存为frmInBase.frm 返回目录注：“增加”按钮与“确 定”按钮在同一位置9.5 设计基本数据输入窗体frmInBase 2. 编写代码 ：(1) 在“通用”声明段定义该模块通用的sum变量(2) 窗体的Load事件：设置“工号”和“职工姓名”两个文本框处于不活动状态(3) 窗体的Activate事件：将“部门表”中“部门名称”字段的值添加到“系、部、处”下拉列表框中(4) 窗体的KeyPress事件：按回车相当于单击“增加”按钮(5) “增加”按钮的Click事件：使各个用于输入职工信息的控件有效，以便输入新职工的信息；同时“增加”按钮 不可见，“确定”按钮可见 返回目录9.5 设计基本数据输入窗体frmInBase (6) “确定”按钮的Click事件：将一条新记录添加到“基 本工资表”中(7) “取消”按钮的Click事件：使“确定”按钮不可见，“ 增加”按钮可见 (8) “退出”按钮的Click事件：Unload Me(9) 相应控件的KeyPress事件：在控件中按回车键，焦点自动切换到下一个控件 (10) “基本工资”和“岗位工资”文本框的LostFocus事件：在这两个文本框中输入数值后，可自动算出别的项 目，如所得税、应发工资等 返回目录9.6 设计基本数据修改窗体frmInEdit 1. 窗体设计 “工程添加窗体”，保存为frmInEdit.frm 返回目录注：两个Data控件的属性与frmInBase窗体上的Data控件相同 9.6 设计基本数据修改窗体frmInEdit2. 编写代码 ：(1) 在“通用”声明段定义变量和函数： 定义该模块通用的ssql变量brsex函数：根据“性别”字段的值设定“性别”按钮的状态Updsex函数：根据“性别”按钮的状态设定“性别”字段的值BrDepart函数：设定数据控件Data1和Data2的属性 (2) 窗体的Initialize事件：将“部门名称”字段所有可能的值添加到“系、部、处”下拉列表框中，并调用函数brsex 来根据“性别”字段的值设定“性别”单选按钮的状态。(3) “首条”、“上一条”、“下一条”及“末条”按钮的Click事件：移动指针，并调用brsex和BrDepart函数返回目录9.6 设计基本数据修改窗体frmInEdit(4) “修改”按钮的Click事件：按钮标题是“修改”，则等 待用户修改数据，并将标题改为“确定”；按钮标题是“确定”， 则将数据更新到数据库中，并将标题改为“修改”。(5) “删除”按钮的Click事件：提示用户是否想真的删除 纪录 (6) “查找”按钮的Click事件：根据输入的条件查询纪录 集 (7) “退出”按钮的Click事件：Unload Me (8) 相应控件的KeyPress事件：在控件中按回车键，焦点 自动切换到下一个控件 (9) “基本工资”和“岗位工资”文本框的LostFocus事件 ：在这两个文本框中输入数值后，可自动算出别的项目，如所得税、应发工资等 返回目录9.7 设计专项数据修改窗体frmInSpecial 1. 窗体设计 “工程添加窗体”，保存为frmInSpecial.frm 返回目录Data1：“工资 库”中的“部门 表”MSFlexGrid控 件grd_Result9.7 设计专项数据修改窗体frmInSpecial 注：设计时Frame1和 Frame2位于相同位置返回目录Frame2 Visible=FalseFrame1 Visible为True设计时Frame2 覆盖Frame19.7 设计专项数据修改窗体frmInSpecial2. 编写代码：(1) 在“通用”声明段定义模块级变量(2) 窗体的Initialize事件：将“部门名称”字段所有可能的值添加到Frame1的“所在部门”下拉列表(3) Frame2“确定”按钮的Click事件：根据用户设定的条 件修改指定纪录的工资，然后使Frame2隐藏 Frame1出现(4) Frame1“检索”按钮的Click事件：根据用户输入的条 件查询纪录集，找到则显示在下面的MSFlexGrid控件中；同 时使Frame1隐藏 Frame2出现(5) “退出”按钮的Click事件：Unload Me 返回目录9.8 设计工资组合查询窗体frmQryZh 1. 窗体设计： “工程添加窗体”，保存为frmQryZh.frm 返回目录Data1：“工 资库”中的“ 部门表”属性设置： DatabaseName-工资 库.mdb代码中： RecordSource = ssql9.8 设计工资组合查询窗体frmQryZh2. 编写代码：(1) 在“通用”声明段定义模块级变量(2) 窗体的Load事件：“教师工号”和“教师姓名”文本框为空 (3) 窗体的Initialize事件：将“部门名称”字段可能的值添加到“所在部门”下拉列表框中 (4) “检索”按钮的Click事件：根据用户输入的条件查询纪录集，找到则显示在下面的MSFlexGrid控件中(5) “退出”按钮的Click事件：Unload Me返回目录9.9 设计查询工资明细窗体frmQryGr 1. 窗体设计： “工程添加窗体”，保存为 frmQryGr.frm 返回目录属性设置： DatabaseName-工资 库.mdb代码中： RecordSource = ssql9.9 设计查询工资明细窗体frmQryGr2. 编写代码 ： (1) 在“通用”声明段定义模块级变量 (2) 窗体的Load事件：选中“职工号”单选按钮 (3) “查询选项”框架中四个控件的事件响应代码：v单击“职工号”或“姓名”单选按钮，对应的两个文本 框清空v单击“职工号”或“姓名”文本框，则使对应的单选按钮选 中v在“职工号”或“姓名”文本框中按回车，等价于单击“检索 ”按钮，同时使“继续”按钮成为缺省命令按钮 (4) “检索”按钮的Click事件：根据用户输入的条件查询 纪录集，找到则显示在下面的标签和文本框中 (5) “继续”按钮的Click事件：显示下一个满足条件的纪 录 (6) “返回”按钮的Click事件：Unload Me返回目录9.10 有待完善的问题与思考为了使读者既能学到知识，又能提高自己，教材中只给出其中绝大多数模块的代码及设计过程。在已经介绍的窗体模块中也存在一些问题，例如，登录用户的数据存放在“密码表”中，这显示不能起到保密的作用；有些模块的功能也不完善。 有兴趣的读者还可进一步扩充系统的功能，如增加数据统计及备份功能等。返回目录