【正文】 表中選擇需要修改的記錄，然后單擊“修改”按鈕。 的記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then‘ 記錄選擇記錄位置 intCount = ‘刪除重復(fù)記錄 txtSQL = delete from serviceInfo where serviceNO =39。 （一）顯示客機(jī)信息窗體的創(chuàng)建 選擇“航線(xiàn)信息管理 |客機(jī)信息”菜單，將出現(xiàn)如圖 示的窗體。 的型號(hào)為 amp。 圖 查詢(xún)客機(jī)信息的窗體 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 20 頁(yè) 共 40 頁(yè) 四、航線(xiàn)信息管理模塊的創(chuàng)建 航線(xiàn)信息管理模塊主要實(shí)現(xiàn)如下功能： ? 添加航線(xiàn)信息。 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 21 頁(yè) 共 40 頁(yè) 圖 添加航線(xiàn)窗體 輸入完航線(xiàn)信息后，單擊“保存”按鈕：程序首先檢查輸入內(nèi)容是否符合要求，然后檢查是否有重復(fù)記錄，最后添加到數(shù)據(jù)庫(kù)中。代碼如下： 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) 第 22 頁(yè) 共 40 頁(yè) If MsgBox(真的要?jiǎng)h除 amp。 Trim((intCount, 1)) amp。所有客戶(hù)類(lèi)型信息都將顯示出來(lái)。 Trim((intCount, 1)) amp。 39。 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 26 頁(yè) 共 40 頁(yè) 圖 顯示客戶(hù)信息窗體 （二）添加客戶(hù)信息窗體的創(chuàng)建 在客戶(hù)信息列表中單擊“添加”按鈕，將出現(xiàn)如圖 所示的窗體，用來(lái)添加客戶(hù)信息。 ‘顯示 1 Else ‘提示信息 MsgBox 警 告 , vbOKOnly + vbExclamation, 請(qǐng)首先選擇需要修改的記錄！ End If End If End Sub （四）刪除客戶(hù)信息 選擇客戶(hù)信息列表中需要?jiǎng)h除的記錄，然后單擊“刪除”按鈕，可以刪除所選記錄。 圖 客戶(hù)信息查詢(xún)窗體 客戶(hù)信息查詢(xún)窗體在載入時(shí)所有客戶(hù)信息自動(dòng)加入到查詢(xún)內(nèi)容中。窗體的 Load 事件調(diào)用 ShowTitle、 ShowData函數(shù)，將所有記錄顯示出來(lái)。 （四）刪除訂票信息 選擇機(jī)票信息列表中需要?jiǎng)h除的記錄，然后單擊“ 刪除”按鈕，可以刪除所選記錄。我們 需要在發(fā)行前對(duì)生成的可執(zhí)行文件進(jìn)行測(cè)試。 測(cè)試功能名稱(chēng)：添加客機(jī)信息測(cè)試 表 51 測(cè)試用例 001 。 圖 進(jìn)行項(xiàng)目的屬性設(shè)置 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 31 頁(yè) 共 40 頁(yè) 第五章 系統(tǒng)測(cè)試與維護(hù) 系統(tǒng)完成之后， 需要 對(duì)各個(gè)模塊的功能進(jìn)行了詳細(xì)的測(cè)試，輸入數(shù)據(jù)和預(yù)測(cè)輸出數(shù)據(jù)相比，發(fā)現(xiàn)了 一些 問(wèn)題。這涉及到工程項(xiàng)目屬性的設(shè)置、可執(zhí)行應(yīng)用程序的生成。選擇出發(fā)城市和到達(dá)城市，將得到相應(yīng)的航線(xiàn)信息；選擇客戶(hù)姓名得到相應(yīng)的客戶(hù)信息。 七、訂票信息管理模塊的創(chuàng)建 訂票信息管理模塊主要實(shí)現(xiàn)如下功能： ? 添加訂票信息。 Trim((, 2)) amp。 （三）修改客戶(hù)信息 在客戶(hù)信息列表中選擇需要修改的記錄，然后單擊“修改”按鈕，當(dāng)前記錄將出現(xiàn)在如圖 16 所示的窗體 中。 ? 修改客戶(hù)信息。 1 Else MsgBox 警告 , vbOKOnly + vbExclamation, 請(qǐng)首先選擇需要修改的記錄！ End If End If End Sub （四）刪除客戶(hù)類(lèi)型信息 選擇客戶(hù)類(lèi)型信息列表中需要?jiǎng)h除的記錄，然后單擊“刪除”按鈕，可以刪除所選記錄。 圖 顯示客戶(hù)類(lèi)型信息窗體 （二）添加客戶(hù)類(lèi)型信息窗體的創(chuàng)建 在客戶(hù)類(lèi)型信息列表中單擊“添加”按鈕，將出現(xiàn)如圖 所示的窗體，用來(lái)添加客戶(hù)類(lèi)型信息。 Set mrc = ExecuteSQL(txtSQL, MsgText) ‘重新載入記錄并顯示 Unload frmAirline = select * from airlineInfo End If End If End Sub （五）查詢(xún)航線(xiàn)信息 在航線(xiàn)信息列表中單擊“查詢(xún)”按鈕，將出現(xiàn)如圖 13 所示的窗 圖 航線(xiàn)信息查詢(xún)窗體 載入窗體時(shí)自動(dòng)加入出發(fā)城市和到達(dá)城市的內(nèi)容。 從 amp。當(dāng)前記錄將顯示在如圖 918 所示的窗體中，可以進(jìn)行修改。 ? 刪除航線(xiàn)信息。 的客機(jī)記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then ‘記載選擇記錄的位置 intCount = txtSQL = delete from planeInfo where planeNO =39。窗體的 Load 事件調(diào)用 ShowTitle、 ShowData 函數(shù)，將所有記錄顯示出來(lái)。 Trim((intCount, 1)) amp。 amp。在載入窗體時(shí)，程序?qū)⒆詣?dòng)載入所有記錄。 ? 添加用戶(hù)。記載航線(xiàn)信息模塊的讀寫(xiě)狀態(tài) Public gintTmode As Integer 39。PWD= End Function 在錄入有關(guān)信息時(shí)，需要回車(chē)來(lái)進(jìn)入下一個(gè)文本框，這樣對(duì)軟件使用者非常方便。 39。下面就可以開(kāi)始添加需要的代碼了。創(chuàng)建好的窗體如圖 所示。這是利用 SQL Server 2021 數(shù)據(jù)庫(kù)系統(tǒng)中的 SQL 查詢(xún)分析器實(shí)現(xiàn)的。 （二）數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) 得到上面的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計(jì)出能夠滿(mǎn)足用戶(hù)需求的各種吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 6 頁(yè) 共 40 頁(yè) 實(shí)體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。 （一）數(shù)據(jù)庫(kù)需求分析 仔細(xì)分析調(diào)查有關(guān)航空公司管理信息需求的基礎(chǔ)上，將得到如圖 所示的本系統(tǒng)所處理的數(shù)據(jù)流程。 ? 客戶(hù)等級(jí)信息的輸入、修改，包括客戶(hù)等級(jí)編號(hào)、客戶(hù)等級(jí)名稱(chēng)、折扣比例和備注信息等。航空公司要建立飛行運(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è)營(yíng)銷(xiāo)戰(zhàn)略，提高市場(chǎng)競(jìng)爭(zhēng)能力；要抓緊建設(shè)常旅客、機(jī)務(wù)航材和企業(yè)管理等信息系統(tǒng)，逐步實(shí)現(xiàn)各信息系統(tǒng)融合，并最終建成高效、先進(jìn)、開(kāi)放的綜合信息系統(tǒng)。同時(shí)一個(gè)合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)有利于程序的進(jìn)一步實(shí)現(xiàn)本人將 在以后的工作和學(xué)習(xí)中進(jìn)一步深入了解數(shù)據(jù)庫(kù)的設(shè)計(jì)從而使系統(tǒng)設(shè)計(jì)更加完善和實(shí)用。為了提高代碼的效率方便維護(hù)，在 Visual 、過(guò)程和全局變量等。本系統(tǒng)的使用界面具有十分人性化的特征，具有方便的查詢(xún)功能，對(duì)數(shù)據(jù)的增加及刪除等方面的操作應(yīng)簡(jiǎn)單易行，并且能夠具有較好的穩(wěn)定性。 航空公司管理信息系統(tǒng)主要采用 Visual 作為開(kāi)發(fā)工具，應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法，進(jìn)行開(kāi)發(fā)與設(shè)計(jì)的。 迄今， 我國(guó)的信息化建設(shè)已取得很大進(jìn)步，在這樣的環(huán)境下，航空信息化建設(shè)也向著嚴(yán)密，科學(xué)，完善的管理體系發(fā)展，在編寫(xiě)代碼的過(guò)程中，需要單獨(dú)調(diào)試每個(gè)窗體。其次數(shù)據(jù)庫(kù)設(shè)計(jì)應(yīng)該和應(yīng)用系統(tǒng)相結(jié)合，一個(gè)良好的數(shù)據(jù)庫(kù)設(shè)計(jì)可以提高數(shù)據(jù)信息的儲(chǔ)存效率，保證數(shù)據(jù)信息的完整性和一致性。 企業(yè)信息化是民航信息化的主體，民航企業(yè)信息化要全面展開(kāi)。 ? 航線(xiàn)信息的輸入、修改和查詢(xún)，包括航線(xiàn)編號(hào)、出發(fā)城市、到達(dá)城市、航班日期、出發(fā)時(shí)間、到達(dá)時(shí)間、客機(jī)編號(hào)、經(jīng)濟(jì)艙價(jià)格、公務(wù)艙價(jià)格、頭等艙價(jià)格和備注信息等。數(shù)據(jù)庫(kù)設(shè)計(jì)一般包括如下幾個(gè)步驟：數(shù)據(jù)庫(kù)需求分析 — 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) — 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)。 有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項(xiàng)和數(shù)據(jù)流程，我們就能進(jìn)行下面的數(shù)據(jù)庫(kù)設(shè)計(jì)。現(xiàn)在就可以在 SQL Server 2021 數(shù)據(jù)庫(kù)系統(tǒng)中實(shí)現(xiàn)該邏輯結(jié)構(gòu)。在這個(gè)窗體上添加所需的控件，窗體和控件的屬性設(shè)置見(jiàn)表 31。在項(xiàng)目資源管理器中為項(xiàng)目添加一個(gè) Module，保存為 。 _ query successful Else Set rst = New Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic 39。UID=sa。記載客機(jī)信息模塊的讀寫(xiě)狀態(tài) Public gintAmode As Integer 39。 （五）用戶(hù)管理模塊主要實(shí)現(xiàn)： ? 用戶(hù)登錄。 圖 艙位等級(jí)信息窗體 這個(gè)窗體用來(lái)顯示艙位等級(jí)信息，并且可以對(duì)各條記錄進(jì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。 amp。所有客機(jī)信息都將顯示出來(lái)。 Trim((, 2)) amp。 ? 修改航線(xiàn)信息。 （三）修改航線(xiàn)信息 在航線(xiàn)信息列表中選擇記錄，然后單擊“修改”按鈕。 Trim((, 4)) amp。 39。窗體的 Load 事件調(diào)用 ShowTitle、 ShowData 函數(shù)，將所有記錄顯示出來(lái)。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) ‘卸載窗體 Unload frmcType ‘選擇所有記 錄 = select * from customerType ‘顯示窗體 End If End If End Sub 六、客戶(hù)信息管理模塊的創(chuàng)建 客戶(hù)信息管理模塊主要實(shí)現(xiàn)如下功能： ? 添加客戶(hù)信息。 圖 添加客戶(hù)信息窗體 輸入內(nèi)容完畢，單擊“保存”按鈕，程序?qū)⑹紫葯z查內(nèi)容是否符合要求，然后檢查是否有重復(fù)記錄，最后添加到數(shù)據(jù)庫(kù)中。代碼如下： 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除客戶(hù)姓名為 amp。選擇合適的 查詢(xún)方式，滿(mǎn)足查詢(xún)條件的記錄顯示在如圖 17 所示的客戶(hù)信息列表中。 圖 顯示機(jī)票信息的窗體 （二）添加訂票信息窗體的創(chuàng)建 機(jī)票信息包括兩部分：航線(xiàn)信息和客 戶(hù)信息。 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 30 頁(yè) 共 40 頁(yè) 第四章 系統(tǒng)的編譯和發(fā)行 完成了航空公司管理信息系統(tǒng)的編程和調(diào)試工作，最后一步就是該系統(tǒng)的編譯和發(fā)行。通過(guò)測(cè)試的可執(zhí)行文件，就可以進(jìn)行發(fā)