企業(yè)人事管理系統(tǒng)論文_第1頁
企業(yè)人事管理系統(tǒng)論文_第2頁
企業(yè)人事管理系統(tǒng)論文_第3頁
企業(yè)人事管理系統(tǒng)論文_第4頁
企業(yè)人事管理系統(tǒng)論文_第5頁
已閱讀5頁,還剩58頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領

文檔簡介

1、參考文獻1 蘇蘇選良.管理信信息系統(tǒng)統(tǒng)M .北北京:電電子工業(yè)業(yè)出版社社,20003. 2 HYPERLINK 陳陳輝,人人事管理理研究.黑龍江江人民出出版社,2200553 羅羅鴻. ERPP原理設設計實施施 MM . 北京京: 電電子工業(yè)業(yè)出版社社,20002 .4 薩薩師煊著著數(shù)據(jù)據(jù)庫系統(tǒng)統(tǒng)概論(第第二版)M高等教教育出版版社,119911,8-405 EERP Impplemmenttatiionss CCCoontrrolllers RRepoort, Deec20007, Vool. 20007 IIssuue 112, p3-4.6 張張毅.企企業(yè)資源源計劃(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程序設設計MM.北北京:清清華大學學出版 20003, 29223440附 錄計發(fā)工資: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 & 計發(fā)時時間 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 & 計計發(fā)時間間 beetweeen # & DDTPFFrommDatte.VValuue & # annd # & DTTPTooDatte.VValuue & # & /判斷姓姓名與進進入公司司時間復復選框選選中時,則 ElsseIff ChhkNaame.Vallue = 11 Annd CChkDDatee.Vaaluee = 1 TThenn SttrSQQL = SttrSQQL & 員工姓姓名 = & Triim(TTxtNNamee.Teext) & & annd & 計發(fā)發(fā)時間 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 & 計發(fā)時時間 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ù)顯示示在標簽簽上 VSQQuerryPaay.RRefrreshh /刷刷新網(wǎng)格格 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 /設置網(wǎng)網(wǎng)格的數(shù)數(shù)據(jù)源 LbllCouunt.Capptioon = RssQueeryPPay.ReccorddCouunt V

16、SQQuerryPaay.RRefrreshh /刷刷新網(wǎng)格格 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中的的數(shù)據(jù)等等于記錄錄集 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

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
  • 4. 未經(jīng)權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
  • 6. 下載文件中如有侵權或不適當內容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論