1、人事管理系统模块开发卷宗模块开发卷宗(GB856788)1标题软件系统名称:人事管理系统标示符:HMS程序编制员签名:卷宗修改文件序号:06修改完成日期:2013年4月21日卷宗序号:06编排日期:暂无2模块开发情况表模块标识符模块的描述性名称计划开始日期实际开始日期代码设计计划完成日期实际完成日期计划开始日期实际开始日期模块测试计划完成日期实际完成日期计划开始日期实际开始日期组装测试计划完成日期实际完成日期2013-04-212013-04-222013-04-162013-04-162013-04-172013-04-182013-04-122013-04-132013-04-132013
2、-04-14HMS人事管理系统2013-04-082013-04-091代码复查日期预计源代码行数实际模块标识符2013-04-2313001353BIM3功能说明功能列表:1.人事管理模块1员工档案管理,包括档案数据外部导入,支持卡片式和表格式2奖惩管理3人员信息提醒2调动管理模块1员工就职2员工调动,批量调动3员工离职4员工复职5员工退休6员工离休7员工异动浏览8档案清除3.工资管理模块1.工资管理,可以自定义工资项目明细及其计算公式,数据导出生成银行转账盘2.帐套维护3.员工套帐设定(薪资福利)4.计件工资5.计时工资6.提成工资7.工资发放,包括每月应发,实发,补贴,代扣,四金8.保险
3、福利管理9.第三方支付复选框,预留接口,定义付款方式,支付方法,要注意10.在此基础上的决策支持4.考勤管理模块注:跟工资管理挂钩由于功能相对独立,需要独立实现一个模块,数据实现兼容.能支持多种考勤设备,如考勤钟打卡考勤方式,刷卡考勤方式5.系统管理1.备份、恢复、压缩数据2.系统用户管理,支持多用户,分级授权24设计说明增加:员工各种信息的输入,包括员工基本信息,学历信息,职称等。修改:员工的各种信息的修改。删除:对于转出,辞职,退休员工信息的删除。查询:按照某种条件,查询,统计符合条件的员工信息。输出:对查询,统计的结果打印输出。帮助:人事系统的使用帮助。5原代码清单要给出所产生的本模块(
4、或本组模块)的第一份无语法错的源代码清单以及已通过全部测试的当前有效的源代码清单。1.公用模块代码如下:Option ExplicitPublic Const RGN_OR = 2 或运算,RGN_OR creates the union ofcombined regionsregionsPublic Const RGN_AND = 1 和运算Public Const RGN_XOR = 3 异或运算Public Const WM_NCLBUTTONDOWN = &HA1Public Const HTCAPTION = 2Const ChangeBorder = 350 边框调整的附加值Con
5、st FullBorder = 10000 最大化时窗体的大小Public mFormRegion As Long 窗体存储Public dbConnection As ConnectionPublic cntMIS As ADODB.ConnectionPublic QueryItem As Integer 查询数据判定变量Public strCurUser As StringPublic ConnWZ As ADODB.ConnectionPublic db As ConnectionPublic db1 As ConnectionPublic Declare Function SetPa
6、rent Lib user32 (ByVal hWndChild As Long,ByVal hWndNewParent As Long) As LongSub Main() 系统启动主程序On Error GoTo LogoErrorSet ConnWZ = New ADODB.Connection 设定ODBC数据连接ConnWZ.Open DSN=RS; 数据库为:RSConnWZ.CursorLocation = adUseClientSet db = New Connectiondb.CursorLocation = adUseClientdb.Open DSN=RS;3二维表的数据
7、库连接Set db1 = New Connectiondb1.CursorLocation = adUseClientdb1.Open PROVIDER=MSDataShape;DSN=RS;MsgTitle = 提示frmLogin.Show vbModalLogoOK:Exit SubLogoError:BeepMsgBox 请检查是否设置了数据库连接或与网络管理员联系。, vbOKOnly + vbQuestion, 博瑞人事信息管理系统End SubPrivate Sub cmdOK_Click()检查正确密码If Not IsNull(Me.DCboUserName.Selected
8、Item) ThenIf txtPassword = Me.DCboUserName.BoundText Then将代码放在这里传递成功到calling函数LoginSucceeded = TruestrCurUser = Me.DCboUserName.TextMe.HideRSGL.ShowElseMsgBox 无效的密码,请重试!, 登录txtPassword.SetFocusSendKeys Home+EndEnd IfElseMsgBox 请选择用户名!, , 登录Me.DCboUserName.SetFocusEnd IfEnd Sub2.人员基本信息登记窗体的主要代码如下:Pri
9、vate Sub cmdAdd_Click()On Error GoTo AddErrWith adoPrimaryRSIf Not (.BOF And .EOF) ThenmvBookMark = .BookmarkEnd If.AddNewmbAddNewFlag = TrueSetButtons FalseEnd With4Exit SubAddErr:MsgBox 增加操作有错误, vbExclamation + vbOKOnly, pTitleEnd SubPrivate Sub cmdUpdate_Click()On Error GoTo UpdateErradoPrimaryRS
10、.UpdateBatch adAffectAllIf mbAddNewFlag ThenadoPrimaryRS.MoveLast 移动新记录End IfmbEditFlag = FalsembAddNewFlag = FalseSetButtons TrueExit SubUpdateErr:MsgBox 保存操作有错误, vbExclamation + vbOKOnly, pTitleEnd Sub3.考勤登记窗体的主要代码如下:Private Sub cmdEdit_Click()编辑按钮On Error GoTo EditErrmbEditFlag = TrueSetButtons F
11、alseExit SubEditErr:MsgBox 更改操作有错误, vbExclamation + vbOKOnly, pTitleEnd SubPrivate Sub cmdCancel_Click()取消按钮 On Error Resume NextOn Error GoTo CancelErrmbEditFlag = FalsembAddNewFlag = FalseadoPrimaryRS.CancelUpdateIf mvBookMark 0 ThenadoPrimaryRS.Bookmark = mvBookMarkElseadoPrimaryRS.MoveFirstEnd I
12、fSetButtons TrueExit SubCancelErr:MsgBox 取消操作有错误, vbExclamation + vbOKOnly, pTitleEnd SubadoPrimaryRS.MoveFirstEnd If5SetButtons TrueExit SubCancelErr:MsgBox 取消操作有错误, vbExclamation + vbOKOnly, pTitleEnd Sub4.在岗职工工资生成窗体的主要代码如下:Private Sub cmdDelete_Click()On Error GoTo DeleteErrWith adoPrimaryRS.Dele
13、te.MoveNextIf .EOF Then .MoveLastEnd WithExit SubDeleteErr:MsgBox 删除操作有错误, vbExclamation + vbOKOnly, pTitleEnd SubPrivate Sub cmdAdd_Click()On Error GoTo AddErrWith adoPrimaryRSIf Not (.BOF And .EOF) ThenmvBookMark = .BookmarkEnd If.AddNewmbAddNewFlag = TrueSetButtons FalseEnd WithShowpaidExit SubAd
14、dErr:MsgBox 增加操作有错误, vbExclamation + vbOKOnly, pTitleEnd Sub5.考勤查询窗体的主要代码如下:Private Sub Command1_Click()Dim DataGrid_sql As String 数据表格中的数据源Dim oText As TextBoxIf Check1.Value = 1 And Check2.Value = 1 And Combo1.Text AndCombo2.Text ThenDataGrid_sql = select * from考勤统计where姓名= & Combo1 & & and年度= & C
15、ombo2.TextSet adoPrimaryRS = New RecordsetadoPrimaryRS.Open DataGrid_sql, db, adOpenStatic, adLockOptimisticSet DataGrid1.DataSource = adoPrimaryRS6Frame3.Visible = FalseFrame2.Visible = TrueElseMsgBox 请你选择姓名和年度!, , 达州博瑞人事信息管理系统End IfEnd SubPrivate Sub Command3_Click()Dim XianShi_sql As String 单条数据显
16、示的数据源If Row_ID = ThenMsgBox 请你选择其中一条信息!, , 达州博瑞人事信息管理系统Exit SubElseXianShi_sql = select * from考勤统计where ID = & Row_IDSetadoXianshiRS=NewRecordsetadoXianshiRS.OpenXianShi_sql,db,adOpenStatic,adLockOptimisticFor Each oText In Me.txtFieldsSet oText.DataSource = adoXianshiRSNextEnd IfFrame2.Visible = Fa
17、lseFrame3.Visible = TrueEnd Sub6.奖励窗体的主要代码如下:Private Sub Form_Load()Dim txt As TextBoxOn Error Resume NextFor Each TextBox In Me.ControlsTextBox.Font.Name = 宋体TextBox.Font.Size = 9NextSet adoPrimaryRS = New RecordsetadoPrimaryRS.Open select * from奖励, db, adOpenStatic,adLockOptimisticSet DTPicker1.Da
18、taSource = adoPrimaryRSSet DTPicker2.DataSource = adoPrimaryRSSet DTPicker3.DataSource = adoPrimaryRSSet DTPicker4.DataSource = adoPrimaryRSSet DTPicker5.DataSource = adoPrimaryRSSetButtons TrueDim oText As TextBoxBind the text boxes to the data providerFor Each oText In Me.txtFieldsSet oText.DataSource = adoPrimaryRS7NextCombo1.AddItem 奖金Combo1.AddItem 旅游Combo1.AddItem 表扬End Sub6测试说明通过测试检测该模块是否符合要求。通过添加已存在的的信息,系统是否自动检测并提示已经存在。7复审的结论经测试,本模块符合要求。8
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1