管理信息系统分析与设计初稿 下载本文

内容发布更新时间 : 2024/12/24 8:01:29星期一 下面是文章的全部内容请认真阅读。

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 -