企业人事管理系统论文

1、参考文献1 苏苏选良.管理信信息系统统M .北北京:电电子工业业出版社社,20003. 2 HYPERLINK 陈陈辉，人人事管理理研究.黑龙江江人民出出版社，2200553 罗罗鸿. ERPP原理设设计实施施 MM . 北京京: 电电子工业业出版社社,20002 .4 萨萨师煊著著数据据库系统统概论（第第二版）M高等教教育出版版社,119911,8-405 EERP Impplemmenttatiionss CCCoontrrolllers RRepoort, Deec20007, Vool. 20007 IIssuue 112, p3-4.6 张张毅.企企业资源源计划(ERPP)SCCM,

2、CCRMM.北京:电子工工业出版版社,220022 .7 WWilll,H.J. Moddel Mannageemennt SSysttemssJ.Innforrmattionn Syysteems andd Orrgannizaatioon SStruuctuure. 19975, :4465-4822 .8 OOngeeveeen,HH.E,N NNoorrrdhhuizzen-Staasseen,JJ.E.Schhreiinemmakeers, annd AA.Brrandd. DDeveeloppmennt oof aan iinteergrrateed kknowwleddge-ba

3、ssed sysstemm foor mmanaagemmentt suuppoort of daiiry farrms .J. Daairyy Scci. 19991, 74 :4337743883 .9 JJiann Maa. AAn oobjeect-oriientted fraamewworkk foor mmodeel mmanaagemmenttJ .DDeciisioon SSuppportt Syysteems, 19995, 133 (22) :1333-11139 . 10 美Jefffreey RRichhterr,商丽丽媛译.Miccrossoftt .NNET Fra

4、amewworkk程序设设计MM.北北京:清清华大学学出版 20003, 29223440附 录计发工资：Privaate Subb CmmbCoode_Chaangee()If RsstPaayReecorrd.SStatte = addStaateOOpenn ThhenRstPaayReecorrd.CClosse /关闭记记录集End IIfRstPaayReecorrd.OOpenn sseleect *frrom 员工档档案 wwherre 员员工编号号= & CmbbCodde.TTextt & , DBCCON, addOpeenKeeyseet, adLLockkOpttim

5、iistiic, adCCmdTTextt TTxtNNamee.Teext = RRstPPayRRecoord.Fieeldss(1).Vaaluee /给给文本框框赋值 TTxtBBracch.TTextt = RsttPayyReccordd.Fiieldds(116).VallueEnd SSub工资整理：Privaate Subb CmmdDeel_CClicck()If MssgBoox(确定要要删除吗吗？, vbbInfformmatiion + vvbYeesNoo, 删除信信息) = vbYYes Theen IIf RRsMoodPaay.RRecoordCCounnt

6、00 Thhen RsMModPPay.Delletee /删除记记录 Calll CCmdMMovee_Cllickk EElsee MsggBoxx 当当前没有有任何记记录, , 删除除记录 Calll FFormmTxttVallue22 /调用给给文本框框赋空值值的过程程 EEnd IfEnd IIfEnd SSubPrivaate Subb CmmdEddit_Cliick()Call CmddStaate11 /调用命命令按钮钮Vissiblle属性性为隐藏藏的过程程Call TxttStaate /调用启启用文本本框的EEnabbledd属性过过程End SSub查询工资：Pri

7、vaate Subb CmmbCoode_Chaangee()If RsstQPPay.Staate = aadSttateeOpeen TThennRstQPPay.Cloose /关闭闭记录集集End IIfRstQPPay.Opeen sellectt *ffromm 员工工工资 wheere 员工编编号= & CmmbCoode.Texxt & , DBCCON, addOpeenKeeyseet, adLLockkOpttimiistiic, adCCmdTTexttTxtNaame.Texxt = RsstQPPay.Fieeldss(1).Vaaluee /给给文本框框赋值End

8、 SSubPrivaate Subb CmmdCllosee_Cllickk()Unloaad MMeEnd SSubPrivaate Subb CmmdQuueryy_Cllickk()Dim SStrSSQL As Strringg SStrSSQL = sellectt * froom 员员工工资资 whheree /给定定义好的的字符变变量赋予予SQLL语句 /判判断复选选框有一一个选中中时,则则 IIf CChkCCodee.Vaaluee = 1 OOr CChkNNamee.Vaaluee = 1 OOr CChkDDatee.Vaaluee = 1 TThenn /判断三三个复

9、选选框同时时选中时时,则 If ChkkCodde.VValuue = 1 Andd ChhkNaame.Vallue = 11 Annd CChkDDatee.Vaaluee = 1 TThenn SttrSQQL = SttrSQQL & 员员工编号号= & Trrim(CmbbCodde.TTextt) & & aand & 员员工姓名名 = & TTrimm(TxxtNaame.Texxt) & & andd & 计发时时间 bbetwweenn # & DTPPFroomDaate.Vallue & # aand # & DDTPTToDaate.Vallue & # & /判断编编

10、号与姓姓名复选选框选中中时,则则 ElsseIff ChhkCoode.Vallue = 11 Annd CChkNNamee.Vaaluee = 1 TThenn SttrSQQL = SttrSQQL & 员员工编号号= & Trrim(CmbbCodde.TTextt) & & aand & 员员工姓名名 = & TTrimm(TxxtNaame.Texxt) & /判断编编号与进进入公司司时间复复选框选选中时,则 ElsseIff ChhkCoode.Vallue = 11 Annd CChkDDatee.Vaaluee = 1 TThenn SttrSQQL = SttrSQQL &

11、 员员工编号号= & Trrim(CmbbCodde.TTextt) & & aand & 计计发时间间 beetweeen # & DDTPFFrommDatte.VValuue & # annd # & DTTPTooDatte.VValuue & # & /判断姓姓名与进进入公司司时间复复选框选选中时,则 ElsseIff ChhkNaame.Vallue = 11 Annd CChkDDatee.Vaaluee = 1 TThenn SttrSQQL = SttrSQQL & 员工姓姓名 = & Triim(TTxtNNamee.Teext) & & annd & 计发发时间 bett

12、weeen # & DTTPFrromDDatee.Vaaluee & # andd # & DTPPToDDatee.Vaaluee & # & Elsse Iff ChhkCoode.Vallue = 11 Thhen /只只有编号号复选框框选中时时,则 SStrSSQL = SStrSSQL & 员工编编号= & TTrimm(CmmbCoode.Texxt) & Ennd IIf Iff ChhkNaame.Vallue = 11 Thhen /只只有姓名名复选框框选中时时,则 SStrSSQL = SStrSSQL & 员工工姓名 = & Trrim(TxttNamme.TTextt

13、) & Ennd IIf Iff ChhkDaate.Vallue = 11 Thhen /只只有进入入公司时时间复选选框选中中时,则则 SStrSSQL = SStrSSQL & 计发时时间 bbetwweenn # & DTPPFroomDaate.Vallue & # aand # & DDTPTToDaate.Vallue & # & Ennd IIf Endd Iff Iff RsstQuueryyPayy.Sttatee = adSStatteClloseed TThenn RRstQQuerryPaay.OOpenn SttrSQQL, DBCCON, addOpeenKeeys

14、eet, adLLockkOpttimiistiic, adCCmdTTextt Ennd IIf Sett VSSQueeryPPay.DattaSoourcce = RsstQuueryyPayy.DaataSSourrce LbllCouunt.Capptioon = RsstQuueryyPayy.ReecorrdCoountt /将将记录条条数显示示在标签签上 VSQQuerryPaay.RRefrreshh /刷刷新网格格 RsttQueeryPPay.Cloose /关闭记记录集 CmbbCodde.TTextt = Emppty /请空空文本框框 TxttNamme.TText

15、t = Emppty EElsee IIf RRsQuueryyPayy.Sttatee = adSStatteClloseed TThenn RsQQuerryPaay.OOpenn 员员工工资资, DBCCON, addOpeenKeeyseet, adLLockkOpttimiistiic, adCCmdTTablle EEnd If Sett VSSQueeryPPay.DattaSoourcce = RssQueeryPPay.DattaSoourcce /设置网网格的数数据源 LbllCouunt.Capptioon = RssQueeryPPay.ReccorddCouunt V

16、SQQuerryPaay.RRefrreshh /刷刷新网格格 RsQQuerryPaay.CClosse /关关闭记录录集 CmbbCodde.TTextt = Emppty /请空空文本框框 TxttNamme.TTextt = Emppty EEnd IfEnd SSubPrivaate Subb Foorm_Loaad()WinXPPQueeryPPay.IniitSuubCllasssinggMe.Leeft = FFrmmmdimmainn.Wiidthh / 5Me.Toop = Frrmmddimaain.Heiightt / 20If RssQPaay.SStatte = a

17、ddStaateOOpenn Thhen RRsQPPay.ClooseEnd IIfRsQPaay.OOpenn 员员工工资资, DBCCON, addOpeenKeeyseet, adLLockkPesssimmisttic, addCmddTabbleIf RssQPaay.RRecoordCCounnt 0 Theen /如果果记录集集中有记记录 SSet CmbbCodde.RRowSSourrce = RRsQPPay /DAATACCOMBBO中的的数据等等于记录录集 CCmbCCodee.BoounddCollumnn = 员工工编号 /绑定定列 CCmbCCodee.Liis

18、tFFielld = 员员工编号号Else /否则。清清空 CCmbCCodee.Teext = End IIfEnd SSub员工留言：Privaate Subb Foorm_Loaad() WinnXPAAddUUserrs.IInittSubbClaassiing MMe.LLeftt = Frmmmdiimaiin.WWidtth / 3 MMe.TTop = FFrmmmdimmainn.Heeighht / 6 IIf RRsAdddMeessaage.Staate = aadSttateeCloosedd Thhen RsAAddMMesssagee.Oppen 用户户留言, DDBCOON, adOOpennKeyysett, aadLoockPPesssimiistiic, adCCmdTTablle 打打开记录录集 Ennd IIf MMsgLListtEnd SSubPrivaate Subb MssgLiist()List11.Cllearr If RsAAddMMesssagee.Sttatee = adSStatteClloseed TThenn RssAdddMesssagge.OOpe