【正文】
rm8 在屬性欄 caption 里面輸入儀器設(shè)備使用維修信息維護(hù),在窗體中放置 1 個datagrid 控件, 1 個 text 控件, 4 個 mand 控件 , 1 個 adodc ,并分別輸入相應(yīng)的屬性值 主要部分代碼: End Sub Private Sub Command1_Click() If = Then MsgBox 請輸入儀器設(shè)備編號 , , 提示 Exit Sub End If = select * from wxinfo where 儀器設(shè)備編號 = + 27 Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() Dim myval As String myval = MsgBox(是否確定刪除該記錄 , vbYesNo, 提示 ) If myval = vbYes Then End If End Sub Private Sub Command4_Click() Dim myval As String myval = MsgBox(是否保存已經(jīng)修改的記錄 , vbYesNo, 提示 ) If myval = vbYes Then End If End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If ((KeyCode 57) Or (KeyCode 33 And KeyCode 48)) Then If Then = Left(, Len() 1) MsgBox 儀器設(shè)備編號輸入錯誤 ,該編號僅為數(shù)字編號 ,請重新輸入 !!!, , 提示 End If End Sub 28 8) 儀器設(shè)備信息的查詢 窗體 form9 在屬性欄 caption 里面輸入儀器設(shè)備信息查詢,在窗體中放置 3 個 datagrid控件, 1 個 text 控件, 2 個 mand 控件 , 3 個 adodc , 1 個 bo1 并分別輸入相應(yīng)的屬性值。主要部分代碼: Private Sub Command1_Click() If ( = 儀器設(shè)備 編號 ) Or ( = 儀器設(shè) 備名稱 ) Or ( = 采購人 ) Or ( = 出產(chǎn)廠家 ) Then = select * from cginfo where (cginfo. amp。 amp。 Like+ 39。%39。+39。 + + 39。+39。%39。) = select as 儀器設(shè)備編號 ,名稱 as 儀器設(shè)備名稱 ,wxinfo. 使用情況 as 使用情況 ,wxinfo. 維修記錄 as 維修記錄 , as 維修日期 , as 維修費用 from cginfo,wxinfo where ( = ) and (cginfo. amp。 amp。 Like+ 39。%39。+39。 + 29 + 39。+39。%39。) Exit Sub End If If = 領(lǐng)取人 Or = 領(lǐng)取單位 Then = select as 儀器設(shè)備編號 ,名稱 as 儀器設(shè)備名稱 , as 采購人 , as 出產(chǎn)廠家 ,日期 as 出廠日期 , as 金額 , as 采購日期 , as 采購數(shù)量 from cginfo,tzinfo where ( = ) and (tzinfo. amp。 amp。 Like+ 39。%39。+39。 + + 39。+39。%39。) = select as 儀器設(shè)備編號 ,名稱 as 儀器設(shè)備名稱 ,wxinfo. 使用情況 as 使用情況 ,wxinfo. 維修記錄 as 維修記錄 , as 維修日期 , as 維修費用 from tzinfo,wxinfo where ( = ) and (tzinfo. amp。 amp。 Like+ 39。%39。+39。 + + 39。+39。%39。) Exit Sub End If If = 使用情況 Or = 維修記錄 Then = select as 儀器設(shè)備編 號 ,名稱 as 儀器設(shè)備名稱 , as 采購人 , as 出產(chǎn)廠家 ,日期 as 出廠日期 , as 金額 , as 采購日期 , as 采購數(shù)量 from cginfo,wxinfo where ( = ) and (wxinfo. amp。 amp。 Like+ 39。%39。+39。 + + 39。+39。%39。) = select * from wxinfo where (wxinfo. amp。 amp。 Like+ 39。%39。+39。 + + 39。+39。%39。) Exit Sub 30 End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() (儀器設(shè)備編號 ) (儀器設(shè)備的名稱 ) (采購人 ) (出產(chǎn)廠家 ) (使用情況 ) (維修記錄 ) End Sub 31 第五章 系統(tǒng)調(diào)試與測試 系統(tǒng)測試的目的及策略 系統(tǒng)測試是軟件開發(fā)中非常重要的一個環(huán)節(jié),它是衡量我們開發(fā)系統(tǒng)的一個標(biāo)尺。無論怎樣強調(diào)軟件測試的重要性和它對軟件可靠性的影響 都不過分。測試的目標(biāo)是發(fā)現(xiàn)軟件中的錯誤,但是發(fā)現(xiàn)錯誤并不是我們最終目的。軟件工程的根本目標(biāo)是開發(fā)出高質(zhì)量的完全符合用戶需要的軟件,因此,通過測試發(fā)現(xiàn)錯誤以后還必須診斷并改正錯誤,這就是調(diào)試的目的 系統(tǒng)測試的目的 良好的應(yīng)用軟件,應(yīng)該保證其質(zhì)量。在程序交付給客戶之前,必須保證程序的正確性和可用性以及它實際滿足了客戶的要求。從根本上說,測試的目的主要在于發(fā)現(xiàn)錯誤、找出軟件的缺陷。根據(jù)軟件測試的側(cè)重點和主要目標(biāo)不同,通常把測試劃分為下面幾個方面: ( 1)功能測試:即需求測試,這是最基本的測試。主要目的 在與檢測軟件系統(tǒng)在各種使用環(huán)境中的功能實現(xiàn)效果,確保程序可以完成用戶所需功能。 ( 2)可靠性測試:目的是檢測應(yīng)用系統(tǒng)在各種環(huán)境下的運行是否正常與穩(wěn)定。例如:壓力測試、并發(fā)測試等。 ( 3)性能測試:主要目的是檢測系統(tǒng)對平均負(fù)載與劍鋒負(fù)載時的真實處理能力。 ( 4)使用性測試:主要是對用戶交互界面的檢驗,目的是保證程序的界面便于用戶的理解和使用。在該測試中,尤其強調(diào)用戶體驗的測試。 在本次的應(yīng)用系統(tǒng)設(shè)計中,由于系統(tǒng)的中小型規(guī)模及實際測試環(huán)境,只進(jìn)行了功能測試、使用性測試。在功能測試中,著重測試了既定的系統(tǒng)流程是否 能正常完成;在使用性測試時,著重測試了界面設(shè)計的合理性、美觀性,以及是否具備良好的用戶體驗,系統(tǒng)操作是否易于用戶理解與使用 。 系統(tǒng)測試的策略 軟件測試的方法和技術(shù)是多種多樣的,從測試所針對的系統(tǒng)表現(xiàn)來劃分,測試通常可以分成黑盒測試( black test)和白盒測試( white test) ( 1)黑盒測試:黑盒測試是從用戶觀點出發(fā)的測試。它所依據(jù)的是程序的外部特征表現(xiàn),而不考慮其內(nèi)部邏輯結(jié)構(gòu)。黑盒測試側(cè)重的是待測模塊的輸入和輸出檢驗,而模塊內(nèi)部的操作細(xì)節(jié)就像裝在了一個黑盒子中,是不可見的,也即對接 口的測試。黑盒測試是窮舉輸入數(shù)據(jù)類型的測試,只有把所有可能的輸入都作為測試情況使用,才能以這種方法檢查出程序中所有的錯誤。 ( 2)白盒測試:白盒測試又稱結(jié)構(gòu)測試、邏輯驅(qū)動測試,是基于程序的測試。在白盒測 32 試中,測試單元內(nèi)部的所有信息(比如源代碼)都是對測試者開放的,通常也會伴隨著所謂的源代碼走讀工作(檢查源代碼)是一種窮舉路徑類型的測試。白盒測試主要用于開發(fā)過程中的單元測試階段。自然,白盒測試是最耗時間但也是最完整的測試。每一個應(yīng)用程序應(yīng)該最少要通過一次白盒測試才能確保安全無虞。 在本次應(yīng)用系統(tǒng)的設(shè)計中,由于 時間關(guān)系只進(jìn)行了黑盒測試。通過黑盒測試中的數(shù)據(jù)類型窮舉測試,找出了系統(tǒng)中很多潛在的 bug。 系統(tǒng)測試內(nèi)容及結(jié)果分析 系統(tǒng)各部分的測試內(nèi)容如下: ( 1)系統(tǒng)登陸部分。該部分主要測試:當(dāng)用戶以登陸系統(tǒng)時,能否正常登陸。 ( 2)各信息管理模塊部分。該部分主要測試:各信息模塊的信息添加、刪除、修改操作是否正常。 ( 3)個人信息部分。該部分主要測試:用戶密碼是否正確。 通過對系統(tǒng)各個部分的功能測試,找出了系統(tǒng)中存在的功能缺陷。在對各功能缺陷進(jìn)行彌補之后,系統(tǒng)已能通過上述的各項測試,并正常運行。