工资发放系统设计文档.doc

课程设计 工资发放管理系统 目 录第一部分：开发背景.2第二部分：系统分析3第三部分：系统设计.4第四部分：登陆界面设计.5第五部分：工资规则制定设计.6第六部分：级别工资配置设计.7第七部分：职位津贴配置设计.8第八部分：部门信息设计.9第九部分：工资发放设计.11第十部分：统计查询设计.15第十一部分：后续补充部分.16第十二部分：参考文献.16第十三部分：心得.17工资发放管理系统 开发背景借助现代信息技术和管理理论，建立企业管理信息系统是当今社会的重要趋势。党和政府根据知识经济时代的特点，对国民经济建设提出了“用信息化带动工业化”的指导思想。对企业而言，全面开发和应用计算机管理信息系统就是近期不能回避的问题。在企业管理中，人力资源是企业最宝贵的资源，也是企业的“生命线”，因此人事管理是企业的计算机管理信息系统重要组成部分。而工资管理又是人力资源管理的重中之重。实行电子化的工资管理，可以让人力资源管理人员从繁重琐碎的案头工作解脱出来，去完成更重要的工作。工资管理信息系统的实现可以减轻比较繁琐的手工工资管理。现在应用在大中型企业的管理信息系统中，几乎都包括了工资管理模块。有些环境中是由作为大型ERP软件中的一个模块引进的，有些是作为企业的财务系统的一部分。这些根据规范的西方的管理制度设计的工资管理软件，在很多时候还不能完全解决中国特色的中小企业的问题，本文介绍的毕业设计的研究工作就是要为这些具有中国特色的中小企业解决他们在工资管理方面的问题。通过在本单位经过一周的调研，并参考其他同行设计工资管理软件，我基本上搞清楚了像我们单位这样的小型企业对系统的需求，如果能够设计一套针对类似本单位的小型国有企业的工资管理系统特别有意义，并且是现行的财务管理软件代替不了的。在和指导老师多次交流后，确定实现方案的要点和工作计划。本系统的实现的主要功能有：员工信息管理、工资结构设置、工资汇总打印等等功能。ABSTRACTWith the aid of modern information technology and management theory, the establishment of enterprise management information system is an important trend in todays society.The party and the government according to the characteristics of the knowledge economy era, the national economic construction put forward the guiding ideology of to drive industrialization with informationization.For enterprises, comprehensive development and application of computer management information system is the recent problems that cant avoid.In the enterprise management, human resource is the most precious resources of enterprise, also is the lifeline of the enterprise, therefore the personnel management is the enterprise computer management information system is an important part.The salary management is the key of the human resource management.Electronic wages management, can let human resource managers from the heavy trivial desk work, to do more important work.Pay the implementation of management information system can reduce more cumbersome manual salary management.Now used in large and medium-sized enterprises of the management information system, including almost all the salary management module.In some environment is composed as a module in the ERP software introduced, some of them are as part of the financial system of the enterprise.These according to the specification of western management system design of salary management software, in many cases cant completely solve the problem of Chinese characteristics of small and medium-sized enterprises, this paper describes the research work of graduation design is for those with Chinese characteristics of small and medium-sized enterprises to solve them in the salary management issues.Through after a week of research in this unit, and refer to other peer design salary management software, I basically understand the small business like our unit on the demand of the system, if you can design a small state-owned enterprises for similar to this unit particularly meaningful wage management system, and is the current financial management software cant instead of.After repeated communication and guidance teacher, determine the main points of the implementation scheme and work plan.The main function of the implementation of this system are: employee information management, salary structure setting, salary summary printing and so on. 二、系统分析1) 需求分析 通过对工资发放管理过程的研究和分析，要求本系统应该具有以下功能。a) 工资规则制定b) 级别工资配置c) 职位津贴配置d) 部门信息e) 工资发放f) 统计查询2) 系统功能描述1、员工基本信息模块员工基本信息模块具有员工信息输入、员工增删和员工信息查询三个功能。员工基本信息包括员工号、员工姓名、员工性别、所在部门、所在岗位、工龄和工资等级等信息。员工增删实现了对数据库中员工信息的增加和删除。员工信息查询可以通过员工号或员工姓名对员工信息进行查询。2、工资结构设置模块根据该公司的工资管理实际情况，本系统将工资结构分为基础工资、岗位工资和工龄工资三部分。该模块可以对这三个工资类型设置工资等级，并对每个等级设置工资标准。3、工资汇总模块用户在员工信息管理模块对该员工的工资等级进行输入以后，在工资汇总模块会自动对员工工资进行汇总。用户可以打印出工资汇总表，打印之前可以通过打印预览功能进行打印预览。 三、系统设计1) 系统目标目标系统应该达到以下要求： 1、时间经济性。优化逻辑设计与物理设计，使系统运行效率高，反映速度快。2、可靠性。能连续准确的处理业务，有较强的容错能力。3、可理解性。用户容易理解和使用该系统。4、可维护性和适应性。系统应易于修改、易于扩充、易于维护，能够适应业务不断发展变化的需要。5、可用性。目标系统功能齐全，能够完全满足业务需求。6、安全保密性。保证系统的物理安全、数据存储和存取的安全与保密、数据传输的安全与保密，做好使用人员的授权管理。2) 系统功能结构 工资发放管理系统的功能结构如图所示： 3) 业务流图工资发放管理系统业务流程图如图： 四、登陆界面设计背景图片代码：Private Sub Form_Load()Me.Picture = LoadPicture(F:qq下载VB+ACCESS8091326_184910431000_2.jpg)End Sub 五、工资规则制定设计编辑按钮代码:Private Sub Command1_Click()Text1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseCommand1.Enabled = FalseCommand2.Enabled = TrueLabel5.Caption = 编辑状态End SubPrivate Sub Command2_Click()Adodc1.Recordset.UpdateText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueCommand1.Enabled = TrueCommand2.Enabled = FalseLabel5.Caption = 当前工资计算规则End SubPrivate Sub Form_Load()Text1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueLabel5.Caption = 当前工资计算规则Command2.Enabled = FalseEnd Sub 六、级别工资配置设计编辑按钮代码：Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)DataID = Adodc1.Recordset.AbsolutePositionAdodc1.Caption = & Str(DataID) & / & Str(Adodc1.Recordset.RecordCount)End SubPrivate Sub Command1_Click()If Command1.Caption = 编辑本条记录 ThenText3.Locked = FalseCommand1.Caption = 确定更改ElseText3.Locked = TrueAdodc1.Recordset.UpdateCommand1.Caption = 编辑本条记录End IfEnd SubPrivate Sub Form_Load()Adodc1.RefreshText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueCommand1.Caption = 编辑本条记录End Sub 七、职位津贴配置设计编辑按钮代码：Private Sub Command1_Click()If Command1.Caption = 编辑本条记录 ThenText3.Locked = FalseCommand1.Caption = 确定更改ElseText3.Locked = TrueAdodc1.Recordset.UpdateCommand1.Caption = 编辑本条记录End IfEnd SubPrivate Sub Form_Load()Adodc1.RefreshText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueCommand1.Caption = 编辑本条记录End Sub 八、部门信息设计新增按钮代码：Private Sub Command2_Click()On Error GoTo ErrMsgIf Command2.Caption = 新增 ThenAdodc1.Recordset.MoveLastAdodc1.Recordset.AddNew部门信息.Label6.Caption = 请填写Command2.Caption = 确定增加Text1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseText1.SetFocusExit SubElseanswer = MsgBox(真的要增加这条记录吗？, vbOKCancel, 增加提示)If answer = vbOK ThenAdodc1.Recordset.UpdateAdodc1.Recordset.MoveLastMsgBox (增加成功！)Command2.Caption = 新增部门信息.Label6.Caption = Text1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText1.SetFocusExit SubElseAdodc1.Recordset.CancelUpdateCommand2.Caption = 新增部门信息.Label6.Caption = Text1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText1.SetFocusExit SubEnd If 九、工资发放设计发放按钮代码：Private Sub Command1_Click() Dim parameter_overtime As Integer Dim parameter_onsite As Integer Dim parameter_deduct As Integer Dim parameter_absent As Integer Dim basic_level As Integer Dim position_level As Integer Dim sectionID As Integer Dim basic_rate As Integer Dim position_rate As Integer Dim late_times As Integer Dim early_times As Integer Dim onsite_days As Integer Dim absent_days As Integer Dim overtime_hours As Integer Dim TotalMonth As Integer Dim sql As String If IsNull(员工ID) = True Then MsgBox 请选择员工ID DoCmd.GoToControl 员工ID ElseIf IsNull(月份) = True Then MsgBox 请选择员工ID DoCmd.GoToControl 员工ID Else 查询计算规则 sql = select * from 企业工资计算规则 工资规则制定.Adodc1.RecordSource = sql 工资规则制定.Adodc1.Refresh If Not (工资规则制定.Adodc1.Recordset.EOF) Then parameter_overtime = 工资规则制定.Adodc1.Recordset.Fields(加班补贴) parameter_onsite = 工资规则制定.Adodc1.Recordset.Fields(出差补贴) parameter_deduct = 工资规则制定.Adodc1.Recordset.Fields(迟到早退) parameter_absent = 工资规则制定.Adodc1.Recordset.Fields(缺勤) Else MsgBox 没有制定工资计算规则 Unload Me Exit Sub End If 工资规则制定.Adodc1.Recordset.Close 查询级别、岗位和其他配置 Adodc1.Refresh Adodc1.Recordset.Find 员工ID = & Text2.Text & If Not (Me.Adodc1.Recordset.EOF) Then basic_level = Adodc1.Recordset.Fields(基本工资级别ID) position_level = Adodc1.Recordset.Fields(岗位津贴级别ID) sectionID = Adodc1.Recordset.Fields(部门ID) Else MsgBox 没有该员工的级别信息 Unload Me Exit Sub End If Adodc1.Recordset.Close 查询个人该月考勤情况 Adodc2.Refresh Adodc2.Recordset.Find 员工ID = & Text2.Text & If Not (Adodc2.Recordset.EOF) Then late_times = Adodc2.Recordset.Fields(迟到次数) early_times = Adodc2.Recordset.Fields(早退次数) absent_days = Adodc2.Recordset.Fields(请假天数) onsite_days = Adodc2.Recordset.Fields(出差天数) overtime_hours = Adodc2.Recordset.Fields(加班时间汇总) Else MsgBox 没有该员工的考勤信息 Unload Me Exit Sub End If Adodc2.Recordset.Close 查询级别配置 级别工资配置.Adodc1.Refresh 级别工资配置.Adodc1.Recordset.Find 级别ID = & basic_level & If Not (级别工资配置.Adodc1.Recordset.EOF) Then basic_rate = 级别工资配置.Adodc1.Recordset.Fields(级别对应数额) Else MsgBox 没有该级别的工资信息 Unload Me Exit Sub End If 级别工资配置.Adodc1.Recordset.Close 查询岗位配置 职位津贴配置.Adodc1.Recordset.Find 职位ID = & position_level & If Not (职位津贴配置.Adodc1.Recordset.EOF) Then position_rate = 职位津贴配置.Adodc1.Recordset.Fields(职位对应数额) Else MsgBox 没有该职位的工资信息 Unload Me Exit Sub End If 职位津贴配置.Adodc1.Recordset.Close 计算该月应得工资额 TotalMonth = basic_rate _ + position_rate _ - (late_times + early_times) * parameter_deduct _ - (absent_days * parameter_absent) _ + (onsite_days * parameter_onsite) _ + (overtime_hours * parameter_overtime) 在工资发放表中添加一个记录 Adodc3.Refresh Adodc3.Recordset.AddNew Adodc3.Recordset.Fields(年份) = Text1.Text Adodc3.Recordset.Fields(月份) = Combo2.Text Adodc3.Recordset.Fields(日期) = Date Adodc3.Recordset.Fields(员工ID) = Text2.Text Adodc3.Recordset.Fields(基本工资数额) = basic_rate Adodc3.Recordset.Fields(职位津贴数额) = position_rate Adodc3.Recordset.Fields(加班补贴数额) = overtime_hours * parameter_overtime Adodc3.Recordset.Fields(出差补贴数额) = onsite_days * parameter_onsite Adodc3.Recordset.Fields(违纪扣除数额) = (late_times + early_times) * parameter_ded