員工工資管理系統(tǒng)2

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