【正文】 測試功能名稱：添加客機信息測試 表 51 測試用例 001 。軟件測試 是保證軟件質(zhì)量的最重要的手段。各個模塊組裝完成后，又會出現(xiàn)一些問題。 圖 進(jìn)行項目的屬性設(shè)置 吉林大學(xué)計算機科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 31 頁 共 40 頁 第五章 系統(tǒng)測試與維護(hù) 系統(tǒng)完成之后， 需要 對各個模塊的功能進(jìn)行了詳細(xì)的測試，輸入數(shù)據(jù)和預(yù)測輸出數(shù)據(jù)相比，發(fā)現(xiàn)了 一些 問題。我們 需要在發(fā)行前對生成的可執(zhí)行文件進(jìn)行測試。編譯完畢后，即生成了相應(yīng)的可執(zhí)行文件。選擇“ Project|MIS_TICKET Properties”菜單，進(jìn)行屬性設(shè)置，如圖 20 示。這涉及到工程項目屬性的設(shè)置、可執(zhí)行應(yīng)用程序的生成。 （四）刪除訂票信息 選擇機票信息列表中需要刪除的記錄，然后單擊“ 刪除”按鈕，可以刪除所選記錄。 （三）修改訂票信息 在機票信息列表中選擇需要修改的記錄，然后單擊“修改”按鈕，當(dāng)前記錄將出現(xiàn)在如圖 13 所示的窗體中。 選擇航線信息和客戶信息后，輸入機票日期，單擊“保存”按鈕，訂票信息保存到數(shù)據(jù)庫中。選擇出發(fā)城市和到達(dá)城市，將得到相應(yīng)的航線信息；選擇客戶姓名得到相應(yīng)的客戶信息。窗體的 Load 事件調(diào)用 ShowTitle、 ShowData函數(shù)，將所有記錄顯示出來。 吉林大學(xué)計算機科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 29 頁 共 40 頁 （一）顯示訂票信息窗體的創(chuàng)建 選擇“票務(wù)信息管理 |訂票信息”菜單，將首先出現(xiàn)如圖 所示的窗體。 ? 刪除訂票信息。 七、訂票信息管理模塊的創(chuàng)建 訂票信息管理模塊主要實現(xiàn)如下功能： ? 添加訂票信息。 圖 客戶信息查詢窗體 客戶信息查詢窗體在載入時所有客戶信息自動加入到查詢內(nèi)容中。 39。 吉林大學(xué)計算機科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 28 頁 共 40 頁 amp。 Trim((, 2)) amp。 ‘顯示 1 Else ‘提示信息 MsgBox 警 告 , vbOKOnly + vbExclamation, 請首先選擇需要修改的記錄！ End If End If End Sub （四）刪除客戶信息 選擇客戶信息列表中需要刪除的記錄，然后單擊“刪除”按鈕，可以刪除所選記錄。 Trim((intCount, 1)) amp。代碼如下： Private Sub cmdModify_Click() Dim intCount As Integer ‘判斷列表內(nèi)容是否為空 If 1 Then 吉林大學(xué)計算機科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 27 頁 共 40 頁 gintCmode = 2 ‘記載選擇記錄的位置 intCount = ‘判斷是否選擇記錄 If intCount 0 Then ‘選擇點擊記錄 = select * from customerInfo where customerNO =39。 （三）修改客戶信息 在客戶信息列表中選擇需要修改的記錄，然后單擊“修改”按鈕，當(dāng)前記錄將出現(xiàn)在如圖 16 所示的窗體 中。 吉林大學(xué)計算機科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 26 頁 共 40 頁 圖 顯示客戶信息窗體 （二）添加客戶信息窗體的創(chuàng)建 在客戶信息列表中單擊“添加”按鈕，將出現(xiàn)如圖 所示的窗體，用來添加客戶信息。所有客戶 類型信息都將顯示出來。 ? 查詢客戶信息。 ? 修改客戶信息。 39。 amp。 Trim((, 2)) amp。 1 Else MsgBox 警告 , vbOKOnly + vbExclamation, 請首先選擇需要修改的記錄！ End If End If End Sub （四）刪除客戶類型信息 選擇客戶類型信息列表中需要刪除的記錄，然后單擊“刪除”按鈕，可以刪除所選記錄。 Trim((intCount, 1)) amp。代碼如下： Private Sub cmdModify_Click() Dim intCount As Integer ‘判斷列表內(nèi)容是否為空 If 1 Then gintTmode = 2 ‘記載選擇記錄的位置 intCount = ‘判斷是否選擇記錄 If intCount 0 Then ‘顯示需要修改的記錄 = select * from customerType where ctypeNO =39。 吉林大學(xué)計算機科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 24 頁 共 40 頁 （三）修改客戶類型信息 在 客戶類型信息列表中選擇需要修改的記錄，然后單擊“修改”按鈕，當(dāng)前記錄將出現(xiàn)在如圖 914 所示的窗體中。 圖 顯示客戶類型信息窗體 （二）添加客戶類型信息窗體的創(chuàng)建 在客戶類型信息列表中單擊“添加”按鈕，將出現(xiàn)如圖 所示的窗體，用來添加客戶類型信息。所有客戶類型信息都將顯示出來。 ? 刪除客戶類型信息。 五、客戶類型信息管理模塊的創(chuàng)建 客戶類型信息管理模塊主要實現(xiàn)如下功能： 吉林大學(xué)計算機科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 23 頁 共 40 頁 ? 添加客戶類型信息。 Set mrc = ExecuteSQL(txtSQL, MsgText) ‘重新載入記錄并顯示 Unload frmAirline = select * from airlineInfo End If End If End Sub （五）查詢航線信息 在航線信息列表中單擊“查詢”按鈕，將出現(xiàn)如圖 13 所示的窗 圖 航線信息查詢窗體 載入窗體時自動加入出發(fā)城市和到達(dá)城市的內(nèi)容。 Trim((intCount, 1)) amp。 的航線記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then ‘記載選擇記錄位置 intCount = txtSQL = delete from airlineInfo where airlineNO =39。 出發(fā)到 amp。 從 amp。代碼如下： Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String ‘判斷列表內(nèi)容是否為空 If 1 Then 吉林大學(xué)計算機科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 22 頁 共 40 頁 If MsgBox(真的要刪除 amp。 39。 amp。當(dāng)前記錄將顯示在如圖 918 所示的窗體中，可以進(jìn)行修改。 吉林大學(xué)計算機科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 21 頁 共 40 頁 圖 添加航線窗體 輸入完航線信息后，單擊“保存”按鈕：程序首先檢查輸入內(nèi)容是否符合要求，然后檢查是否有重復(fù)記錄，最后添加到數(shù)據(jù)庫中。窗體的 Load 事件調(diào)用 ShowTitle、 ShowData 函數(shù)，將記錄顯示出來。 （一）顯示航線信息窗體的創(chuàng)建 選擇“航線信息管理 |航線信息”菜單，將出現(xiàn)如圖 所示的窗體。 ? 刪除航線信息。 圖 查詢客機信息的窗體 吉林大學(xué)計算機科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 20 頁 共 40 頁 四、航線信息管理模塊的創(chuàng)建 航線信息管理模塊主要實現(xiàn)如下功能： ? 添加航線信息。 Set mrc = ExecuteSQL(txtSQL, MsgText) Unload frmPlane ‘重新載入所有記錄，并顯示出來 = select * from planeInfo End If End If End Sub （四）查詢客機信息 在客機信息列表中單擊“查詢”按鈕，將出現(xiàn)如圖 所示的窗體。 Trim((intCount, 1)) amp。 的客機記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then ‘記載選擇記錄的位置 intCount = txtSQL = delete from planeInfo where planeNO =39。 的型號為 amp。代碼如下： Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As 吉林大學(xué)計算機科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 19 頁 共 40 頁 Dim MsgText As String ‘判斷列表內(nèi)容是否為空 If 1 Then If MsgBox(真的要刪除客機編號為 amp。 圖 添加客機信息列表 輸入內(nèi)容完畢，單擊“保存”按鈕，將首先判斷輸入內(nèi)容是否滿足要求，然后將記錄添加到數(shù)據(jù)庫 中。窗體的 Load 事件調(diào)用 ShowTitle、 ShowData 函數(shù)，將所有記錄顯示出來。 （一）顯示客機信息窗體的創(chuàng)建 選擇“航線信息管理 |客機信息”菜單，將出現(xiàn)如圖 示的窗體。 ? 刪除客機信息。 Set mrc = ExecuteSQL(txtSQL, MsgText) 卸載窗體 Unload frmService ‘ 重新載入記錄并顯示 = select * from serviceInfo End If End If End Sub 三、客機信息管理模塊的創(chuàng)建 客機信息管理模塊主要實現(xiàn)如下功能： ? 添 加客機信息。 Trim((intCount, 1)) amp。 的記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then‘ 記錄選擇記錄位置 intCount = ‘刪除重復(fù)記錄 txtSQL = delete from serviceInfo where serviceNO =39。代碼如下： Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String ‘ 判斷信息列表中內(nèi)容是否為空