【文章內(nèi)容簡介】 須重新進(jìn)行測試。7．3測試方法一般來說，對程序測試有兩種測試方法：如果已經(jīng)知道了軟件系統(tǒng)應(yīng)具有的功能，可通過測試來對每個功能是否都能正常使用；如果知道程序的內(nèi)部工作過程，可以通過測試來檢測程序內(nèi)部是否按照規(guī)格說明書的規(guī)定正常進(jìn)行。前一種方法稱為黑盒測試，后一種方法稱為白盒子測試。黑盒測試又稱為功能測試，白盒子測試又稱為結(jié)構(gòu)測試。經(jīng)過幾個月的畢業(yè)設(shè)計(jì)，因?yàn)闀r間和任務(wù)的性質(zhì)的關(guān)系，沒有完全按照上述的測試方法進(jìn)行系統(tǒng)的測試，但經(jīng)過一些簡單的步驟的測試，證明本系統(tǒng)具有相當(dāng)程序的穩(wěn)定性。致 謝經(jīng)過四個多月的構(gòu)思與設(shè)計(jì)，在指導(dǎo)老師的精心指導(dǎo)和安排下，本系統(tǒng)已經(jīng)設(shè)計(jì)完畢。其使用功能基本符合公司在實(shí)際工作的需要，具有一定的實(shí)用性。但是由于時間比較倉促，加上本人軟件設(shè)計(jì)經(jīng)驗(yàn)的不足。因此，在分析問題、解決問題時顯得不夠嚴(yán)密、完善，還需要在以后的工作中不斷地改進(jìn)和完善。在這次的畢業(yè)設(shè)計(jì)中，讓我深深地體現(xiàn)到進(jìn)行軟件開發(fā)不是一件簡單的事情，它需要設(shè)計(jì)者具有全面的專業(yè)知識、縝密的思維、嚴(yán)謹(jǐn)?shù)墓ぷ鲬B(tài)度以及較高的分析問題、解決問題的能力，而我在很多方面還有欠缺。最后，我要衷心感謝老師在我的設(shè)計(jì)過程中給予我的極大幫助，使我能夠及時、順利地完成此次的畢業(yè)設(shè)計(jì)。同時，也要感謝我的老師和同學(xué)們及實(shí)習(xí)企業(yè)在本系統(tǒng)的設(shè)計(jì)過程中給予我的支持和幫助。參考文獻(xiàn)[1]王福成等：　Visual Basic ，　清華大學(xué)出版社　2002年6月[2]郭振波編著： 深入淺出Visual Basic ， 人民郵電出版社2003年3月[3]林永等編著： Visual Basic ， 人民郵電出版社2002年11月[4]劉炳文等編著： Visual Basic 程序設(shè)計(jì)教程 ，清華大學(xué)出版社 2000年7月附：程序清單：Option ExplicitDim Bupdata As BooleanDim i As IntegerPrivate Sub Cmbdegree_Click() If = 定制 Then = 0 End If End SubPrivate Sub Cmbdepart_Click() If = 定制 Then = 0 End If End SubPrivate Sub CmdAddNew_Click() If = 添加 Then = 確認(rèn) = False = False = False For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 39。(i) = 0 Next i Txt(0).Locked = False If = employee Then (13) = (14) = Now If Opsex(0) Then (4) = 男 Else (4) = 女 End If (7) = (8) = ElseIf = leave Then (8) = (9) = Now Else (13) = (14) = Now End If Txt(0).SetFocus Else 39。OK If Txt(0).Text = Then MsgBox 不可以為空 Txt(0).SetFocus Exit Sub End If For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 39。(i) = 0 Next i If = employee Then 職工編號= + Txt(0).Text If Not Then MsgBox 職員編號重復(fù) Txt(0).Text = Txt(0).SetFocus Exit Sub End If ElseIf = leave Then 假條編號= + Txt(0).Text If Not Then MsgBox 假條編號重復(fù) Txt(0).Text = Txt(0).SetFocus Exit Sub End If Else For i = 4 To 10 If Not IsNumeric(Txt(i).Text) Then MsgBox not a number Txt(i).SetFocus Exit Sub End If Next i 工資編號= + Txt(0).Text If Not Then MsgBox 工資編號重復(fù) Txt(0).Text = Txt(0).SetFocus Exit Sub End If End If = 添加 = True = True End If End SubPrivate Sub CmdCacel_Click() If = 確認(rèn) Then End If = True Unload Me If = employee Then (性別).Button = True (學(xué)歷).Button = True (部門).Button = TrueEnd IfEnd SubPrivate Sub CmdDel_Click() = False If Then End If End SubPrivate Sub cmdOK_Click() If Txt(0).Text = Then MsgBox 不可以為空 Txt(0).SetFocus Exit Sub End If Bupdata = False If = leave Then (8) = (9) = Now ElseIf = employee Then (13) = (14) = Now If Opsex(0) Then (4) = 男 Else (4) = 女 End If (7) = (8) = (13) = (14) = Now Else For i = 4 To 10 If Not IsNumeric(Txt(i).Text) Then MsgBox not a number Txt(i).SetFocus Exit Sub End If Next i (13) = (14) = Now End If For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 39。(i) = 0 Next i End SubPrivate Sub DataA_Validate(Action As Integer, Save As Integer) If Action = 11 And Bupdata Then Save = 0 End If End SubPrivate Sub Lab_Click(Index As Integer)End SubPrivate Sub Txt_KeyPress(Index As Integer, KeyAscii As Integer) If (KeyAscii 48 Or KeyAscii 57) And KeyAscii vbKeyBack And Index = 0 Then KeyAscii = 0 Exit Sub End If If = leave And Index = 1 Then If (KeyAscii 48 Or KeyAscii 57) And KeyAscii vbKeyBack Then