【正文】 Loop End If txtSQL = select distinct 艙位等級名稱 from serviceInfo Set mrc = ExecuteSQL(txtSQL, MsgText) If Not Then Do While Not Combo1(2).AddItem (0) Loop End If End Sub Private Sub txtItem_。 and 到達城市 = 39。 張 ,公務艙的機票還有 amp。頭等艙 39。 amp。 39。 39。 amp。 amp。 張 !, vbOKOnly + vbExclamation, 機票信息 Else MsgBox 對不起 , amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If Trim(Combo1(2)) = 經(jīng)濟艙 Then intCount = ticketCsum ElseIf Trim(Combo1(2)) = 公務艙 Then intCount = ticketMsum Else intCount = ticketFsum End If If intCount 0 Then MsgBox Trim(txtItem(0)) amp。 and 到達城市 = 39。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 Combo1(intCount).SetFocus Exit Sub End If Next intCount If Trim(txtItem(0)) = Then sMeg = 出發(fā)日期不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If If IsDate(txtItem(0)) Then txtItem(0) = Format(txtItem(0), yyyymmdd) Else MsgBox 時間應輸入日期（ yyyymmdd）！ , vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If If Not (Trim(Combo1(2)) = ) Then txtSQL = select * from ticketInfo where 出發(fā)日期 = 39。 End Select End If Next i Loop End With End Sub 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) Unload frmTicket = select * from ticketInfo End If End If End Sub Private Sub cmdModify_Click() Dim intCount As Integer If 1 Then gintKmode = 2 intCount = If intCount 0 Then = select * from ticketInfo where 訂 票 編 號 =39。 從 amp。get RecordCount Set ExecuteSQL = rst MsgString = 查詢到 amp。for ticket Public username As String Sub Main() Dim fLogin As New frmLogin vbModal If Not Then 39。 相信在未來管理信息系統(tǒng)會有更多的和更智能化的功能（不論是航空公司管理信息系統(tǒng)，還是其他的管理系統(tǒng)）。參加首次評價工作的人員有系統(tǒng)研制人員，系統(tǒng)管理人員，用戶，用戶領(lǐng)導和系統(tǒng)外專家。系統(tǒng)運行的日常維護管理包括數(shù)據(jù)收集，數(shù)據(jù)整理，數(shù)據(jù)錄入及處理結(jié)果的整理與分發(fā)，硬件的簡單維護及設(shè)施管理。 第六章 系統(tǒng)維護和系統(tǒng)評價 系 統(tǒng)維護 新系統(tǒng)在正式投入正常運行后，為了讓管理信息系統(tǒng)長期高效地工作，必須加強對管理信息系統(tǒng)運行的日常管理。此窗體如下： 圖 客戶信息列表窗體 選擇“訂票信息管理 |訂票信息”菜單，將顯示機票信息列表窗體，用來對訂票信息進行添加 ,修改，刪除，查詢，此窗體如下： 圖 機票信息列表窗體 在信息列表中單擊“添加”按鈕，將出現(xiàn)機票信息添加窗體，此如下： 圖 添加客戶信息窗體 在機票信 息列表中，單擊“查詢”按鈕，將出現(xiàn)機票信息查詢窗體，輸入查詢內(nèi)容，可以得到剩余機票信息，此如下： 圖 機票信息查詢窗體 查詢結(jié)果如下對話框： 圖 機票信息查詢結(jié)果 選擇 “打印 |打印機票信息”菜單，將顯示所打印的報表，其顯示的報表如下： 打印機票信息報表 選擇“幫助 |關(guān)于幫助”菜單，將出現(xiàn)關(guān)于幫助窗體，此窗體如下： 圖 關(guān)于幫助窗體 點擊系統(tǒng)信息按 鈕，將顯示系統(tǒng)信息窗體 ,此窗體如下： 圖 系統(tǒng)信息窗體 因界面頁數(shù)的限制，只顯示了部分的窗體，其他詳見軟盤。其圖如下： 航線信息管理 艙位 信息 客機 信息 航線 信息 艙位信息添加 艙位信息修改 關(guān) 閉 關(guān) 閉 關(guān) 閉 客戶信息管理 客戶 信息 客戶 類型 艙位 信息 艙位信息刪除 客機信息添加 客機信息修改 客機信息查詢 航線信息修改 航線信息刪除 航線 信息 航線信息添加 客機信息刪除 航線信息查詢 客機 信息 其中票務信息管理包括訂票管理（包括機票信息添加，機票信息修改，機票信息刪除，機票信息查詢和關(guān)閉等功能模塊）等功能模塊。 業(yè)務 ,數(shù)據(jù)流程圖 本航空公司管理信息系統(tǒng)的業(yè)務流程圖表示為： 客戶 客戶登記信息表 客戶部 客機部 艙位部 客戶類型設(shè)置信息表 客機登記信息表 艙位等級設(shè)置信息表 信息收集人員 客機登記信息表 客戶類型設(shè)置信息表 客戶登 記信息表 艙位等級設(shè)置信息表 該物理模型圖轉(zhuǎn)換為數(shù)據(jù)流程圖為： 客 客 客 艙 戶 戶 機 位 登 類 登 等 記 型 記 級 信 設(shè) 信 設(shè) 息 置 息 置 信 信 息 息 客 客 客 艙 戶 戶 機 位 登 類 登 等 記 型 記 級 信 信 信 信 息 息 息 息 表 表 表 表 D1 客戶信息報表 D2 航線信息報表 信息錄入人員 信息錄入人員 客 戶 信 息 表 航 線 信 息 表 信息錄入人員 訂 票 信 息 表 客戶 艙位部 客機部 客戶部 P1 客戶登記信息管理 P2 客戶類型信息管理 P3 客機登記信息 管理 P4 艙位等級信息管理 P6 航線 信息 管理 P5 客戶 信息 管理 P7 訂票信息管理 訂票部 訂票部 D3 訂票信息報表 第四章 系 統(tǒng) 設(shè) 計 系統(tǒng)設(shè)計在整個管理信息系統(tǒng)的研制過程中起著十分重要的作用。 VB 數(shù)據(jù)庫體系結(jié)構(gòu) VB 數(shù)據(jù)庫引擎存在于程序和物理數(shù)據(jù)庫之間，使得 VISUAL BASIC數(shù)據(jù)庫對象和編程技術(shù)對于數(shù)據(jù)可應用程序具有相同的三部分，如下圖。 為了方便數(shù)據(jù)庫的建立 ﹑ 使用和維護，在操作系統(tǒng)的基礎(chǔ)上，配置一定的軟件，對數(shù)據(jù)庫進行統(tǒng)一的管理和控制，即數(shù)據(jù)庫管理系統(tǒng) DBMS。 數(shù) 據(jù)庫是某個企業(yè) ﹑ 組織或部門所涉及的數(shù)據(jù)的綜合。 VISUAL BASIC 。 第二章論述了開發(fā)航空管理信息系統(tǒng)的理論基礎(chǔ)。 本論文包括七章內(nèi)容，分別從引言，理論基礎(chǔ)，系統(tǒng)分析，系統(tǒng)設(shè)計，系統(tǒng)實施，系