人事(人力资源)管理信息系统课程设计

课程设计报告第页共页课程设计报告第页共页目录TOC\o"1-5"\h\z\o"CurrentDocument"引言 1\o"CurrentDocument"系统调查与可行性研究 3\o"CurrentDocument"2。1 初步调查 3\o"CurrentDocument"2。2 可行性研究 6\o"CurrentDocument"3 系统分析 8\o"CurrentDocument"3。1 业务流程分析 8\o"CurrentDocument"3。2 数据流程分析 8\o"CurrentDocument"3。3 数据字典 11\o"CurrentDocument"系统设计 19\o"CurrentDocument"功能结构设计 19\o"CurrentDocument"4。2 数据库设计 19\o"CurrentDocument"代码设计 28\o"CurrentDocument"输入输出设计 29\o"CurrentDocument"系统配置设计 30结束语．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．38\o"CurrentDocument"参考文献 47附录 48课程设计报告第。页共课程设计报告第。页共27页1引言随着计算机技术的飞速发展，计算机在各种单位机构管理中应用的普及,管理信息系统的开发在强调管理、强调信息的现代社会中也显得越来越重要。因此，利用计算机支持单位高效率地完成人事管理的日常事务，是适应现代各种单位机构制度要求、推动各种单位机构人事管理走向科学化、规范化的必要条件。在当今的信息社会，随着信息的不断增长和企业对信息的要求，信息管理技术随之出现。企业人事管理信息系统是一个现代化的企业在竞争中立于不败之地的必要部分，它能够为查询人事信息提供充足的信息和快捷的查询手段［1］。一直以来使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如：效率低、保密性差，另外时间一长，将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难，而且容易丢失.自20世纪50年代将计算机引入数据处理以来，历经管理信息系统发展的各个阶段。一方面是信息技术应用的迅猛发展，另一方面，许多管理信息系统在耗费了大量的人力、物力、财力之后夭折了,或者根本没有实现原系统的开发目标，而把计算机用作了打字机。这是长期以来困惑人们的一大问题［2］。现在人们日益深刻认识到，把信息技术应用与应用环境分离是办不到的。管理信息系统根本不仅是技术系统，而且是社会系统。使用计算机对企业人事信息进行管理，具有手工管理所无法比拟的优点。例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等.这些优点能够极大地提高企业人事管理的效率,也是企业的科学化、正规化管理，与世界接轨的重要条件［3］。因此，开发一个代替手工操作的新型的计算机管理的信息系统对保定隆达铝业有限公司来说刻不容缓,这也是本课题的由来.本论文就是以VISUALBASIC6.0为前台和ACCESS2003为后台等软件作为开发工具，以各种单位机构为对象，开发一个从某种程度上能满足中小型机构对人事信息管理的要求的“人事管理系统"。本系统具有数据管理和企业事务管理功能.使用该系统，可以方便地进行系统管理，基础数据管理，人事档案管理，考勤管理,数据库管理，并且带有备忘录功能,还能够快捷地查询公司员工的情况，方便企业高层领导对该企业人力资源的现状有个比较全面的认识,也方便他们的管理和人员调动，可辅助企业领导决策课程设计报告第课程设计报告第#页共27页EndSubPrivateSubForm_Initialize()CallInitCommonControls’XP效果EndSubPrivateSubForm_Load()Me。Shapel。Top=Me。Top'外边框Me.Shape1.Left=Me.LeftMe.Shape1.Width=Me.ScaleWidthMe。Shapel.Height=Me。ScaleHeightDimRetAsLongRet=GetWindowLong(Me.hWnd,GWL_EXSTYLE)Ret=RetOrWS_EX_LAYEREDSetWindowLongMe。hWnd,GWL_EXSTYLE,RetTimer1.Interval=20CallOpenConnSQL="selectczyfrom系统用户表"rs。OpenSQL,cn,1,1DoWhileNotrs。EOFMe.Combo1。AddItemrs!czyrs.MoveNextLoopCallCloseConnCallOpenConnSQL=”select公司名称from公司信息rs。OpenSQL,cn,1,1Ifrs。RecordCount〉0ThengGsmc=rs!公司名称ElsegGsmc="公司信息未知"EndIfCallCloseConnEndSubPrivateSubTimer1_Timer()Alpha=Alpha+5IfAlpha〉255ThenTimeri。Enabled=FalseExitSubEndIfSetLayeredWindowAttributesMe.hWnd，0,Alpha，LWA_ALPHAEndSub基础档案查询PrivateConstWS_EX_LAYERED=＆H80000PrivateConstGWL_EXSTYLE=(—20)PrivateConstLWA_ALPHA=&H2PrivateConstLWA_COLORKEY=&H1PrivateDeclareFunctionGetWindowLongLib"user32”Alias”GetWindowLongA"(ByValhWndAsLong,ByValnIndexAsLong)AsLongPrivateDeclareFunctionSetWindowLongLib”user32”Alias”SetWindowLongA”(ByValhWndAsLong，ByValnIndexAsLong，ByValdwNewLongAsLong)AsLongPrivateDeclareFunctionSetLayeredWindowAttributesLib"user32”(ByValhWndAsLong，ByValcrKeyAsLong,ByValbAlphaAsByte,ByValdwFlagsAsLong)AsLongDimAlphaAsInteger’声明变量PrivateSubcmdDL_Click()IfMe。Combol。Text=""ThenMsgBox”请选择登陆用户!"，48,”错误提示"ExitSubEndIfCallOpenConnSQL="select*from系统用户表whereCzy='"&Me.Combol。Text&"’"rs.OpenSQL,cn，1，1Ifzhuan(txtPass.Text)=Ilf(Trim(IsNull(rs.Fields("pass")))，"",Trim(rs。Fields("pass")))ThengCzy=rs。Fields("czy")gCzyqx=rs。Fields("czyqx")CallCloseConnMDIfrm.ShowUnloadMeElseMsgBox”密码错误！”,48,"错误提示”EndIfEndSubPrivateSubcmdTC_Click()EndEndSubPrivateSubForm_Initialize()CallInitCommonControls’XP效果EndSubPrivateSubForm_Load()Me。Shapel。Top=Me。Top'外边框Me。Shapel。Left=Me。LeftMe。Shapel。Width=Me。ScaleWidthMe.Shapel.Height=Me。ScaleHeightDimRetAsLongRet=GetWindowLong(Me。hWnd,GWL_EXSTYLE)Ret=RetOrWS_EX_LAYEREDSetWindowLongMe。hWnd,GWL_EXSTYLE,RetTimer1.Interval=20， _ _ ————— —————————-——-—-—CallOpenConnSQL=”selectczyfrom系统用户表”rs。OpenSQL,cn,1,1DoWhileNotrs.EOFMe.Combo1.AddItemrs!czyrs。MoveNextLoopCallCloseConnCallOpenConnSQL="select公司名称from公司信息”rs。OpenSQL,cn,1,1Ifrs。RecordCount>0ThengGsmc=rs!公司名称ElsegGsmc=”公司信息未知"EndIfCallCloseConnEndSubPrivateSubTimer1_Timer()Alpha=Alpha+5IfAlpha〉255ThenTimeri。Enabled=FalseExitSubEndIfSetLayeredWindowAttributesMe。hWnd,0,Alpha,LWA_ALPHAEndSub用户管理DimqxAsString'权限PrivateSubCheck1_Click(IndexAsInteger)EndSubPrivateSubcmdBC_Click()’保存按钮IfTrim(Me。txtCZY.Text)=""ThenMsgBox”登陆名不能为空！”，48，"提示”ExitSubEndIfIfMe。cmdBC。Caption=”新增”ThenFori=0ToMe.List1.ListCountIfTrim(Me。txtCZY,Text)=Me。Listi。List(i)ThenMsgBox"该用户已经存在！”,48,"提示"ExitSubEndIfNextCallOpenConnSQL="select＊from系统用户表"rs,OpenSQL，cn，3，3rs,AddNewrs!czy=Trim(Me。txtCZY,Text)rs!pass=zhuan("i23456")Fori=0To5qx=qx&Me.Check1(i).ValueNextrs!czyqx=qxrs。UpdateCallCloseConnqx=”"MsgBox”操作员添加成功，初始密码为123456,请注意修改！"，64，"提示"Me.txtCZY。Enabled=TrueMe.cmdSC.Enabled=FalseElseCallOpenConnSQL="select大from系统用户表whereczy='"&Me。txtCZY.Text&”’"rs.OpenSQL，cn，3，3Fori=0To5qx=qx&Me.Check1(i).ValueNextrs！czyqx=qxrs。UpdateCallCloseConnqx=”” '清空变量MsgBox"保存成功！",64,”提示"Me。cmdBC。Caption="新增"Me。txtCZY.Enabled=TrueMe。cmdSC.Enabled=FalseEndIfCalladdLISTMe.txtCZY。Text="”Fori=0To5Me.Check1(i).Value=0NextEndSubPrivateSubcmdSC_Click()IfMe。txtCZY。Text=""ThenMsgBox”请选择要删除的操作员！”,48，"提示”ExitSubEndIfIfMe.List1。ListCount〈=1ThenMsgBox”只有一个操作员了，不能再删除！”,48,”提示”ExitSubEndIfCallOpenConncn.Execute("delete大from系统用户表whereczy='"&Me。Listl。Text&”'”)CallCloseConnCalladdLIST'刷新列表Me.txtCZY.Text="”Me。txtCZY.Enabled=TrueMe.cmdSC.Enabled=FalseMe。cmdBC.Caption=”新增”Fori=0To5Me。Checkl(i)。Value=0NextEndSubPrivateSubForm_Initialize()CallInitCommonControls'XP效果EndSubPrivateSubForm_