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 -