第9章 工资系统开发案例,学习目标： 掌握一个实际应用项目的开发过程 自主开发一个小型的信息管理系统,第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 系统结构,3. 系统中的数据库及数据表 工资库.MDB 基本工资表,返回目录,9.1 系统结构,工资库.MDB 部门表 工资库.MDB 密码表,返回目录,9.2 设计系统启动窗体frmStart,1. 窗体设计,返回目录,工程：wagesystem.vbp 窗体：frmStart,2. 代码要求 无论单击窗体、标签或按下某个键，均显示登录窗体frmLogin,9.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 设计系统主窗体frmMain,2. 编写代码 ：单击菜单命令打开相应的窗体,返回目录,9.5 设计基本数据输入窗体frmInBase,1. 窗体设计 “工程添加窗体”，保存为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 设计基本数据修改窗体frmInEdit,2. 编写代码 ： (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_Result,9.7 设计专项数据修改窗体frmInSpecial,注：设计时Frame1和 Frame2位于相同位置,返回目录,Frame2 Visible=False,Frame1 Visible为True,设计时Frame2覆盖Frame1,9.7 设计专项数据修改窗体frmInSpecial,2. 编写代码： (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,返回目录,9.8 设计工资组合查询窗体frmQryZh,2. 编写代码： (1) 在“通用”声明段定义模块级变量 (2) 窗体的Load事件：“教师工号”和“教师姓名”文本框为空 (3) 窗体的Initialize事件：将“部门名称”字段可能的值添加到“所在部门”下拉列表框中 (4) “检索”按钮的Click事件：根据用户输入的条件查询纪录集，找到则显示在下面的MSFlexGrid控件中 (5) “退出”按钮的Click事件：Unload Me,返回目录,9.9 设计查询工资明细窗体frmQryGr,1. 窗体设计： “工程添加窗体”，保存为frmQryGr.frm,返回目录,属性设置： DatabaseName-工资库.mdb 代码中：RecordSource = ssql,9.9 设计查询工资明细窗体frmQryGr,2. 编写代码 ： (1) 在“通用”声明段定义模块级变量 (2) 窗体的Load事件：选中“职工号”单选按钮 (3) “查询选项”框架中四个控件的事件响应代码： 单击“职工号”或“姓名”单选按钮，对应的两个文本框清空 单击“职工号”或“姓名”文本框，则使对应的单选按钮选中 在“职工号”或“姓名”文本框中按回车，等价于单击“检索”按钮，同时使“继续”按钮成为缺省命令按钮 (4) “检索”按钮的Click事件：根据用户输入的条件查询纪 录集，找到则显示在下面的标签和文本框中 (5) “继续”按钮的Click事件：显示下一个满足条件的纪录 (6) “返回”按钮的Click事件：Unload Me,返回目录,9.10 有待完善的问题与思考,为了使读者既能学到知识，又能提高自己，教材中只给出其中绝大多数模块的代码及设计过程。 在已经介绍的窗体模块中也存在一些问题，例如，登录用户的数据存放在“密码表”中，这显示不能起到保密的作用；有些模块的功能也不完善。 有兴趣的读者还可进一步扩充系统的功能，如增加数据统计及备份功能等。,返回目录,