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