工资管理信息系统设计

毕业综合实践说明书

（届）

题目工资管理信息系统设计

学院______________________

专业______________________

班级_____________________

学号_____________________

学生姓名___________________

指导教师___________________

完成日期_____________________________

摘要

随着信息时代的发展，企业正向着大型化、规模化发展，而对于众多企业，员工、职称等跟工资管理

有关的信息随之急剧增加，在这种情况下单靠人工来处理员工的工资不但容易出错，而且效率极低。如果

由计算机代替人工执行•系列操作，这样就使办公人员可以轻松快捷地完成工资管理的任务。

本论文详细介绍了浙江云泰塑钢制品有限公司的工资管理系统的整个开发过程，包括系统分析、系统

设计、系统实施等方面。在整个系统的开发过程中，综合运用信息管理和信息系统开发的方法、技术，并

充分结合在工作中遇到的实际情况。

本系统的主要功能是用计算机对各种工资信息进行日常的管理，入输入、查询、修改、增加、刑除以

及打印等，迅速准确地完成各种工资信息的统计、计算和汇总工作，实现企业工资信息的集中管理。

关键词：工资管理信息系统设计：SQLserver2010；Delphi7.0

目录

引言...........................................................

1可行性分析....................................................

1.1开发环境与开发工具.......................................................1

1.2可行性报告...............................................................2

1.2.1开发必要性....................................................2

1.2.2技术可行性....................................................2

1.2.3羟济可行性....................................................2

2系统分析........................................................................3

2.1需求分析.................................................................3

2.1.1系统背景介绍..................................................3

2.1.2系统介绍.......................................................3

2.2业务流程分析............................................................3

2.3数据流程分析............................................................3

3系统设计及实施.................................................................6

3.1系统总体结构设计........................................................6

3.2代码设计................................................................7

3.3数据结构设计............................................................8

3.3.1建立关系数据库表..............................................8

3.3.2建立数据字典..................................................9

3.4系统实现.................................................................11

4设计总结.......................................................................20

致谢.............................................................................21

参考文献.........................................................................21

引言

1信息化是当今世界经济和社会发展的大趋势。适应信息技术发展要求的工资

管理信息系统必将成为企业提高工资管理效率和水平的有力手段，也是未

来企业工资管理适应环境变化的主要发展趋势。工资管理信息系统将是一个

企业不可缺少的一部分，它对于企业的决策者和管理者都至关重要。一直以

来人们使用传统的人工的方式管理文件信息，这种管理方式存在着许多缺

点，如效率低，保密性差。另外，时间一长将产生大量的文件和数据，对于查

找、更新和维护都带来不少的困难。随着科技的不断提高，计算机科学日渐

成熟，其强大的功能已为人们深刻认识并已在人类社会的各个领域发挥着

越来越重要的作用。作为计算机应用的一部分，使用计算机对企业的工资信

息进行管理，具有手工管理所无法比拟的优点。

2例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长和成

本低等。这些优点能够极大地提高企业信息管理的效率，也是企业的科学

化、正规化管理，与世界接轨的重要条件。

3可行性分析

1.1开发环境与开发工具

开发环境：WINDOWSXP

作为当今的主流平台之一，WINDOWS系列系统可以说是构建了微软公司的辉

煌，拥有极为广泛的用户，而WINDOWSXP更是作为开发人员首选的操作平台之

一，是当今兼容软件最多的系统。作为系统本身，也拥有操作简便，反应速度快,

占用内存低，对电脑配置要求低等特点。故从各方面考虑，WINDOWSXP系统为

我们首选的开发环境。

开发工具：SQLServer2010+Delphi7.0

SQL是高级的非过程话编程语言，是沟通数据库服务器和客户端的重要工具,

允许用户在高层数据结构上工作。它以记录集合作为操作对象，所有SQL

语句接受集合作为输入，返回集合作为输出，SQL语句可以嵌套，具有极

大的灵活性和强大的功能，开发者用SQL语言可以写出非常复杂的语句。

且SQL同样属于微软公司开发设计，与本次开发所使用的WINDOWSXP

环境用更好的兼容性。

Delphi是Windows平台下著名的快速应用程序开发工具。Delphi是一个集成

开发环境（IDE）,使用的核心是由传统Pascal语言发展而来的Object

Pascal,以图形用户界面为开发环境，透过IDE、VCL工具与编译器，配

合连结数据库的功能，构成一个以面向对象程序设计为中心的应用程序开

发工具。

1.2可行性报告

1.2.1开发必要性

随着计算机技术的飞速发展，计算机在企业和大学管理中应用的普及，利用

计算机实现人事工资的管理势在必行。利用计算机支持企业高效率完成

劳动人事管理的日常事务，是适应现代企业制度要求、推动企业和大学

劳动人事管理走向科学化、规范化的必要条件。工资管理是任何企业单

位都需要进行的一项工作，因此，开发制作工资管理系统具有较大的

社会现实意义。而工资管埋的一项琐碎、复杂而又十分细致的工作，工

资计算、发放、核算的工作量很大，一般不允许出错，实行电子化的工

资管理，可以让人力资源管理人员从繁重琐碎的案头工作解脱出来，

去完成更重要的工作。职工工资管理信息系统的实现可以减轻比较繁琐

的手工工资管理更加针对性、便捷性、可视化的管理职工工资。

而企业单位在使用本系统以后，能够简单的处理职工工资的计算发放，职工

能明了的进行工资信息的查询。

1.2.2技术可行性

技术上的可行性分析主要分析现有技术条件能否顺利完成开发工作，软硬件

配置能否满足开发者需要等。本系统开发采用的是微软公司自开发的

SQLserver2010与Delphi7.0等软件进行开发，功能清晰，操作方

便。非常适合在装载有WINDOWSXP环境的计算机操作，能有效的发挥

出计算机的数据处理能力，拥有开发处理快的优势，同时系统本身简

单实用。非常适合进行短期开发。加之当下对企业工资管理系统这一类

的企业财务系统进行开发已有一定的时期，有很多成功的实例，可以

借鉴参考，所以技术开发上不存在问题。

1.2.3经济可行性

系统开发方面，由于企业工资管理系统是一个比较小型的企业财务管理系统,

由我个人进行单独开发。所以从人力、物力、财力方面来说都是可行的。系

统使用与维护方面，由于系统占用资源小，操作简单功能明了，员工使用

培训极为容易，同时系统简单，维护方便，不但能大大减少重复性的书面

报告，降低办公费用，提高办公室效率，而且能提高检测数据效用，为企

业操作提供了很大的方便。

通过以上分析，改系统开发可行。

2系统分析

2.1需求分析

2.1.1系统背景介绍

工资管理是公司管理的一个重要内容。随着企业人员数量增加，企业的工资管

理工作也变得越来越复杂。工资管理既涉及到企业劳动人事的管理，同

时也是企业财务管理的重要组成部分。工资管理需要和人事管理相联系,

同时连接工时考勤和医疗保险等等，来生成企业每个职工的基本工资、

津贴、医疗保险、保险费、实际发放工资等。资金是企业生存的主页元

素，资金的流动影响到企业的整体运作，企业员工的工资是企业资金

管理是一个重要组成部分。早期的工资统计和发放都是使用人工方式处

理纸质材料，不仅花费财务人员大量的时间且不易保存，往往由于个

人的因素抄写不慎或计算疏忽，出现工资发放错误的现象。基于以上原

因，企业工资管理系统使用电脑安全保存、快速计算、全面统计，实现

工资管理的系统化、规范化、自动化。

2.1.2系统介绍

工资管理系统的典型的信息管理系统（MIS）,对企业加强工资管理有着极其重

要的作用，就一般的大型企业来说，它的设计内容非常复杂而且繁多，比

如拥有工资计算功能，工资统计功能，报表输出功能，而且设计的模块也

很多，比如工资管理模块，工资统计模块，报表设计模块，打印输出模块,

模糊查询模块等等。

本系统前台程序开发工具采用Delphi,后台数据库采用SQLserver数据库。

Delphi是一种面向对象的开发工具，具有组件丰富、语言简单、功能强大

的优点。SQLserver数据库具有与Delphi无缝连接、操作简单、易于使

用的优点。运行结果证明，本企业工资管理系统极大提高了工作效率，节

省了人力和物力，最终满足企业财务管理、员工工资发放的需要，同时也

成为现代化企业管理的标志。

2.2业务流程分析

业务流程简介：

各部门将考勤表整理汇总，处理员工的各项工资项目数据，计算出加班工资。同

时，人事部查询档案，得出基本月工资，基本福利，奖罚金额，最后汇总出总

工资表，交由财务处发放工资。

2.3数据流程分析

数据流程图：

第一层数据流程图:

图2第一层数据流程图

第二层数据流程图:

退出系统

图3第二层数据流程图

第三层数据流程图:

图4第二层数据流程图

3系统设计及实施

3.1系统总体结构设计

本系统由职工信息管理、工资管理、系统维护、用户管理四大块组成。

职工信息管理为对职工信息管理。负责对职工的工资信息录入增删修改。

工资管理分为工资项目设置、工资计算公式设置、工资录入及计算、工资查

询。工资项目设置是输入当月工资的计算选项。工资录入及计算是输入当月各单

项工资并按照计算公式进行计算。而工资查询则是对当月的工资进行查询。

系统维护分为数据备份、数据恢复、用户权限设置。数据备份为备份当前的

数据库。数据恢复为恢复上次备份的数据库。用户权限为管理员用户度普通用户

的操作权限进行设置。

用户管理则分为管理员登陆和普通用户登录，以及密码修改。管理员用户可

以对整个系统进行操作，而普通用户的操作权限由管理员用户进行设置

工资管理信息系统

图5总体结构图

3.2代码设计

对员工的编号设计如下所示，员工编号由四位数字构成，编号前两位表示

部门编号，后两位表示职工在部门内编号，两部分一起构成员工个人独一无二

的编号。方便对员工信息的输入、存储、处理和提取。

部门代码XX

L----------＞部门代码

例如：00经理室，01行政部，02人事部，03财务部，04业务部

员工编号XXXXX

T____►员工代码

------------►部门代码

例如：总经理0001,副总经理0002,人事部部长0101,人事部员工0103

3.3数据结构设计

3.3.1建立关系数据库表

该软件的数据库由下述四张数据表姐成:

员工信息表：YGXX.DBF

公司部门表:GSBM.DBF

基本工资表：JBGZ.DBF

基础福利表：JCFL.DBF

考勤表:KQ.DBF

工资汇总表：GZHZB.BDF

登录表：DL.BDF

表1员字段名类型长度允许空备注

工信息

表：

YGXX.DBF

字段

1YGBHCHAR5Notnull员工编号

2YGXMCHAR10Notnull员工姓名

3YGXBCHAR2Notnull员工性别

4YGNLCHAR2Notnull员工年龄

5YGJGCHAR10Notnull员工籍贯

6YGSFZHCHAR18Notnull员工身份证

号

7YGSSBMCHAR10Notnull员工所属部

门

8YGXLCHAR8Notnull员工学历

9GWCCHAR10Notnull岗位名称

10YGGLCHAR2Notnull员工工龄

11GZDJCHAR2Notnull工资等级

表2公字段名类型长度允许空备注

司部门

表：

GSBM.DBF

字段

1BMMCCHAR10Notnull部门名称

2BMDMCHAR2Notnull部门代码

3BMRSCHAR4Null部门人数

表3基字段名类型长度允许空备注

本工资

表：

JBGZ.DBF

字段

1YGBHCHAR5Notnull员工编号

2GZDJCHAR2Notnull工资等级

3JCGZFLOAT8Notnull基础工资

表4基字段名类型长度允许空备注

础福利

表：

JCFL.DBF

字段

1YGBHCHAR5Notnull员工编号

2HFBTFLOAT8Null话费补贴

3YSBTFLOAT8Null饮食补贴

4JTBTFLOAT8Null交通补贴

5YLBTFLOAT8Null医疗补贴

6ZFBTFLOAT8Null住房补贴

7FLIIZFLOAT8Notnull福利汇总

表5字段名类型长度允许空备注

考勤

表：

KQ.DBF

字段

1YGBHCHAR5Notnull员工编号

2CDCSCHAR2Notnull迟到次数

3ZTTCSCHAR2Notnull早退次数

4QQCHAR2Notnul1全勤

5JBSCFLOAT8Notnull加班时长

表6工资字段名类型长度允许空备注

汇总表：

GZHZB.BDF

字段

1YGBHCHARUKNotnull员工编号

2GZDJCHAR2Notnull工资等级

3JCGZFLOAT8Notnull基础工资

4JCFLFLOAT8Notnul1基础福利

5JBGZFLOAT8Notnull加班工资

6JJFLOAT8Notnull奖金

7FKFLOAT8Notnull罚款

8ZGZI'LOAT8Notnull总工资

表7字段名类型长度允许空备注

登录

表：

DL.BDF

字段

1UsernameCHAR5Notnul1数字

2PasswordCHAR5Notnull数字

3.3.2建立数据字典

表8数据项（数据元素）

编号名称类型长度说明

11部门名称VARCHAR50汉字

12部门代码CHAR2数字

13部门人数VARCHAR50数字

14员工编号CHAR5数字

15员工姓名CHAR10小于等于5个汉

字

16员工性别CHAR2“男”或“女”

17员工年龄CHAR21-99之间

18员工籍贯VARCHAR50汉字

19员工身份证号CHAR18数字

110员工学历CHAR8小于4个汉字

Ill岗位名称CHAR20小于等于10个汉

字

112员工工龄CHAR21-99之间

113工资等级CHAR21-99之间

114基础工资FLOAT81-9999之间

115话费补贴FLOAT40-9999之间

116饮食补贴FLOAT40-9999之间

117交通补贴FLOAT40-9999之间

118医疗补贴FLOAT40-9999之间

119住房补贴FLOAT40-9999之间

120迟到次数CHAR2数字

121早退次数CHAR2数字

122全勤CHAR2“是”或“否”

123加班时长CHAR4数字

124基础福利I'LOAT40-9999之间

T25加班工资FLOAT40-9999之间

126奖金FLOAT40-9999之间

127罚款FLOAT40-9999之间

表9数据流

编名称来源去处组成流量说明

号

F1基本工资表人事部财务处

F1基础福利表财务处财务处

F1考勤表各部门财务处

F2工资汇总表财务处财务处

表10处理逻辑

编号名称输入处理逻辑概况输出

P4计算总工资F1：考勤表、计算各个员工工资汇总表

基础福利表、当月总工资

基本工资表

表11外部实体

编号名称描述输入输出

S1各部门统计考勤信息考勤表

S2人事部提供员工信息档案信息

S3财务部计算并发放工资各项工资工资汇总表

3.4系统实现

登录:

图6登录界面

具体代码如下:

ProcedureTForml.ButtonlClick(Sender:T0bject);

Var

Sqls,username,password:string;

Begin

Username:=Editl.Text;

Password;=Edit2.Text;

Sqls:=,SELECT*FROMDLWHEREusername='''+username+,''andpassword

='，，+password+，，，;

WithADOQueryldo

Begin

SQL.Clear;

SQL.Add(sqls);

ExccSQL;

Open;

ifRecordset.RccordCountOOthen

begin

form2.ShowModal;

end

else

begin

showmessage('用户名或密码错误！请重新输入！')；

cditl.SetFocus;

end;

end;

end;

procedureTForml.Button2Click(Sender:TObject);

begin

forml.Close;

end;

end

Mainmenu:

人乎甘理国）工资管理9系统管在理）用尸管理电）大！（V山出名

图7Mainmenu界面

职工信息添加:

图8职工信息添加界面

具体代码如下：

ProcedureTForm3.Button1C1ick(Sender:T0bject);

Var

Sqls:string;

YGBH,YGXM,YGXB,YGNL,YGJG,YGSFZH,YGSSBM,YGXL,GWMC,YGGL,GZDJ:string;

Begin

YGBH:=Editl.Text;

YGXM:=Edit2.Text;

YGXB:=Edit3.Text;

YGNL:=Edit4.Text;

YGJG:=Edit5.Text;

YGSFZH:=Edit6.Text;

YGSSBM:=Edit7.Text;

YGXL:=Edit8.Text;

GWMC:=Edit9.Text;

YGGL:=EditlO.Text;

GZDJ:=Editll.Text;

Sqls:='INSERTINTO

YGXXB(YGBH,YGXM,YGXB,YGNL,YGJG,YGSFZH,YGSSBM,YGXL,GWMC,YGGL,GZDJ)

VALUES。''+YGBH+''','''+YGXU+''','''+YGXB+''','''+YGNL+'

，',，，'+YGJG+'，，,，，，+YGSFZH+'，',''，+YGSSBM+'，，,，，，+YGXL+

+GWMC+''','''+YGGL+''','''+GZDJ+''');

WithADOQueryldo

Begin

SQL.C1ear;

SQL.Add(sqls);

ExecSQL;

//open;

//ifRecordset.RccordCountOOthen

//begin

//DBGridl.ShowModal;

//end

//else

//begin

//show-message(T输入信息错误！请重新输入！')；

//edi11.SctFocus:

//end;

End;

Begin

Showmessage('添加成功！');

Exit;

End;

End;

ProcedureTForm3.Bulton2Click(Sender:TObject);

Begin

Form3,close;

Form2.show;

End;

End

职工信息修改:

酬救I

OOOOI卑曲另31二3rrrinniiinH91工，'启,胧龙7W

图9职工信息修改界面

具体代码如下：

ProcedureTForm8.BitBtnlClick(Sender:T0bject);

Begin

IfDataSourcel.DataSet.Statein[dsEdit,dslnsert.then

DataSource1.DataSet.Post

End;

ProcedureTForm8.BitBtn2Click(Sender:TObject);

Begin

Form8.close;

End;

End

职工信息删除:

图10职工信息删除界面

ProcedureTForm7.ButtonlClick(Sender:T0bject);

var

sqls,YGBH:string;

begin

YGBH:=Editl.Text;

Sqls:=,DELETEFROMYGXXBWHEREYGBH=,''+YGBH+''';

WithADOQueryldo

Begin

SQL.Clear;

SQL.Add(sqls);

ExecSQL;

//open;

//ifRecordset.RecordCountOOthen

//begin

//DBGridl.ShowModal;

//end

//else

//begin

“showmessage('输入信息错误！请重新输入！');

//editl.SetFocus:

//end;

End;

Begin

IfDataSourcel.DataSet.Statein[dsEdit,dslnsert]then

DataSource1.DataSet.Post

End;

End;

ProcedureTForm7.Button2Click(Sender:TObject);

Begin

Form7.close;

Form2.show;

End;

End

工资录入及计算:

图11工资录入及计算界面

具体代码如下：

ProcedureTForm3.ButtonlClick(Sender:T0bject);

Var

Sqls:string;

YGBH,GZDJ,JCGZ,JCFL,JBGZ,JJ,FK,ZGZ:string;

Begin

YGBH:=Editl.Text;

GZDJ:=Edit2.Text;

JCGZ:=Edit3.Text;

JCFL:=Edit4.Text;

JBGZ:=Edit5.Text;

JJ:=Edit6.Text;

FK:=Edit7.Text;

ZGZ:=Edit8.Text;

Sqls:='INSERTINTOGZHZ(YGBH,GZDJ,JCGZ,JCFL,JBGZ,JJ,FK,ZGZ)

VALUES。，，+YGBH+'，，,'，，+GZDJ+，，，，，，，+JCGZ+，，，,，，，+

JCFL+'，，，，，，+JBGZ+'，，,，，，+JJ+，，，,，，，+FK+,，，,，，，+ZGZ+,

一)；

WithADOQueryldo

Begin

SQL.Clear;

SQL.Add(sqls);

ExecSQL;

//open;

//ifRecordset.RecordCountOOthen

//begin

//DBGridl.ShowModal;

//end

//else

//begin

//showmessage(,输入信息错误！请重新输入！');

//editl.SetFocus:

//end;

End;

Begin

Showmessage(,添加成功！');

Exit;

Encl;

End;

ProcedureTForm9.Button4Click(Sender:T0bject);

Begin

IfDataSourcel.DcitaSet.Statein[dsEdit,dslnsert.then

DataSource1.DataSet.Post

End;

ProcedureTForm9.Button2click(Sender:T0bject);

Begin

Form9.close;

End;

ProcedureTForm9.Button3Click(Sender:TObject);

Begin

Form9.adotablel.close();

Form9.adotablel.open();

End;

ProcedureTForm9.FormCreate(Sender:TObject);

Begin

DBgridl.columns.Itoms[0].Title.caption:=,员工编号';

DBgridl.columns.Items[1].Title.Cciption:=,员工姓名';

DBgridl.columns.Items[2].Title.caption:=,工资等级';

DBgridl.columns.iterns[3].Title.caption:=,基础工资’;

DBgridl.columns.Items[4].Title.caption:=,基础福利';

DBgridl.columns.Iterns[5].Title.caption:=＞加班工资’;

DBgridl.columns.Items[6].Title.caption:=,奖金';

DBgridl.columns.Itoms[7].Title.caption:=,罚款';

DBgridl.columns.Items[8].Title.caption:二'总工资'；

End;

End;

ProcedureTForm9.Edit8Changc(Sender:TObject);

Begin

Edit8=Edit+Editl+Edit2+Edit3+Edit4+Edit5+Edit6+Edit7;

End;

End

工资查询:

图12工资查询界面

具体代码如下：

ProcedureTForm4.ButtonlClick(Sender:TObject);

Var

Sqls,maccount:string;

i>j:integer;

begin

maccount:=Editl.Text

sqls:='SELECT*FROMGZHZWHERE员工编号:'''+maccount+,

WithADOQueryldo

Begin

SQL.Clear;

SQL.Add(sqls);

ExecSQL;

Open;

ifRecordset.RecordCountOOthen

begin

//Edit2.Text:=fieldbynameCProduct_no,).AsString;

Fori:=0toRecordset.Fields.Count-1do

Begin

Forj:=0toRecordset.Fields.Count-1do

Begin

stringGridl.Cells[i+1,0]:二Recordset.Fields[i].Name;

stringGridl.Cells[0,j+1]:=inttostr(j+1);

stringGridl.Cells[i+1,j+i]:=AD0Queryl.Fieldsti].AsString;

end;

end;

//DBGridl.DataSource.DataSet.Locate(*m_account,,Edit1.Text,[]);

//DBGrid跟随edit】的内容浏览数据

End

Else

begin

showmcssagc('时不起，没有该用户！请重新输入！')；

editl.SetFoucus;