返回目录 91系统结构 工资库MDB—部门表 序号 字段名 米刑 长度 部门编号 文本 2 部门名称 文本 16 工资库MDB一密码表 序号 字段名 类型 长度 文本 inane 文本 8 3 assad 文本 6
9.1 系统结构 工资库.MDB— 部门表 工资库.MDB— 密码表 返回目录
返回目录 92设计系统启动窗体 frmStart 1.窗体设计 对象属性 设置值 Name Restart 窗体 Borderstvle None 工程: wagesystemvbp Windowstate Maximize 窗体: frmStart Caption 工资管理系统案例 Labell Fore Color 黑色) Caption 工资管理系统案例 Labe Fore Color (白色) Label Caption 设计人:朱茂然王永生 Label Caption 二0二年六月 工资管理系统案例」 2.代码要求 无论单击窗体、标签或 按下某个键,均显示登录 设计:朱茂然王永生刘钢 窗体 frmLogin 二00二年六月
9.2 设计系统启动窗体frmStart 1. 窗体设计 返回目录 工程：wagesystem.vbp 窗体：frmStart 2. 代码要求 无论单击窗体、标签或 按下某个键，均显示登录 窗体frmLogin
返回目录 93设计用户登录窗体 rlogin 1.窗体设计 登录 “工程→添加窗体” 用户名称 保存为 frmLogin frn 密:码(P) K下D 对象 属性 设置值 Databasename 工资库mb Datal Recordsource 密码表 Visible false Combo Nan Cbl name CommandbUtton Caption 确定 CommandButton Caption 取消
9.3 设计用户登录窗体frmLogin 1. 窗体设计 “工程→添加窗体” 保存为frmLogin.frm 返回目录
返回目录 93设计用户登录窗体 frmLogin 2.编写代码 (1)在“通用”声明段定义该模块通用的sSQL、 Sirname、 sirpwd变量 (2)主要的事件响应代码: >窗体的初始化事件( Form initialize):将密码表中的用户名 添加到登录窗体的下拉列表框中。 “确定”按钮的单击事件( cmdok click):在“密码表” 中查 找是否有对应的记录。有则显示 frmMain窗体,否则提示 重新输入密码。 “密码”文本框的按键事件( txtPassword_ Keypress:输入 密码后,按回车键相当于单击“确定”按钮
9.3 设计用户登录窗体frmLogin 2. 编写代码 (1) 在“通用”声明段定义该模块通用的sSQL、sirname、 sirpwd变量 (2) 主要的事件响应代码： ➢ 窗体的初始化事件(Form_Initialize)：将密码表中的用户名 添加到登录窗体的下拉列表框中。 ➢ “确定”按钮的单击事件(cmdOK_Click)：在“密码表” 中查 找是否有对应的记录。有则显示frmMain窗体，否则提示 重新输入密码。 ➢ “密码”文本框的按键事件(txtPassword_KeyPress)：输入 密码后，按回车键相当于单击“确定”按钮 返回目录