人事管理系统-模块开发卷宗

模块开发卷宗（GB8567——88） 1标题

软件系统名称：人事管理系统 标示符：HMS 程序编制员签名： 卷宗修改文件序号：06

修改完成日期：2013年4月21日 卷宗序号：06 编排日期： 暂无

2模块开发情况表

模块标识符 模块的描述性名称 计划开始日期 实际开始日期 代码设计 计划完成日期 实际完成日期 计划开始日期 实际开始日期 模块测试 计划完成日期 实际完成日期 计划开始日期 实际开始日期 组装测试 计划完成日期 实际完成日期 2013-04-21 2013-04-22 2013-04-16 2013-04-16 2013-04-17 2013-04-18 2013-04-12 2013-04-13 2013-04-13 2013-04-14 HMS 人事管理系统 2013-04-08 2013-04-09 1

代码复查日期 预计 源代码行数 实际 模块标识符 2013-04-23 1300 1353 BIM 3功能说明

功能列表:

1.人事管理模块

1 员工档案管理,包括档案数据外部导入,支持卡片式和表格式 2 奖惩管理 3 人员信息提醒 2 调动管理模块 1 员工就职

2 员工调动,批量调动 3 员工离职 4 员工复职 5 员工退休 6 员工离休 7 员工异动浏览 8 档案清除 3.工资管理模块

1.工资管理,可以自定义工资项目明细及其计算公式,数据导出生成银行转账盘 2.帐套维护

3.员工套帐设定(薪资福利) 4.计件工资 5.计时工资 6.提成工资

7.工资发放,包括每月应发，实发，补贴，代扣,四金 8.保险福利管理

9.第三方支付复选框,预留接口,定义付款方式,支付方法,要注意 10.在此基础上的决策支持 4.考勤管理模块

注: 跟工资管理挂钩

由于功能相对独立,需要独立实现一个模块,数据实现兼容.

能支持多种考勤设备,如考勤钟打卡考勤方式,刷卡考勤方式 5.系统管理

1. 备份、恢复、压缩数据

2. 系统用户管理,支持多用户,分级授权

2

4设计说明

增加：员工各种信息的输入，包括员工基本信息，学历信息，职称等。 修改：员工的各种信息的修改。

删除：对于转出，辞职，退休员工信息的删除。

查询：按照某种条件，查询，统计符合条件的员工信息。 输出：对查询，统计的结果打印输出。 帮助：人事系统的使用帮助。

5原代码清单

要给出所产生的本模块（或本组模块）的第一份无语法错的源代码清单以及已通过全部测试的当前有效的源代码清单。 1. 公用模块代码如下： Option Explicit

Public Const RGN_OR = 2 ' 或运算 ,RGN_OR creates the union of combined regionsregions

Public Const RGN_AND = 1 '和运算 Public Const RGN_XOR = 3 '异或运算

Public Const WM_NCLBUTTONDOWN = &HA1 Public Const HTCAPTION = 2

Const ChangeBorder = 350 '边框调整的附加值 Const FullBorder = 10000 '最大化时窗体的大小 Public mFormRegion As Long '窗体存储

'@@@@@@@@@@@@@@@@@@@@@@@@ Public dbConnection As Connection Public cntMIS As ADODB.Connection

Public QueryItem As Integer '查询数据判定变量 Public strCurUser As String

Public ConnWZ As ADODB.Connection Public db As Connection Public db1 As Connection

Public Declare Function SetParent Lib \ByVal hWndNewParent As Long) As Long Sub Main() '系统启动主程序 On Error GoTo LogoError

Set ConnWZ = New ADODB.Connection '设定 ODBC 数据连接

ConnWZ.Open \数据库为：RSConnWZ.CursorLocation = adUseClient Set db = New Connection

db.CursorLocation = adUseClient db.Open \

3

'二维表的数据库连接 Set db1 = New Connection

db1.CursorLocation = adUseClient

db1.Open \MsgTitle = \提示\

frmLogin.Show vbModal LogoOK: Exit Sub LogoError: Beep

MsgBox \请检查是否设置了数据库连接或与网络管理员联系。 \博瑞人事信息管理系统\End Sub

Private Sub cmdOK_Click() '检查正确密码

If Not IsNull(Me.DCboUserName.SelectedItem) Then If txtPassword = Me.DCboUserName.BoundText Then '将代码放在这里传递 '成功到 calling 函数 LoginSucceeded = True

strCurUser = Me.DCboUserName.Text Me.Hide RSGL.Show Else

MsgBox \无效的密码，请重试!\登录\SendKeys \End If Else

MsgBox \请选择用户名!\登录\Me.DCboUserName.SetFocus End If End Sub

2. 人员基本信息登记窗体的主要代码如下： Private Sub cmdAdd_Click() On Error GoTo AddErr With adoPrimaryRS

If Not (.BOF And .EOF) Then mvBookMark = .Bookmark End If .AddNew

mbAddNewFlag = True SetButtons False End With

4