6.员工薪酬管理IPO图 系统：人力资源管理系统 设计人： 模块：员工薪酬管理 日 期：2012年12月12日 上层调用模块：主控 下层调用模块：无 输入：薪酬水平、输出：发放薪酬 职务、考勤汇总 主控 输入 考勤汇总 薪酬水平 职务 发放薪酬 7.员工调动管理IPO图

系统：人力资源管理系统 设计人 模块：员工调动管理 日 期：2012年12月12日 下层调用模块：无 上层调用模块：主控

输入：员工信息、员工职务、转出部门、转入部门、调动时间 - 25 - 输出：员工职务信息、 员工档案变更 主控

四、系统实施

（一）系统功能模块 1.主控模块

2.用户模块

- 26 -

3.基本业务模块

4.登记模块

- 27 -

5.业务查询模块

- 28 -

（二）部分功能操作模块代码

1、登陆代码

Dim lyons As Integer

Private SubCommand1_Click() If lyons = 3 Then Unload Me Exit Sub End If

If Trim(Text1.Text =\

MsgBox \没有输入用户名,请输入!\vbOKOnly + vbExclamation, \警告\Text2.Text = \Exit Sub End If

MsgBox \密码不正确,请重新输入!\

Call SJK(db)‘

strSQL = \用户资料where用户='\& Text1.Text & \AND身份='\& DLQX1 & \

RS.Clos

vbOKOnly + vbExclamation, \警告\Text2.SetFocus

RS.Open strSQL, db, 2, 2 If RS.EOF = True Then

MsgBox \没有这个用户,请重新输入用户!\vbOKOnly + vbExclamation, Text1.Text = \Text2.Text = \RS.Close Call GBSJK Lyons = lyons + 1 Exit Sub End If

If RS(\密码\ext2.Text)Then

- 29 -