【正文】 表中選擇需要修改的記錄，然后單擊“修改”按鈕，當(dāng)前記錄將出現(xiàn)在如圖 914 所示的窗體中。 五、客戶(hù)類(lèi)型信息管理模塊的創(chuàng)建 客戶(hù)類(lèi)型信息管理模塊主要實(shí)現(xiàn)如下功能： 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 23 頁(yè) 共 40 頁(yè) ? 添加客戶(hù)類(lèi)型信息。 出發(fā)到 amp。 amp。 （一）顯示航線(xiàn)信息窗體的創(chuàng)建 選擇“航線(xiàn)信息管理 |航線(xiàn)信息”菜單，將出現(xiàn)如圖 所示的窗體。 Trim((intCount, 1)) amp。 圖 添加客機(jī)信息列表 輸入內(nèi)容完畢，單擊“保存”按鈕，將首先判斷輸入內(nèi)容是否滿(mǎn)足要求，然后將記錄添加到數(shù)據(jù)庫(kù) 中。 Set mrc = ExecuteSQL(txtSQL, MsgText) 卸載窗體 Unload frmService ‘ 重新載入記錄并顯示 = select * from serviceInfo End If End If End Sub 三、客機(jī)信息管理模塊的創(chuàng)建 客機(jī)信息管理模塊主要實(shí)現(xiàn)如下功能： ? 添 加客機(jī)信息。 39。參數(shù)為 0 時(shí)，顯示的窗體為無(wú)模式形式 ，窗體切換時(shí)不需要進(jìn)行其他操作；參數(shù)為 1時(shí)，顯示的窗體為有模式形式，窗體切換時(shí)必須進(jìn)行相關(guān)操作。 這個(gè)功能模塊具有通用性，這里就不再詳細(xì)介紹了。記載客戶(hù)信息模塊的讀寫(xiě)狀態(tài) Public gintKmode As Integer 39。判斷是否為回車(chē)鍵 If Keyasc = 13 Then 39。返回記錄集對(duì)象 Set ExecuteSQL = rst MsgString = 查詢(xún)到 amp。添加函數(shù) ExecuteSQL，代碼如下： Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。狀態(tài)欄控件需要在通常的屬性 窗口中設(shè)置一般屬性，還需要在其特有的彈出式菜單中進(jìn)行設(shè)置。有關(guān)數(shù)據(jù)庫(kù)結(jié)構(gòu)的所有后臺(tái)工作已經(jīng)完成。 本實(shí)例根據(jù)上面的設(shè)計(jì)規(guī)劃出的實(shí)體有：艙位等級(jí)信息實(shí)體、客機(jī)信息實(shí)體、航線(xiàn)信息實(shí)體、客戶(hù)類(lèi)型信息實(shí)體、客戶(hù)信息實(shí)體、訂票信息實(shí)體。 ? 客機(jī)信息，包括的數(shù)據(jù)項(xiàng)有：客機(jī)編號(hào)、客機(jī)型號(hào)、購(gòu)買(mǎi)時(shí)間、服役時(shí)間、經(jīng)濟(jì)艙座位數(shù)量、公務(wù)艙座位數(shù)量、頭等艙座位數(shù)量、備注信息等。 ? 訂票信息的輸入、查詢(xún)和修改，包括訂票編號(hào)、客戶(hù)編號(hào)、客戶(hù)姓名、客戶(hù)類(lèi)型、折扣比例、航線(xiàn)編號(hào)、出發(fā)城市、到達(dá)城市、出發(fā)時(shí)間、艙位類(lèi)型、票價(jià)、結(jié)算金額和備注信息等。機(jī)場(chǎng)信息化以航班信息服務(wù)和生產(chǎn)管理調(diào)度為中心，建立機(jī)場(chǎng)中心數(shù)據(jù)庫(kù)，實(shí)現(xiàn)空管、航空公司、供油等信息互聯(lián)互通；加快機(jī)場(chǎng)離港系統(tǒng)的建設(shè)；繼續(xù)做好物資設(shè)備管理、能源管理等信息系統(tǒng)的建設(shè)。對(duì)于每一個(gè)行業(yè)、每一個(gè)企業(yè)及每一個(gè)人來(lái)說(shuō)，誰(shuí)能更好地利用信息就意味著誰(shuí)能創(chuàng)造出更多的財(cái)富。本課題的研究雖然取得了一定的收獲，但由于本人學(xué)識(shí)有限加之編寫(xiě)時(shí)間倉(cāng)促所以在很多方面還有待于進(jìn)一步的改進(jìn)和完善。信息增長(zhǎng)的速度越來(lái)越快，人們希望利用先進(jìn)的管理理論方法手段來(lái)得到并處理越來(lái)越多的信息，以提高工作效率和管理水平。 一個(gè)正常營(yíng)運(yùn)的航空公司需要管理所擁有的飛機(jī)、航線(xiàn) 的設(shè)置、客戶(hù)的信息等，更重要的還要提供票務(wù)管理，面對(duì)各種不同種類(lèi)的信息，需要合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)來(lái)保存數(shù)據(jù)信息以及有效的程序結(jié)構(gòu)支持各種數(shù)據(jù)操作的執(zhí)行。現(xiàn)在將詳細(xì)介紹我的畢業(yè)論文 －航空信息管理系統(tǒng)。由于數(shù)據(jù)庫(kù)建設(shè)時(shí)硬件、軟件的結(jié)合。利用計(jì)算機(jī)的便捷性和高效性對(duì)各種信息進(jìn)行處理和再加工，獲取具有價(jià)值的信息，以供決策參謀，為把握好每一個(gè)成功的機(jī)遇提高勝算；把日常業(yè)務(wù)進(jìn)行計(jì)算機(jī)化管理，把新的管理模式融入管理信息系統(tǒng)，對(duì)陳舊的業(yè)務(wù)流程的再改造，尋求企業(yè)增長(zhǎng)的新活力，為企業(yè)的發(fā)展插上堅(jiān)實(shí)的雙翅。本例子中的航空公司管理信息系統(tǒng)需要完成功能主要有： ? 艙位信息的輸入和修改，包括艙位等級(jí)編號(hào)、 艙位等級(jí)名稱(chēng)、提供的各種服務(wù)類(lèi)別，以及備注信息等。合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)可以提高數(shù)據(jù)存 儲(chǔ)的效率，保證數(shù)據(jù)的完整和一致。 ? 客戶(hù)信息，包括的數(shù)據(jù)項(xiàng)有：客戶(hù)編號(hào)、客戶(hù)姓名、客戶(hù)性別、身份證號(hào)碼、聯(lián)系電話(huà)、客戶(hù)類(lèi)型、備注信息等。 圖 艙位等級(jí)信息實(shí)體 ER圖 （三）數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) 現(xiàn)在需要將上面的數(shù)據(jù)庫(kù)概念結(jié)構(gòu)轉(zhuǎn)化為 SQL Server 2021 數(shù)據(jù)庫(kù)系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，也就是數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。這里我們刪除這個(gè)窗體，單擊 File|Save Project 菜單，將這個(gè)工程項(xiàng)目命名為MIS_Ticket。 （三）創(chuàng)建主窗體的菜單 在如圖 所示的主窗體中，單擊鼠標(biāo)右鍵，選擇彈出式菜單中的 Menu Editor，創(chuàng)建如圖 所示的菜單結(jié)構(gòu)： 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 12 頁(yè) 共 40 頁(yè) 圖 主窗體中的菜單結(jié)構(gòu) （四）創(chuàng)建公用模塊 在 Visual Basic 中可以用公用模塊來(lái)存放整個(gè)工程項(xiàng)目公用的函數(shù)、過(guò)程和全局變量等。用 Split 函數(shù)產(chǎn)生一個(gè)包含各個(gè)子串的數(shù)組 sTokens = Split(SQL) ‘創(chuàng)建一個(gè)連接 Set n = New 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 13 頁(yè) 共 40 頁(yè) 39。 _ Resume ExecuteSQL_Exit End Function 在 ExecuteSQL 函數(shù)中使用了 Connect String 函數(shù)，這個(gè)函數(shù)用來(lái)連接數(shù)據(jù)庫(kù)，代碼如下： Public Function ConnectString() _ As String 39。 添加全局變量，用來(lái)記錄各個(gè)功能模塊的讀寫(xiě)狀態(tài)，代碼如下： Public gintSmode As Integer 39。如果登錄者是授權(quán)用戶(hù)，將進(jìn)入系統(tǒng)，否則將停止程序的執(zhí)行。 ? 刪除艙位信息。 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 16 頁(yè) 共 40 頁(yè) 輸入內(nèi)容完畢，單擊“保存”按鈕，將首先判斷輸入內(nèi)容是否滿(mǎn)足要求，然后添加到數(shù)據(jù)庫(kù)中。 Trim((, 2)) amp。 ? 查詢(xún)客機(jī)信息。 Trim((, 1)) amp。載入窗體時(shí)，將自動(dòng)加入所有客機(jī)編號(hào)和客機(jī)型號(hào)的信息。 圖 顯示客機(jī)信息窗體 （二）添加航線(xiàn)信息窗體的創(chuàng)建 選擇“航線(xiàn)信息管理 |航線(xiàn)信息”菜單，將出現(xiàn)如圖 所示的窗體，用來(lái)添加航線(xiàn)信息。 1 Else MsgBox 警告 , vbOKOnly + vbExclamation, 請(qǐng)首先選擇需要修改的記錄！ End If End If End Sub （四）刪除航線(xiàn)信息 在航線(xiàn)信息列表中選擇記錄，然后單擊“刪除”按鈕，當(dāng)前記錄將被 刪除。 amp。 （一）顯示客戶(hù)類(lèi)型信息窗體的創(chuàng)建 選擇“ 客戶(hù)信息管理 |客戶(hù)類(lèi)型”菜單，將出現(xiàn)如圖 所示的窗體。 amp。 Trim((intCount, 1)) amp。窗體的 Load 事件調(diào)用 ShowTitle、 ShowData函數(shù)，將所有記錄顯示出來(lái)。 39。 ‘執(zhí)行查詢(xún)語(yǔ)句 Set mrc = ExecuteSQL(txtSQL, MsgText) ‘卸載客戶(hù)信息列表 Unload frmCustomer ‘選擇所有記錄 = select * from customerInfo ‘顯示 End If End If End Sub （五）查詢(xún)客戶(hù)信息 在如圖 18 所示的客戶(hù)信息列表中，單擊“查 按鈕，出現(xiàn)如圖 所示的對(duì)話(huà)框。所有訂票類(lèi)型信息都將顯示出來(lái)。修改完畢，單擊“保存”按鈕，修改后的記錄保存到數(shù)據(jù)庫(kù)中。編譯通過(guò)后，生成可執(zhí)行文件 。軟件測(cè)試的概念 IEEE 定義為：使用人工或自動(dòng)手段來(lái)運(yùn)行或測(cè)定某個(gè)系統(tǒng)過(guò)程，其目的在于檢驗(yàn)它是否滿(mǎn)足規(guī)定的需求或是弄清預(yù)期結(jié)果與實(shí)際結(jié)果之間的差別。主要 是在 查詢(xún)過(guò)程中預(yù)計(jì)查詢(xún)結(jié)果和實(shí)際結(jié)果不一致， 有時(shí)候 達(dá)不到目的，對(duì)數(shù)據(jù)庫(kù)的操作表 之 間的關(guān)聯(lián) 考慮得不夠周到 ，因此往往會(huì)出現(xiàn) 一些小 的錯(cuò)誤。 在系統(tǒng)的編 譯和發(fā) 行以前 ，需要設(shè) 置工程 項(xiàng)目的 屬性。窗體載入時(shí)要求在列表框中加入所有有關(guān)航線(xiàn)和客戶(hù)的信息。 ? 修改訂票信息。 的客戶(hù)記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then ‘記載選擇記錄的位置 intCount = ‘刪除當(dāng)前記錄 txtSQL = delete from customerInfo where customerNO =39。修改完畢，單擊“保存”按鈕，修改后的記錄保存到數(shù)據(jù)庫(kù)中。 ? 刪除客戶(hù)信息。代碼如下： 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) 第 25 頁(yè) 共 40 頁(yè) ‘提示信息 If MsgBox(真的要?jiǎng)h除客戶(hù)種類(lèi)為 amp。 圖 輸入內(nèi)容完畢，單擊“保存”按鈕，程序?qū)⑹紫葯z查內(nèi)容是否符合要求，然后檢查是否有重復(fù)記錄，最后添加到數(shù)據(jù)庫(kù)中。 設(shè)置查詢(xún)內(nèi)容后，單擊“確定”按鈕，所有滿(mǎn)足查詢(xún)條件的內(nèi)容顯示在航線(xiàn)信息列表中。 Trim((, 2)) amp。代碼如下： Private Sub cmdModify_Click() Dim intCount As Integer ‘判斷列表內(nèi)容是否為空 If 1 Then gintAmode = 2 ‘記載選擇記錄的位置 intCount = If intCount 0 Then = select * from airlineInfo where airlineNO =39。 ? 查詢(xún)航線(xiàn)信息。 amp。 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng) 第 18 頁(yè) 共 40 頁(yè) 圖 （二）添加客機(jī)信息窗體的創(chuàng)建 單擊客機(jī)信息列表中的“添加”按鈕，將出現(xiàn)如圖 所示的窗體。 39。 Trim((intCount, 1)) amp。 窗體的 Show 方法后面加上 0 或者 1，可以得到不同的窗體顯示方式。 ? 修改用戶(hù)密碼。記載客戶(hù)類(lèi)型模塊的讀寫(xiě)狀態(tài) Public gintCmode As Integer 39。在所有的功能模塊都需要這個(gè)函數(shù)，所以將它放在公用模塊中，代碼如下： Public Sub EnterToTab(Keyasc As Integer) 39。get RecordCount 39。 由于系統(tǒng)中各個(gè)功能模塊都將頻繁使用數(shù)據(jù)庫(kù)中的各種數(shù)據(jù)，因此需要一個(gè)公共的數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種 SQL 語(yǔ)句。 表 31 主窗體及控件屬性設(shè)置 控 件 屬 性 屬性取值 frmMain(Form) Name FrmMain Caption 大 唐航空公司信息管理系統(tǒng) StartUpPositon CenterScreen WindowState Maximized SbStatusBar(StatusBar) Name SbStatusBar Panels(1) Style SbrText Panels(2) Style SbrDate Panels(3) Style SbrTime 吉林大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 本科生畢業(yè)論文 題目： 航空公司信息管理系統(tǒng)