【正文】 Exit SubEnd IfIf Text1(4).Text = ThenMsgBox (添加的員工信息中職務(wù)為空，請輸入職務(wù)！)Text1(4).SetFocusExit SubEnd IfIf 男 And 女 ThenMsgBox (您選擇的性別不正確，請重新輸入！)Exit SubEnd IfIf 群眾 And 團員 And 黨員 And ThenMsgBox (您選擇的政治面貌不正確，請重新輸入！)Exit SubEnd IfIf 是 And 否 And ThenMsgBox (您選擇的婚否信息不正確，請重新輸入！)Exit SubEnd IfIf 小學(xué) And 初中 And 高中 And 大學(xué)本科 And 碩士研究生 And 更高學(xué)歷 And ThenMsgBox (您選擇的文化程度不正確，請重新輸入！)Exit SubEnd IfIf addflag = 1 Then = adCmdUnknown = select *from 員工信息 where [empID]=39。 + Trim(Text1(0).Text) + 39。If 0 Theni = MsgBox(員工編號已經(jīng)存在！是否重新輸入？, vbYesNo + vbExclamation)If i = vbYes ThenFor i = 0 To 9Text1(i).Text = Next = = = = Text1(0).SetFocusExit SubElseCommand20_ClickEnd IfEnd IfEnd IfSet ADOFld = (pic)Call SaveToDB(ADOFld, FileName)FileName = For i = 0 To 9Text1(i).Enabled = FalseNext i = False = False = False = False = False = False = True = True = True = False = False = True = True = True = adCmdUnknown = select * from 員工信息End SubPrivate Sub Command5_Click()If Text1(1).Text 李順利 ThenDim myval As Stringmyval = MsgBox(是否要刪除此員工信息記錄？, vbYesNo)If myval = vbYes ThenOn Error GoTo flagOn Error GoTo flagIf = True Then For i = 0 To 9Text1(i).Enabled = FalseNext i = False = False = False = False = False = FalseEnd IfElseMsgBox (員工李順利為董事長，擁有該系統(tǒng)的永遠的管理權(quán)利，您不可刪除！)Exit SubEnd Ifflag:Exit SubEnd SubPrivate Sub Command6_Click()addflag = 0For i = 0 To 9Text1(i).Enabled = TrueNext iText1(0).Enabled = False = True = True = True = True = True = True = False = False = False = True = False = True = False = FalseText1(1).SetFocusEnd SubPrivate Sub Command7_Click() = TrueEnd SubPrivate Sub Command8_Click()If = True Then = True = FalseEnd IfIf = True Then = True = FalseEnd IfIf = True Then = True = FalseEnd IfIf = True Then = True = FalseEnd IfIf = True Then = True = FalseEnd IfEnd SubPrivate Sub Command9_Click() = FalseEnd SubPrivate Sub DataCombo2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Command12_ClickEnd SubPrivate Sub Form_Activate()On Error GoTo flagIf loginuserflag = 1 ThenElse = False = False = FalseEnd Ifaddflag = 0flag:Exit SubEnd SubPrivate Sub Form_Unload(Cancel As Integer)Command20_ClickEnd SubPrivate Sub Image1_Click() = 圖片文件|*.bmp。*.ico。*.jpg。*.gif。*.jpegFileName = = LoadPicture(FileName)End SubPrivate Sub Picture1_Click()Call ShellAbout(hWnd, “工資管理系統(tǒng)”, “歡迎提出建議”, )End SubPublic Sub SaveToDB(ByRef Fld As , DiskFile As String)Dim bytedata() As ByteDim strData As StringDim NumBlocks As IntegerDim filelength As LongDim LeftOver As LongDim SourceFile As IntegerDim i As LongSourceFile = FreeFileOn Error GoTo flagOpen DiskFile For Binary Access Read As SourceFilefilelength = LOF(SourceFile)If filelength = 0 ThenClose SourceFileMsgBox DiskFile amp。 不存在或無數(shù)據(jù)！, vbInformationElseNumBlocks = filelength \ BlockSizeLeftOver = filelength Mod BlockSize = NullReDim bytedata(BlockSize)For i = 1 To NumBlocksGet SourceFile, , bytedata() bytedata()Next iReDim bytedata(LeftOver)Get SourceFile, , bytedata() bytedata()Close SourceFileEnd Ifflag:Exit SubEnd SubPrivate Sub Picture2_Click()SendKeys {F1}End SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Command11_ClickEnd SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Command14_ClickEnd Sub注：此系統(tǒng)中其他窗體因代碼不能一一顯示，只顯示了一些主要窗體的代碼，若要進一步了解這些窗口及其它窗口代碼，請查看工資管理系統(tǒng)。 系統(tǒng)測試系統(tǒng)測試是為了發(fā)現(xiàn)程序和系統(tǒng)中可能存在的錯誤并及時予以糾正。在MIS開發(fā)過程中，系統(tǒng)測試是MIS開發(fā)過程中為保證軟件質(zhì)量必須進行的工作。大量統(tǒng)計資料表明，系統(tǒng)測試的工作量往往占MIS開發(fā)總工作量的40%以上。系統(tǒng)測試主要分為程序測試、分調(diào)、總調(diào)、特殊測試和用戶測試。為了使本系統(tǒng)能夠穩(wěn)定運行，對系統(tǒng)進行了有針對性的全面測試。由于本系統(tǒng)是采用先模塊化后集成的方法開發(fā)的，因此要先對各個模塊進行測試，對每個模塊的數(shù)據(jù)進行跟蹤，使各個模塊都能獨立運行。然后，在以上測試的基礎(chǔ)上對系統(tǒng)功能進行整體的測試，依次來檢驗系統(tǒng)功能是否符合系統(tǒng)設(shè)計的要求。 系統(tǒng)運行運行環(huán)境： Window XP中文版，SQL Sever 2000，Microsfto Visual Basic 本系統(tǒng)的輸入采用鼠標和鍵盤相結(jié)合的輸入方法。初始數(shù)據(jù)主要是基本信息的輸入（如員工信息、有關(guān)工資信息等）；本系統(tǒng)的使用相對簡單，這也是本系統(tǒng)設(shè)計的一個特點，基本上只要會使用Windows軟件的就會使用本系統(tǒng)，在具體的操作時，在主菜單上點擊相應(yīng)的功能選項即可進入到該功能的界面進行操作。34 /