基于vb的航空公司信息管理系統-資料下載頁

【導讀】求，這就要求航空公司要有一套好的數據庫系統。及有效的程序結構支持各種數據操作的執行。對數據的添加、修改、刪除及查詢等方面的操。作應簡單易行，并且能夠具有較好的穩定性。序設計方法，進行開發與設計的。本系統的使用界面具有十分人性化的特征，具有方便的查

　　

【正文】 在航線信息列表中單擊“查詢”按鈕，將出現如圖 13 所示的窗 圖 航線信息查詢窗體 載入窗體時自動加入出發城市和到達城市的內容。 設置查詢內容后，單擊“確定”按鈕，所有滿足查詢條件的內容顯示在航線信息列表中。 五、客戶類型信息管理模塊的創建 客戶類型信息管理模塊主要實現如下功能： 吉林大學計算機科學與技術學院 本科生畢業論文 題目： 航空公司信息管理系統 第 23 頁 共 40 頁 ? 添加客戶類型信息。 ? 修改客戶類型信息。 ? 刪除客戶類型信息。 （一）顯示客戶類型信息窗體的創建 選擇“ 客戶信息管理 |客戶類型”菜單，將出現如圖 所示的窗體。所有客戶類型信息都將顯示出來。窗體的 Load 事件調用 ShowTitle、 ShowData 函數，將所有記錄顯示出來。 圖 顯示客戶類型信息窗體 （二）添加客戶類型信息窗體的創建 在客戶類型信息列表中單擊“添加”按鈕，將出現如圖 所示的窗體，用來添加客戶類型信息。 圖 輸入內容完畢，單擊“保存”按鈕，程序將首先檢查內容是否符合要求，然后檢查是否有重復記錄，最后添加到數據庫中。 吉林大學計算機科學與技術學院 本科生畢業論文 題目： 航空公司信息管理系統 第 24 頁 共 40 頁 （三）修改客戶類型信息 在 客戶類型信息列表中選擇需要修改的記錄，然后單擊“修改”按鈕，當前記錄將出現在如圖 914 所示的窗體中。修改完畢，單擊“保存”按鈕，修改后的記錄保存到數據庫中。代碼如下： Private Sub cmdModify_Click() Dim intCount As Integer ‘判斷列表內容是否為空 If 1 Then gintTmode = 2 ‘記載選擇記錄的位置 intCount = ‘判斷是否選擇記錄 If intCount 0 Then ‘顯示需要修改的記錄 = select * from customerType where ctypeNO =39。 amp。 Trim((intCount, 1)) amp。 39。 1 Else MsgBox 警告 , vbOKOnly + vbExclamation, 請首先選擇需要修改的記錄！ End If End If End Sub （四）刪除客戶類型信息 選擇客戶類型信息列表中需要刪除的記錄，然后單擊“刪除”按鈕，可以刪除所選記錄。代碼如下： Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String ‘判斷列表內容是否為空 If 1 Then 吉林大學計算機科學與技術學院 本科生畢業論文 題目： 航空公司信息管理系統 第 25 頁 共 40 頁 ‘提示信息 If MsgBox(真的要刪除客戶種類為 amp。 Trim((, 2)) amp。 的記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then ‘記載選擇記錄的位置 intCount = ‘刪除記錄 txtSQL = delete from customerType where ctypeNO =39。 amp。 Trim((intCount, 1)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) ‘卸載窗體 Unload frmcType ‘選擇所有記 錄 = select * from customerType ‘顯示窗體 End If End If End Sub 六、客戶信息管理模塊的創建 客戶信息管理模塊主要實現如下功能： ? 添加客戶信息。 ? 修改客戶信息。 ? 刪除客戶信息。 ? 查詢客戶信息。 （一）顯示客戶信息窗體的創建 選擇“客戶信息管理 |客戶信息”菜單，將首先出現如圖 所示的窗體。所有客戶 類型信息都將顯示出來。窗體的 Load 事件調用 ShowTitle、 ShowData函數，將所有記錄顯示出來。 吉林大學計算機科學與技術學院 本科生畢業論文 題目： 航空公司信息管理系統 第 26 頁 共 40 頁 圖 顯示客戶信息窗體 （二）添加客戶信息窗體的創建 在客戶信息列表中單擊“添加”按鈕，將出現如圖 所示的窗體，用來添加客戶信息。 圖 添加客戶信息窗體 輸入內容完畢，單擊“保存”按鈕，程序將首先檢查內容是否符合要求，然后檢查是否有重復記錄，最后添加到數據庫中。 （三）修改客戶信息 在客戶信息列表中選擇需要修改的記錄，然后單擊“修改”按鈕，當前記錄將出現在如圖 16 所示的窗體 中。修改完畢，單擊“保存”按鈕，修改后的記錄保存到數據庫中。代碼如下： Private Sub cmdModify_Click() Dim intCount As Integer ‘判斷列表內容是否為空 If 1 Then 吉林大學計算機科學與技術學院 本科生畢業論文 題目： 航空公司信息管理系統 第 27 頁 共 40 頁 gintCmode = 2 ‘記載選擇記錄的位置 intCount = ‘判斷是否選擇記錄 If intCount 0 Then ‘選擇點擊記錄 = select * from customerInfo where customerNO =39。 amp。 Trim((intCount, 1)) amp。 39。 ‘顯示 1 Else ‘提示信息 MsgBox 警 告 , vbOKOnly + vbExclamation, 請首先選擇需要修改的記錄！ End If End If End Sub （四）刪除客戶信息 選擇客戶信息列表中需要刪除的記錄，然后單擊“刪除”按鈕，可以刪除所選記錄。代碼如下： Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String ‘判斷列表內容是否為空 If 1 Then If MsgBox(真的要刪除客戶姓名為 amp。 Trim((, 2)) amp。 的客戶記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then ‘記載選擇記錄的位置 intCount = ‘刪除當前記錄 txtSQL = delete from customerInfo where customerNO =39。 吉林大學計算機科學與技術學院 本科生畢業論文 題目： 航空公司信息管理系統 第 28 頁 共 40 頁 amp。 Trim((intCount, 1)) amp。 39。 ‘執行查詢語句 Set mrc = ExecuteSQL(txtSQL, MsgText) ‘卸載客戶信息列表 Unload frmCustomer ‘選擇所有記錄 = select * from customerInfo ‘顯示 End If End If End Sub （五）查詢客戶信息 在如圖 18 所示的客戶信息列表中，單擊“查 按鈕，出現如圖 所示的對話框。 圖 客戶信息查詢窗體 客戶信息查詢窗體在載入時所有客戶信息自動加入到查詢內容中。選擇合適的 查詢方式，滿足查詢條件的記錄顯示在如圖 17 所示的客戶信息列表中。 七、訂票信息管理模塊的創建 訂票信息管理模塊主要實現如下功能： ? 添加訂票信息。 ? 修改訂票信息。 ? 刪除訂票信息。 ? 查詢剩余機票信息。 吉林大學計算機科學與技術學院 本科生畢業論文 題目： 航空公司信息管理系統 第 29 頁 共 40 頁 （一）顯示訂票信息窗體的創建 選擇“票務信息管理 |訂票信息”菜單，將首先出現如圖 所示的窗體。所有訂票類型信息都將顯示出來。窗體的 Load 事件調用 ShowTitle、 ShowData函數，將所有記錄顯示出來。 圖 顯示機票信息的窗體 （二）添加訂票信息窗體的創建 機票信息包括兩部分：航線信息和客 戶信息。選擇出發城市和到達城市，將得到相應的航線信息；選擇客戶姓名得到相應的客戶信息。窗體載入時要求在列表框中加入所有有關航線和客戶的信息。 選擇航線信息和客戶信息后，輸入機票日期，單擊“保存”按鈕，訂票信息保存到數據庫中。除了對數據格式的檢查，還要檢查相應航班是否滿員。 （三）修改訂票信息 在機票信息列表中選擇需要修改的記錄，然后單擊“修改”按鈕，當前記錄將出現在如圖 13 所示的窗體中。修改完畢，單擊“保存”按鈕，修改后的記錄保存到數據庫中。 （四）刪除訂票信息 選擇機票信息列表中需要刪除的記錄，然后單擊“ 刪除”按鈕，可以刪除所選記錄。 吉林大學計算機科學與技術學院 本科生畢業論文 題目： 航空公司信息管理系統 第 30 頁 共 40 頁 第四章 系統的編譯和發行 完成了航空公司管理信息系統的編程和調試工作，最后一步就是該系統的編譯和發行。這涉及到工程項目屬性的設置、可執行應用程序的生成。 在系統的編 譯和發 行以前 ，需要設 置工程 項目的 屬性。選擇“ Project|MIS_TICKET Properties”菜單，進行屬性設置，如圖 20 示。 最后選擇“ File|Make ”菜單，編譯開始。編譯完畢后，即生成了相應的可執行文件。編譯通過后，生成可執行文件 。我們 需要在發行前對生成的可執行文件進行測試。通過測試的可執行文件，就可以進行發布了。 圖 進行項目的屬性設置 吉林大學計算機科學與技術學院 本科生畢業論文 題目： 航空公司信息管理系統 第 31 頁 共 40 頁 第五章 系統測試與維護 系統完成之后， 需要 對各個模塊的功能進行了詳細的測試，輸入數據和預測輸出數據相比，發現了 一些 問題。主要 是在 查詢過程中預計查詢結果和實際結果不一致， 有時候 達不到目的，對數據庫的操作表 之 間的關聯 考慮得不夠周到 ，因此往往會出現 一些小 的錯誤。各個模塊組裝完成后，又會出現一些問題。 軟件在運行過程中可能會產生各種各樣的問題，也可能帶來不同程序的嚴重后果。軟件測試 是保證軟件質量的最重要的手段。軟件測試的概念 IEEE 定義為：使用人工或自動手段來運行或測定某個系統過程，其目的在于檢驗它是否滿足規定的需求或是弄清預期結果與實際結果之間的差別。 測試功能名稱：添加客機信息測試 表 51 測試用例 001