人事管理系统模块开发卷宗.docx
《人事管理系统模块开发卷宗.docx》由会员分享，可在线阅读，更多相关《人事管理系统模块开发卷宗.docx（11页珍藏版）》请在冰豆网上搜索。
人事管理系统模块开发卷宗
模块开发卷宗（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.公用模块代码如下：
OptionExplicit
PublicConstRGN_OR=2'或运算,RGN_ORcreatestheunionof
combinedregionsregions
PublicConstRGN_AND=1'和运算
PublicConstRGN_XOR=3'异或运算
PublicConstWM_NCLBUTTONDOWN=&HA1
PublicConstHTCAPTION=2
ConstChangeBorder=350'边框调整的附加值
ConstFullBorder=10000'最大化时窗体的大小
PublicmFormRegionAsLong'窗体存储
'@@@@@@@@@@@@@@@@@@@@@@@@
PublicdbConnectionAsConnection
PubliccntMISAsADODB.Connection
PublicQueryItemAsInteger'查询数据判定变量
PublicstrCurUserAsString
PublicConnWZAsADODB.Connection
PublicdbAsConnection
Publicdb1AsConnection
PublicDeclareFunctionSetParentLib"user32"（ByValhWndChildAsLong,
ByValhWndNewParentAsLong）AsLong
SubMain（）'系统启动主程序
OnErrorGoToLogoError
SetConnWZ=NewADODB.Connection'设定ODBC数据连接
ConnWZ.Open"DSN=RS;"'数据库为：
RSConnWZ.CursorLocation=adUseClient
Setdb=NewConnection
db.CursorLocation=adUseClient
db.Open"DSN=RS;"
3
'二维表的数据库连接
Setdb1=NewConnection
db1.CursorLocation=adUseClient
db1.Open"PROVIDER=MSDataShape;DSN=RS;"
MsgTitle="提示"
frmLogin.ShowvbModal
LogoOK:
ExitSub
LogoError:
Beep
MsgBox"请检查是否设置了数据库连接或与网络管理员联系。
",vbOKOnly+vbQuestion,"博瑞人事信息管理系统"
EndSub
PrivateSubcmdOK_Click（）
'检查正确密码
IfNotIsNull（Me.DCboUserName.SelectedItem）Then
IftxtPassword=Me.DCboUserName.BoundTextThen
'将代码放在这里传递
'成功到calling函数
LoginSucceeded=True
strCurUser=Me.DCboUserName.Text
Me.Hide
RSGL.Show
Else
MsgBox"无效的密码，请重试!
",,"登录"txtPassword.SetFocus
SendKeys"{Home}+{End}"
EndIf
Else
MsgBox"请选择用户名!
",,"登录"
Me.DCboUserName.SetFocus
EndIf
EndSub
2.人员基本信息登记窗体的主要代码如下：
PrivateSubcmdAdd_Click（）
OnErrorGoToAddErr
WithadoPrimaryRS
IfNot（.BOFAnd.EOF）Then
mvBookMark=.Bookmark
EndIf
.AddNew
mbAddNewFlag=True
SetButtonsFalse
EndWith
4
ExitSub
AddErr:
MsgBox"增加操作有错误",vbExclamation+vbOKOnly,pTitle
EndSub
PrivateSubcmdUpdate_Click（）
OnErrorGoToUpdateErr
adoPrimaryRS.UpdateBatchadAffectAll
IfmbAddNewFlagThen
adoPrimaryRS.MoveLast'移动新记录
EndIf
mbEditFlag=False
mbAddNewFlag=False
SetButtonsTrue
ExitSub
UpdateErr:
MsgBox"保存操作有错误",vbExclamation+vbOKOnly,pTitle
EndSub
3.考勤登记窗体的主要代码如下：
PrivateSubcmdEdit_Click（）'编辑按钮
OnErrorGoToEditErr
mbEditFlag=True
SetButtonsFalse
ExitSub
EditErr:
MsgBox"更改操作有错误",vbExclamation+vbOKOnly,pTitle
EndSub
PrivateSubcmdCancel_Click（）'取消按钮
'OnErrorResumeNext
OnErrorGoToCancelErr
mbEditFlag=False
mbAddNewFlag=False
adoPrimaryRS.CancelUpdate
IfmvBookMark>0Then
adoPrimaryRS.Bookmark=mvBookMark
ElseadoPrimaryRS.MoveFirst
EndIf
SetButtonsTrue
ExitSub
CancelErr:
MsgBox"取消操作有错误",vbExclamation+vbOKOnly,pTitle
EndSub
adoPrimaryRS.MoveFirst
EndIf
5
SetButtonsTrue
ExitSub
CancelErr:
MsgBox"取消操作有错误",vbExclamation+vbOKOnly,pTitle
EndSub
4.在岗职工工资生成窗体的主要代码如下：
PrivateSubcmdDelete_Click（）
OnErrorGoToDeleteErr
WithadoPrimaryRS
.Delete
.MoveNext
If.EOFThen.MoveLast
EndWith
ExitSub
DeleteErr:
MsgBox"删除操作有错误",vbExclamation+vbOKOnly,pTitle
EndSub
PrivateSubcmdAdd_Click（）
OnErrorGoToAddErr
WithadoPrimaryRS
IfNot（.BOFAnd.EOF）Then
mvBookMark=.Bookmark
EndIf
.AddNew
mbAddNewFlag=True
SetButtonsFalse
EndWith
'Showpaid
ExitSubAddErr:
MsgBox"增加操作有错误",vbExclamation+vbOKOnly,pTitle
EndSub
5.考勤查询窗体的主要代码如下：
PrivateSubCommand1_Click（）
DimDataGrid_sqlAsString'数据表格中的数据源
DimoTextAsTextBox
IfCheck1.Value=1AndCheck2.Value=1AndCombo1.Text<>""And
Combo2.Text<>""Then
DataGrid_sql="select*from考勤统计where姓名='"&Combo1&
"'"&"and年度="&Combo2.Text
SetadoPrimaryRS=NewRecordset
adoPrimaryRS.OpenDataGrid_sql,db,adOpenStatic,adLockOptimistic
SetDataGrid1.DataSource=adoPrimaryRS
6
Frame3.Visible=False
Frame2.Visible=True
Else
MsgBox"请你选择姓名和年度！
",,"达州博瑞人事信息管理系统"
EndIf
EndSub
PrivateSubCommand3_Click（）
DimXianShi_sqlAsString'单条数据显示的数据源
IfRow_ID=""Then
MsgBox"请你选择其中一条信息！
",,""达州博瑞人事信息管理系统"
ExitSub
Else
XianShi_sql="select*from考勤统计whereID="&Row_ID
SetadoXianshiRS=NewRecordsetadoXianshiRS.OpenXianShi_sql,db,adOpenStatic,adLockOptimistic
ForEachoTextInMe.txtFields
SetoText.DataSource=adoXianshiRS
Next
EndIf
Frame2.Visible=False
Frame3.Visible=True
EndSub
6.奖励窗体的主要代码如下：
PrivateSubForm_Load（）
'DimtxtAsTextBox
OnErrorResumeNext
ForEachTextBoxInMe.Controls
TextBox.Font.Name="宋体"
TextBox.Font.Size=9
Next
SetadoPrimaryRS=NewRecordset
adoPrimaryRS.Open"select*from奖励",db,adOpenStatic,
adLockOptimistic
SetDTPicker1.DataSource=adoPrimaryRS
SetDTPicker2.DataSource=adoPrimaryRS
SetDTPicker3.DataSource=adoPrimaryRS
SetDTPicker4.DataSource=adoPrimaryRS
SetDTPicker5.DataSource=adoPrimaryRS
SetButtonsTrue
DimoTextAsTextBox
'Bindthetextboxestothedataprovider
ForEachoTextInMe.txtFields
SetoText.DataSource=adoPrimaryRS
7
NextCombo1.AddItem"奖金"
Combo1.AddItem"旅游"
Combo1.AddItem"表扬"
EndSub
6测试说明
通过测试检测该模块是否符合要求。
通过添加已存在的的信息，系统是否自动检测并提示已经存在。
7复审的结论
经测试，本模块符合要求。
8
升级会员 