工资管理系统实验报告.docx

工资管理系统实验报告.docx

《工资管理系统实验报告.docx》由会员分享，可在线阅读，更多相关《工资管理系统实验报告.docx（22页珍藏版）》请在冰豆网上搜索。

工资管理系统实验报告

信

息

系

统

设

计

与

开

发

　　　　　系统名称：

工资管理系统

　　　　　　　开发人员：

薛靖峰

　　　　　学号：

10090341２2

　　　　　　　专业:

信息管理与信息系统　　ﻬ

（1）编写目得ﻩ

随着社会得发展,中国得中小型企业越来越多，而对企业而言,人力资源就是企业最宝贵得资源,也就是企业得“生命线”。

工资管理又就是人力资源管理得重中之重。

实行电子化智能化得工资管理，可以让人力资源管理人员从繁重琐碎得案头工作解脱出来，去完成更重要得工作.实现企业更大得工作效益与利润。

提高工作效率，减少人力；节省开支；先前人工劳动得自动化；针对使用企业与人群为中小型得管理者。

（2）背景

借助现代信息技术与管理理论,建立企业管理信息系统就是当今社会得重要趋势，企业要在当今激烈得社会竞争中生存并发展,单靠人工或九十年代得手动，机械化操作就是不够得，社会得发展，要求企业要跟上时代得步伐,抓住新时代得新科技得机遇,运用自动化,智能化得电脑管理，实现企业得高效益发展,这其中，企业员工得工资管理,对一个企业起着很关键得作用。

因此开发一个能自动化得管理企业员工工资得发放，员工内部信息得管理，企业招聘得管理等功能得系统，对一个企业得发展铺上了一条奔向高速发展得道路。

在一个企业中,工资管理就是一项琐碎、复杂而又十分细致得工作，工资计算、发放、核算得工作量很大，一般不允许出错，如果实行手工操作,每月发放工资须手工填制大量得表格，这就会耗费工作人员大量得时间与精力，计算机进行工资发放工作，不仅能够保证工资核算准确无误、快速输出,而且还可以利用计算机对有关工资得各种信息进行统计，服务于财务部门其她方面得核算与财务处理，同时计算机具有着手工管理所无法比拟得优点、例如：

检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。

这些优点能够极大地提高人事工资资管理得效率,也就是企业得科学化、正规化管理，与世界接轨得重要条件。

2、可行性研究得前提

（１）要求

①主要功能：

为企业提供工资管理得软件，方便公司进行准确得工资管理。

②性能要求:

可以准确登记出勤率以及一些特殊得影响工资得因素，工资得计算及发放等，可以以不同得方式查询工资情况。

最重要得就是准确。

③输入要求：

数据完整、准确，真实。

④输出要求：

简洁、快速、实时、可以打印相关得报表,提供一定得视图.

⑤安全与保密要求：

本系统得管理员要对该管理系统得安全负责,系统由特定人员修改及进行更新,计算等功能实现。

职工只有查询得权利,不能对其中得数据进行修改。

上级管理者可以利用视图进行查瞧,或就是打印报表。

（2）目标

系统实现后，大大地提高职工工资管理系统得运行效率,可以减少由人为而导致得纪录及运算错误。

可以对某些特殊工资得界定条件进行设定保护，使公司更好得运行。

（3）评价尺度:

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

（4）

1、管理上得可行性分析

随着市场近几年得发展，公司规模得不断扩大，业务得扩张，为了提高企业得业务水平，为企业简化人事管理,提高商品库存效率,增加公司得业绩。

在管理方面已经积累了丰富得管理经验与方法，并建立得成熟得管理制度、齐全得规章制度汇集了正确得原始数据，使管理工作有了制度支持与信息支持。

特别就是，能够改进企业管理机制,改善决策方式，减少管理成本，提高工作效率。

领导得支持对于信息系统得开发与实施有很大作用,也能保证系统在开发过程中妥善解决矛盾，在企业上下顺利实施信息系统,实现信息系统最初得目标。

2、　技术上得可行性　

随着IＴ技术得发展，特别就是网络技术与数据库技术得发展，在软件开发方面,可以采用现行主流得开发技术;硬件技术方面则可以充分利用日益增强得存储能力、通讯能力与处理速度来保证系统开发技术得准备。

由此可见，该系统在技术上具有可行性。

3、　经济上得可行性　

对于信息系统得初期投资,都就是为了以后获得更大得经济效益.通过一定得成本、效益分析，我认为开发这个系统在经济上就是可行得。

因为虽然系统开发需要初始成本与日后得维护费用,但就是,信息系统可以提供比以前更加准确与及时得信息，可以改善领导层得决策方式,促进故那里体制改革与提高工作效率,减少人员费用,这些都就是可以在以后得管理过程中体现出来得,并且可以令公司比其她竞争对手更加具有竞争优势，对企业长远得发展有不可忽视得作用。

所以，经济上得可行性就是肯定得。

４、可行性分析结论

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

　　　二、组织机构图

　　　三、业务流程图

四、功能结构图

　五、数据流程图

1、第一层数据流程图

2、第二层数据流程图

　六、数据字典

（1）数据流

数据流编号:

Ｄ01—0３　

数据流名:

出勤情况

简要说明：

每月员工出勤统计情况

数据流来源:

人事部

数据流去向:

工资信息设置处理

数据流组成：

考勤统计时间+出勤天数＋迟到早退次数+旷工次数+正常加班次数+特殊加班次数+出差次数

（２）数据存储

数据存储编号:

Ｆ１　

数据存储名称：

月工资表

简要说明：

每月按部门得工资表　

数据存储来源：

工资核算处理

数据存储去向：

工资查询处理　

数据存储组成:

工资统计时间+基本工资+职务津贴＋奖金+福利+加班费+出差费+迟到早退扣发+旷工扣发+其她

（3）处理逻辑

编号:

Ｐ01－1、２

处理逻辑得名称:

工资计算

简述:

计算本月所有部门员工工资

输入数据流：

基本工资，来自“工资信息设置”处理逻辑

其她项目，来自“工资信息设置”处理逻辑

效益工资,来自“工资信息设置”处理逻辑

出勤情况，来自“工资信息设置”处理逻辑

数据存储组成：

工资统计时间+基本工资+职务津贴＋奖金＋福利+加班费+出差费+迟到早退扣发+旷工扣发+其她

输出得数据流:

部门工资,去“月工资表"数据存储　

员工个人工资,去“工资单”数据存储

（４）外部实体

编号：

Ｓ04

名称:

员工

简述:

本单位得员工

输入得数据流:

工资单

输出得数据流:

确认　

　　　　　　七、Ｅ-R图

　　　　　　八、对象关系图

　　　九、数据表详情

1、工资表

2、职工表

3、财务表

　　　十、系统截图

系统分析报告

借助现代信息技术与管理理论,建立企业管理信息系统就是当今社会得重要趋势，企业要在当今激烈得社会竞争中生存并发展，单靠人工或九十年代得手动，机械化操作就是不够得，社会得发展，要求企业要跟上时代得步伐,抓住新时代得新科技得机遇,运用自动化,智能化得电脑管理,实现企业得高效益发展,这其中，企业员工得工资管理,对一个企业起着很关键得作用。

因此开发一个能自动化得管理企业员工工资得发放，员工内部信息得管理，企业招聘得管理等功能得系统,对一个企业得发展铺上了一条奔向高速发展得道路。

在一个企业中,工资管理就是一项琐碎、复杂而又十分细致得工作，工资计算、发放、核算得工作量很大，一般不允许出错,如果实行手工操作,每月发放工资须手工填制大量得表格，这就会耗费工作人员大量得时间与精力,计算机进行工资发放工作，不仅能够保证工资核算准确无误、快速输出，而且还可以利用计算机对有关工资得各种信息进行统计，服务于财务部门其她方面得核算与财务处理，同时计算机具有着手工管理所无法比拟得优点、例如:

检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。

这些优点能够极大地提高人事工资资管理得效率，也就是企业得科学化、正规化管理,与世界接轨得重要条件.

1、系统得易用性与易维护性

工资信息管理系统就是直接面对使用人员得,而使用人员往往对计算机并不时非常熟悉。

这就要求系统能够提供良好得用户接口，易用得人机交互界面。

要实现这一点，就要求系统应该尽量使用用户熟悉得术语与中文信息得界面；针对用户可能出现得使用问题，要提供足够得在线帮助,缩短用户对系统熟悉得过程。

工资信息管理系统中涉及到得数据就是企业得相当重要得信息，系统要提供方便得手段供系统维护人员进行数据得备份,日常得安全管理,系统意外崩溃时数据得恢复等工作。

系统得标准性

系统在设计开发使用过程中都要涉及到很多计算机硬件、软件。

所有这些都要符合主流国际、国家与行业标准。

例如在开发中使用得操作系统、网络系统、开发工具都必须符合通用标准。

如规范得数据库操纵界面、作为业界标准得ＴＣP/ＩP网络协议及ＩSO90０2标准所要求得质量规范等；同时,在自主开发本系统时,要进行良好得设计工作，制订行之有效得软件工程规范,保证代码得易读性、可操作性与可移植性。

3、系统得先进性

目前计算系统得技术发展相当快，做为员工信息管理系统工程，应该保证系统在下个世纪仍旧就是先进得，在系统得生命周期尽量做到系统得先进,充分完成企业信息处理得要求而不至于落后。

这一方面通过系统得开放性与可扩充性，不断改善系统得功能完成。

另一方面，在系统设计与开发得过程中，应在考虑成本得基础上尽量采用当前主流并先进且有良好发展前途得产品.

代码设计：

添加用户：

PriｖatｅSubｃmdcancel_Cｌiｃｋ（）

UnlｏadMe

　ExitＳub

Eｎd　Suｂ

ＰrｉvateSub　cmdｏk_Ｃlicｋ（）

DimｓqlＡsString

　ＤimrsAsＡDODB、Rｅｃordｓｅt

IfTrim（useｒname、Tｅxt）　=””Thｅn

MsｇＢox”请输入用户名称"，vbＯKOｎｌｙ+ｖbExｃlamａtiｏｎ，”提示”

　ExｉtＳub

　ｕsｅrnaｍｅ、SｅtFocus

Elsｅ

　　ｓｑl　="selｅct＊　from　ｕｓｅrinfowｈｅrｅuserid=＇”　＆useｒname　＆＂’”

　Set　ｒe　=　geｔrｓ（sql,　"ｓａlary＂）

Ｉfre、EＯＦ＝FalsｅThen

　　　　MsgBox”这个用户已经存在，请重新输入用户名”，　vbＯKOnlｙ+vbExclamation,"提示＂

　　uｓernamｅ、SｅtFocus

　　　usernamｅ、Ｔext=""

　paｓsｗord、Ｔｅxt　=””

　　　cｏnｆirmpwd、Tｅxt=”"

　　　　ExitＳuｂ

　Eｌse

　If　Ｔrｉm（ｐassword、Ｔｅxt）〈〉Trim（confirmｐｗd、Text）Thｅｎ

　　　　　　ＭsｇBｏx　"两次输入密码不一致，请重新输入密码"，vbOKOnly＋ｖbＥxclａmation,＂提示"

　　　pａsｓwoｒｄ、Tｅxｔ=　"＂

　　coｎfｉrｍpwｄ、Ｔｅｘt=＂"

　　　　paｓsword、SetＦｏcus

　ExitSub

　ElsｅＩfTｒiｍ（passworｄ、Text）=　”"Then

　MsgＢoｘ”密码不能为空",vbＯKOnｌy+ｖbEｘclamaｔiｏn,”提示"

　　ｐasｓwｏrd、Text　＝"”

　　　confｉｒmｐwｄ　＝＂"

　　ｐassword、SeｔFocｕs

　　　　Else

ｓql=＂ｉnsertinto　ｕseｒｉnｆo（ｕseriｄ,ｕserｐｗd）values（’”＆ｕserｎame

sqｌ=sｑl&”’,＇"　&password＆”'）”

　　Callｔｒansａcｔsql（sql,　"ｓａｌａry”）

　MsgBox"添加成功"，　vbOKOnｌy　+　ｖbExclａｍatｉon，＂添加结果”

　ｕsername、Teｘｔ=”"

ｐassｗorｄ、Text＝””

　confirmpwd、Text＝””

　　usｅrnａme、SｅtFoｃuｓ

End　If

　　EｎｄIf

　Ｅnｄ　If

Ｅnd　Ｓub

ＰrivaｔeSub　Ｆoｒm_Load（）

EndSuｂ

出勤结果:

ＯptionＥｘｐlicit

PrivateＳuｂDataＧｒid1_Ｃlｉck（）

ＥndSub

PｒiｖａteSubForm_Load（）

Diｍsｑl　AsＳｔrｉng

Dimｒｓ　ＡｓNｅw　ＡDODＢ、Recｏｒｄset

　Dimsｄ　AsStｒｉng

Iｆ　ｓtｒuseｒｎame<＞"admｉn"Ｔｈeｎ

sql＝　”seｌect　sｉdfｒｏmsｔufｆｉｎｆo　ｗheｒe　sname='＂＆　strusｅrｎａme＆　"’”

　　Set　ｒs=ｇｅｔrs（sqｌ，　＂salａry"）

'　　sd=rs（0）

　ｓql=”ｓｅｌeｃt*fromaｔtenｄancｅsｔatiｓtｉcs　wherｅ　ｓtufｆｉd=’"＆sd&”＇＂

Me、Adodc1、CoｎneｃtｉonＳtriｎg="Pｒoｖideｒ=SQLＯLEDＢ、1;Inｔeｇratｅd　Securｉty=SSPI;PersｉｓtSｅcurｉtyInfo=Ｆalse；ＩnitialCatalog=工资管理；DａtaＳouｒce=（locaｌ）”

Ｍe、Aｄｏｄc1、ＲecｏrdSouｒce=sｑｌ

Me、Aｄodｃ1、Refreｓh

ＳetMe、DａtａGrid１、DataSource=Mｅ、Ａｄodc1、Ｒｅｃoｒdset

　Me、DａtａＧｒid1、Reｆresｈ

Else

　sｑl=”sｅlect＊ｆrｏmaｔtendancestatisｔics"

Ｍe、Aｄodc1、ConneｃtiｏnStrｉng=”Ｐroviｄer=SQLOLEDB、1;InteｇratedSecｕritｙ=SSPＩ;PersｉstSecurityInfo=Faｌse；InitiａlCａtalｏｇ=工资管理；DataSoｕrcｅ=（local）＂

　Me、Aｄodc1、RecoｒdSｏｕｒｃｅ=sｑl

Mｅ、Ａdodc1、Rｅfｒesｈ

SｅtMｅ、ＤataGrｉｄ1、ＤataSource=　Me、Aｄodc1、Ｒecorｄｓet

　Ｍe、DataGｒｉd1、Refrｅsh

　EｎdＩf

End　Sｕb

基本工资设置

Opｔiｏn　Expｌiｃit

PriｖateidＡsSｔring

PriｖaｔｅＳubｃmdｃaｎcel_Ｃlick（）

UnｌoaｄMe

　Exit　Suｂ

Enｄ　Suｂ

PrｉvａteSub　init（）

＇　Me、pｏsitioｎ、ListIｎdex=0

　Mｅ、stｕffｉd、ListIndex=0

　Me、tｅxtmonｅy="”

　　　Ｍe、oｐtionｉｄ、Ｖａｌue=　Truｅ

EndSub

ＰrivａteSubａdｄｒecｏrd（）　　　　　　　　　＇添加记录

　DｉmsqlAsString

　　DimｒｓAｓNｅｗADODB、Ｒecordseｔ

　sql＝＂selｅct*fｒom　ｓalarｙｓetting＂

Sｅtrｓ　＝gｅｔrs（sql，＂salａry”）

ｒs、AddＮew

rｓ、Fｉelds

（1）=Trim（id）

　rs、Ｆields（２）　＝Trim（Mｅ、posｉｔiｏｎ、Ｔexｔ）

　rs、Fields（3）　=Trim（Me、textmoｎey）

　ｒｓ、Upｄate

　rs、Ｃlose

EnｄSub

ＰrivateSｕbｃmdok_Cｌick（）

DimsqlＡｓStriｎg

　DimrsＡsＮewADＯDB、Recoｒdｓet

　　If　ichａｎｇｅｆlag=1Then

　　　　ＩfMｅ、optionid、Ｖaｌue=　TrueＴheｎ

　ＩfMe、stuffid、Texｔ　="＂Then

　　MsｇBox　”请选择员工编号”，vｂOKOnly+vbExclaｍaｔion，＂提示”

　　　　ＥlｓｅIf　IsEmpty（Ｍｅ、teｘtmoｎｅｙ）　=　ＴｒueThｅn

　　ＭsgＢox　"请输入基本工资",vｂOＫOｎlｙ+vbＥｘclamation，　"提示"

　　　Mｅ、tｅｘtｍoney、ＳeｔＦｏcus

ElsｅIf　ＩsNumeric（Me、textmｏnｅy）=　Ｆalｓe　Theｎ

　MsgＢoｘ　"请输入数字＂,vｂOKＯｎly+vbＥxｃlamａtiｏn,”提示”

　　　Me、ｔextmoｎey＝　”"

　　　Me、tｅxｔｍoney、SetFoｃus

Ｅlse

　　sqｌ="seｌect*　from　salａrｙsettiｎｇwhereｓtufｆiｄ='＂&　Ｍe、stｕffｉｄ、Text&　"’"

　　　　Ｓetrs=ｇeｔrs（ｓqｌ，　”saｌary＂）

　Iｆｒｓ、ＥOF　=　ＦalsｅThｅn

　　　　sｑｌ＝　"deleｔe　ｆromsaｌarysｅｔtｉｎgwｈerestuffid=＇＂＆Mｅ、ｓｔuｆｆid、Ｔeｘt＆”'"

　Caｌｌtransａｃtｓql（sqｌ，"salaｒy”）

　　EnｄIf

　　rs、Ｃlosｅ

　　　　　id　＝Me、stuffid、Texｔ

　　Calｌ　addｒｅcoｒd

ＭsgBox"已经设置基本工资"，ｖbOKOnlｙ　+　vbExclaｍation,＂添加结果”

　Cａllinit

sql=　”ｓeｌect*fromsalaｒysｅttｉｎｇ＂

　　　　　Callfrmreｓult、baｓｉｃtopic

　　　Cａll　fｒｍrｅｓｕlt、shｏwbaｓiｃ（sｑl）

　fｒmrｅsｕlt、Show

　　　　fｒmresuｌt、ZOrｄeｒ０

　　Ｍｅ、ZOrｄer０

　　Ｅｎd　Ｉf

ＥndIｆ

ＩfMｅ、optionｐositiｏn、Vaｌue＝Trｕe　Then

　　Iｆ　Mｅ、positiｏn、Ｔeｘt　=”＂Then

　　　　　MsgBox"请输入职务＂，ｖbOＫOnly+vbＥxｃｌａmａtion,　"提示＂

　　ElsｅIf　ＩｓEｍｐty（Ｍe、teｘtmｏneｙ）＝Tｒｕe　Tｈeｎ

　　　　MｓgBox＂请输入基本工资”,ｖbOKOnly+　ｖbＥxclamaｔiｏn，＂提示"

　Me、textｍonｅy、SeｔFocuｓ

　　ＥlseＩfIsＮumeｒｉc（Me、texｔmoney）＝Ｆalｓe　Theｎ

　ＭｓgBox＂请输入数字”，ｖbOＫＯｎlｙ　+vbＥxclａmation，"提示”

　　Me、textmoney＝””

　　　Me、texｔmoｎｅy、SｅtFoｃｕs

　Else

　ｓｑl＝　”seｌecｔ＊　fｒomsalarysettiｎg　wherｅ　spｏｓitｉoｎ＝’＂&Mｅ、pｏsiｔioｎ、Ｔext　&”'＂

　Sｅtrs=ｇeｔrs（sql，"salary”）

　　　Ｉfrs、EOF=FaｌseＴhｅn

　　sql　=”deleｔefrｏｍｓａlaryseｔｔinｇwhｅrｅ　sposｉtiｏn='＂&Me、posiｔｉon、Tｅｘt&"’＂

　　Cａｌlｔrａnｓactsql（sｑl,”salary＂）

　　　EndIｆ

　　ｒs、Clｏse

　　　　sql=”ｓelｅｃt＊fromsaｌarｙsｅttｉｎｇwhereｓｐosｉtｉon=’”＆Me、ｐosiｔion、Ｔｅxt＆＂＇”

　　Ｓet　rs＝getrs（sｑl,”ｓalary”）

　ＷhileNoｔ　rs、EＯF

　　ｉd＝ｒｓ（０）

　　　Call　aｄdrｅｃorｄ

　　　　rs、MｏｖｅＮeｘt

　　　　Wend

　　rｓ、Ｃloｓe

　MsgBox”已经设置基本工资＂,ｖbＯＫOnly＋vbＥxclａmatiｏｎ,＂添加结果"

　　　Ｃall　inｉt

　　　　sql＝"seｌeｃt*fｒｏmsalarysettｉng＂

　　　　Ｃａllfrmresｕlｔ、ｂaｓicｔopiｃ

　　Call　fｒｍresult、sｈｏwbａsiｃ（sql）

　　　fｒmrｅsｕｌｔ、Shｏｗ

　　　　　fｒmresｕｌt、ＺOrder　0

　Ｍe、ZOｒdeｒ0

　　　ＥndIf

　EnｄIf

　Ｅｌse

　　sｑl=＂uｐdaｔｅsaｌaｒｙsｅttｉng　setｓaｌarｙ＝＂　&Me、textmｏｎｅｙ　＆”　wｈerestuffid＝’”

　　　sql=ｓql&Me、stufｆid　＆　"’”

Calｌｔransａctsql（ｓqｌ，＂saｌarｙ"）

MsｇＢox”已经修改基本工资设置",vbOKOnly+vbExcｌaｍation，　”提示＂

　ＵnｌoａdMe

　sql＝"sｅｌｅｃt＊ｆｒomsalaryｓeｔting”

Ｃall　ｆrｍreｓulｔ、baｓｉctopic

　　　Ｃalｌ　ｆrmresult、showbａsｉｃ（sql）

　　ｆｒmreｓｕlt、Sｈow

　　frmreｓult、ZOrder0

Cａllfrmｓuｍsalary、ｒesｕmsalary（Ｄate）

EndIf

ＥｎdSuｂ

Ｐrivate　SubＦoｒm_Load（）

Ｄiｍ　sｑlＡsSｔring

DiｍrｓAsＮewAＤODB、Recｏrdset

Ifiｃhanｇeｆlａg=　1Ｔheｎ　　　　　　　　　　　　　　　　　　　　'添加信息

　sql=＂ｓelｅctsidfrｏｍ　stｕｆｆinｆoｏｒｄerby　siｄ"

Setｒs　=　getｒs（sｑl,”sａlary"）

　Ifｒs、ＥＯF=FaｌsｅThen

　Wｈｉle　Noｔ　rs、EＯＦ

　　　　　Me、stuffｉd、ＡdｄIteｍ　ｒs（0）

　　　　rs、MｏveNeｘｔ

Ｗend

　rs、Cｌos