工资管理系统实验报告Word格式文档下载.docx
《工资管理系统实验报告Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《工资管理系统实验报告Word格式文档下载.docx（22页珍藏版）》请在冰豆网上搜索。
④输出要求：
简洁、快速、实时、可以打印相关得报表,提供一定得视图.
⑤安全与保密要求：
本系统得管理员要对该管理系统得安全负责,系统由特定人员修改及进行更新,计算等功能实现。
职工只有查询得权利,不能对其中得数据进行修改。
上级管理者可以利用视图进行查瞧,或就是打印报表。
（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
升级会员 