【正文】 t: Set rst = Nothing Set n = Nothing Exit Function ExecuteSQL_Error: MsgString = 查詢錯(cuò)誤 : amp。 39。異常處理 On Error GoTo ExecuteSQL_Error 39。下面就可以開始添加需要的代碼了。面板 1用來顯示各種文本信息，面板 2用來顯示當(dāng)前日期，面板 3 用來顯示當(dāng)前時(shí)間。創(chuàng)建好的窗體如圖 所示。 （一）創(chuàng)建工程項(xiàng)目 —— MIS_Ticket 啟動(dòng) Visual 后，單擊 File|New Project 菜單，在工程模板中選擇 Standard EXE， Visual Basic 將自動(dòng)產(chǎn)生一個(gè) Form 窗體，屬性都是缺省設(shè)置。這是利用 SQL Server 2021 數(shù)據(jù)庫系統(tǒng)中的 SQL 查詢分析器實(shí)現(xiàn)的。 艙位等級(jí)信息實(shí)體 ER圖如圖 所示。 （二）數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì) 得到上面的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計(jì)出能夠滿足用戶需求的各種吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 6 頁 共 40 頁 實(shí)體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。 ? 客戶類型信息，包括的數(shù)據(jù)項(xiàng)有：客戶類型編號(hào)、客戶類型名稱、折扣比例、備注信息等。 （一）數(shù)據(jù)庫需求分析 仔細(xì)分析調(diào)查有關(guān)航空公司管理信息需求的基礎(chǔ)上，將得到如圖 所示的本系統(tǒng)所處理的數(shù)據(jù)流程。 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 4 頁 共 40 頁 圖 系統(tǒng)模塊圖 二、數(shù)據(jù)庫設(shè)計(jì) 數(shù)據(jù)庫在一個(gè)信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效率以及實(shí)現(xiàn)的效果產(chǎn)生影響。 ? 客戶等級(jí)信息的輸入、修改，包括客戶等級(jí)編號(hào)、客戶等級(jí)名稱、折扣比例和備注信息等。 系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務(wù)的基礎(chǔ)上完成。航空公司要建立飛行運(yùn)行管理系統(tǒng)，優(yōu)化生產(chǎn)要素配置，實(shí)現(xiàn)飛行簽派、飛行計(jì)劃和機(jī)組排班的科學(xué)管理；要加快建 設(shè)收益管理系統(tǒng)，充分利用訂座、離港、貨運(yùn)等系統(tǒng)的信息資源，綜合先進(jìn)管理思想，優(yōu)化資源配置 ，制定企業(yè)營銷戰(zhàn)略，提高市場(chǎng)競(jìng)爭(zhēng)能力；要抓緊建設(shè)常旅客、機(jī)務(wù)航材和企業(yè)管理等信息系統(tǒng)，逐步實(shí)現(xiàn)各信息系統(tǒng)融合，并最終建成高效、先進(jìn)、開放的綜合信息系統(tǒng)。目前，許多企業(yè)和商家都已意識(shí)到信息的重要性，并積極地去提高信息的利用效率，其中最主要的措施就是開發(fā)適合自 己的管理信息系統(tǒng)。同時(shí)一個(gè)合理的數(shù)據(jù)庫結(jié)構(gòu)有利于程序的進(jìn)一步實(shí)現(xiàn)本人將 在以后的工作和學(xué)習(xí)中進(jìn)一步深入了解數(shù)據(jù)庫的設(shè)計(jì)從而使系統(tǒng)設(shè)計(jì)更加完善和實(shí)用。 我認(rèn)為在本系統(tǒng)的設(shè)計(jì)過程中最難把握的是數(shù)據(jù)庫的設(shè)計(jì)。為了提高代碼的效率方便維護(hù)，在 Visual 、過程和全局變量等。航空管理系統(tǒng)的產(chǎn)生和發(fā)展正好滿足人們的這種需求。本系統(tǒng)的使用界面具有十分人性化的特征，具有方便的查詢功能，對(duì)數(shù)據(jù)的增加及刪除等方面的操作應(yīng)簡單易行，并且能夠具有較好的穩(wěn)定性。 吉林省高等教育自學(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ù)庫系統(tǒng)。 航空公司管理信息系統(tǒng)主要采用 Visual 作為開發(fā)工具，應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法，進(jìn)行開發(fā)與設(shè)計(jì)的。由于信息資源對(duì)人們生活的重要性，不斷提高信息的收集，傳輸，加以利用等活動(dòng)，日益成為人們社會(huì)生活的重要組成部分。 迄今， 我國的信息化建設(shè)已取得很大進(jìn)步，在這樣的環(huán)境下，航空信息化建設(shè)也向著嚴(yán)密，科學(xué)，完善的管理體系發(fā)展，在編寫代碼的過程中，需要單獨(dú)調(diào)試每個(gè)窗體。 航空公司管理系統(tǒng)的總目標(biāo)是：在計(jì)算機(jī)網(wǎng)絡(luò)，數(shù) 據(jù)庫和先進(jìn)的開發(fā)平臺(tái)上，利用現(xiàn)有的軟件，配置一定的硬件，開發(fā)一個(gè)具有開放體系結(jié)構(gòu)的、易擴(kuò)充的、易維護(hù)的、具有良好人機(jī)交互界面的管理系統(tǒng)，實(shí)現(xiàn)航空公司的機(jī)票銷售的自動(dòng)化的計(jì)算機(jī)系統(tǒng)，為企業(yè)的決策層提供精確、精細(xì)、迅速的機(jī)票銷售信息。其次數(shù)據(jù)庫設(shè)計(jì)應(yīng)該和應(yīng)用系統(tǒng)相結(jié)合，一個(gè)良好的數(shù)據(jù)庫設(shè)計(jì)可以提高數(shù)據(jù)信息的儲(chǔ)存效率，保證數(shù)據(jù)信息的完整性和一致性。信息的擁有量及信息的利用效率決定了每一個(gè)社會(huì)元素的社會(huì)競(jìng)爭(zhēng)力，也決定了它未來發(fā)展的道路。 企業(yè)信息化是民航信息化的主體，民航企業(yè)信息化要全面展開。 二、開發(fā)環(huán)境 開發(fā)環(huán)境的選擇會(huì)影響到數(shù)據(jù)庫的設(shè)計(jì)，所以在這里給出航空公司信息管理系統(tǒng)開發(fā)與運(yùn)行環(huán)境的選擇如下： 開發(fā)環(huán)境： Windows 2021 開發(fā)工具： Visual Basic 數(shù)據(jù)庫管理系統(tǒng)： SQL Server 2021 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 3 頁 共 40 頁 第二章 系統(tǒng)總體設(shè)計(jì) 一、系統(tǒng)設(shè)計(jì) （一）系統(tǒng)功能分析 系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動(dò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)功能模塊。數(shù)據(jù)庫設(shè)計(jì)一般包括如下幾個(gè)步驟：數(shù)據(jù)庫需求分析 — 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì) — 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)。 ? 航線信息，包括的數(shù)據(jù)項(xiàng)有：航線編號(hào)、出發(fā)城市、到達(dá)城市、航班日期、出發(fā)時(shí)間、到達(dá)時(shí)間、客機(jī)編號(hào)、經(jīng)濟(jì)艙價(jià)格、公務(wù)艙價(jià)格、頭等艙價(jià)格、備注信息等。 有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項(xiàng)和數(shù)據(jù)流程，我們就能進(jìn)行下面的數(shù)據(jù)庫設(shè)計(jì)。各個(gè)實(shí)體具體的描述 ER 圖如下?，F(xiàn)在就可以在 SQL Server 2021 數(shù)據(jù)庫系統(tǒng)中實(shí)現(xiàn)該邏輯結(jié)構(gòu)?，F(xiàn)在將通過航空公司管理信息系統(tǒng)中各個(gè)功能模塊的實(shí)現(xiàn)，講解如何使用 Visual Basic 來編寫數(shù)據(jù)庫系統(tǒng)的客戶端程序。在這個(gè)窗體上添加所需的控件，窗體和控件的屬性設(shè)置見表 31。選中狀態(tài)欄控件，單擊鼠標(biāo)右鍵，選中 Property 菜單，然后設(shè)置屬性。在項(xiàng)目資源管理器中為項(xiàng)目添加一個(gè) Module，保存為 。執(zhí)行 SQL 語句，并返回記錄集對(duì)象 ‘聲 明一個(gè)連接 Dim n As ‘聲明一個(gè)數(shù)據(jù)集對(duì)象 Dim rst As Dim sTokens() As String 39。 _ query successful Else Set rst = New Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic 39。 amp。UID=sa。轉(zhuǎn)換成 Tab 鍵 SendKeys {TAB} End If End Sub eyasc 用來保存當(dāng)前按鍵， SendKeys 函數(shù)用來指定的按鍵。記載客機(jī)信息模塊的讀寫狀態(tài) Public gintAmode As Integer 39。記載訂票信息模塊的讀寫狀態(tài) 這些全局變量用來記錄是添加狀態(tài)還是修改狀態(tài)，賦值 1為添加，賦值 2為修改。 （五）用戶管理模塊主要實(shí)現(xiàn)： ? 用戶登錄。 二、艙位信息管理模塊的創(chuàng)建 艙位信息管理模塊主要實(shí)現(xiàn)如下功能： ? 添加艙位信息。 圖 艙位等級(jí)信息窗體 這個(gè)窗體用來顯示艙位等級(jí)信息，并且可以對(duì)各條記錄進(jìn)行操作。 （二）添加艙位信息窗體的創(chuàng)建 在艙位信息顯示窗體中單擊“添加”按鈕，將出現(xiàn)如圖 所示的窗體。選擇記錄的內(nèi)容將顯示在窗體中，可以進(jìn)行修改， 最后保存修改后的記錄代碼如下： Private Sub cmdModify_Click() Dim intCount As Integer 判斷列表中是否有記錄 If 1 Then ‘ 改變狀態(tài)變量 gintSmode = 2 ‘ 記錄選擇記錄位置 intCount = If intCount 0 Then = select * from serviceInfo where serviceNO =39。 1 Else MsgBox 警告 , vbOKOnly + vbExclamation, 請(qǐng)首先選擇需要修改的記錄！ End If End If End Sub （四）刪除艙位等級(jí)信息 在艙位等級(jí)信息列表中選擇需要?jiǎng)h除的記錄，然后單擊“刪除”按鈕，將刪除當(dāng)前記錄。 amp。 ? 修改客機(jī)信息。所有客機(jī)信息都將顯示出來。 （三）刪除客機(jī)信息 在客機(jī)信息列表中選擇記錄，然后單擊“刪除”按鈕，當(dāng)前記錄將被刪除。 Trim((, 2)) amp。 39。 ? 修改航線信息。所有信息顯示出來。 （三）修改航線信息 在航線信息列表中選擇記錄，然后單擊“修改”按鈕。 Trim((intCount, 1)) amp。 Trim((, 4)) amp。 Trim((, 3)) amp。 39。 ? 修改客戶類型信息。窗體的 Load 事件調(diào)用 ShowTitle、 ShowData 函數(shù)，將所有記錄顯示出來。修改完畢，單擊“保存”按鈕，修改后的記錄保存到數(shù)據(jù)庫中。 39。 的記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then ‘記載選擇記錄的位置 intCount = ‘刪除記錄 txtSQL = delete from customerType where ctypeNO =39。 Set mrc = ExecuteSQL(txtSQL, MsgText) ‘卸載窗體 Unload frmcType ‘選擇所有記 錄 = select * from customerType ‘顯示窗體 End If End If End Sub 六、客戶信息管理模塊的創(chuàng)建 客戶信息管理模塊主要實(shí)現(xiàn)如下功能： ? 添加客戶信息。 （一）顯示客戶信息窗體的創(chuàng)建 選擇“客戶信息管理 |客戶信息”菜單，將首先出現(xiàn)如圖 所示的窗體。 圖 添加客戶信息窗體 輸入內(nèi)容完畢，單擊“保存”按鈕，程序?qū)⑹紫葯z查內(nèi)容是否符合要求，然后檢查是否有重復(fù)記錄，最后添加到數(shù)據(jù)庫中。 amp。代碼如下： Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String ‘判斷列表內(nèi)容是否為空 If 1 Then If MsgBox(真的要?jiǎng)h除客戶姓名為 amp。 Trim((intCount, 1)) amp。選擇合適的 查詢方式，滿足查詢條件的記錄顯示在如圖 17 所示的客戶信息列表中。 ? 查詢剩余機(jī)票信息。 圖 顯示機(jī)票信息的窗體 （二）添加訂票信息窗體的創(chuàng)建 機(jī)票信息包括兩部分：航線信息和客 戶信息。除了對(duì)數(shù)據(jù)格式的檢查，還要檢查相應(yīng)航班是否滿員。 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 30 頁 共 40 頁 第四章 系統(tǒng)的編譯和發(fā)行 完成了航空公司管理信息系統(tǒng)的編程和調(diào)試工作，最后一步就是該系統(tǒng)的編譯和發(fā)行。 最后選擇“ File|Make ”菜單，編譯開始。通過測(cè)試的可執(zhí)行文件，就可以進(jìn)行發(fā)布了。 軟件在運(yùn)行過程中可能會(huì)產(chǎn)生各種各樣的問題，也可能帶來不同程序的嚴(yán)重