【正文】 管 理用 戶儀 器 設(shè) 備 采購 管 理新 增 儀 器 設(shè) 備設(shè) 備 維 護 信 息設(shè) 備 儀 器 采購 表入 庫 單使 用 與 維護 管 理設(shè) 備 使 用 與 維 修 等 級儀 器 設(shè) 備 使用 與 維 護 表設(shè) 備 信 息新 增 儀 器 設(shè) 備 配 件配 件 維 護 與 使 用 信 息儀 器 設(shè) 備 配件 表設(shè) 備 維 護 信 息使 用 與 維 護 信 息 圖 23 實驗室設(shè)備管理系統(tǒng)第二層 DFD 9 數(shù)據(jù)字典 數(shù)據(jù)字典是對描述數(shù)據(jù)流程圖中的數(shù)據(jù)項、數(shù)據(jù)流、數(shù)據(jù)存儲、加 工處理邏輯等組成部分的嚴(yán)格定義，下面是本系統(tǒng)的數(shù)據(jù)字典（由于篇幅原因，在此僅給出部分）。 (2) 儀器設(shè)備采購管理模塊 ： 實現(xiàn)對儀器設(shè)備的入庫管理工作，包括記錄添加、編輯、刪除等操作。 系統(tǒng)整體結(jié)構(gòu)圖如圖 31所示： 青 海 大 學(xué) 電 工 電 子 實 驗 中 心 實 驗 室 設(shè) 備 管 理 系統(tǒng)用戶管理儀 器設(shè) 備采 購管 理儀 器設(shè) 備維 護與 使用 管理儀 器設(shè) 備配 件管 理信 息查 詢用戶名密碼設(shè)備信息添加設(shè)備信息刪除設(shè)備信息編輯設(shè)備信息添加設(shè)備信息刪除設(shè)備信息編輯設(shè)備配件添加設(shè)備配件刪除設(shè)備配件編輯查詢 圖 31 系統(tǒng)整體功能結(jié)構(gòu)圖 從以上結(jié)構(gòu)圖可以看出，系統(tǒng)相互聯(lián)系，構(gòu)成實驗室 設(shè)備 管理系統(tǒng)整體。數(shù)據(jù)庫設(shè)計一般要在需求分析和數(shù)據(jù)分析的基礎(chǔ)上進行概念設(shè)計、邏輯設(shè)計、物理設(shè)計等 數(shù)據(jù)庫概念設(shè)計 根據(jù)前面分析，設(shè)計出滿足用戶需求的各種實體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計打下基礎(chǔ)。本系統(tǒng)有管理員信息表 （ admininfo） 、新增儀器設(shè)備表（ cginfo）、配件表（ pjinfo ） 、 配 件 庫 存 表 （ pjstoinfo ） 、設(shè)備維修表（ wxinf 16 17 第四章 系統(tǒng)實施 功能模塊的實現(xiàn) 登陸界面 打開用戶登陸主界面 ，用戶在登陸界面，輸入用戶名及密碼，點擊登錄按鈕。設(shè)計時一般先設(shè)計窗體背景和窗體標(biāo)題。下面是主要部分代碼： If = Then MsgBox 請輸入儀器設(shè)備名稱 , , 提示 Exit Sub End If If = Then MsgBox 請輸入儀器設(shè)備采購人 , , 提示 Exit Sub End If If = Then 19 MsgBox 請輸入出產(chǎn)廠家 , , 提示 Exit Sub End If 39。Exit Sub 39。MsgBox 請輸入出廠日期 39。 主要部分代碼： Private Sub Command1_Click() If = Then MsgBox 請輸入儀器設(shè)備編號 Exit Sub End If = select * from cginfo where 儀器設(shè)備編號 = + End Sub Private Sub Command2_Click() Unload Me End Sub 21 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 22 3） 配件登記： form4 為儀器設(shè)備配件登錄的窗體，實現(xiàn)方法同 form3（ 儀器設(shè)備信息登記） 23 4） 配件的庫存量 ： form7 的主要作用是配件信息維護，實現(xiàn)方法同 form6（儀器設(shè)備信息維護）。MsgBox 請輸入維修日期 ,若無維修 ,請輸 入無 39。 = = = MsgBox 數(shù)據(jù)已經(jīng)成功保存到數(shù)據(jù)庫 !, , 提示 7） 儀器設(shè)備的使用與維修信息維護： 窗體 form8 在屬性欄 caption 里面輸入儀器設(shè)備使用維修信息維護，在窗體中放置 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)的屬性值。%39。%39。%39。%39。%39。%39。%39。%39。%39。%39。%39。%39。軟件工程的根本目標(biāo)是開發(fā)出高質(zhì)量的完全符合用戶需要的軟件，因此，通過測試發(fā)現(xiàn)錯誤以后還必須診斷并改正錯誤，這就是調(diào)試的目的 系統(tǒng)測試的目的 良好的應(yīng)用軟件，應(yīng)該保證其質(zhì)量。主要目的 在與檢測軟件系統(tǒng)在各種使用環(huán)境中的功能實現(xiàn)效果，確保程序可以完成用戶所需功能。 （ 4）使用性測試：主要是對用戶交互界面的檢驗，目的是保證程序的界面便于用戶的理解和使用。 系統(tǒng)測試的策略 軟件測試的方法和技術(shù)是多種多樣的，從測試所針對的系統(tǒng)表現(xiàn)來劃分，測試通?？梢苑殖珊诤袦y試（ black test）和白盒測試（ white test） （ 1）黑盒測試：黑盒測試是從用戶觀點出發(fā)的測試。 （ 2）白盒測試：白盒測試又稱結(jié)構(gòu)測試、邏輯驅(qū)動測試，是基于程序的測試。每一個應(yīng)用程序應(yīng)該最少要通過一次白盒測試才能確保安全無虞。該部分主要測試：當(dāng)用戶以登陸系統(tǒng)時，能否正常登陸。該部分主要測試：用戶密碼是否正確