【正文】 軟件在運行過程中可能會產(chǎn)生各種各樣的問題，也可能帶來不同程序的嚴重后果。 最后選擇“ File|Make ”菜單，編譯開始。除了對數(shù)據(jù)格式的檢查，還要檢查相應(yīng)航班是否滿員。 ? 查詢剩余機票信息。 Trim((intCount, 1)) amp。 amp。 （一）顯示客戶信息窗體的創(chuàng)建 選擇“客戶信息管理 |客戶信息”菜單，將首先出現(xiàn)如圖 所示的窗體。 的記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then ‘記載選擇記錄的位置 intCount = ‘刪除記錄 txtSQL = delete from customerType where ctypeNO =39。修改完畢，單擊“保存”按鈕，修改后的記錄保存到數(shù)據(jù)庫中。 ? 修改客戶類型信息。 Trim((, 3)) amp。 Trim((intCount, 1)) amp。所有信息顯示出來。 39。 （三）刪除客機信息 在客機信息列表中選擇記錄，然后單擊“刪除”按鈕，當前記錄將被刪除。 ? 修改客機信息。 1 Else MsgBox 警告 , vbOKOnly + vbExclamation, 請首先選擇需要修改的記錄！ End If End If End Sub （四）刪除艙位等級信息 在艙位等級信息列表中選擇需要刪除的記錄，然后單擊“刪除”按鈕，將刪除當前記錄。 （二）添加艙位信息窗體的創(chuàng)建 在艙位信息顯示窗體中單擊“添加”按鈕，將出現(xiàn)如圖 所示的窗體。 二、艙位信息管理模塊的創(chuàng)建 艙位信息管理模塊主要實現(xiàn)如下功能： ? 添加艙位信息。記載訂票信息模塊的讀寫狀態(tài) 這些全局變量用來記錄是添加狀態(tài)還是修改狀態(tài)，賦值 1為添加，賦值 2為修改。轉(zhuǎn)換成 Tab 鍵 SendKeys {TAB} End If End Sub eyasc 用來保存當前按鍵， SendKeys 函數(shù)用來指定的按鍵。 amp。執(zhí)行 SQL 語句，并返回記錄集對象 ‘聲 明一個連接 Dim n As ‘聲明一個數(shù)據(jù)集對象 Dim rst As Dim sTokens() As String 39。選中狀態(tài)欄控件，單擊鼠標右鍵，選中 Property 菜單，然后設(shè)置屬性?，F(xiàn)在將通過航空公司管理信息系統(tǒng)中各個功能模塊的實現(xiàn)，講解如何使用 Visual Basic 來編寫數(shù)據(jù)庫系統(tǒng)的客戶端程序。各個實體具體的描述 ER 圖如下。 ? 航線信息，包括的數(shù)據(jù)項有：航線編號、出發(fā)城市、到達城市、航班日期、出發(fā)時間、到達時間、客機編號、經(jīng)濟艙價格、公務(wù)艙價格、頭等艙價格、備注信息等。 （二）系統(tǒng)功能模塊設(shè)計 對上述各項功能進行集中、分塊，按照結(jié)構(gòu)化程序設(shè)計的要求，得到如圖 所示的系統(tǒng)功能模塊。 二、開發(fā)環(huán)境 開發(fā)環(huán)境的選擇會影響到數(shù)據(jù)庫的設(shè)計，所以在這里給出航空公司信息管理系統(tǒng)開發(fā)與運行環(huán)境的選擇如下： 開發(fā)環(huán)境： Windows 2021 開發(fā)工具： Visual Basic 數(shù)據(jù)庫管理系統(tǒng)： SQL Server 2021 吉林大學計算機科學與技術(shù)學院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 3 頁 共 40 頁 第二章 系統(tǒng)總體設(shè)計 一、系統(tǒng)設(shè)計 （一）系統(tǒng)功能分析 系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動化。信息的擁有量及信息的利用效率決定了每一個社會元素的社會競爭力，也決定了它未來發(fā)展的道路。 航空公司管理系統(tǒng)的總目標是：在計算機網(wǎng)絡(luò)，數(shù) 據(jù)庫和先進的開發(fā)平臺上，利用現(xiàn)有的軟件，配置一定的硬件，開發(fā)一個具有開放體系結(jié)構(gòu)的、易擴充的、易維護的、具有良好人機交互界面的管理系統(tǒng)，實現(xiàn)航空公司的機票銷售的自動化的計算機系統(tǒng)，為企業(yè)的決策層提供精確、精細、迅速的機票銷售信息。由于信息資源對人們生活的重要性，不斷提高信息的收集，傳輸，加以利用等活動，日益成為人們社會生活的重要組成部分。 吉林省高等教育自學考試 畢 業(yè) 論 文 論文題目： 航空公司信息管理系統(tǒng) 專 業(yè)： 計算機軟件技術(shù) 準考證號： 290608202119 學生姓名： 指導(dǎo)教師： 2021 年 11 月 11 日吉林大學計算機科學與技術(shù)學院 本科生畢業(yè)論文 摘 要 伴隨著經(jīng)濟的不斷發(fā)展，必然帶動交通業(yè)和旅游業(yè)務(wù)的不斷擴大，特別是航空售票的信息管理日異復(fù)雜，傳統(tǒng)的手工登記和集中的管理已經(jīng)難以滿足快節(jié)奏，高效率的現(xiàn)代生活需求，這就要求航空公司要有一套好的數(shù)據(jù)庫系統(tǒng)。航空管理系統(tǒng)的產(chǎn)生和發(fā)展正好滿足人們的這種需求。 我認為在本系統(tǒng)的設(shè)計過程中最難把握的是數(shù)據(jù)庫的設(shè)計。目前，許多企業(yè)和商家都已意識到信息的重要性，并積極地去提高信息的利用效率，其中最主要的措施就是開發(fā)適合自 己的管理信息系統(tǒng)。 系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務(wù)的基礎(chǔ)上完成。 吉林大學計算機科學與技術(shù)學院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 4 頁 共 40 頁 圖 系統(tǒng)模塊圖 二、數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計的好壞將直接對應(yīng)用系統(tǒng)的效率以及實現(xiàn)的效果產(chǎn)生影響。 ? 客戶類型信息，包括的數(shù)據(jù)項有：客戶類型編號、客戶類型名稱、折扣比例、備注信息等。 艙位等級信息實體 ER圖如圖 所示。 （一）創(chuàng)建工程項目 —— MIS_Ticket 啟動 Visual 后，單擊 File|New Project 菜單，在工程模板中選擇 Standard EXE， Visual Basic 將自動產(chǎn)生一個 Form 窗體，屬性都是缺省設(shè)置。面板 1用來顯示各種文本信息，面板 2用來顯示當前日期，面板 3 用來顯示當前時間。異常處理 On Error GoTo ExecuteSQL_Error 39。 _ 條記錄 End If ExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit Function ExecuteSQL_Error: MsgString = 查詢錯誤 : amp。一旦按下回車鍵，將返回 Tab 鍵，下一個控件自動獲得輸入焦點。 由于航空公司管理信息管理系統(tǒng)啟動后，需要對用戶進行判斷。 吉林大學計算機科學與技術(shù)學院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 15 頁 共 40 頁 ? 修改艙位信息。 圖 添加艙位等級信息窗體 載入窗體時，首先根據(jù)標志變量判斷狀態(tài)，然后決定是添加還是修改。代碼如下： Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String ‘ 判斷信息列表中內(nèi)容是否為空 If 1 Then 吉林大學計算機科學與技術(shù)學院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 17 頁 共 40 頁 ‘提 示信息 If MsgBox(真的要刪除機艙等級為 amp。 ? 刪除客機信息。代碼如下： Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As 吉林大學計算機科學與技術(shù)學院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 19 頁 共 40 頁 Dim MsgText As String ‘判斷列表內(nèi)容是否為空 If 1 Then If MsgBox(真的要刪除客機編號為 amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) Unload frmPlane ‘重新載入所有記錄，并顯示出來 = select * from planeInfo End If End If End Sub （四）查詢客機信息 在客機信息列表中單擊“查詢”按鈕，將出現(xiàn)如圖 所示的窗體。窗體的 Load 事件調(diào)用 ShowTitle、 ShowData 函數(shù)，將記錄顯示出來。 39。 的航線記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then ‘記載選擇記錄位置 intCount = txtSQL = delete from airlineInfo where airlineNO =39。 ? 刪除客戶類型信息。代碼如下： 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。 amp。所有客戶 類型信息都將顯示出來。 Trim((intCount, 1)) amp。 39。 吉林大學計算機科學與技術(shù)學院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 29 頁 共 40 頁 （一）顯示訂票信息窗體的創(chuàng)建 選擇“票務(wù)信息管理 |訂票信息”菜單，將首先出現(xiàn)如圖 所示的窗體。 （三）修改訂票信息 在機票信息列表中選擇需要修改的記錄，然后單擊“修改”按鈕，當前記錄將出現(xiàn)在如圖 13 所示的窗體中。編譯完畢后，即生成了相應(yīng)的可執(zhí)行文件。軟件測試 是保證軟件質(zhì)量的最重要的手段。各個模塊組裝完成后，又會出現(xiàn)一些問題。選擇“ Project|MIS_TICKET Properties”菜單，進行屬性設(shè)置，如圖 20 示。 選擇航線信息和客戶信息后，輸入機票日期，單擊“保存”按鈕，訂票信息保存到數(shù)據(jù)庫中。 ? 刪除訂票信息。 吉林大學計算機科學與技術(shù)學院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 28 頁 共 40 頁 amp。代碼如下： Private Sub cmdModify_Click() Dim intCount As Integer ‘判斷列表內(nèi)容是否為空 If 1 Then 吉林大學計算機科學與技術(shù)學院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 27 頁 共 40 頁 gintCmode = 2 ‘記載選擇記錄的位置 intCount = ‘判斷是否選擇記錄 If intCount 0 Then ‘選擇點擊記錄 = select * from customerInfo where customerNO =39。 ? 查詢客戶信息。 Trim((, 2)) amp。 吉林大學計算機科學與技術(shù)學院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 24 頁 共 40 頁 （三）修改客戶類型信息 在 客戶類型信息列