企業(yè)人事管理系統(tǒng)論文

1、參考文獻(xiàn)1 蘇蘇選良.管理信信息系統(tǒng)統(tǒng)M .北北京:電電子工業(yè)業(yè)出版社社,20003. 2 HYPERLINK 陳陳輝，人人事管理理研究.黑龍江江人民出出版社，2200553 羅羅鴻. ERPP原理設(shè)設(shè)計(jì)實(shí)施施 MM . 北京京: 電電子工業(yè)業(yè)出版社社,20002 .4 薩薩師煊著著數(shù)據(jù)據(jù)庫(kù)系統(tǒng)統(tǒng)概論（第第二版）M高等教教育出版版社,119911,8-405 EERP Impplemmenttatiionss CCCoontrrolllers RRepoort, Deec20007, Vool. 20007 IIssuue 112, p3-4.6 張張毅.企企業(yè)資源源計(jì)劃(ERPP)SCCM,

2、CCRMM.北京:電子工工業(yè)出版版社,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程序設(shè)設(shè)計(jì)MM.北北京:清清華大學(xué)學(xué)出版 20003, 29223440附 錄計(jì)發(fā)工資：Privaate Subb CmmbCoode_Chaangee()If RsstPaayReecorrd.SStatte = addStaateOOpenn ThhenRstPaayReecorrd.CClosse /關(guān)閉記記錄集End IIfRstPaayReecorrd.OOpenn sseleect *frrom 員工檔檔案 wwherre 員員工編號(hào)號(hào)= & 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(確定要要?jiǎng)h除嗎嗎？, vbbInfformmatiion + vvbYeesNoo, 刪除信信息) = vbYYes Theen IIf RRsMoodPaay.RRecoordCCounnt

6、00 Thhen RsMModPPay.Delletee /刪除記記錄 Calll CCmdMMovee_Cllickk EElsee MsggBoxx 當(dāng)當(dāng)前沒(méi)有有任何記記錄, , 刪除除記錄 Calll FFormmTxttVallue22 /調(diào)用給給文本框框賦空值值的過(guò)程程 EEnd IfEnd IIfEnd SSubPrivaate Subb CmmdEddit_Cliick()Call CmddStaate11 /調(diào)用命命令按鈕鈕Vissiblle屬性性為隱藏藏的過(guò)程程Call TxttStaate /調(diào)用啟啟用文本本框的EEnabbledd屬性過(guò)過(guò)程End SSub查詢工資：Pri

7、vaate Subb CmmbCoode_Chaangee()If RsstQPPay.Staate = aadSttateeOpeen TThennRstQPPay.Cloose /關(guān)閉閉記錄集集End IIfRstQPPay.Opeen sellectt *ffromm 員工工工資 wheere 員工編編號(hào)= & 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語(yǔ)句 /判判斷復(fù)選選框有一一個(gè)選中中時(shí),則則 IIf CChkCCodee.Vaaluee = 1 OOr CChkNNamee.Vaaluee = 1 OOr CChkDDatee.Vaaluee = 1 TThenn /判斷三三個(gè)復(fù)

9、選選框同時(shí)時(shí)選中時(shí)時(shí),則 If ChkkCodde.VValuue = 1 Andd ChhkNaame.Vallue = 11 Annd CChkDDatee.Vaaluee = 1 TThenn SttrSQQL = SttrSQQL & 員員工編號(hào)號(hào)= & Trrim(CmbbCodde.TTextt) & & aand & 員員工姓名名 = & TTrimm(TxxtNaame.Texxt) & & andd & 計(jì)發(fā)時(shí)時(shí)間 bbetwweenn # & DTPPFroomDaate.Vallue & # aand # & DDTPTToDaate.Vallue & # & /判斷編編

10、號(hào)與姓姓名復(fù)選選框選中中時(shí),則則 ElsseIff ChhkCoode.Vallue = 11 Annd CChkNNamee.Vaaluee = 1 TThenn SttrSQQL = SttrSQQL & 員員工編號(hào)號(hào)= & Trrim(CmbbCodde.TTextt) & & aand & 員員工姓名名 = & TTrimm(TxxtNaame.Texxt) & /判斷編編號(hào)與進(jìn)進(jìn)入公司司時(shí)間復(fù)復(fù)選框選選中時(shí),則 ElsseIff ChhkCoode.Vallue = 11 Annd CChkDDatee.Vaaluee = 1 TThenn SttrSQQL = SttrSQQL &

11、 員員工編號(hào)號(hào)= & Trrim(CmbbCodde.TTextt) & & aand & 計(jì)計(jì)發(fā)時(shí)間間 beetweeen # & DDTPFFrommDatte.VValuue & # annd # & DTTPTooDatte.VValuue & # & /判斷姓姓名與進(jìn)進(jìn)入公司司時(shí)間復(fù)復(fù)選框選選中時(shí),則 ElsseIff ChhkNaame.Vallue = 11 Annd CChkDDatee.Vaaluee = 1 TThenn SttrSQQL = SttrSQQL & 員工姓姓名 = & Triim(TTxtNNamee.Teext) & & annd & 計(jì)發(fā)發(fā)時(shí)間 bett

12、weeen # & DTTPFrromDDatee.Vaaluee & # andd # & DTPPToDDatee.Vaaluee & # & Elsse Iff ChhkCoode.Vallue = 11 Thhen /只只有編號(hào)號(hào)復(fù)選框框選中時(shí)時(shí),則 SStrSSQL = SStrSSQL & 員工編編號(hào)= & TTrimm(CmmbCoode.Texxt) & Ennd IIf Iff ChhkNaame.Vallue = 11 Thhen /只只有姓名名復(fù)選框框選中時(shí)時(shí),則 SStrSSQL = SStrSSQL & 員工工姓名 = & Trrim(TxttNamme.TTextt

13、) & Ennd IIf Iff ChhkDaate.Vallue = 11 Thhen /只只有進(jìn)入入公司時(shí)時(shí)間復(fù)選選框選中中時(shí),則則 SStrSSQL = SStrSSQL & 計(jì)發(fā)時(shí)時(shí)間 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 /將將記錄條條數(shù)顯示示在標(biāo)簽簽上 VSQQuerryPaay.RRefrreshh /刷刷新網(wǎng)格格 RsttQueeryPPay.Cloose /關(guān)閉記記錄集 CmbbCodde.TTextt = Emppty /請(qǐng)空空文本框框 TxttNamme.TText

15、t = Emppty EElsee IIf RRsQuueryyPayy.Sttatee = adSStatteClloseed TThenn RsQQuerryPaay.OOpenn 員員工工資資, DBCCON, addOpeenKeeyseet, adLLockkOpttimiistiic, adCCmdTTablle EEnd If Sett VSSQueeryPPay.DattaSoourcce = RssQueeryPPay.DattaSoourcce /設(shè)置網(wǎng)網(wǎng)格的數(shù)數(shù)據(jù)源 LbllCouunt.Capptioon = RssQueeryPPay.ReccorddCouunt V

16、SQQuerryPaay.RRefrreshh /刷刷新網(wǎng)格格 RsQQuerryPaay.CClosse /關(guān)關(guān)閉記錄錄集 CmbbCodde.TTextt = Emppty /請(qǐng)空空文本框框 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中的的數(shù)據(jù)等等于記錄錄集 CCmbCCodee.BoounddCollumnn = 員工工編號(hào) /綁定定列 CCmbCCodee.Liis

18、tFFielld = 員員工編號(hào)號(hào)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 打打開(kāi)記錄錄集 Ennd IIf MMsgLListtEnd SSubPrivaate Subb MssgLiist()List11.Cllearr If RsAAddMMesssagee.Sttatee = adSStatteClloseed TThenn RssAdddMesssagge.OOpe