一个小公司的工资管理系统

第一篇：一个小公司的工资管理系统

问题的提出：编写一个小公司的工资管理系统。该公司主要有4类人员：经理、兼职技术人员、销售员和销售经理。要求存储并显示每类人员的编号（从100起编号）、姓名和月薪，月薪计算方法为：经理固定月薪8000元，同时根据项目的情况发放项目奖金（项目总价的3%），兼职技术人员100元/小时，销售员为完成当月销售额的4％为基础，如果完成则发放底薪3000元，同时把完成部分的60%作为奖励（例如完成了月销售额的8%，则把月销售额8%其中的60%作为奖金），如果没有完成，则只发放底薪2800，销售经理保底工资5000元另加其所管部门销售额的5％作为奖金，如果当月其部门没有完成月销售目标，则扣发奖金。要求用类和对象实现。

第二篇：工资管理系统实验报告

信 息 系 统 设 计 与 开 发

系统名称：工资管理系统

开发人员：薛靖峰

学号：1009034122

专业：信息管理与信息系统

（1）编写目的随着社会的发展，中国的中小型企业越来越多，而对企业而言，人力资源是企业最宝贵的资源,也是企业的“生命线”。工资管理又是人力资源管理的重中之重。实行电子化智能化的工资管理，可以让人力资源管理人员从繁重琐碎的案头工作解脱出来,去完成更重要的工作。实现企业更大的工作效益和利润。提高工作效率，减少人力；节省开支；先前人工劳动的自动化；针对使用企业与人群为中小型的管理者。

（2）背景

借助现代信息技术和管理理论,建立企业管理信息系统是当今社会的重要趋势，企业要在当今激烈的社会竞争中生存并发展，单靠人工或九十年代的手动，机械化操作是不够的，社会的发展，要求企业要跟上时代的步伐，抓住新时代的新科技的机遇，运用自动化，智能化的电脑管理，实现企业的高效益发展，这其中，企业员工的工资管理，对一个企业起着很关键的作用。因此开发一个能自动化的管理企业员工工资的发放，员工内部信息的管理，企业招聘的管理等功能的系统，对一个企业的发展铺上了一条奔向高速发展的道路。在一个企业中，工资管理是一项琐碎、复杂而又十分细致的工作，工资计算、发放、核算的工作量很大，一般不允许出错，如果实行手工操作，每月发放工资须手工填制大量的表格，这就会耗费工作人员大量的时间和精力，计算机进行工资发放工作，不仅能够保证工资核算准确无误、快速输出，而且还可以利用计算机对有关工资的各种信息进行统计，服务于财务部门其他方面的核算和财务处理，同时计算机具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事工资资管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。

2、可行性研究的前提

（1）要求

①主要功能：为企业提供工资管理的软件，方便公司进行准确的工资管理。

②性能要求：可以准确登记出勤率以及一些特殊的影响工资的因素，工资的计算及发放等，可以以不同的方式查询工资情况。最重要的是准确。

③输入要求：数据完整、准确，真实。

④输出要求：简洁、快速、实时、可以打印相关的报表，提供一定的视图。

⑤安全与保密要求：本系统的管理员要对该管理系统的安全负责，系统由特定人员修改及进行更新，计算等功能实现。职工只有查询的权利，不能对其中的数据进行修改。上级管理者可以利用视图进行查看，或是打印报表。（2）目标

系统实现后，大大地提高职工工资 管理系统的运行效率，可以减少由人为而导致的纪录及运算错误。可以对某些特殊工资的界定条件进行设定保护，使公司更好的运行。（3）评价尺度：

成本效益分析结果，效益大于成本，技术可行，效益小于成本，技术不可行，现有技术可完全承担开发任务，操作可行，软件可被原工作人员快速接受。(4)

1、管理上的可行性分析 随着市场近几年的发展，公司规模的不断扩大，业务的扩张，为了提高企业的业务水平，为企业简化人事管理，提高商品库存效率，增加公司的业绩。在管理方面已经积累了丰富的管理经验与方法，并建立的成熟的管理制度、齐全的规章制度汇集了正确的原始数据，使管理工作有了制度支持与信息支持。特别是，能够改进企业管理机制，改善决策方式，减少管理成本，提高工作效率。领导的支持对于信息系统的开发和实施有很大作用，也能保证系统在开发过程中妥善解决矛盾，在企业上下顺利实施信息系统，实现信息系统最初的目标。

2、技术上的可行性

随着IT技术的发展，特别是网络技术和数据库技术的发展，在软件开发方面，可以采用现行主流的开发技术；硬件技术方面则可以充分利用日益增强的存储能力、通讯能力和处理速度来保证系统开发技术的准备。由此可见，该系统在技术上具有可行性。

3、经济上的可行性

对于信息系统的初期投资，都是为了以后获得更大的经济效益。通过一定的成本、效益分析，我认为开发这个系统在经济上是可行的。因为虽然系统开发需要初始成本和日后的维护费用，但是，信息系统可以提供比以前更加准确和及时的信息，可以改善领导层的决策方式，促进故那里体制改革和提高工作效率，减少人员费用，这些都是可以在以后的管理过程中体现出来的，并且可以令公司比其他竞争对手更加具有竞争优势，对企业长远的发展有不可忽视的作用。所以，经济上的可行性是肯定的。

4、可行性分析结论

在对系统目标和环境进行分析的基础上，更进一步对系统的技术可行性、经济可行性、营运可行性等方面进行系统的可行性分析研究：

二、组织机构图

三、业务流程图

四、功能结构图

五、数据流程图

1.第一层数据流程图

2.第二层数据流程图

六、数据字典

（1）数据流 数据流编号：D01-03 数据流名：出勤情况

简要说明：每月员工出勤统计情况 数据流来源：人事部

数据流去向：工资信息设置处理

数据流组成：考勤统计时间+出勤天数+迟到早退次数+旷工次数+正常加班次数+特殊加班次数+出差次数（2）数据存储 数据存储编号：F1 数据存储名称：月工资表 简要说明：每月按部门的工资表 数据存储来源：工资核算处理 数据存储去向：工资查询处理 数据存储组成：工资统计时间+基本工资+职务津贴+奖金+福利+加班费+出差费+迟到早退扣发+旷工扣发+其他（3）处理逻辑 编号：P 01-1.2 处理逻辑的名称：工资计算 简述：计算本月所有部门员工工资

输入数据流：基本工资，来自“工资信息设置”处理逻辑 其他项目，来自“工资信息设置”处理逻辑 效益工资，来自“工资信息设置”处理逻辑 出勤情况，来自“工资信息设置”处理逻辑

数据存储组成：工资统计时间+基本工资+职务津贴+奖金+福利+加班费+出差费+迟到早退扣发+旷工扣发+其他

输出的数据流：部门工资，去“月工资表”数据存储 员工个人工资，去“工资单”数据存储（4）外部实体 编号：S04 名称：员工 简述：本单位的员工 输入的数据流：工资单 输出的数据流：确认

七、E-R图

八、对象关系图

九、数据表详情

1、工资表

2、职工表

3、财务表

十、系统截图

系统分析报告

借助现代信息技术和管理理论,建立企业管理信息系统是当今社会的重要趋势，企业要在当今激烈的社会竞争中生存并发展，单靠人工或九十年代的手动，机械化操作是不够的，社会的发展，要求企业要跟上时代的步伐，抓住新时代的新科技的机遇，运用自动化，智能化的电脑管理，实现企业的高效益发展，这其中，企业员工的工资管理，对一个企业起着很关键的作用。因此开发一个能自动化的管理企业员工工资的发放，员工内部信息的管理，企业招聘的管理等功能的系统，对一个企业的发展铺上了一条奔向高速发展的道路。在一个企业中，工资管理是一项琐碎、复杂而又十分细致的工作，工资计算、发放、核算的工作量很大，一般不允许出错，如果实行手工操作，每月发放工资须手工填制大量的表格，这就会耗费工作人员大量的时间和精力，计算机进行工资发放工作，不仅能够保证工资核算准确无误、快速输出，而且还可以利用计算机对有关工资的各种信息进行统计，服务于财务部门其他方面的核算和财务处理，同时计算机具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事工资资管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。

1、系统的易用性和易维护性

工资信息管理系统是直接面对使用人员的，而使用人员往往对计算机并不时非常熟悉。这就要求系统能够提供良好的用户接口，易用的人机交互界面。要实现这一点，就要求系统应该尽量使用用户熟悉的术语和中文信息的界面；针对用户可能出现的使用问题，要提供足够的在线帮助，缩短用户对系统熟悉的过程。工资信息管理系统中涉及到的数据是企业的相当重要的信息，系统要提供方便的手段供系统维护人员进行数据的备份，日常的安全管理，系统意外崩溃时数据的恢复等工作。系统的标准性

系统在设计开发使用过程中都要涉及到很多计算机硬件、软件。所有这些都要符合主流国际、国家和行业标准。例如在开发中使用的操作系统、网络系统、开发工具都必须符合通用标准。如规范的数据库操纵界面、作为业界标准的TCP/IP网络协议及ISO9002标准所要求的质量规范等；同时，在自主开发本系统时，要进行良好的设计工作，制订行之有效的软件工程规范，保证代码的易读性、可操作性和可移植性。

3、系统的先进性

目前计算系统的技术发展相当快，做为员工信息管理系统工程，应该保证系统在下个世纪仍旧是先进的，在系统的生命周期尽量做到系统的先进，充分完成企业信息处理的要求而不至于落后。这一方面通过系统的开放性和可扩充性，不断改善系统的功能完成。另一方面，在系统设计和开发的过程中，应在考虑成本的基础上尽量采用当前主流并先进且有良好发展前途的产品。代码设计：

添加用户：

Private Sub cmdcancel_Click()

Unload Me

Exit Sub End Sub Private Sub cmdok_Click()

Dim sql As String

Dim rs As ADODB.Recordset

If Trim(username.Text)= “" Then

MsgBox ”请输入用户名称“, vbOKOnly + vbExclamation, ”提示“

Exit Sub

username.SetFocus

Else

sql = ”select * from userinfo where userid='“ & username & ”'“

Set re = getrs(sql, ”salary“)

If re.EOF = False Then

MsgBox ”这个用户已经存在，请重新输入用户名“, vbOKOnly + vbExclamation, ”提示“

username.SetFocus

username.Text = ”“

password.Text = ”“

confirmpwd.Text = ”“

Exit Sub

Else

If Trim(password.Text)<> Trim(confirmpwd.Text)Then

MsgBox ”两次输入密码不一致，请重新输入密码“, vbOKOnly + vbExclamation, ”提示“

password.Text = ”“

confirmpwd.Text = ”“

password.SetFocus

Exit Sub

ElseIf Trim(password.Text)= ”“ Then

MsgBox ”密码不能为空“, vbOKOnly + vbExclamation, ”提示“

password.Text = ”“

confirmpwd = ”“

password.SetFocus

Else

sql = ”insert into userinfo(userid,userpwd)values('“ & username

sql = sql & ”','“ & password & ”')“

Call transactsql(sql, ”salary“)

MsgBox ”添加成功“, vbOKOnly + vbExclamation, ”添加结果“

username.Text = ”“

password.Text = ”“

confirmpwd.Text = ”“

username.SetFocus

End If

End If

End If End Sub

Private Sub Form_Load()End Sub

出勤结果：

Option Explicit

Private Sub DataGrid1_Click()End Sub

Private Sub Form_Load()

Dim sql As String

Dim rs As New ADODB.Recordset

Dim sd As String

If strusername <> ”admin“ Then

sql = ”select sid from stuffinfo where sname='“ & strusername & ”'“

Set rs = getrs(sql, ”salary“)' sd = rs(0)

sql = ”select * from attendancestatistics where stuffid='“ & sd & ”'“

Me.Adodc1.ConnectionString =

”Provider=SQLOLEDB.1;Integrated Info=False;Initial Catalog=工资管理;Data Source=(local)“

Me.Adodc1.RecordSource = sql

Me.Adodc1.Refresh

Set Me.DataGrid1.DataSource = Me.Adodc1.Recordset

Me.DataGrid1.Refresh

Else

sql = ”select * from attendancestatistics“

Me.Adodc1.ConnectionString =

”Provider=SQLOLEDB.1;Integrated Info=False;Initial Catalog=工资管理;Data Source=(local)“

Me.Adodc1.RecordSource = sql

Me.Adodc1.Refresh

Set Me.DataGrid1.DataSource = Me.Adodc1.Recordset

Me.DataGrid1.Refresh

End If End Sub

Security=SSPI;Persist

Security=SSPI;Persist

Security

Security 基本工资设置 Option Explicit Private id As String Private Sub cmdcancel_Click()

Unload Me

Exit Sub End Sub Private Sub init()'

Me.composition.ListIndex = 0

Me.comstuffid.ListIndex = 0

Me.textmoney = ”“

Me.optionid.Value = True End Sub Private Sub addrecord()

'添加记录

Dim sql As String

Dim rs As New ADODB.Recordset

sql = ”select * from salarysetting“

Set rs = getrs(sql, ”salary“)

rs.AddNew

rs.Fields(1)= Trim(id)

rs.Fields(2)= Trim(Me.composition.Text)

rs.Fields(3)= Trim(Me.textmoney)

rs.Update

rs.Close End Sub Private Sub cmdok_Click()

Dim sql As String

Dim rs As New ADODB.Recordset

If ichangeflag = 1 Then

If Me.optionid.Value = True Then

If Me.comstuffid.Text = ”“ Then

MsgBox ”请选择员工编号“, vbOKOnly + vbExclamation, ”提示“

ElseIf IsEmpty(Me.textmoney)= True Then

MsgBox ”请输入基本工资“, vbOKOnly + vbExclamation, ”提示“

Me.textmoney.SetFocus

ElseIf IsNumeric(Me.textmoney)= False Then

MsgBox ”请输入数字“, vbOKOnly + vbExclamation, ”提示“

Me.textmoney = ”“

Me.textmoney.SetFocus

Else

sql = ”select * from salarysetting where stuffid='“ & Me.comstuffid.Text & ”'“

Set rs = getrs(sql, ”salary“)

If rs.EOF = False Then

sql = ”delete from salarysetting where stuffid='“ & Me.comstuffid.Text & ”'“

Call transactsql(sql, ”salary“)

End If

rs.Close

id = Me.comstuffid.Text

Call addrecord

MsgBox ”已经设置基本工资“, vbOKOnly + vbExclamation, ”添加结果“

Call init

sql = ”select * from salarysetting“

Call frmresult.basictopic

Call frmresult.showbasic(sql)

frmresult.Show

frmresult.ZOrder 0

Me.ZOrder 0

End If

End If

If Me.optionposition.Value = True Then

If Me.composition.Text = ”“ Then

MsgBox ”请输入职务“, vbOKOnly + vbExclamation, ”提示“

ElseIf IsEmpty(Me.textmoney)= True Then

MsgBox ”请输入基本工资“, vbOKOnly + vbExclamation, ”提示“

Me.textmoney.SetFocus

ElseIf IsNumeric(Me.textmoney)= False Then

MsgBox ”请输入数字“, vbOKOnly + vbExclamation, ”提示“

Me.textmoney = ”“

Me.textmoney.SetFocus

Else

sql = ”select * from salarysetting where sposition ='“ & Me.composition.Text & ”'“

Set rs = getrs(sql, ”salary“)

If rs.EOF = False Then

sql = ”delete from salarysetting where sposition ='“ & Me.composition.Text & ”'“

Call transactsql(sql, ”salary“)

End If

rs.Close

sql = ”select * from salarysetting where sposition ='“ & Me.composition.Text & ”'“

Set rs = getrs(sql, ”salary“)

While Not rs.EOF

id = rs(0)

Call addrecord

rs.MoveNext

Wend

rs.Close

MsgBox ”已经设置基本工资“, vbOKOnly + vbExclamation, ”添加结果“

Call init

sql = ”select * from salarysetting“

Call frmresult.basictopic

Call frmresult.showbasic(sql)

frmresult.Show

frmresult.ZOrder 0

Me.ZOrder 0

End If

End If

Else

sql = ”update salarysetting set salary=“ & Me.textmoney & ” where stuffid='“

sql = sql & Me.comstuffid & ”'“

Call transactsql(sql, ”salary“)

MsgBox ”已经修改基本工资设置“, vbOKOnly + vbExclamation, ”提示“

Unload Me

sql = ”select * from salarysetting“

Call frmresult.basictopic

Call frmresult.showbasic(sql)

frmresult.Show

frmresult.ZOrder 0

Call frmsumsalary.resumsalary(Date)

End If End Sub

Private Sub Form_Load()

Dim sql As String

Dim rs As New ADODB.Recordset

If ichangeflag = 1 Then

'添加信息

sql = ”select sid from stuffinfo order by sid“

Set rs = getrs(sql, ”salary“)

If rs.EOF = False Then

While Not rs.EOF

Me.comstuffid.AddItem rs(0)

rs.MoveNext

Wend

rs.Close

Me.comstuffid.ListIndex = 0

End If

sql = ”select distinct sposition from salarysetting“

Set rs = getrs(sql, ”salary“)If rs.EOF = False Then

While Not rs.EOF

Me.composition.AddItem rs(0)

rs.MoveNext

Wend

rs.Close

Me.composition.ListIndex = 0 End If

Me.optionid.Value = True

Else

'修改信息

Me.Caption = ”修改基本工资设置“

Set rs = getrs(strpublicsql, ”salary“)

Me.comstuffid.Text = rs(1)

Me.composition.Text = rs(2)

Me.textmoney = rs(3)

Me.comstuffid.Enabled = False

Me.composition.Enabled = False

rs.Close

End If End Sub

修改密码：

Private Sub cmdcancel_Click()

Unload Me

Exit Sub End Sub Private Sub cmdok_Click()

Dim sql As String

Dim rs As ADODB.Recordset

If Trim(oldpwd.Text)= ”“ Then

MsgBox ”请输入旧密码“, vbOKOnly + vbExclamation, ”提示“

oldpwd.SetFocus

Exit Sub

Else

If Trim(oldpwd.Text)<> Trim(userpassword)Then

MsgBox ”旧密码与登录的密码不同，请重新输入！“, vbOKOnly + vbExclamation, ”提示“

oldpwd.Text = ”“

oldpwd.SetFocus

ElseIf Trim(newpwd.Text)= ”“ Then

MsgBox ”请输入新密码“, vbOKOnly + vbExclamation, ”提示“

newpwd.SetFocus

Exit Sub

ElseIf Trim(newpwd.Text)<> Trim(confirmpwd.Text)Then

MsgBox ”两次密码不同“, vbOKOnly + vbExclamation, ”警告“

newpwd.Text = ”“

confirmpwd.Text = ”“

newpwd.SetFocus

Else

userpassword = newpwd

sql = ”update userinfo set userpwd='“ & newpwd & ”'where userid='“ & strusername & ”'“

Call transactsql(sql, ”salary“)

MsgBox ”密码已经修改“, vbOKOnly + vbExclamation, ”修改结果“

Unload Me

End If

End If End Sub

Private Sub oldpwd_Change()End Sub 公式设置

Private Sub cmdcancel_Click()

Unload Me

Exit Sub End Sub Private Sub cmddefault_Click()

Me.textovertimecom = 200

Me.textovertimespe = 400

Me.texterrand = 200

Me.textabsent = 50

Me.textle = 20

Call setvalue End Sub Private Sub cmdok_Click()

If Me.textovertimecom = ”“ And IsNumeric(Me.textovertimecom)= True Then

MsgBox ”请输入正常加班工资百分比“, vbOKOnly + vbExclamation, ”提示“

Me.textovertimecom = ”“

Me.textovertimecom.SetFocus

ElseIf Me.textovertimespe = ”“ And IsNumeric(Me.textovertimespe)= False Then

MsgBox ”请输入特殊加班工资百分比“, vbOKOnly + vbExclamation, ”提示“

Me.textovertimespe = ”“

Me.textovertimespe.SetFocus

ElseIf Me.texterrand = ”“ And IsNumeric(Me.texterrand)= False Then

MsgBox ”请输入出差工资“, vbOKOnly + vbExclamation, ”提示“

Me.texterrand = ”“

Me.texterrand.SetFocus

ElseIf Me.textabsent = ”“ And IsNumeric(Me.textabsent)= False Then

MsgBox ”请输入旷工扣发工资“, vbOKOnly + vbExclamation, ”提示“

Me.textabsent = ”“

Me.textabsent.SetFocus

ElseIf Me.textle = ”“ And IsNumeric(Me.textle)= False Then

MsgBox ”请输入迟到早退扣发工资“, vbOKOnly + vbExclamation, ”提示“

Me.textle = ”“

Me.textle.SetFocus

Else

Call setvalue

Call init

End If End Sub Private Sub setvalue()

Dim sql As String

Dim rs As New ADODB.Recordset

sql = ”select * from formulasetting“

Set rs = getrs(sql, ”salary“)

If rs.EOF = False Then

sql = ”delete from formulasetting“

Call transactsql(sql, ”salary“)

End If

rs.AddNew

rs.Fields(0)= Me.textovertimecom

rs.Fields(1)= Me.textovertimespe

rs.Fields(2)= Me.texterrand

rs.Fields(3)= Me.textabsent

rs.Fields(4)= Me.textle

rs.Update

rs.Close

MsgBox ”已经设置公式“, vbOKOnly + vbExclamation, ”设置结果“ End Sub Private Sub init()

'初始化

Me.textabsent = ”“

Me.texterrand = ”“

Me.textovertimecom = ”“

Me.textovertimespe = ”“

Me.textle = ”"

Me.textovertimecom.SetFocus End Sub

第三篇：ASP2057人事工资管理系统

人事工资管理系统

摘要

人事工资管理系统是企业内部用以管理人事档案和工资等信息的实用性软件。用它代替企业传统的手工管理方式，大大提高了工作效率和安全性，提高了信息处理的速度和准确性，节省了工作人员的时间和精力，使企业人事管理和工资管理系统化、科学化、规范化和自动化。是现代企业必不可少的管理工具。

本系统采用ASP语言和Access数据库开发而成，包括职工管理、档案管理、考勤管理、工资管理等模块，并将工资计算与考勤、奖惩相关联，生成较合理的薪酬管理体制，以产生有效的激励机制。同时系统设置了一些必要的辅助功能，比如对员工合同到期提醒和生日提醒等功能，有助于巩固企业与员工的心理契约，促进员工积极向上，向公司靠拢。系统能够实现数据的录入、插入、删除、查询、统计、更新等功能，能满足企业职工管理方面的基本要求。

关键词：ASP；Access；数据库；人事；工资

目录 引言......................................................错误！未定义书签。

1.1 系统开发背景........................................错误！未定义书签。1.2 系统研究意义........................................错误！未定义书签。1.3 系统研究方法........................................错误！未定义书签。2 系统需求分析..............................................错误！未定义书签。

2.1可行性分析..........................................错误！未定义书签。

2.1.1可行性分析....................................错误！未定义书签。2.1.2 经济可行性....................................错误！未定义书签。2.1.3 操作可行性....................................错误！未定义书签。2.2 系统目标............................................错误！未定义书签。2.3 系统功能需求分析....................................错误！未定义书签。3 数据库设计................................................错误！未定义书签。

3.1 数据库表简介........................................错误！未定义书签。3.2 数据库结构设计......................................错误！未定义书签。3.3 数据库连接文件......................................错误！未定义书签。4 系统功能模块详细设计及实现.................................................2 4.1 模块设计.............................................................2 4.2 功能模块的说明.......................................................3 4.3 系统界面的设计......................................错误！未定义书签。

4.3.1 系统登录界面的设计............................错误！未定义书签。4.3.2 系统主界面的设计...............................................3 4.3.3 系统各模块界面的设计...........................................4 5 系统评价..................................................错误！未定义书签。

5.1 系统的特点..........................................错误！未定义书签。5.2 系统的缺点..........................................错误！未定义书签。5.3 将来可能提出的要求..................................错误！未定义书签。结 论....................................................错误！未定义书签。参考文献....................................................错误！未定义书签。致 谢....................................................错误！未定义书签。系统功能模块详细设计及实现

4.1 模块设计

人事工资管理系统共包括以下七个功能模块：职工管理模块、考勤管理模块、档案管理模块、工资管理模块、事项记录模块、其他事记模块、系统管理模块。其中每个模块又分为若干个小功能模块。其系统功能模块详细关系如图1所示：

图1 系统模块结构图

4.2 功能模块的说明

人事工资管理系统的七个功能模块的详细介绍如下：

1．职工管理模块：实现用户自由的信息录入。结合人事变动完成本单位各类人员变动事宜，实时记录人员进入单位后的所有变化信息。实现对员工信息灵活的查询功能。

2．考勤管理模块：将考勤数据按月输入到系统中，系统将记录所有请假、矿工、迟到、早退等数据，并进行自动统计和汇总。

3．档案管理模块：提供全部人员记录，用以记录和查看人员相关信息。4．工资管理模块：实现对基本工资的管理，每月可以计算和修改工资数据，记录工资发放日期。

5．事项记录模块：根据单位情况设立培训、奖惩等事项记录。

6．其它事记模块：用于企业内部记录单位的基本信息和员工生日等，促进员工团结一致、积极向上。

7．系统管理模块：主要包括用户登陆和安全退出系统。提供有效的用户认证安全机制。

图2 系统登录页面

打

4.3.2 系统主界面的设计

通过用户验证后，进入人事工资管理系统的主页面。系统的主页面是由一个“T”字形结构的框架页面构成，它将该页面分成顶部系统名称显示页面、下面左侧菜单页面和右面主显示页面。

其中菜单页是该页面的主题部分，实现了菜单的分类分级显示，主菜单项从上往下排成一列,平时子菜单是隐藏的,单击某一主菜单项时将展开它的所有子菜单项，同时其他主菜单项的子菜单项将紧缩回去。其界面如图3 所示：

图3 菜单界面。

4.3.3 系统各模块界面的设计

由于系统模块较多,下面将只介绍部分模块的详细设计：

（一）职工管理模块：本模块根据搜索内容和方式分为按部门查看员工和离职员工查看两部分。其中按部门查看员工的界面如图4所示：

图4 据部门查看员工页面

图5 新增员工页面

（三）工资管理模块：工资管理模块包括员工工资的计算、工资按月统计和发放领取情况。员工工资计算页面如图6所示：

图6 工资计算页面

图7 工资统计页面

图8 工资领取页面

（四）考勤管理模块：

图9 考勤记录页面

图10 考勤按月统计页面

Powered by 计算机毕业论文网http://www.xiexiebang.com http:// www.xiexiebang.com

第四篇：人事工资管理系统

人事工资管理系统一、登录界面

登录界面如图1所示。

图1登录界面

二、主界面

输入用户名和密码，单击【登录】按钮，打开如图2所示的主界面。

图2主界面 图2中的菜单中包含的菜单选项如下： 【人事管理】：档案管理、奖罚管理、调动管理、考评管理。【工资管理】：考勤津贴、工资总结。【系统管理】：部门管理、数据备份。【用户管理】：操作员管理、修改口令、更改操作员。【退出】不包括任何选项。

三、人事管理菜单

1.选择图2中的【人事管理】►【档案管理】菜单选项，打开如图3所示的界面。

图3档案管理

选择图3中的【增加】工具按钮，打开如图4所示的界面，以实现增加员工信息。

图4增加员工信息

在图3中选中某员工，单击【修改】工具按钮，打开如图5所示界面，以实现员工信息修改。

图5修改员工信息界面

2.选择图2中的【人事管理】►【奖罚管理】菜单选项，打开如图6所示的界面。

图6奖罚管理

选择图6中的【增加】工具按钮，打开如图7所示的界面，以实现增加员工奖罚信息。

图7增加奖罚管理

选择图6中的某一员工记录，单击【修改】工具按钮，打开如图8所示的界面，以实现修改员工奖罚信息。

图8修改员工奖罚信息

在图6中选中某员工记录，单击【删除】工具按钮以实现删除员工奖罚信息。

3.选择图2中的【人事管理】►【调动管理】菜单选项，打开如图9所示的界面。

图9员工调动管理界面

选择图9中的【增加】工具按钮，打开如图10所示的界面，以实现增加员工调动信息。

图10增加员工调动信息

选择图9中的某一员工记录，单击【修改】工具按钮，打开如图11所示的界面，以实现修改员工调动信息。

图11修改员工调动信息

在图9中选中某员工记录，单击【删除】工具按钮以实现删除员工调动信息。

4.选择图2中的【考评管理】►【调动管理】菜单选项，打开如图12所示的界面。

图12考评管理界面 选择图12中的【增加】工具按钮，打开如图13所示的界面，以实现增加员工考评信息。

图13增加考评信息

选择图12中的某一员工记录，单击【修改】工具按钮，打开如图14所示的界面，以实现修改员工考评信息。

图14修改考评信息

在图12中选中某员工记录，单击【删除】工具按钮以实现删除员工考评信息。

四、工资管理菜单

1.选择图2中的【工资管理】►【考勤津贴】菜单选项，打开如图15所示的界面。

图15考勤津贴界面

在图15中选择工资月份，选择员工编号，输入全勤奖金、加班工资，单击【增加】工具按钮，以实现增加员工考勤津贴信息。

2.选择图2中的【工资管理】►【考勤津贴】菜单选项，打开如图16所示的界面。

图16工资总结界面

在图16中选择月份，显示对应员工工资信息。

五、系统管理菜单

1.选择图2中的【系统管理】►【部门管理】菜单选项，打开如图17所示的界面。

图17部门管理

单击图17中的【增加】工具按钮，打开如图18所示的界面，以实现增加部门信息。

图18增加部门

选择图17中的某一部门，单击【修改】工具按钮，打开如图19所示的界面，以实现修改部门信息。

图19修改部门

在图17中选中某员工记录，单击【删除】工具按钮以实现删除部门信息。

2.选择图2中的【系统管理】►【数据备份】菜单选项，打开如图20所示的界面。

图20数据备份

五、用户管理菜单

1.选择图2中的【用户管理】►【操作员管理】菜单选项，打开如图21所示的界面。

图21操作员管理

在图21中输入用户名和密码，选择权限，单击【增加】工具按钮，以实现增加操作员信息。在图21中的某一操作员，会自动填写用户名和密码，可以修改用户名、密码、权限，单击【修改】工具按钮，以实现修改操作员信息。

在图21中的某一操作员，单击【删除】工具按钮，以实现删除操作员信息。

2.选择图2中的【用户管理】►【修改口令】菜单选项，打开如图22所示的界面。

图22修改密码

输入登录用户的原始密码，两次输入相同的心密码，单击【确定】按钮，实现密码修改。3.选择图2中的【用户管理】►【更改操作员】菜单选项，打开如图23所示的界面。

图23更改操作员

选择用户名，输入该用户的密码，实现以所选择的用户身份登录。

第五篇：企业工资管理系统任务书

课程设计任务书

2009—2010学年第二学期

专业班级： 软件工程08普本软件学号： 080000001姓名： ***课程名称：数据库系统与应用完成期限：自2010 年 6 月 10 日至2010 年 6 月 15 日共 1 周课程设计题目

复杂。这时，传统的纸介质管理方式就暴露出了无法弥补的缺陷。因此，为了实现企业工资信息方便、迅捷的管理，设计一个企业工资管理系统迫在眉睫。功能要求：系统能够实现身份验证、企业职工信息添加、查询、修改、删除、工资发放等功能。

一、设计的任务：要求完成企业工资管理系统的设计与实现，主要包括企业职工信息管理系

统数据库的建立和安全维护、界面美化、添加信息及对信息的管理，系统管理员登录与

安全模块的实现。

二、开发工具：ASP，SQL Server 2000

三、进度安排：第18周进行系统总体规划、数据库设计、系统开发与调试、课程设计说明书的撰写和课程设计答辩。

四、主要参考资料：

[1] 李春葆，曾慧.SQL Server 2000应用系统开发教程（第二版）[M].北京：清华大学出版社，2008年5月.[2] 刘亚姝,李金莱.ASP网络编程技术与实践[M].北京：清华大学出版社 2008年6月.[3] 明日科技，吕继迪等.ASP程序开发范例宝典（第二版）[M].北京：人民邮电出版社，2009年1月.计划答辩时间：2010年6月15日

工作任务与工作量要求：查阅文献资料不少于3篇，课程设计报告1篇不少于3000字。指导教师（签字）：教研室主任（签字）：批准日期：年月日