VB+SQQLseervee20000課程程設計報報告員工工資管管理系統統姓名：____________班級：______________________學號：________________指導教師：：_____成績：____________________________完成時間：：20009-112-228完成地點：：蚌埠學學院TOC\o"1-3"\h\u摘要11第一章緒緒論21.1數據據庫管理理系統221.2員工工工資管管理系統統21.3開發發工具33第二章員員工工資資管理系系統設計計分析332.1應用用需求與與分析332.2系統統模塊劃劃分32.3系統統數據庫庫設計44第三章：企企業工資資管理系系統應用用程序設設計53．1操作作流程圖圖53．2“登錄模模塊”詳細設設計63．3“主窗體體”模塊詳詳細設計計103．4各各項子模模塊詳細細設計1133.4．11添加用用戶與刪刪除1333.4．22修改改用戶1153.4.33數據庫庫備份和和恢復1173.4.44退出2203.4.55基本工工資2003.4.66崗位工工資2223.4.77部門管管理2443.4.88員工管管理2663.4.99發放放工資2273.4.110按員工工查詢3323.4.111按按部門查查詢333模塊一：335模塊二：335第五章：結結束語366謝辭37參考文獻：：37摘要企業的工資資管理是是公司管管理的一一個重要要內容。隨隨著企業業人員數數量增加加，企業業的工資資管理工工作也變變得越來來越復雜雜。工資資管理既既涉及到到企業勞勞動人事事的管理理，同時時也是企企業財務務管理的的重要組組成部分分。工資資管理需需要和人人事管理理相聯系系，同時時連接工工時考勤勤和醫療療保險等等等，來來生成企企業每個個職工的的基本工工資、津津貼、醫醫療保險險、保險險費、實實際發放放工資等等。資金金是企業業生存的的主要元元素，資資金的流流動影響響到企業業的整體體運作，企企業員工工的工資資是企業業資金管管理的一一個重要要的組成成部分。早早期的工工資統計計和發放放都是使使用人工工方式處處理紙質質材料，不不僅花費費財務人人員大量量的時間間且不易易保存，往往往由于于個人的的因素抄抄寫不慎慎或計算算疏忽，出出現工資資發放錯錯誤的現現象。早早期工資資管理多多采取紙紙質材料料和具有有較強的的時間限限制。基基于以上上原因，企企業工資資管理系系統使用用電腦安安全保存存、快速速計算、全全面統計計，實現現工資管管理的系系統化、規規范化、自自動化。企企業工資資管理系系統是典典型的信信息管理理系統（MMIS），前前臺程序序開發工工具采用用微軟的的VB66，后臺臺數據庫庫采用ssqlsservve20000數數據庫。VVB6是是一種面面向對象象的開發發工具，具具有組件件豐富、語語言簡單單、功能能強大的的優點。ssqlsservve20000數數據庫具具有與VVB6無無縫連接接、操作作簡單、易易于使用用的優點點。運行行結果證證明，本本企業工工資管理理系統極極大提高高了工作作效率，節節省了人人力和物物力，最最終滿足足企業財財務管理理、員工工工資發發放的需需要，同同時也成成為現代代化企業業管理的的標志。第一章緒緒論1.1數據據庫管理理系統數據庫管理理系統（DDBMSS）是指指數據庫庫系統中中管理數數據的軟軟件系統統。DBBMS是是數據庫庫系統的的核心組組成部分分。對數數據庫的的一切操操作，包包括定義義、更新新及各種種控制,,都是通通過DBBMS進進行的。DDBMSS總是基基于某種種數據模模型，可可以把DDBMSS看成是是某種數數據模型型在計算算機系統統上的具具體實現現。根據據數據模模型的不不同，DDBMSS可以分分成層次次型、網網狀型、關關系型、面面向對象象型等。MMSsqqlseervee20000就是是一種關關系型數數據庫管管理系統統。關系模型主主要是用用二維表表格結構構表達實實體集，用用外鍵表表示實體體間聯系系。關系系模型是是由若干干個關系系模式組組成的集集合。關關系模式式相當于于前面提提到的記記錄類型型，每個個關系實實際上是是一張二二維表格格。關系系模型和和層次、網網狀模型型的最大大判別是是用關鍵鍵碼而不不是用指指針導航航數據，表表格簡單單用戶易易懂，編編程時并并不涉及及存儲結結構，訪訪問技術術等細節節。SQQL語言言是關系系型數據據庫的標標準化語語言，已已得到了了廣泛的的應用。1.2員工工工資管管理系統統企業工資管管理是一一項瑣碎碎、復雜雜而又十十分細致致的工作作，一般般不允許許發生差差錯。最最初的工工資統計計和發放放都是使使用人工工方式處處理，工工作量大大的時候候，出現現錯誤的的機率也也隨之升升高，不不僅花費費財務人人員大量量的時間間，而且且往往由由于抄寫寫不慎，或或者由于于計算的的疏忽，出出現工資資發放錯錯誤的現現象。同同時工資資的發放放具有較較強的時時間限制制，必須須嚴格按按照單位位規定的的時間完完成計算算和發放放工作。正正是企業業工資管管理的這這種重復復性、規規律性、時時間性，使使得企業業工資管管理計算算機化成成為可能能。企業業工資管管理系統統就是使使用電腦腦代替大大量的人人工統計計和計算算，完成成眾多企企業工資資信息的的處理，同同時使用用電腦還還可以安安全地、完完整地保保存大量量的企業業工資記記錄。1.3開發發工具微軟公司的的VissuallBaasicc6..0是WWinddowss應用程程序開發發工具，是是目前最最為廣泛泛的、易易學易用用的面向向對象的的開發工工具。VVisuualBassic提提供了大大量的控控件，這這些控件件可用于于設計界界面和實實現各種種功能，減減少了編編程人員員的工作作量，也也簡化了了界面設設計過程程，從而而有效的的提高了了應用程程序的運運行效率率和可靠靠性。因因此，本本系統使使用MSSViisuaalBBasiic66.0開開發。第二章員員工工資資管理系系統設計計分析2.1應用用需求與與分析基本信息的的添加、修修改、刪刪除和查查詢。基基本信息息包括項項目類型型信息，項項目狀態態信息，模模塊狀態態信息和和缺陷級級別信息息等。此功能為項項目組管管理和軟軟件項目目管理模模塊提供供數據。項目組信息息的添加加、修改改、刪除除和查詢詢。項目目組信息息包括收收員工信信息和角角色信息息。軟件項目管管理模塊塊包括項項目基本本信息管管理、軟軟件模塊塊管理和和軟件缺缺陷管理理等功能能2.2系統統模塊劃劃分開發這個系系統的目目的就是是幫助企企業的財財務主管管部門提提高工作作效率，實實現企業業工資信信息管理理的系統統化、規規范化和和自動化化。能夠夠和認識識管理系系統、考考勤管理理系統相相結合，真真正實現現企業高高效、科科學、現現代化的的員工管管理。系系統最終終實現的的主要功功能如下下。·企業工資資信息設設置部分分：包括括設置員員工的基基本工資資和其他他項目的的金額，如如獎金等等。·企業工資資信息管管理部分分：包括括統計出出勤、計計算工資資、查詢詢工資和和導出工工資表。·系統部分分：包括括添加用用戶和修修改密碼碼。2.3系統統數據庫庫設計數據庫是信信息管理理系統的的后臺，存存儲著所所有的信信息，在在信息管管理系統統中有著著很重要要的地位位。數據據庫設計計的好與與壞，直直接影響響到這個個系統的的運行效效率。良良好的數數據庫設設計，可可以提高高數據信信息的存存儲效率率，確保保數據信信息的完完整性和和一致性性。針對企業工工資信息息管理系系統的需需求，通通過對員員工工資資計算過過程的內內容分析析，為本本系統設設計如下下的數據據項和數數據結構構：·基本工資資信息：：包括工工資級別別和工資資金額。·崗位工資資信息：：包括工工資級別別和工資資金額。·工資信息息：包括括員工編編號、基基本工資資、崗位位工資、水水電費、實實發金額額。·部門信息息：包括括部門編編號、部部門名稱稱、部門門負責人人、部門門人數。·工資統計計信息：：包括員員工編號號、姓名名、出生生年月、所所屬部門門、文化化程度、職職稱。·用戶信息息：包括括用戶名名、密碼碼和權限限。員工信息表表員工編號char(8))主鍵，不允允許重復復姓名char(8))性別char(2))出生年月datettimee所屬部門char((4)外鍵文化程度char((4)職稱char(122)部門信息部門編號char((4)主鍵,不允允許重復復部門名稱char((20))部門負責人人char((8)部門人數int基本工資工資級別char(2))主鍵,不允允許重復復工資金額numerric((8,2)崗位工資工資級別char(2))主鍵,不允允許重復復工資金額numerric((8,2)工資信息員工編號char(8))主鍵,不允允許重復復；外外鍵基本工資numerric((8,2)崗位工資numerric((8,2)水電費numerric((8,2)實發金額numerric((8,2)用戶表用戶名char(8))主鍵,不允允許重復復密碼char(200)權限char(200)E-R圖：：第三章章：企業業工資管管理系統統應用程程序設計計3．1操作作流程圖圖初始登入用用戶:aadmiin密密碼為::admmin用戶登入用戶登入錄入口令是否正確？進入工資管理主界面職員管理工資項目/工資數據錄入/工資報表用戶管理數據備份/恢復結束當月工資3．2“登錄模模塊”詳細設設計登錄模模塊的詳詳細設計計主要是是用戶登登錄的一一個界面面，判斷斷登錄的的用戶是是管理員員還是普普通用戶戶，進入入后將面面對的是是主界面面，從而而進行相相關的操操作。登登錄的界界面主要要由用戶戶名和密密碼的信信息，還還有一些些標題設設置，確確定和取取消的按按鈕組成成。通過過標題可可以知道道此系統統的大概概內容，由由此，登登錄界面面的設計計完成。窗體及核心心代碼：：PrivaateSubbcmmd_ccanccel__Cliick(()texxt_kkey..Texxt=="""cmoo_usser..Texxt=="請請選擇""UnlloaddMeeEndSSubPrivaateSubbcmmd_ook_CClicck())Dimmtrry_ttimeesAAsSStriingDimmsqqlAAsSStriingDimmrsstAAsAADODDB.RRecoordssettryy_tiimess=0If(TTrimm(txxt_kkey..Texxt)=""")TheenMsggBoxx"請請輸入密密碼",,vbbOKOOnlyy+vbEExcllamaatioon,"提示示"Elsessql=""sellectt*froom用用戶表wheere用戶名名='""&Triim(ccmo__useer.TTextt)&&"''"SSetrstt=ExeecutteSQQL(ssql,,""")IfTriim(rrst..Fieeldss(1)))==Trrim((txtt_keey.TTextt)TThennIfTriim(rrst..Fieeldss(2)))<<>""管理員員"TThennfrmm_maain..xittongg.Ennablled=FFalsse''在這里里設計非非管理員員用戶的的權限，這這里我假假設讓非非管理員員用戶不不能用菜菜單中的的‘系統’frmm_maain..sheezhii.Ennablled=FFalssefrmm_maain..xinnxiwweihhu.EEnabbledd=FallseEnddIffrrst..ClooseUUserrNamme==Trrim((cmoo_usser..Texxt)ffrm__maiin.SShowwUUnlooadMeEElseeMMsgBBox"密碼碼不正確確，請重重新輸入入",vbOOKOnnly+vvbExxclaamattionn,""警告""ttxt__keyy.SeetFoocussttxt__keyy.Teext="""ttry__timmes=ttry__timmes+11EExittSuub''在這里里若密碼碼錯了應應該跳出出該過程程，否則則下面的的語句還還會執行行，這不不是你想想要的EEndIf''tryy_tiimess=tryy_tiimess+1''個人認認為密碼碼輸入錯錯了才加加一，你你這樣的的話，用用戶名錯錯了也會會加一，當當然你這這里用戶戶名不會會錯是吧吧，改得得多余了了Iftryy_tiimess=3TThennUnlloaddMeeEnddIffEndIIfEndSSubPrivaateSubbFoorm__Loaad())DiimiiAssInnteggerDiimssqlAsStrringgDiimrrstAsADOODB..Reccorddsettsqql=="sseleect用戶名名frrom用戶表表"Seetrrst=EExeccuteeSQLL(sqql,""))Foorii=1TTorrst..ReccorddCouuntcmmo_uuserr.AdddIttem(rsst.FFiellds((0)))rsst.MMoveeNexxtNeextiEndSSub主窗體：PPrivvateeSuubbbumeenxiinxii_Cllickk()DimssqlAsStrringgDimrrstAsNewwADDODBB.Reecorrdseetsql=="sseleect*ffromm用戶戶表""Setrrst=EExeccuteeSQLL(sqql,""))powerr=rstt.Fiieldds(22)IfTrrim((powwer))<>>"管管理員""ThhenMsgBoox""您無權權進行該該操作！！",vbOOKOnnly+vvbExxclaamattionn,""警告""ElseIfTrrim((powwer))="管理理員"Theenfrm_bbumeenxiinxii.ShhowUnloaadMMeEndIIfEndIIfEndSSubPrivaateSubbgaangwweiggonggzi__Cliick(()DimssqlAsStrringgDimrrstAsNewwADDODBB.Reecorrdseetsql=="sseleect*ffromm用戶戶表""Setrrst=EExeccuteeSQLL(sqql,""))powerr=rstt.Fiieldds(22)IfTrrim((powwer))<>>"管管理員""ThhenMsgBoox""您無權權進行該該操作！！",vbOOKOnnly+vvbExxclaamattionn,""警告""ElseIfTrrim((powwer))="管理理員"Theenfrm_gganggweiigonngzii.ShhowUnloaadMMeEndIIfEndIIfEndSSubPrivaateSubbjiibenn_Cllickk()DimssqlAsStrringgDimrrstAsNewwADDODBB.Reecorrdseetsql=="sseleect*ffromm用戶戶表""Setrrst=EExeccuteeSQLL(sqql,""))powerr=rstt.Fiieldds(22)IfTrrim((powwer))<>>"管管理員""ThhenMsgBoox""您無權權進行該該操作！！",vbOOKOnnly+vvbExxclaamattionn,""警告""ElseIfTrrim((powwer))="管理理員"Theenfrm_jjibeen.SShowwUnloaadMMeEndIIfEndIIfEndSSubPrivaateSubbyoonghhushhancchu__Cliick(()DimssqlAsStrringgDimrrstAsNewwADDODBB.Reecorrdseetsql=="sseleect*ffromm用戶戶表""Setrrst=EExeccuteeSQLL(sqql,""))powerr=rstt.Fiieldds(22)IfTrrim((powwer))<>>"管管理員""ThhenMsgBoox""您無權權進行該該操作！！",vbOOKOnnly+vvbExxclaamattionn,""警告""ElseIfTrrim((powwer))="管理理員"Theenfrm_ttiannjiaayusshannchuu.ShhowUnloaadMMeEndIIfEndIIfEndSSubPrivaateSubbyoonghhutiianjjia__Cliick(()DimssqlAsStrringgDimrrstAsNewwADDODBB.Reecorrdseetsql=="sseleect*ffromm用戶戶表""Setrrst=EExeccuteeSQLL(sqql,""))powerr=rstt.Fiieldds(22)IfTrrim((powwer))<>>"管管理員""ThhenMsgBoox""您無權權進行該該操作！！",vbOOKOnnly+vvbExxclaamattionn,""警告""ElseIfTrrim((powwer))="管理理員"Theenfrm_ttiannjiaayusshannchuu.ShhowUnloaadMMeEndIIfEndIIfEndSSubPrivaateSubbFoorm__Loaad())DiimiiAssInnteggerDiimssqlAsStrringgDiimrrstAsADOODB..Reccorddsettsqql=="sseleect權限froom用用戶表"Seetrrst=EExeccuteeSQLL(sqql,""))Foorii=1TTorrst..ReccorddCouuntrsst.MMoveeNexxtNeexti3．3“主窗體體”模塊詳詳細設計計在這個項目目中，選選擇使用用多文檔檔界面。使使用這個個窗體的的好處是是可以使使程序更更加有條條理。對對于一個個多任務務的應用用程序，使使用多文文檔窗體體還可以以減少占占用的系系統資源源。主窗體設計計的界面面是用菜菜單編輯輯器做的的，主要要由系統統、工資資信息設設置、工工資信息息管理和和關于這這四個大大模塊組組成。主主窗體是是進行相相關操作作的主界界面。在在這幾個個里，管管理員有有所有的的權利進進行各種種操作。主窗體及核核心代碼碼：PrivaateSubbbuumennxinnxi__Cliick(()DimssqlAsStrringgDimrrstAsNewwADDODBB.Reecorrdseetsql=="sseleect*ffromm用戶戶表""Setrrst=EExeccuteeSQLL(sqql,""))powerr=rstt.Fiieldds(22)IfTrrim((powwer))<>>"管管理員""ThhenMsgBoox""您無權權進行該該操作！！",vbOOKOnnly+vvbExxclaamattionn,""警告""ElseIfTrrim((powwer))="管理理員"Theenfrm_bbumeenxiinxii.ShhowUnloaadMMeEndIIfEndIIfEndSSubPrivaateSubbgaangwweiggonggzi__Cliick(()DimssqlAsStrringgDimrrstAsNewwADDODBB.Reecorrdseetsql=="sseleect*ffromm用戶戶表""Setrrst=EExeccuteeSQLL(sqql,""))powerr=rstt.Fiieldds(22)IfTrrim((powwer))<>>"管管理員""ThhenMsgBoox""您無權權進行該該操作！！",vbOOKOnnly+vvbExxclaamattionn,""警告""ElseIfTrrim((powwer))="管理理員"Theenfrm_gganggweiigonngzii.ShhowUnloaadMMeEndIIfEndIIfEndSSubPrivaateSubbjiibenn_Cllickk()DimssqlAsStrringgDimrrstAsNewwADDODBB.Reecorrdseetsql=="sseleect*ffromm用戶戶表""Setrrst=EExeccuteeSQLL(sqql,""))powerr=rstt.Fiieldds(22)IfTrrim((powwer))<>>"管管理員""ThhenMsgBoox""您無權權進行該該操作！！",vbOOKOnnly+vvbExxclaamattionn,""警告""ElseIfTrrim((powwer))="管理理員"Theenfrm_jjibeen.SShowwUnloaadMMeEndIIfEndIIfEndSSubPrivaateSubbyoonghhushhancchu__Cliick(()DimssqlAsStrringgDimrrstAsNewwADDODBB.Reecorrdseetsql=="sseleect*ffromm用戶戶表""Setrrst=EExeccuteeSQLL(sqql,""))powerr=rstt.Fiieldds(22)IfTrrim((powwer))<>>"管管理員""ThhenMsgBoox""您無權權進行該該操作！！",vbOOKOnnly+vvbExxclaamattionn,""警告""ElseIfTrrim((powwer))="管理理員"Theenfrm_ttiannjiaayusshannchuu.ShhowUnloaadMMeEndIIfEndIIfEndSSubPrivaateSubbyoonghhutiianjjia__Cliick(()DimssqlAsStrringgDimrrstAsNewwADDODBB.Reecorrdseetsql=="sseleect*ffromm用戶戶表""Setrrst=EExeccuteeSQLL(sqql,""))powerr=rstt.Fiieldds(22)IfTrrim((powwer))<>>"管管理員""ThhenMsgBoox""您無權權進行該該操作！！",vbOOKOnnly+vvbExxclaamattionn,""警告""ElseIfTrrim((powwer))="管理理員"Theenfrm_ttiannjiaayusshannchuu.ShhowUnloaadMMeEndIIfEndIIfEndSSubPrivaateSubbFoorm__Loaad())DiimiiAssInnteggerDiimssqlAsStrringgDiimrrstAsADOODB..Reccorddsettsqql=="sseleect權限froom用用戶表"Seetrrst=EExeccuteeSQLL(sqql,""))Foorii=1TTorrst..ReccorddCouuntrsst.MMoveeNexxtNeextiEndSSub3．4各各項子模模塊詳細細設計3.4．11添加用用戶與刪刪除選擇“系統統”—>“添加用用戶與刪刪除”菜單，在在添加用用戶的窗窗體里,,輸入新新的用戶戶名稱和和密碼后后，單擊擊“添加”按鈕，系系統將會會添加新新的用戶戶。在窗窗體里輸輸入用戶戶名稱和和密碼，單單擊“刪除”按鈕，系系統將會會刪除原原來用戶戶。PrivaateSubbcmmd_aadduuserr_Cllickk()DimnnewrrstAsADOODB..ReccorddsettDimssqlAsStrringgsql=="iinseertintto用用戶表valluess("&""'"&TTrimm(txxt_uuserrnamme.TTextt)&&"'',"_&"'""&Triim(ttxt__passswoord..Texxt)&""',""_&"'""&Triim(ttxt__powwer))&"'""&")""Setnnewrrst=eexeccutee_sqql(ssql))sql=="sseleect*ffromm用戶戶表"Setnnewrrst=sseleect__sqll(sqql)SetDDataaGriid1..DattaSoourcce==neewrsstEndSSubPrivaateSubbcmmd_ccanccel__Cliick(()UnloaadMMeEndSSubPrivaateSubbcmmd_ddeleete__Cliick(()DimssqlAsStrringgsql=="sseleect*ffromm用戶戶表"Iftxxt_uuserrnamme<<>"""TThennSeetoobjrrs==ExxecuuteSSQL((sqll,""")SeetDDataaGriid1..DattaSoourcce==obbjrss'刷刷新網格格，顯示示操作后后的結果果EnndIIfIIfoobjrrs.RRecoordCCounnt==0TheenMMsgBBox"庫中中沒有記記錄!""EExittSuubEEndIfIIfoobjrrs.RRecoordCCounnt<<>00ThhenIIfMMsgBBox(("真的的要刪除除該級用用戶信息息嗎?"",vvbYeesNoo+vbQQuesstioon,"警告告")=vvbYeesTThennobjjrs..DelleteeMsggBoxx"刪刪除成功功!",,vbbInfformmatiion,,"提提示"EnddIffEEndIfEndSSubPrivaateSubbFoorm__Loaad())DimnnewrrstAsADOODB..ReccorddsettDimssqlAsStrringgsql=="sseleect*ffromm用戶戶表"Setnnewrrst=sseleect__sqll(sqql)SetDDataaGriid1..DattaSoourcce==neewrsstEndSSub3.4．22修改改用戶選擇“系統統”->“修改用用戶”菜單，在在窗體里里輸入新新的用戶戶名稱和和用戶權權限，單單擊“修改”按鈕，系系統將會會修改原原來用戶戶信息。PrivaateSubbcmmd_aadduuserr_Cllickk()DimnnewrrstAsADOODB..ReccorddsettDimssqlAsStrringgsql=="iinseertintto用用戶表valluess("&""'"&TTrimm(txxt_uuserrnamme.TTextt)&&"'',"_&"'""&Triim(ttxt__passswoord..Texxt)&""',""_&"'""&Triim(ttxt__powwer))&"'""&")""Setnnewrrst=eexeccutee_sqql(ssql))sql=="sseleect*ffromm用戶戶表"Setnnewrrst=sseleect__sqll(sqql)SetDDataaGriid1..DattaSoourcce==neewrsstEndSSubPrivaateSubbcmmd_ccanccel__Cliick(()UnloaadMMeEndSSubPrivaateSubbcmmd_ddeleete__Cliick(()DimssqlAsStrringgsql=="sseleect*ffromm用戶戶表"Iftxxt_uuserrnamme<<>"""TThennSeetoobjrrs==ExxecuuteSSQL((sqll,""")SeetDDataaGriid1..DattaSoourcce==obbjrss'刷刷新網格格，顯示示操作后后的結果果EnndIIfIIfoobjrrs.RRecoordCCounnt==0TheenMMsgBBox"庫中中沒有記記錄!""EExittSuubEEndIfIIfoobjrrs.RRecoordCCounnt<<>00ThhenIIfMMsgBBox(("真的的要刪除除該級用用戶信息息嗎?"",vvbYeesNoo+vbQQuesstioon,"警告告")=vvbYeesTThennobjjrs..DelleteeMsggBoxx"刪刪除成功功!",,vbbInfformmatiion,,"提提示"EnddIffEEndIfEndSSubPrivaateSubbFoorm__Loaad())DimnnewrrstAsADOODB..ReccorddsettDimssqlAsStrringgsql=="sseleect*ffromm用戶戶表"Setnnewrrst=sseleect__sqll(sqql)SetDDataaGriid1..DattaSoourcce==neewrsstEndSSub3.4.33數據庫庫備份和和恢復選擇“系統統”->“數據庫庫備份和和恢復”菜單，在在位置文文本框中中輸入備備份或恢恢復的文文件所在在位置，單單擊“備份”或“恢復”按鈕，數數據庫將將備份或或恢復。OptioonEExplliciitPrivaateSubbcmmd_rrecooverry_CClicck())IfcnnModd.Sttatee=adSStatteOppenTheenccnMood.CClosse''如果已已連接，關關掉寬EndIIfccnMood.OOpenn"ddrivver=={sqqlsservver}};seerveer=HHZ;uuid==sa;;pwdd=heeweiilinng;ddataabasse=mmastter""'建一一個連接接用來獲獲得要還還原數據據庫的進進程標識識符（sspidd）DimrrsAAsNNewADOODB..Reccorddsett''該記錄錄集保存存進程IID以備備操作rrs.OOpenn"sseleectspiidffrommsyysprroceesseeswwherreddbidd=dbb_idd('工工資管理理系統'')",,cnnModd,aadOppenDDynaamicc,aadLoockPPesssimiistiic'解釋一下下，這句句話是為為了將有有關“工資管管理系統統”所有服服務進程程ID查查詢出來來db__id是是SQLL中的一一個函數數具體語語法你自自己看它它的幫助助文件哦哦，這里里就不贅贅述了Ifrss.EOOF==FaalseeThhenrrs.MMoveeFirrstDDoWWhillerrs.EEOF=TTruee'掃描描并關閉閉有關“工資管管理系統統”的服務務進程cnMMod..Exeecutte(("kiill""&rs..Fieeldss(0)))'kkilll也是是SQLL的方法法“殺”與doos下的的killl類似似啊，是是吧，呵呵呵自己己看看幫幫助文件件很詳盡盡的rs..MovveNeextLLooppEndIIfCCD.FFiltter=""所有文文件（**.*）||*.**|備份份文件((*.bbak))|*..bakk"CCD.IInittDirr=Appp.PaathTTextt1.TTextt=CD..FilleNaameCCD.SShowwOpeenDimMMstrrAssSttrinngMMstrr="恢復復主要數數據庫？？數據恢恢復操作作將會覆覆蓋以前前的所有有數據并并且覆蓋蓋后無法法恢復，您您確定要要進行恢恢復操作作嗎?""IfMssgBoox(MMstrr,vvbYeesNoo+vbQQuesstioon,"操作作提示"")==vbbYessThhenOnErrrorrGooToreLLabeel1..Capptioon=="正正在恢復復，請稍稍候………"ccnMood.BBegiinTrranss''開始一一個事件件ccnMood.EExeccutee(""resstorreddataabasse工工資管理理系統frromdissk=''"&&CDD.FiileNNamee&"'witthrrepllacee")'SQQL語句句要是不不會用，查查看幫助助文件ccnMood.CCommmitTTranns''執行LLabeel1..Capptioon=="恢恢復成功功"MMsgBBox"恢復復成功"",vvbOKKOnlly++vbbInfformmatiion,,"提提示"EExittSuubre:ccnMood.RRolllbacckTrranss'回滾滾（不執執行）LLabeel1..Capptioon=="恢恢復失敗敗"MMsgBBox"恢復復失敗"",vvbOKKOnlly++vbbInfformmatiion,,"提提示"EndIIfEndSSubPrivaateSubbcmmd_bbackk_Cllickk()'下面是備備份的代代碼，處處理的比比較粗糙糙，你自自己優化化了，呵呵呵，相相信你能能看懂的的，我就就不注釋釋了IfcnnModd.Sttatee=adSStatteOppenTheenccnMood.CClosseEndIIfCCD.FFiltter=""所有文文件（**.*）||*.**|備份份文件((*.bbak))|*..bakk"CCD.IInittDirr=Appp.PaathCCD.SShowwSavvettxt__weiizhii=CD..FilleNaameccnMood.OOpenn"ddrivver=={sqqlsservver}};seerveer=HHZ;uuid==sa;;pwdd=heeweiilinng;ddataabasse=工工資管理理系統""OnErrrorrGooTobacckccnMood.BBegiinTrranssccnMood.EExeccutee(""bacckuppdaatabbasee工資資管理系系統ttoddiskk='""&CD..FilleNaame&""'"))ccnMood.CCommmitTTrannsMMsgBBox"成功功地備份份到"&CCD.FFileeNamme&&"下下",vbOOKOnnly+vvbInnforrmattionn,""操作提提示"ccnMood.CClosseEExittSuubback::ccnMood.RRolllbacckTrranssMMsgBBox"備份份失敗"",vvbOKKOnlly++vbbInfformmatiion,,"提提示"cnMMod..ClooseEndSSub'到這里就就告一段段落了，是是不是很很簡單呢呢，當然然這里有有很多不不足，你你自己完完善吧PrivaateSubbFoorm__Loaad())EndSSub3.4.44退出選擇“系統統”->“退出”菜單，單單擊則推推出主菜菜單界面面。3.4.55基本工工資選擇“設置置”->“基本工工資”菜單，可可以單擊擊“添加”，“刪除”，“修改”，“取消”按鈕來來實現相相應功能能。DimoobjrrsAAsAADODDB.RRecoordssetDimmmsg__sqllAssSttrinngPrivaateSubbcmmd_aadd__Cliick(()IfCoomboo_leevell.Teext<>""TheenSeetoobjrrs==ExxecuuteSSQL(("innserrtiintoo基本本工資valluess("+SStr((Commbo__levvel..Texxt)+"",""+(Teext__payy.Teext))+"))",msgg_sqql)'插插入符合合條件的的工資信信息Seetoobjrrs==ExxecuuteSSQL(("seelecct**frrom基本工工資",,mssg_ssql))SeetDDataaGriid1..DattaSoourcce==obbjrss'刷刷新網格格，顯示示操作后后的結果果Commbo__levvel..SettFoccusCommbo__levvel..Texxt=="""Teext__payy.Teext="""EnndIIfEndSSubPrivaateSubbcmmd_ccanccel__Cliick(()UnloaadMMeEndSSubPrivaateSubbcmmd_ddeleete__Cliick(()Ifoobjrrs.RRecoordCCounnt==0TheenMMsgBBox"庫中中沒有記記錄!""EExittSuubEEndIfIIfoobjrrs.RRecoordCCounnt<<>00ThhenIIfMMsgBBox(("真的的要刪除除該級別別工資信信息嗎??",vbYYesNNo++vbbQueestiion,,"警警告"))=vbYYesTheenobjjrs..DelleteeMsggBoxx"刪刪除成功功!",,vbbInfformmatiion,,"提提示"Commbo__levvel..SettFoccusCommbo__levvel..Texxt=="""Texxt_ppay..Texxt=="""EnddIffEEndIfEndSSubPrivaateSubbFoorm__Loaad())Setoobjrrs==ExxecuuteSSQL(("seelecct**frrom基本工工資",,mssg_ssql))SetDDataaGriid1..DattaSoourcce==obbjrssEndSSubPrivaateSubbTeext__payy_LoostFFocuus())IfVaal(TTextt_paay.TTextt)<<0OrVall(Teext__payy.Teext))>==1000000ThhenMssgBoox""數據非非法"Teext__payy.Teext="""Teext__payy.SeetFoocussEndIIfEndSSub3.4.66崗位工工資選擇“設置置”->“崗位工工資”菜單，可可以單擊擊“添加”，“刪除”，“修改”，“取消”按鈕來來實現相相應功能能。DimoobjrrsAAsAADODDB.RRecoordssetDimmmsg__sqllAssSttrinngPrivaateSubbcmmd_aadd__Cliick(()IfCoomboo_leevell.Teext<>""TheenSeetoobjrrs==ExxecuuteSSQL(("innserrtiintoo崗位位工資valluess("+SStr((Commbo__levvel..Texxt)+"",""+(Teext__payy.Teext))+"))",msgg_sqql)'插插入符合合條件的的工資信信息Seetoobjrrs==ExxecuuteSSQL(("seelecct**frrom崗位工工資",,mssg_ssql))SeetDDataaGriid1..DattaSoourcce==obbjrss'刷刷新網格格，顯示示操作后后的結果果Commbo__levvel..SettFoccusCommbo__levvel..Texxt=="""Texxt_ppay..Texxt=="""EnndIIfEndSSubPrivaateSubbcmmd_ccanccel__Cliick(()UnloaadMMeEndSSubPrivaateSubbcmmd_ddeleete__Cliick(()Ifoobjrrs.RRecoordCCounnt==0TheenMMsgBBox"庫中中沒有記記錄!""EExittSuubEEndIfIfoobjrrs.RRecoordCCounnt<<>00ThhenIIfMMsgBBox(("真的的要刪除除該級別別工資信信息嗎??",vbYYesNNo++vbbQueestiion,,"警警告"))=vbYYesTheenobjjrs..DelleteeMsggBoxx"刪刪除成功功!",,vbbInfformmatiion,,"提提示"Commbo__levvel..SettFoccusCommbo__levvel..Texxt=="""Texxt_ppay..Texxt=="""EnddIffEEndIfEndSSubPrivaateSubbFoorm__Loaad())Setoobjrrs==ExxecuuteSSQL(("seelecct**frrom崗位工工資",,mssg_ssql))SetDDataaGriid1..DattaSoourcce==obbjrssEndSSubPrivaateSubbTeext__payy_LoostFFocuus())IfVaal(TTextt_paay.TTextt)<<0OrVall(Teext__payy.Teext))>==1000000ThhenMssgBoox""數據非非法"Teext__payy.Teext="""Teext__payy.SeetFoocussEndIIfEndSSub3.4.77部門管管理選擇“信息息維護”->“部門管管理”菜單，可可以單擊擊“添加”，“刪除”，“修改”，“取消”按鈕來來實現相相應功能能。DimoobjrrsAAsAADODDB.RRecoordssetDimmmsg__sqllAssSttrinngPrivaateSubbcmmd_aadd__Cliick(()Dimssqlbbiannhaoo,ssqlmminggcheeng,,sqqlfuuzerren,,sqqlreenshhuAAsSStriingsqqlbiianhhao=ccmo__biaanhaao.TTexttsqqlmiingcchenng==cmmo_mminggcheeng..Texxtsqqlfuuzerren=ttxt__fuzzereen.TTexttsqqlreenshhu==txxt_rrensshu..TexxtIfcmoo_biianhhao..Texxt<<>"""AAndcmoo_miingcchenng.TTextt<>>"""ThhenIfMsggBoxx("確確定添加加嗎？"",vvbYeesNoo+vbEExcllamaatioon,"警告告")=vvbYeesTThennSeetoobjrrs==ExxecuuteSSQL(("innserrtiintoo部門門信息valluess("+""'"+ssqlbbiannhaoo+"'""+",''"++sqqlmiingcchenng++"'',''"++sqqlfuuzerren+""',,'"+ssqlrrensshu+""'))",msgg_sqql)Seetoobjrrs==ExxecuuteSSQL(("seelecct**frrom部門信信息",,mssg_ssql))SeetDDataaGriid1..DattaSoourcce==obbjrssMssgBoox""添加成成功！"",vvbOKKOnlly++vbbExcclammatiion,,"警警告"EnndIIfEnndIIfEndSSubPrivaateSubbcmmd_aalteer_CClicck())IfTrrim((cmoo_biianhhao..Texxt)="""OOrTTrimm(cmmo_mminggcheeng..Texxt)="""OOrTTrimm(txxt_ffuzeerenn.Teext))=""OrTriim(ttxt__rennshuu.Teext))=""TheenMsgBoox""請將修修改后的的信息填填寫完整整！",,vbbOKOOnlyy+vbEExcllamaatioon,"警告告"ElseIfMssgBoox(""確定修修改嗎？？",vbYYesNNo++vbbExcclammatiion,,"警警告"))=vbYYesTheenSetrrst=EExeccuteeSQLL("uupdaate部門信信息sset部門名名稱=''"&&Trrim((cmoo_miingcchenng.TTextt)&&"''whheree部門門編號=''"&&Trrim((cmoo_biianhhao..Texxt)&""'",,mssg_ssql))Setrrst=EExeccuteeSQLL("uupdaate部門信信息sset部門負負責人=='"&TTrimm(txxt_ffuzeerenn.Teext))&"'wheere部門編編號=='""&Triim(ccmo__biaanhaao.TTextt)&&"''",msgg_sqql)Setrrst=EExeccuteeSQLL("uupdaate部門信信息sset部門人人數=''"&&Trrim((txtt_reenshhu.TTextt)&&"''whheree部門門編號=''"&&Trrim((cmoo_biianhhao..Texxt)&""'",,mssg_ssql))Setrrst=EExeccuteeSQLL("sseleect*ffromm基部部門信息息",msgg_sqql)SetDDataaGriid1..DattaSoourcce==obbjrssMsgBoox""修改成成功！"",vvbOKKOnlly++vbbExcclammatiion,,"警警告"cmo_bbiannhaoo.SeetFoocusscmo_bbiannhaoo.Teext="""cmo_mminggcheeng..Texxt=="""txt_ffuzeerenn.Teext="""txt_rrensshu..Texxt=="""EndIIfEndIIfEndSSubPrivaateSubbcmmd_ccanccel__Cliick(()frm_mmainn.ShhowUnloaadMMeEndSSubPrivaateSubbcmmd_ddeleete__Cliick(()Ifoobjrrs.RRecoordCCounnt==0TheenMMsgBBox"庫中中沒有記記錄!""ElseIfobbjrss.ReecorrdCoountt<>>0TheenIfMssgBoox(""真的要要刪除該該部門??",vbYYesNNo++vbbQueestiion,,"警警告"))=vbYYesTheenobjrss.DeeletteMsgBoox""刪除成成功!"",vvbInnforrmattionn,""提示""EEndIfEEndIfEEndIfEndSSubPrivaateSubbFoorm__Loaad())Setoobjrrs==ExxecuuteSSQL(("seelecct**frrom部門信信息",,mssg_ssql))SetDDataaGriid1..DattaSoourcce==obbjrssEndSSub3.4.88員工管管理選擇“信息息維護”->“員工管管理”菜單，可可以單擊擊“添加”，“刪除”，“修改”，“取消”按鈕來來實現相相應功能能。3.4.99發放放工資選擇“信息息維護”->“發放工工資”菜單，單單擊“添加”或“修改”按鈕則則彈出“添加員員工工資資”菜單，單單擊“添加”或“修改”則可以以實現添添加員工工工資或或者修改改員工工工資。DimrrstAsADOODB..ReccorddsettDimssqlAsStrringgPrivaateSubbcmmd_aadd__Cliick(()frm_ttiannjiaagonngzii.ShhowEndSSubPrivaateSubbcmmd_aalteer_CClicck())frm_ttiannjiaagonngzii.Shhow'txt__no..Enaableed==Faalseeffrm__tiaanjiiagoongzzi.SShowwffrm__tiaanjiiagoongzzi.ttxt__biaanhaao.TTextt=DattaGrrid11.Coolummns((0)''frmm_adddsaalarry.ttxt__namme==DaataGGridd1.CColuumnss(1))frmm_tiianjjiaggonggzi..cmoo_jiibenn=DattaGrrid11.Coolummns((1)ffrm__tiaanjiiagoongzzi.ccmo__ganngweei==DaataGGridd1.CColuumnss(2))frmm_tiianjjiaggonggzi..txtt_shhuiddiann=DattaGrrid11.Coolummns((3)EndSSubPrivaateSubbcmmd_ddeleete__Cliick(()Ifrstt.ReecorrdCoountt<>>0TheenIffMssgBoox(""確定刪刪除該員員工的工工資信息息嗎？"",vvbYeesNoo+vbQQuesstioon,"警告告")=vvbYeesTThennrsst.DDeleeteSeetrrst=EExeccuteeSQLL("sseleect*ffromm工資資信息"",ssql))SeetDDataaGriid1..DattaSoourcce==rsstMssgBoox""刪除成成功!"",vvbOKKOnlly++vbbExcclammatiion,,"提提示"EnndIIfEnndIIfEndSSubPrivaateSubbcmmd_ccanccel__Cliick(()frm_mmainn.ShhowUnloaadMMeEndSSubPrivaateSubbFoorm__Loaad())Setrrst=EExeccuteeSQLL("sseleect*ffromm工資資信息"",ssql))SetDDataaGriid1..DattaSoourcce==rsstEndSSubDimrrstAsADOODB..ReccorddsettDimmmsg__sqllAssSttrinngDimjjibeen,ganngweei,sallaryyAssDooublleDimaaddssalaaryssqlAsStrringgPrivaateSubbcmmd_aalteer_CClicck())DimuupdaatessqlAsStrringgtxt_bbiannhaoo.Ennablled=FFalsseSetrrst=EExeccuteeSQLL("sseleect*ffromm員工工信息wheere員工編編號=''"&&Trrim((txtt_biianhhao..Texxt)&""'",,mssg_ssql))txt_xxinggminng.TTextt=rstt.Fiieldds(00)Ifrsst.RRecoordCCounnt==0TheenMsgBoox""請將修修改后的的信息填填寫完整整！",,vbbOKOOnlyy+vbEExcllamaatioon,"警告告"ElseIfrsst.RRecoordCCounnt<<>00ThhenIfMssgBoox(""確定修修改嗎？？",vbYYesNNo++vbbExcclammatiion,,"警警告"))=vbYYesTheenSetrrst=EExeccuteeSQLL("sseleect*ffromm基本本工資wheere工資級級別=''"&&Trrim((cmoo_jiibenn.Teext))&"'"",mmsg__sqll)jibenn=rstt.Fiieldds(11)Setrrst=EExeccuteeSQLL("sseleect*ffromm崗位位工資wheere工資級級別=''"&&Trrim((cmoo_gaangwwei..Texxt)&""'",,mssg_ssql))gangwwei=rrst..Fieeldss(1))salarry==jiibenn+ganngweei--Trrim((txtt_shhuiddiann.Teext))updattesqql=="uupdaate工資信信息sset基本工工資="&&jiibenn&",""&"崗位位工資=""&ganngweei&&",,"&&"水水電費=="&&"''"&&Trrim((txtt_shhuiddiann.Teext))&"'""&",""&"實發發金額=""&sallaryy&"wwherre員員工編號號=