1、1课程设计 工资发放管理系统 目 录第一部分：开发背景.2第二部分：系统分析3第三部分：系统设计.4第四部分：登陆界面设计.5第五部分：工资规则制定设计.6第六部分：级别工资配置设计.7第七部分：职位津贴配置设计.8第八部分：部门信息设计.9第九部分：工资发放设计.11第十部分：统计查询设计.15第十一部分：后续补充部分.16第十二部分：参考文献.16第十三部分：心得.172工资发放管理系统 开发背景借助现代信息技术和管理理论，建立企业管理信息系统是当今社会的重要趋势。党和政府根据知识经济时代的特点，对国民经济建设提出了“用信息化带动工业化”的指导思想。对企业而言，全面开发和应用计算机管理信息
2、系统就是近期不能回避的问题。在企业管理中，人力资源是企业最宝贵的资源，也是企业的“生命线” ，因此人事管理是企业的计算机管理信息系统重要组成部分。而工资管理又是人力资源管理的重中之重。实行电子化的工资管理，可以让人力资源管理人员从繁重琐碎的案头工作解脱出来，去完成更重要的工作。工资管理信息系统的实现可以减轻比较繁琐的手工工资管理。现在应用在大中型企业的管理信息系统中，几乎都包括了工资管理模块。有些环境中是由作为大型 ERP 软件中的一个模块引进的，有些是作为企业的财务系统的一部分。这些根据规范的西方的管理制度设计的工资管理软件，在很多时候还不能完全解决中国特色的中小企业的问题，本文介绍的毕业设
3、计的研究工作就是要为这些具有中国特色的中小企业解决他们在工资管理方面的问题。通过在本单位经过一周的调研，并参考其他同行设计工资管理软件，我基本上搞清楚了像我们单位这样的小型企业对系统的需求，如果能够设计一套针对类似本单位的小型国有企业的工资管理系统特别有意义，并且是现行的财务管理软件代替不了的。在和指导老师多次交流后，确定实现方案的要点和工作计划。本系统的实现的主要功能有：员工信息管理、工资结构设置、工资汇总打印等等功能。ABSTRACTWith the aid of modern information technology and management theory, the establ
4、ishment 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 informationi
5、zation“.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 perso
6、nnel 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 implementat
7、ion of management information 3system 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,
8、 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 des
9、cribes 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
10、 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
11、, 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)
12、部门信息e) 工资发放f) 统计查询2) 系统功能描述1、员工基本信息模块员工基本信息模块具有员工信息输入、员工增删和员工信息查询三个功能。员工基本信息包括员工号、员工姓名、员工性别、所在部门、所在岗位、工龄和工资等级等信息。员工增删实现了对数据库中员工信息的增加和删除。员工信息查询可以通过员工号或员工姓名对员工信息进行查询。2、工资结构设置模块4根据该公司的工资管理实际情况，本系统将工资结构分为基础工资、岗位工资和工龄工资三部分。该模块可以对这三个工资类型设置工资等级，并对每个等级设置工资标准。3、工资汇总模块用户在员工信息管理模块对该员工的工资等级进行输入以后，在工资汇总模块会自动对员工工
13、资进行汇总。用户可以打印出工资汇总表，打印之前可以通过打印预览功能进行打印预览。 三、系统设计1) 系统目标目标系统应该达到以下要求： 1、时间经济性。优化逻辑设计与物理设计，使系统运行效率高，反映速度快。2、可靠性。能连续准确的处理业务，有较强的容错能力。3、可理解性。用户容易理解和使用该系统。4、可维护性和适应性。系统应易于修改、易于扩充、易于维护，能够适应业务不断发展变化的需要。5、可用性。目标系统功能齐全，能够完全满足业务需求。6、安全保密性。保证系统的物理安全、数据存储和存取的安全与保密、数据传输的安全与保密，做好使用人员的授权管理。2) 系统功能结构工资发放管理系统的功能结构如图所
14、示：53) 业务流图工资发放管理系统业务流程图如图： 四、登陆界面设计6背景图片代码：Private Sub Form_Load()Me.Picture = LoadPicture(“F:qq 下载VB+ACCESS8091326_184910431000_2.jpg“)End Sub 五、工资规则制定设计7编辑按钮代码:Private Sub Command1_Click()Text1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseCommand1.Enabled = FalseComman
15、d2.Enabled = TrueLabel5.Caption = “编辑状态“End SubPrivate Sub Command2_Click()Adodc1.Recordset.UpdateText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueCommand1.Enabled = TrueCommand2.Enabled = FalseLabel5.Caption = “当前工资计算规则 “8End SubPrivate Sub Form_Load()Text1.Locked = TrueT
16、ext2.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.Reco
17、rdset)DataID = Adodc1.Recordset.AbsolutePositionAdodc1.Caption = “ “ & Str(DataID) & “/“ & Str(Adodc1.Recordset.RecordCount)End Sub9Private Sub Command1_Click()If Command1.Caption = “编辑本条记录“ ThenText3.Locked = FalseCommand1.Caption = “确定更改“ElseText3.Locked = TrueAdodc1.Recordset.UpdateCommand1.Capti
18、on = “编辑本条记录“End IfEnd SubPrivate Sub Form_Load()Adodc1.RefreshText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueCommand1.Caption = “编辑本条记录“End Sub 七、职位津贴配置设计编辑按钮代码：Private Sub Command1_Click()10If Command1.Caption = “编辑本条记录“ ThenText3.Locked = FalseCommand1.Caption = “确定更改“ElseText3.Locked =
19、 TrueAdodc1.Recordset.UpdateCommand1.Caption = “编辑本条记录“End IfEnd SubPrivate Sub Form_Load()Adodc1.RefreshText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueCommand1.Caption = “编辑本条记录“End Sub 八、部门信息设计11新增按钮代码：Private Sub Command2_Click()On Error GoTo ErrMsgIf Command2.Caption = “新增“ ThenAdodc1.
20、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
21、.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 = TrueText
22、3.Locked = TrueText4.Locked = TrueText1.SetFocus12Exit SubEnd If 九、工资发放设计发放按钮代码：Private Sub Command1_Click()Dim parameter_overtime As IntegerDim parameter_onsite As IntegerDim parameter_deduct As IntegerDim parameter_absent As IntegerDim basic_level As IntegerDim position_level As IntegerDim section
23、ID As IntegerDim basic_rate As IntegerDim position_rate As IntegerDim late_times As IntegerDim early_times As IntegerDim onsite_days As Integer13Dim absent_days As IntegerDim overtime_hours As IntegerDim TotalMonth As IntegerDim sql As StringIf IsNull(员工 ID) = True ThenMsgBox “请选择员工 ID“DoCmd.GoToCon
24、trol 员工 IDElseIf IsNull(月份) = True ThenMsgBox “请选择员工 ID“ DoCmd.GoToControl 员工 IDElse查询计算规则sql = “ select * from 企业工资计算规则“工资规则制定.Adodc1.RecordSource = sql工资规则制定.Adodc1.RefreshIf Not (工资规则制定.Adodc1.Recordset.EOF) Thenparameter_overtime = 工资规则制定.Adodc1.Recordset.Fields(“加班补贴“)parameter_onsite = 工资规则制定.
25、Adodc1.Recordset.Fields(“ 出差补贴“)parameter_deduct = 工资规则制定.Adodc1.Recordset.Fields(“迟到早退“)parameter_absent = 工资规则制定.Adodc1.Recordset.Fields(“ 缺勤“)ElseMsgBox “没有制定工资计算规则“Unload MeExit SubEnd If 工资规则制定.Adodc1.Recordset.Close查询级别、岗位和其他配置Adodc1.RefreshAdodc1.Recordset.Find “ 员工 ID = “ & Text2.Text & “ “I
26、f Not (Me.Adodc1.Recordset.EOF) Thenbasic_level = Adodc1.Recordset.Fields(“基本工资级别 ID“)position_level = Adodc1.Recordset.Fields(“岗位津贴级别 ID“)sectionID = Adodc1.Recordset.Fields(“部门 ID“)ElseMsgBox “没有该员工的级别信息“14Unload MeExit SubEnd IfAdodc1.Recordset.Close查询个人该月考勤情况Adodc2.RefreshAdodc2.Recordset.Find “
27、 员工 ID = “ & Text2.Text & “ “If Not (Adodc2.Recordset.EOF) Thenlate_times = Adodc2.Recordset.Fields(“迟到次数“)early_times = Adodc2.Recordset.Fields(“早退次数“)absent_days = Adodc2.Recordset.Fields(“请假天数“)onsite_days = Adodc2.Recordset.Fields(“出差天数“)overtime_hours = Adodc2.Recordset.Fields(“加班时间汇总 “)ElseMsg
28、Box “没有该员工的考勤信息“Unload MeExit SubEnd IfAdodc2.Recordset.Close查询级别配置级别工资配置.Adodc1.Refresh级别工资配置.Adodc1.Recordset.Find “ 级别 ID = “ & basic_level & “ “If Not (级别工资配置.Adodc1.Recordset.EOF) Thenbasic_rate = 级别工资配置.Adodc1.Recordset.Fields(“级别对应数额“)ElseMsgBox “没有该级别的工资信息“Unload MeExit SubEnd If级别工资配置.Adodc
29、1.Recordset.Close查询岗位配置职位津贴配置.Adodc1.Recordset.Find “ 职位 ID = “ & position_level & “ “If Not (职位津贴配置.Adodc1.Recordset.EOF) Thenposition_rate = 职位津贴配置.Adodc1.Recordset.Fields(“职位对应数额“)ElseMsgBox “没有该职位的工资信息“Unload Me15Exit SubEnd If 职位津贴配置.Adodc1.Recordset.Close计算该月应得工资额TotalMonth = basic_rate _+ pos
30、ition_rate _- (late_times + early_times) * parameter_deduct _- (absent_days * parameter_absent) _+ (onsite_days * parameter_onsite) _+ (overtime_hours * parameter_overtime)在工资发放表中添加一个记录Adodc3.RefreshAdodc3.Recordset.AddNewAdodc3.Recordset.Fields(“年份“) = Text1.TextAdodc3.Recordset.Fields(“月份“) = Comb
31、o2.TextAdodc3.Recordset.Fields(“日期“) = DateAdodc3.Recordset.Fields(“员工 ID“) = Text2.TextAdodc3.Recordset.Fields(“基本工资数额“) = basic_rateAdodc3.Recordset.Fields(“职位津贴数额“) = position_rateAdodc3.Recordset.Fields(“加班补贴数额“) = overtime_hours * parameter_overtimeAdodc3.Recordset.Fields(“出差补贴数额“) = onsite_day
32、s * parameter_onsiteAdodc3.Recordset.Fields(“违纪扣除数额“) = (late_times + early_times) * parameter_deductAdodc3.Recordset.Fields(“实际应发数额“) = TotalMonthAdodc3.Recordset.Update Adodc3.Recordset.CloseEnd Ifsql = “实际发放工资额是：“ & TotalMonthMsgBox sqlUnload MeExit Sub 十、统计查询设计16 十一、后续补充部分工程引用截图：17 十二、参考文献1孙春来 韩
33、正清等 Visual FoxPro 6.0 中文版编程基础与范例 电子工业出版社 出版日期:2001-1-12知寒工作室 中文 Visual FoxPro 6 简明案例教程 机械工业出版社 出版日期:1999-4-13徐建平 赵永 Visual FoxPro 6 基础教程 机械工业出版社出版日期:2000-5-14张鲁 Visual FoxPro 6.0 编程技巧与实例分析 水利水电出版社 出版日期:1999-10-15张磊等 Visual FoxPro 6 使用详解 机械工业出版社 出版日期:1999-7-1 6康耀红 黄健青等 Visual FoxPro 6.0 数据库设计北京大学出版社
34、出版日期:2002-2-1 十三、心得在本项目的软件开发的过程中，我全面实践一个面向数据库的应用系统的开发过程，学习了很多有关的知识。这样的项目对我学过的数据结构，程序设计，数据库，软件工程等课程是一个综合性很高的实践。一些以前没有学得很杂实的课程的内容，由于需要在实践中运用，刚开始我也感到很头痛。但回过头再去看有关的教科书，经过一段时间的钻研，对与这些知识点的相关的18背景，概念和解决方案理解得更透彻了，学习起来也越来越有兴趣，越来越轻松。另外我还充分体会了从事软件开发工作需要特别严谨认真的态度和作风，一点都马虎不得。每一个细微的细节都必须十分的注意，如果不认真思考决策，就会出现或大或小的错误，如果早期的错误隐藏下来，对后面的工作影响就会很大，甚至有时要推倒很多前面做的工作重来。有时候，我自己觉得我写的程序非常的正确，但是就是编译通不过，在查找错误的过程中，面临着否认自己的过程，非常的痛苦，而且由于自己的经验及各方面的能力的不足，所以进展的速度非常的缓慢，往往几天的时间还没有一点进展。这时候，我一般是先自己通过书本，手册和资料找解决办法，实在没辙了才向专家请教。尽管向专家请教解决问题比较快，自己钻研花的时间较多，但我强迫自己独立的思考对我的学习提高帮助非常大。
