《工资管理系统实验报告【可编辑范本】.docx》由会员分享，可在线阅读，更多相关《工资管理系统实验报告【可编辑范本】.docx（24页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、信息系统设计与开发 系统名称：工资管理系统 开发人员:薛靖峰 学号:10903422 专业:信息管理与信息系统 (）编写目的 随着社会的发展，中国的中小型企业越来越多,而对企业而言，人力资源是企业最宝贵的资源,也是企业的“生命线”.工资管理又是人力资源管理的重中之重。实行电子化智能化的工资管理,可以让人力资源管理人员从繁重琐碎的案头工作解脱出来,去完成更重要的工作 。实现企业更大的工作效益和利润。提高工作效率,减少人力；节省开支；先前人工劳动的自动化；针对使用企业与人群为中小型的管理者. (）背景借助现代信息技术和管理理论，建立企业管理信息系统是当今社会的重要趋势,企业要在当今激烈的社会竞争中
2、生存并发展,单靠人工或九十年代的手动，机械化操作是不够的,社会的发展,要求企业要跟上时代的步伐,抓住新时代的新科技的机遇,运用自动化,智能化的电脑管理,实现企业的高效益发展，这其中,企业员工的工资管理,对一个企业起着很关键的作用。因此开发一个能自动化的管理企业员工工资的发放，员工内部信息的管理，企业招聘的管理等功能的系统，对一个企业的发展铺上了一条奔向高速发展的道路。在一个企业中,工资管理是一项琐碎、复杂而又十分细致的工作,工资计算、发放、核算的工作量很大，一般不允许出错，如果实行手工操作，每月发放工资须手工填制大量的表格,这就会耗费工作人员大量的时间和精力，计算机进行工资发放工作,不仅能够保
3、证工资核算准确无误、快速输出,而且还可以利用计算机对有关工资的各种信息进行统计,服务于财务部门其他方面的核算和财务处理，同时计算机具有着手工管理所无法比拟的优点例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事工资资管理的效率,也是企业的科学化、正规化管理，与世界接轨的重要条件。2、可行性研究的前提（1）要求主要功能：为企业提供工资管理的软件,方便公司进行准确的工资管理性能要求:可以准确登记出勤率以及一些特殊的影响工资的因素，工资的计算及发放等，可以以不同的方式查询工资情况。最重要的是准确。输入要求：数据完整 、准确,真实。输出要求:简洁、快速
4、、实时、可以打印相关的报表，提供一定的视图。安全与保密要求：本系统的管理员要对该管理系统的安全负责,系统由特定人员修改及进行更新,计算等功能实现职工只有查询的权利,不能对其中的数据进行修改.上级管理者可以利用视图进行查看，或是打印报表(2）目标系统实现后,大大地提高职工工资 管理系统的运行效率，可以减少由人为而导致的纪录及运算错误。可以对某些特殊工资的界定条件进行设定保护,使公司更好的运行。(3)评价尺度:成本效益分析结果，效益大于成本，技术可行,效益小于成本,技术不可行,现有技术可完全承担开发任务，操作可行，软件可被原工作人员快速接受。(4)1、管理上的可行性分析 随着市场近几年的发展，公司
5、规模的不断扩大,业务的扩张，为了提高企业的业务水平,为企业简化人事管理，提高商品库存效率,增加公司的业绩.在管理方面已经积累了丰富的管理经验与方法，并建立的成熟的管理制度、齐全的规章制度汇集了正确的原始数据，使管理工作有了制度支持与信息支持. 特别是，能够改进企业管理机制，改善决策方式,减少管理成本，提高工作效率。领导的支持对于信息系统的开发和实施有很大作用，也能保证系统在开发过程中妥善解决矛盾,在企业上下顺利实施信息系统,实现信息系统最初的目标。 2、 技术上的可行性随着I技术的发展,特别是网络技术和数据库技术的发展，在软件开发方面，可以采用现行主流的开发技术；硬件技术方面则可以充分利用日益
6、增强的存储能力、通讯能力和处理速度来保证系统开发技术的准备。由此可见,该系统在技术上具有可行性。 3、 经济上的可行性 对于信息系统的初期投资,都是为了以后获得更大的经济效益。通过一定的成本、效益分析，我认为开发这个系统在经济上是可行的.因为虽然系统开发需要初始成本和日后的维护费用，但是，信息系统可以提供比以前更加准确和及时的信息,可以改善领导层的决策方式,促进故那里体制改革和提高工作效率,减少人员费用,这些都是可以在以后的管理过程中体现出来的,并且可以令公司比其他竞争对手更加具有竞争优势，对企业长远的发展有不可忽视的作用。所以,经济上的可行性是肯定的。 4、 可行性分析结论 在对系统目标和环
7、境进行分析的基础上,更进一步对系统的技术可行性、经济可行性、营运可行性等方面进行系统的可行性分析研究: 二、组织机构图 三、业务流程图四、功能结构图 五、数据流程图1.第一层数据流程图2.第二层数据流程图 六、数据字典()数据流 数据流编号：D0103数据流名:出勤情况 简要说明：每月员工出勤统计情况数据流来源:人事部 数据流去向:工资信息设置处理 数据流组成：考勤统计时间+出勤天数+迟到早退次数旷工次数+正常加班次数+特殊加班次数+出差次数 (2)数据存储 数据存储编号:1 数据存储名称:月工资表 简要说明:每月按部门的工资表 数据存储来源:工资核算处理 数据存储去向:工资查询处理 数据存储
8、组成：工资统计时间+基本工资+职务津贴+奖金+福利加班费+出差费迟到早退扣发+旷工扣发+其他 （3）处理逻辑 编号:P011. 处理逻辑的名称:工资计算简述:计算本月所有部门员工工资 输入数据流：基本工资,来自“工资信息设置”处理逻辑 其他项目,来自“工资信息设置处理逻辑效益工资,来自“工资信息设置处理逻辑 出勤情况，来自“工资信息设置处理逻辑 数据存储组成:工资统计时间+基本工资+职务津贴奖金+福利+加班费+出差费+迟到早退扣发+旷工扣发+其他 输出的数据流:部门工资，去“月工资表数据存储 员工个人工资，去“工资单”数据存储 (4）外部实体 编号:S04 名称:员工 简述：本单位的员工 输入
9、的数据流:工资单 输出的数据流:确认 七、-R图 八、对象关系图 九、数据表详情1、工资表2、职工表3、财务表 十、系统截图 系统分析报告借助现代信息技术和管理理论,建立企业管理信息系统是当今社会的重要趋势,企业要在当今激烈的社会竞争中生存并发展,单靠人工或九十年代的手动,机械化操作是不够的，社会的发展,要求企业要跟上时代的步伐，抓住新时代的新科技的机遇，运用自动化，智能化的电脑管理，实现企业的高效益发展，这其中，企业员工的工资管理，对一个企业起着很关键的作用。因此开发一个能自动化的管理企业员工工资的发放,员工内部信息的管理，企业招聘的管理等功能的系统,对一个企业的发展铺上了一条奔向高速发展的
10、道路。在一个企业中，工资管理是一项琐碎、复杂而又十分细致的工作,工资计算、发放、核算的工作量很大，一般不允许出错，如果实行手工操作,每月发放工资须手工填制大量的表格，这就会耗费工作人员大量的时间和精力，计算机进行工资发放工作,不仅能够保证工资核算准确无误、快速输出，而且还可以利用计算机对有关工资的各种信息进行统计,服务于财务部门其他方面的核算和财务处理,同时计算机具有着手工管理所无法比拟的优点.例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事工资资管理的效率，也是企业的科学化、正规化管理，与世界接轨的重要条件。1、系统的易用性和易维护性工资信
11、息管理系统是直接面对使用人员的,而使用人员往往对计算机并不时非常熟悉。这就要求系统能够提供良好的用户接口,易用的人机交互界面要实现这一点,就要求系统应该尽量使用用户熟悉的术语和中文信息的界面；针对用户可能出现的使用问题，要提供足够的在线帮助，缩短用户对系统熟悉的过程.工资信息管理系统中涉及到的数据是企业的相当重要的信息，系统要提供方便的手段供系统维护人员进行数据的备份,日常的安全管理，系统意外崩溃时数据的恢复等工作。系统的标准性系统在设计开发使用过程中都要涉及到很多计算机硬件、软件。所有这些都要符合主流国际、国家和行业标准。例如在开发中使用的操作系统、网络系统、开发工具都必须符合通用标准.如规
12、范的数据库操纵界面、作为业界标准的CP/P网络协议及IS9002标准所要求的质量规范等;同时，在自主开发本系统时，要进行良好的设计工作,制订行之有效的软件工程规范，保证代码的易读性、可操作性和可移植性。3、系统的先进性目前计算系统的技术发展相当快,做为员工信息管理系统工程,应该保证系统在下个世纪仍旧是先进的，在系统的生命周期尽量做到系统的先进,充分完成企业信息处理的要求而不至于落后。这一方面通过系统的开放性和可扩充性，不断改善系统的功能完成。另一方面,在系统设计和开发的过程中，应在考虑成本的基础上尽量采用当前主流并先进且有良好发展前途的产品.代码设计：添加用户:Privateub mdcnc_
13、Click（） UloaMe Ex ubEd Sbivate Sub cmdolick(） Dimsl As Strin m rsAs DOBRerdst If Trim(uername.Txt) = ” Then MsgBx ”请输入用户名称, vbOKOnyvbEclaation, 提示” i Sub sename。Setocus lse ql= ”select frourinfo wer srd= sernam & ” Set e = gtrs（ql，”salary) If 。EOF= FseTh MsgBox 这个用户已经存在，请重新输入用户名”, bOOnl + vbcmatio,
14、”提示 serame。SeFc ername.Text = ” pawordext = ” confirmpd。Tex =” xi Sb Else I rim（passord。Tex) Tri(onfirmpd。Tt) Ten MgBo ”两次输入密码不一致，请重新输入密码”， vbOKOny +vExcamatio, ”提示 assword。Text= ” onmpdTt =” psswor。SetFos Ext Su ElseI Trim(passord.Te) ” hn MgBo 密码不能为空”， vbOKOn vbExclmato, ”提示 passwrd.ext = ” onfmpw
15、d = ” psswor.SetFocs lse sql ”inse into einf (usrid,user） alues（” usernae sq sql & ”,” swor ）” Calltransatsql（sq， ”saary) MsgBx 添加成功”， vbOly + vbxclation， ”添加结果” seram。Tet = ” asswod.Text ” cnirmpwd.et = username。SetFcs En If E I End IfEnSubrivate Sub Form_(）End ub出勤结果：OptinExplicitrivtSu DtaGi1_Clc
16、k（)En SubPrivate Sub Form_Load（） Dimsql A String ims NeADDB。Recrdset Dim sd A String If srusernae ”adminThen sl ”elct sid from stufinowhee snam=”strsrna & ” t rs = getrs(ql, salary) d= r（0） ql= seect rom attndancesttiticswheresffid= & s e。Ad1。CnnectionStrin ”Provider=QLOLEB.1；InraedSecuty=SSPI;Persi
17、st ecuty Infolse;Ina atlo=工资管理;Data Souc=(local)” Me.doc1.codSourc ql Me。dod1。Refs Se Me。DaaGid1.DaaSure= e。Adodc1.Recodset Me。atrid1.Rfesh Ele sl = ”slect* fmttendaceaistics e。Adodc1。onecionring= Pvide=QLLEDB.1；Iegate SeitySPI;esis Seurity nf=Fls；Inital Cato工资管理;Dt Source(local）” e.Add1。Recorurce =
18、 ql Me.od。Refresh Set Me.ataGrid.DataSurce Me.dodc。Reordset Me。DtaGrid1。Reresh nd IfEnd Sb基本工资设置Optn ExpcrivateidAs tinrivate Sub cmdcae_Clic() nload Me tSubn ubPrivateS it（） Me。compositin。Listdex =0 Mecomstufi。LisIndx =0 Me。textmoney =” M。opond。ale = TreEd Subivt Sub addrecrd（） 添加记录 ql s Stin D rsA
19、 ewODB。ecset ql =et *frm salrsetn t rs =getr(sql,sa） r.Addw r.Fields(1） Tri() rs。Fields(） = r（MpositionTex) rs。Fiels（） = Trim(Me.emny） s。Upate r.CloseEnd SPriate S cdokCic() m s As trng Di rs Asew ADRedst If iangfag 1 Th Ife.otoid.Vae reThen f Me。comstufi.Text ” Thn sx ”请选择员工编号, vbOKOly + vExcmation
20、, ”提示 ElseIf IsEmpt(e。textmone） = True hen MsBox ”请输入基本工资，bKOly + xlmion, ”提示 Me.tetmonSetFocus ElsIf IsNumic(Me。textmney) =Fals Ten MgBox ”请输入数字”, vbOKnly +vbExamation, 提示 Me。textmey= ” M.txtmoneySetFcs lse sl =selec ro salaryetinhretffid= & Me。ctuffid。Txt & ” Set rs=getrs(sql， alar”） If.EO= Falseh
21、en sql = delte m salarysettin whe stffi& Me.coufid。Txt & ” Cal transacsql（sql, ”salry) End r.Cle id e。comsufid.et Call addrcod Mgo 已经设置基本工资, vbOKOn + vbExclamation， ”添加结果” Cal iit ql elt fromslasetig Cllfrmresultbacoic Callfreul.hobsic（ql) rmrslt.Sow rmest。Orde 0 Me。Order End IEndIf If M.opiopoito。V
22、ae = True The If Mositio.et = ” Then MgBox ”请输入职务”,vbOl+ Excltion,”提示 ElsefIsmty(Me.tmey) Tue Then MsBo ”请输入基本工资”，vbOKOnlvbExcamtion， ”提示 。extony.SeFcu ElIf IsNuric（Me.texoe) =False Te Mso 请输入数字”,vbOKOnly+ vExcamtion， ”提示 M.texney Me.etmne.SeFcus El sqlsele *from salrysettig here sposton &e。coposiio
23、.Txt & Setrs =etrs(sql, ”alay”) If s.EOF False Thn sql =”deletefro salarstingwher spsitin = M。compostin.Tex& ” Cal ransactsql(sq, salary) n f rs。Cloe sqlselc * m salarytting whrespstion = e.cmposition.Tx et rs=getr（sql, ”alar”) Whle trs。E id = r() Calladdecord rs.Moveext Wend rs。Cose MsgBo 已经设置基本工资,
24、vbOly+ vExclamtion, ”添加结果 al int sql ”selct*from salaystti Call rmrutbasctopi al fmresulthowbi（q） fmrsult。Sho frmresult。ZOrder 0 M。Zrer 0 End I Ed If lse sl = ”updat salaysetng set slay= 。textney & ” ee stuffid=” l = sql& M.comstuffid& Cal trnssql(l， salary） MsBx ”已经修改基本工资设置”， vbKOnl + vbExclatin,提示
25、 Unload Me sql ”seect* fom salarysettig” all frmresult。basico al mreslt.swbasic(l) frmeslt。So fmresult.Odr0 Cal fmsumsaary。esusalary（ate) EndIfEndSubPivaub For_Ld（) Dim sl AsSrig im rs As Ne DOD。ecordset If chageflag= 1 Thn 添加信息 sql = seectsid fm tffifo rder ysid” t r ets(sql， lary”) Ir.EO = False T
26、en While t r.EO Me。cmstfdAdItem（0) rsoeext Wen rs.Close Me.cotuffd。stInde = 0 EdIf sql=seec diinct spotonfrom saarystig Sers getrs(sql, salary”)Ifs。EOF =Fals Then Whil o s.EF Mecopositin。AddItem rs(0) s.MoveNe en Cloe Me。ompoition.itIndex 0 En f Me.opiid。Vlue = True lse 修改信息 M。Capto ”修改基本工资设置 Set r
27、= getrs（stpbcsql, slry) e。comstuffd。Text r() M。copsion。ext = r(2) Me.txmoney （3) Me。mstud。Enabled =F Me。compstion.aled = Fals rs.Cloe En IfEnd Sub修改密码:Priate S cmdcane_Ci() Unloa Me Exit Subn Sbrite Su cmdkCik() Di q As Sting Di rs As ADDB.ecrde Iri(lpd。Text)= ” he MsgBox 请输入旧密码, vKnly + xlamation，
28、”提示 odpwd.Setocs Ext S Ee IfTrim(oldpwd.Text） i(serpassod)Then Msox旧密码与登录的密码不同，请重新输入!, vbKOny + vEclation, 提示” oldwd.Txt odpwd.etocus EleIfTr(newpwd。xt) = ” Then MsgBox”请输入新密码, vbOOnl + vbxcmtion， 提示 newpd。tFocu xit Sub ElseIfTri(epd.Tex） Trim（confirmpwTe) Tn MsB ”两次密码不同, vbKOl+ bEclamio，警告” newd。ex
29、 = ” confrmpwd.t = ewpwd。SetFocus Els useawod = nep sq=”upde userino urw=” ewpwd here userid” struername & altaacsq（sql,sa) MsgBox密码已经修改， vbOnly+vxclmai， ”修改结果 Unlad ndf nd IEndSubPivae Suodpw_Chane(）nd Sb公式设置Prvte Sub cmcancel_Clic() Unoad Me Exit SbEn ubPivate Sb mddefaultClik（） e.extovime = 20 Me
30、.txtovertimespe =0 .texterrand =20 e。teabsent = 50 Me。tele= 20 Call setvleEnd SubPit Su cmdok_Clic() f Me。tovrtimecom = And IsNumer(.textovmecom） = Tre Then MsgB 请输入正常加班工资百分比， vbOOnly + vbExamaion，提示 Me.eovetiecm = Me.tetovetimecom。etocus ElseIf textovtimsp = ” Ad Isumei(Me。extoertmepe)= seThen Msx请
31、输入特殊加班工资百分比， vOOly + vbExlmatin， 提示 Metextoetimespe = ” textoertimse.etFocus lsefM.texterand = ” AndIsNumeric（Me.txerrnd) =Fase hen MgBox ”请输入出差工资,vbOOl+Exlaation,提示” Me.textrrnd ” Me.teterrad。StFocus leIf Me.textabn= ” And IsNueri（M。txtabsnt) = Flse Te MsBox ”请输入旷工扣发工资”, vbKOl bExclaation, ”提示” Me.
32、txtabs = ” M.extabset.SetFocs I e.texle And IsNumeric（etextle) False Then gx ”请输入迟到早退扣发工资, vbOKOnly + Elamai, 提示 Mettle = ” Me.txtle。etFos ls all setvalue Clinit End IfEnd ubPrivte Sub setvalue（) im sq As tring im r Ne ADBecoret ql =elct omfomulsettin Set etrs（ql, la） I rsEOF=l Thn sql delete fro fo
33、rulasting Call trnsacl(s， ”saary) d f rs.AddNew s。Felds(0） 。textoertimecom rFels(1） = Metextovrtepe r。Field(2) = e。exterrad rs。Fields（) M。texent rs。Field （4) = Me。exl rs。Upde rs.Cloe sBo ”已经设置公式”, vbOKn +Elaation，设置结果EndSubPrivat Sb ini（) 初始化 Me.extsn = ” Me。txern = Me.xtovrtiecom ” e。texoveims 。xt = ” Me.txtovetmo。SetocusEndSb