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