【正文】 End Sub Private Sub dykh_Click() End Sub Private Sub dyhxxx_Click() End Sub Private Sub dyjpxx_Click() End Sub Private Sub dykhxx_Click() End Sub Private Sub MDIForm_Load() = GetSetting(, Settings, MainLeft, 1000) = GetSetting(, Settings, MainTop, 1000) = GetSetting(, Settings, MainWidth, 6500) = GetSetting(, Settings, MainHeight, 6500) End Sub Private Sub MDIForm_Unload(Cancel As Integer) If vbMinimized Then SaveSetting , Settings, MainLeft, SaveSetting , Settings, MainTop, SaveSetting , Settings, MainWidth, SaveSetting , Settings, MainHeight, End If End Sub Private Sub menuAbout_Click() 0 End Sub Private Sub menuAdduser_Click() (1).Text = 添加用戶 End Sub Private Sub menuAirline_Click() = select * from airlineInfo End Sub Private Sub menuBookticket_Click() = select * from ticketInfo 0 End Sub Private Sub menuCarbin_Click() = select * from serviceInfo 0 End Sub Private Sub menuCtype_Click() = select * from customerType 0 End Sub Private Sub menuCustomer_Click() = select * from customerInfo 0 End Sub Private Sub menuExit_Click() End End Sub Private Sub menuModifypwd_Click() 39。 _ 條記錄 End If ExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit Function ExecuteSQL_Error: MsgString = 查詢錯誤 : amp。get RecordCount Set ExecuteSQL = rst MsgString = 查詢到 amp。 _ query successful Else Set rst = New Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic 39。PWD= End Function Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。returns a DB ConnectString ConnectString = FileDSN=。for ticket Public username As String Sub Main() Dim fLogin As New frmLogin vbModal If Not Then 39。for customertype Public gintCmode As Integer 39。for plane Public gintAmode As Integer 39。 參 考 文 獻 1 .劉韜，駱娟，何旭洪著《 Visual Basic 數(shù)據(jù)庫開發(fā)實例導(dǎo)航》 人民郵電出版社 2 .甘仞初著 《信息系統(tǒng)開發(fā)》 經(jīng)濟科學(xué)出版社 3 .黃梯云著 《管理信息系統(tǒng)》 北京理工大學(xué)出版社 4 .劉恩濤、趙耀峰著 《 Visual Basic 編程技巧與實例分析》 中國水利 水電出版社 5 .清漢計算機工作室編寫 《 Visual Basic 數(shù)據(jù)庫開發(fā)實例》 機械工業(yè)出版社 6 .（美） Jeffrey P. mcmanu 著 趙軍鎖、龔波、李志等譯 《 Visual Basic 數(shù)據(jù)庫訪問技術(shù)》 機械工業(yè)出版社 附錄 程 序 代 碼 主模塊代碼： Public fMainForm As frmMain Public gintSmode As Integer 39。 相信在未來管理信息系統(tǒng)會有更多的和更智能化的功能（不論是航空公司管理信息系統(tǒng)，還是其他的管理系統(tǒng)）?！靶畔⑾到y(tǒng)開發(fā)”，“管理信 息系統(tǒng)”，“軟件工程”，“軟件開發(fā)工具”等課程中講述的理論、方法、工具，諸如：結(jié)構(gòu)化開發(fā)方法、原型法、面向?qū)ο蟮姆椒ā⒁?guī)范化理論、生命周期法、第四代語言、軟件工程等，正是解決此問題的強有力工具。除了要涉及計算機、數(shù)據(jù)庫等方面的專業(yè)知識外，還在于信息系統(tǒng)自身的復(fù)雜性。系統(tǒng)的評價的內(nèi)容包括：①對信息系統(tǒng)的功能評價；②對現(xiàn)有硬件和軟件的評價；③對信息系統(tǒng)的應(yīng)用評價；④對信息系統(tǒng)的經(jīng)濟效益評價。參加首次評價工作的人員有系統(tǒng)研制人員，系統(tǒng)管理人員，用戶，用戶領(lǐng)導(dǎo)和系統(tǒng)外專家。評價的結(jié)果可以做為系統(tǒng)改進的依據(jù)。進行這項工作的目的是通過對新系統(tǒng)運行過程和績效的審查，來檢查新系統(tǒng)是否達到了預(yù)期目的，是否充分利用了系統(tǒng)內(nèi)各種資源（包括計算機硬件資源，軟件資源和數(shù)據(jù)資源），系統(tǒng)的管理工作是否完善，以及指出系統(tǒng)改進和擴展的方向是什么等。因此，在此系統(tǒng)的運行情況是一定要及時，準(zhǔn)確，完整地記錄下來，不但要記錄正常情況，還 要記錄意外情況發(fā)生時間，原因和處理結(jié)果。系統(tǒng)運行的日常維護管理包括數(shù)據(jù)收集，數(shù)據(jù)整理，數(shù)據(jù)錄入及處理結(jié)果的整理與分發(fā)，硬件的簡單維護及設(shè)施管理。我們不僅要注意工作環(huán)境和設(shè)施的管理，更主要的是對系統(tǒng)每天運行狀況，數(shù)據(jù)輸入和輸出情況，以及系統(tǒng)的安全與完備性及時如實記錄和處置。按維護的類型分為：糾錯性維護，適應(yīng)性維護，完善性維護和預(yù) 防性維護。因此系統(tǒng)維護就是為了保證系統(tǒng)中的各個要素隨著環(huán)境的變化始終處于最新的，正確的工作狀態(tài)之中，即系統(tǒng)維護是信息系統(tǒng)可靠運行的重要技術(shù)保障，我們必須給予充分的重視。 第六章 系統(tǒng)維護和系統(tǒng)評價 系 統(tǒng)維護 新系統(tǒng)在正式投入正常運行后，為了讓管理信息系統(tǒng)長期高效地工作，必須加強對管理信息系統(tǒng)運行的日常管理。 （三） 在 ODBC 中建立數(shù)據(jù)源，并將其連接。系統(tǒng)實施作為系統(tǒng)的最后物理實現(xiàn)階段，對于系統(tǒng)的 質(zhì)量、可靠性、可維護性等有著十分重要的影響。系統(tǒng)實施階段要繼承以前各階段的工作成果，將技術(shù)設(shè)計轉(zhuǎn)化為物理實現(xiàn)。此窗體如下： 圖 客戶信息列表窗體 選擇“訂票信息管理 |訂票信息”菜單，將顯示機票信息列表窗體，用來對訂票信息進行添加 ,修改，刪除，查詢，此窗體如下： 圖 機票信息列表窗體 在信息列表中單擊“添加”按鈕，將出現(xiàn)機票信息添加窗體，此如下： 圖 添加客戶信息窗體 在機票信 息列表中，單擊“查詢”按鈕，將出現(xiàn)機票信息查詢窗體，輸入查詢內(nèi)容，可以得到剩余機票信息，此如下： 圖 機票信息查詢窗體 查詢結(jié)果如下對話框： 圖 機票信息查詢結(jié)果 選擇 “打印 |打印機票信息”菜單，將顯示所打印的報表，其顯示的報表如下： 打印機票信息報表 選擇“幫助 |關(guān)于幫助”菜單，將出現(xiàn)關(guān)于幫助窗體，此窗體如下： 圖 關(guān)于幫助窗體 點擊系統(tǒng)信息按 鈕，將顯示系統(tǒng)信息窗體 ,此窗體如下： 圖 系統(tǒng)信息窗體 因界面頁數(shù)的限制，只顯示了部分的窗體，其他詳見軟盤。此窗體如下： 圖 客機信息列表窗體 選擇“航線信息管理 |航線信息”菜單，將顯示航線信息列表窗體，用來對航線信息進行添加，修改，刪除，查詢。各個實體的 ER 圖如下： 圖 艙位等級信息 ER 圖 圖 客機信息 ER 圖 關(guān)于幫助 退 出 幫 助 艙位等級信息 備 注 信 息 艙位等級名稱 艙位等級編號 是否有報紙 是否有禮物 是否有午餐 是否有飲料 是否可以 改簽 是否有電影 是否可以退票 是否可以打折 客 機 信 息 購 買 日 期 客 機 編 號 經(jīng)濟艙座位數(shù)量 服 役 日 期 公務(wù)艙座位數(shù)量 客 機 型 號 備 注 信 息 頭等艙座位數(shù)量 航 線 編 號 到 達 城 市 出 發(fā) 城 市 系統(tǒng) 信息 圖 航線信息 ER 圖 圖 客戶類型信息 ER 圖 圖 客戶信息 ER 圖 圖 訂票信息 ER 圖 實體之間關(guān)系的 ER 圖如下： 航 線 信 息 出 發(fā) 時 間 航 班 日 期 客 機 編 號 公務(wù)艙價格 經(jīng)濟艙價格 到 達 時 間 備 注 信 息 頭等艙價格 客戶類型信息 客戶類型名稱 客戶類型編號 折 扣 比 例 備 注 客 戶 信 息 客 戶 編 號 客 戶 類 型 身份證號碼 客 戶 姓 名 備 注 客戶聯(lián)系電話 客 戶 性 別 訂 票 信 息 客 戶 類 型 出 發(fā) 城 市 折 扣 比 例 備 注 艙 位 類 型 訂 票 編 號 客 戶 編 號 機 票 價 格 結(jié) 算 金 額 出 發(fā) 日 期 到 達 城 市 航 線 編 號 客 戶 姓 名 艙位等級信息 客 機 信 息 客戶類型信息 航線設(shè)置 客戶登記 圖 實體之間關(guān)系的 ER 圖 現(xiàn)在需要將上面的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為 SQL SERVER 2021 數(shù)據(jù)庫系統(tǒng)所支持的時間數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)，航空公司管理信息系統(tǒng)數(shù)據(jù)庫設(shè)計的數(shù)據(jù)庫中包括的表如下： user_Info 登入信息表 列名 數(shù)據(jù)類型 可否為空 用戶名稱 char NOTNULL 用戶密碼 char NULL 用戶描述 char NULL serviceInfo 艙位等級信息表 列名 數(shù)據(jù)類型 可否為空 艙位等級編號 char NOTNULL 艙位等級名稱 nvarchar NULL 是否有禮物 char NUL