完整word版工资管理系统实验报告Word文档格式.docx
《完整word版工资管理系统实验报告Word文档格式.docx》由会员分享,可在线阅读,更多相关《完整word版工资管理系统实验报告Word文档格式.docx(20页珍藏版)》请在冰豆网上搜索。
5安全与保密要求:
本系统的管理员要对该管理系统的安全负责,系统由特定人员修改及进行更新,计算等功能实现。
职工只有查询的权利,不能对其中的数据进行修改。
上级管理者可以利用视图进行查看,或是打印报表。
(2)目标
系统实现后,大大地提高职工工资管理系统的运行效率,可以减少由人为而导致的纪录及运算借误。
可以对某些特殊工资的界定条件进行设定保护,使公司更好的运行。
(3)评价尺度:
成本效益分析结果,效益人于成本,技术可行,效益小于成本,技术不可行,现有技术可完全承担开发任务,操作可行,软件可被原工作人员快速接受。
(4)
1、管理上的可行性分析
随着市场近几年的发展,公司规模的不断扩大,业务的扩张,为了提高企业的业务水平,为企业简化人事管理,提高商品库存效率,增加公司的业绩。
在管理方面已经积累了丰富的管理经验与方法,并建立的成熟的管理制度、齐全的规章制度汇集了正确的原始数据,使管理工作有了制度支持与信息支持。
特别是,能够改进企业管理机制,改善决策方式,减少管理成本,提高工作效率。
领导的支持对于信息系统的开发和实施有很人作用,也能保证系统在开发过程中妥善解决矛盾,在企业上下顺利实施信息系统,实现信息系统最初的目标。
2、技术上的可行性
随着IT技术的发展,特別是网络技术和数据库技术的发展,在软件开发方面,可以采用现行主流的开发技术;
硬件技术方面则可以充分利用日益增强的存储能力、通讯能力和处理速度来保证系统开发技术的准备。
由此可见,该系统在技术上具有可行性。
3、经济上的可行性
对于信息系统的初期投资,都是为了以后获得更人的经济效益。
通过一定的成本、效益分析,我认为开发这个系统在经济上是可行的。
因为虽然系统开发需要初始成本和日后的维护费用,但是,信息系统可以提供比以前更加准确和及时的信息,可以改善领导层的决策方式,促进故那里体制改革和提高工作效率,减少人员费用,这些都是可以在以后的管理过程中体现出来的,并且可以令公司比具他竞争对手更
加具有竞争优势,对企业长远的发展有不可忽视的作用。
所以,经济上的可行性是肯定的。
4、可行性分析结论
在对系统目标和环境进行分析的基础上,更进一步对系统的技术可行性、经济可行性、营运可行性等方面进行系统的可行性分析研究:
二、组织机构图
总经理
三、业务流程图
人爭部
部财
四.功能结构图
年度汇总
统计汇总
月工资表
T•贸管理系统
生成报我
1
五、数据流程图
1.第一层数据流程图
2.第二层数据流程图
六、数据字典
(1)数据流
数据流编号:
D01-03
数据流名:
出勤情况
简要说明:
每月员工出勤统计情况
数据流来源:
人事部
数据流去向:
工资信息设置处理
数据流组成:
考勤统计时间+出勤天数+迟到早退次数+旷工次数+正常
加班次数+特殊加班次数+出差次数
(2)数据存储
数据存储编号:
F1
数据存储名称:
每月按部门的工资表
数据存储来源:
工资核算处理数据存储去向:
工资查询处理数据存储组成:
工资统计时间+基本工资+职务津贴+奖金+福利+加班费+出差费+迟到早退扣发+旷工扣发+其他
(3)处理逻辑
编号:
P01-1.2
处理逻辑的名称:
工资计算
简述:
计算本月所有部门员工工资
输入数据流:
基本工资,来自“工资信息设置”处理逻辑
其他项目,来自“工资信息设置”处理逻辑
效益工资,来自“工资信息设置”处理逻辑
出勤情况,来自“工资信息设置”处理逻辑
数据存储组成:
工资统计时间+基本工资+职务津贴+奖金+福利+加班
费+出差费+迟到早退扣发+旷工扣发+其他
输出的数据流:
部门工资,去“月工资表”数据存储
员工个人工资,去“工资单”数据存储
(4)外部实体编号:
S04
名称:
员工简述:
本单位的员工
输入的数据流:
工资单
确认
七、E-R图
八、对象关系图
工资
PK,FK1
工资収号
FK1
一s^一
财务部
PK.FK1
工窃单号
tfi售明细出砂惜况奖励标岸计算提成力法
职工
PK1
工资单姓名性别年龄部门住址工资单号
九、数据表详情
1、工资表
ID-
字段1・
字段2上
字段3・
字段4・
字段5・
忝加新字段
工资单号
职工号
基本工资
奖金
扣除
2
20120901
500
200
123
3
1009034117
550
300
4
201210011
1009034123
700
600
327
5
20121001
650
50
620121101
1009034157
1000
459|
*
2、职工表
字段1▼
职工号1009034122100903412310090341271009034147
誤名邮帅煌耘姓薛蔺谢王
段字别性男男男女
段
字龄
FT221
角222
字段6
中北大学
▼字段7▼.
工资单号20120901
20121101
3、财务表
字段1F
字段2丁
字段3▼
字段4▼
字段5社
工資单号
销售明细
奖励标准
其他
-150
156
359
-100
350
160
461
120
540
320
十、系统截图
工资详情I工資管理职工管理
mm婪录
密码
登录I忘记密码I
基本信息
职工号|-
姓名
部门
民礁
学历
住址
性别
■二资详倩
二吳单号[
基本工资[
燮全
年售明细
其他—
工資是盂己左於I
査洵
系统分析报告
在一个企业中,工资管理是一项琐碎、复杂而又十分细致的工作,工资计算、发放、核算的工作量很大,一般不允许出错,如果实行手工操作,每月发放工资须手工填制人量的表格,这就会耗费工作人员大量的时间和精力,计算机进行工资发放工作,不仅能够保证工资核算准确无误、快速输出,而口还可以利用计算机对有关工资的各种信息进行统计,服务于财务部门其他方面的核算和财务处理,同时计算机具有着手工管理所无法比拟的优点.例如:
这些优点能够极大地提高人事工资资管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。
1、系统的易用性和易维护性
工资信息管理系统是直接面对使用人员的,而使用人员往往对计算机并不时非常熟悉。
这就要求系统能够提供良好的用户接口,易用的人机交互界面。
要实现这一点,就要求系统应该尽量使用用户熟悉的术语和中文信息的界面;
针对用户可能出现的使用问题,要提供足够的在线帮助,缩短用户对系统熟悉的过程。
工资信息管理系统中涉及到的数据是企业的相当重要的信息,系统要提供方便的手段供系统维护人员进行数据的备份,FI常的安全管理,系统意外崩溃时数据的恢复等工作。
系统的标准性
系统在设计开发使用过程屮都要涉及到很多计算机硬件、软件。
所有这些都要符合主流国际、国家和行业标准。
例如在开发中使用的操作系统、网络系统、开发工具都必须符合通用标准。
如规范的数据库操纵界面、作为业界标准的TCP/IP网络协议及IS09002标准所要求的质量规范等;
同时,在自主开发本系统时,要进行良好的设计工作,制订行之有效的软件工程规范,保证代码的易读性、可操作性和可移植性。
3、系统的先进性
目前计算系统的技术发展相当快,做为员工信息管理系统工程,应该保证系统在下个世纪仍IH是先进的,在系统的生命周期尽量做到系统的先进,充分完成企业信息处理的要求而不至于落后。
这一方面通过系统的开放性和可扩充性,不断改善系统的功能完成。
另一方面,在系统设计和开发的过程中,应在考虑成本的基础上尽量采用当前主流并先进且有良好发展前途的产品。
代码设计:
添加用户:
PrivateSubcmdcancel_Click()
UnloadMe
ExitSub
EndSub
PrivateSubcmdok_Click()
DunsqlAsSuing
DimrsAsADODBRecordset
IfTiim(useriiameText)-"
Then
MsgBox"
请输入用户名称二vbOKOnly^Exclamation.H提示“
username.SetFocus
Else
sql■Mselect♦fromuserinfowhereuserid-,H&
username&
HW
Setre-getrs(sqL"
salary"
)
Ifre.EOF・FalseThen
MsgBox”这个用户己经存在.请录新输入用户名\vbOKOiily+vtExclamation.°
提示99usemameSetFocus
username.Text-"
password.Text-confirmpwdText-WMExitSub
IfTnm(passwordText)OTrmi(confiimpwdText)Then
两次输入密码不一致・请乖新输入密码二vbOKOnly+\i>
Exclamation.”提示”password.Text-
confirmpwdText-HH
passwordSetFocus
ElselfTrim(pass\vord.Text)-HUThen
MsgBox”密码不能为空M,vbOKOnly牛vhExckrnmuoa”提示”password.Text-Mt1
confirmpwd-MH
password.SetFocus
sql-”insertintouseiinfo(userid.userpwd)values(,M&
usernamesql・sql&
&
password&
Calltransactsql(sql,Msalaiyj
MsgBox”添加成功\vbOKOnly+\4>
Exclamauon,加结果”
usernameText-MM
password.Text■"
confirmpwd.Text-"
usernameSetFocus
EndIf
PrivateSubFomi.LoadQ
出勤结果:
OptionExplicit
PnvaieSubDataGiidl_ClickQ
PrivateSubForm_LoadQ
DimsqlAsString
DunrsAsNewADODBRecordset
DunsdAsString
IfstniseriianieOSdmm"
sql-Mselectsidfromstuffinfowheresname&
strusername&
Setrs■getrs(sql."
salary”)
1sd-rs(0)
Security
Secuntv
♦
sql■”select♦fromattendancestatisticswheresniffid-**&
sd&
W,K
MeAdodclConnectionStrmg■HProvider-SQLOLEDBl;
IntegratedSecurity^-SSPLPersistIiifo-False,ImtialCatalog-I】资管理.DadSouice-(local)"
MeAdodclRecordSource-sql
MeAdodclRefresh
SetMeDataGridlDataSource■Me.AdodclRecordset
Me.DataGndlRefresh
sql-"
select*fromattendancestatisticsM
MeAdodclConnectionStimg■HProvider-SQLOLEDBLIntegiatedSecurity^-SSPLPersistInfo-False,ImtialCatalog-匸资营理.DataSouice-(local)H
SetMeDataGridlDataSource■Me.Adodc1Recordset
基本工资设置
PrivateidAsStung
PrivateSubimtQ
Mposition.Listlndex■0
MecoinstuffidListlndex-0
Metextmonev■"
”
MeoptiomdValue-True
PrivateSubaddiecordO•添加记录
DimrsAsNewADODBRecordset
sql-Hselect*fromsalary,settmgM
Setrs-getis(sql「salary"
rs.AddNew
rs.Fields(l)-Tnm(id)
is.Fields
(2)-Tnm(MpositioiLText)
is.Fields(3)-Tnm(Me.textmoney)
rs.Update
rs.Close
DimsqlAsSuing
DinirsAsNewADODBRecordset
Iflchaiigeflag-1Then
IfMeoptioiud.Value-TrueThen
IfMstuffidTextThen
请选择员工编vbOKOnly十vbExclamation,”提示”
ElselfIsEnipty(Me.textmone>
9-TrueThen
MsgBox■•请输入基本工资二vbOKOnly+vbExclaniation.”提示”
MetextmoneySetFocus
ElselfIsNumeric(Metextmoney)-FalseThen
请输入数'
旷,vbOKOnly+vbExclamauon.”捉示"
Me.textmoney
sql■"
select♦fiomsalaryseuingwherestuffid-'
H&
MstuffidText&
"
"
Setrs-getrs(sql,"
Ifrs.EOF-FalseThen
sql■"
deletefromsalarysettmgwherestuffid-M&
MstufiidText&
Calltransactsql(sql,**salanrM)
rs.Ciose
id■MecomstuffidText
Calladdrecord
MsgBox”己经设辻基木匸资•:
vbOKOnly+vbExchmauon「添加结果”
Callnut
sql■Mselect♦fromsalarysetting**
Callfrrniesult.basictopic
Callfimiesult.showbasic(sql)
filmesult.Show
frmiesult.ZOrdei0
Me.ZOrder0
EudIf
IfMeoptionpositionValue-TnieThen
IfMposition.TextThen
请输入职务二vbOKOnly*vbExclamation.”捉示"
EiselfIsEmptyXMetextmoney)一TrueThen
请输入基本工资二vbOKOnly+vbExclamation,M提示"
Me.textmoney.SetFocus
EiselfIsNumenc(Me.texlmoney)■FalseThen
请输入数字二vbOKOnly♦vbExclamation.M提示"
Me.textmoney-
sql-Mselect*fromsalamettingwheresposition-,H&
MpositionText&
nw
Setrs-getrs(sql「salary”)
Ifrs.EOF-FalseThen
sql-'
'
deletefromsalarysettingwheresposition&
Me.coinpositionText&
Mm
Calltransactsql(sql."
sql-Hselect*fromsalaryseiungwheresposition-,M&
Setrs-getrs(sql,HsalaryM)
WhileNotisEOF
id-rs(0)
rsMoveNext
Wend
已经设ft基木工资vbOKOnly十vtExclamation.M添加结果"
Callmit
sql-Mselect*fromsnlarysetung”
Callfrmiesult.basictopic
Callfilmesult.showbasic(sql)
frmiesult.ZOrder0
sql-Mupdatesalarysettingsetsalary—H&
Me.textmoney&
Hwherestuffid-H,sql-sql&
Mstuffid&
*HHCalltransactsql(sql,KsalaryM)
MsgBoxH已经修改甚木工资设置”.vbOKOnlyvi)Exclamation.°
提示"
sql-Mselect♦fromsalaiysetting**
Callfinuesult.basictopic
Callfrixuesult.showbasic(sql)
frmiesult.Show
Hiniesult.ZOrdei0
Callfrin