【正文】 oad 事件調(diào)用 ShowTitle、 ShowData 函數(shù)，將所有記錄顯示出來。當(dāng)前記錄將顯示在如圖 918 所示的窗體中，可以進(jìn)行修改。 航空公司管理系統(tǒng) 國 圖 918 添加航線窗體 輸入完航線信息后，單擊“保存”按鈕：程序首先檢查輸入內(nèi)容是否符合要 求，然后檢查是否有重復(fù)記錄，最后添加到數(shù)據(jù)庫中。 顯示航線信息窗體的創(chuàng)建 選擇“航線信息管理 |航線信息”菜單，將出現(xiàn)如圖 917 所示的窗體。 sQSql Unload frmPlane End If End Sub 易瑞六月風(fēng)計(jì)算機(jī)畢業(yè)設(shè)計(jì)輔導(dǎo)網(wǎng) ——— 提供畢業(yè)設(shè)計(jì)輔導(dǎo)及相關(guān)資料的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱： 手機(jī)： 13955813944918 電子郵箱： 手機(jī)： 13955813944 – 454 – 8 航線信息管理模塊的創(chuàng)建 航線信息管理模塊主要實(shí)現(xiàn)如下功能： ? 添加航線信 息。 Trim(Combo1(1) amp。 39。 ) = Then sQSql = planeType =39。 Trim(Combo1(0) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) Unload frmPlane ‘重新載入所有記錄，并顯示出來 = select * from planeInfo End If End If End Sub 查詢客機(jī)信息 在客機(jī)信息列表中單擊“查詢”按鈕，將出現(xiàn)如圖 916 所示的窗體。 的客機(jī)記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then ‘記載選擇記錄的位置 intCount = txtSQL = delete from planeInfo where planeNO =39。代碼如下： 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除客機(jī)編號(hào)為 amp。 amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) 易瑞六月風(fēng)計(jì)算機(jī)畢業(yè)設(shè)計(jì)輔導(dǎo)網(wǎng) ——— 提供畢業(yè)設(shè)計(jì)輔導(dǎo)及相關(guān)資料的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱： 手機(jī)： 13955813944918 電子郵箱： 手機(jī)： 13955813944 – 450 – 39。先刪除已有記錄 txtSQL = delete from planeInfo where planeNO=39。 amp。 ) = Then Select Case intCount Case 0 sMeg = 客機(jī)編號(hào) Case 1 sMeg = 客機(jī)型號(hào) Case 2 sMeg = 購買時(shí)間 Case 3 sMeg = 服役時(shí)間 Case 4 sMeg = 經(jīng)濟(jì)艙座位數(shù)量 Case 5 sMeg = 公務(wù)艙座位數(shù)量 Case 6 sMeg = 頭等艙座位數(shù)量 End Select 航空公司管理系統(tǒng) 國 sMeg = sMeg amp。所有客機(jī)信息都將顯示出 來。 ? 修改客機(jī)信息。 amp。 39。選擇記錄的內(nèi)容將顯示在窗體中，可以進(jìn)行修改，最后保存修改后的記錄。 Trim(txtItem(0)) amp。 39。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在此編號(hào)的記錄！ , vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If End If 39。添加判斷是否有相同的 ID 記錄 If gintSmode = 1 Then txtSQL = select * from serviceInfo where serviceNO=39。代碼如下： Private Sub cmdSave_Click() Dim intCount As Integer Dim sMeg As String Dim MsgText As String ‘判斷輸入內(nèi)容是否為空 For intCount = 0 To 1 If Trim(txtItem(intCount) amp。控制控件的位置 = = ( ) / 2 ‘控制表格控件的位置 = + + / 2 = 200 = + 100 = 1500 易瑞六月風(fēng)計(jì)算機(jī)畢業(yè)設(shè)計(jì)輔導(dǎo)網(wǎng) ——— 提供畢業(yè)設(shè)計(jì)輔導(dǎo)及相關(guān)資料的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱： 手機(jī)： 13955813944918 電子郵箱： 手機(jī)： 13955813944 – 442 – ‘控制按鈕位置 = + + 50 = / 2 3000 End If End Sub 添加艙位信息窗體的創(chuàng)建 在艙位信息顯示窗體中單擊“添加”按鈕，將出現(xiàn)如圖 913 所示的窗體。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i 1) amp。固定表頭 .FixedRows = 1 39。 圖 912 艙位等級(jí)信息窗體 這個(gè)窗體用來顯示艙位等級(jí)信息，并且可以對(duì)各條記錄進(jìn)行操作。 6 艙位信息管理模塊的創(chuàng)建 艙位信息管理模塊主要實(shí)現(xiàn)如下功能： ? 添加艙位信息。這個(gè)判斷需要在系統(tǒng)運(yùn)行的最初進(jìn)行，因此將代碼放在公用模塊中。記載客戶信息模塊的讀寫狀態(tài) Public gintKmode As Integer 39。記載艙位等級(jí)功能模塊的讀寫狀態(tài) Public gintPmode As Integer 39。判斷是否為回車鍵 If Keyasc = 13 Then 39。返回一個(gè)數(shù)據(jù)庫連接 ConnectString = FileDSN=。返回記錄集對(duì)象 Set ExecuteSQL = rst MsgString = 查詢到 amp。打開連接 ConnectString If InStr(INSERT,DELETE,UPDATE, _ UCase$(sTokens(0))) Then ‘執(zhí)行查詢語句 SQL MsgString = sTokens(0) amp。添加函數(shù) ExecuteSQL，代碼如下： Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。這樣可 以極大地提高代碼的效率。狀態(tài)欄控件需要在通常 的屬性窗口中設(shè)置一般屬性，還需要在其特有的彈出式菜單中進(jìn)行設(shè)置。 創(chuàng)建航空公司管理信息系統(tǒng)的主窗體 這個(gè)項(xiàng)目我們使用多文檔界面，單擊工具欄中的 ADD MDI Form按鈕，產(chǎn)生一個(gè)窗體。有關(guān)數(shù)據(jù)庫結(jié)構(gòu)的所有后臺(tái)工作已經(jīng)完成?，F(xiàn)在就可以在 SQL Server 2020 數(shù)據(jù)庫系統(tǒng)中實(shí)現(xiàn)該邏輯結(jié)構(gòu)。 表 93 airlineInfo航線信息 表 列 名 數(shù)據(jù)類型 可否為空 說 明 airlineNO char NOT NULL 航線編號(hào) departCity nvarchar NULL 出發(fā)城市 arrivalCity nvarchar NULL 到達(dá)城市 departDate char NULL 航班日期 departTime char NULL 出發(fā)時(shí)間 arrivalTime char NULL 到達(dá)時(shí)間 planeNO char NULL 客機(jī)編號(hào) monPrice numeric NULL 經(jīng)濟(jì)艙價(jià)格 mercialPrice numeric NULL 公務(wù)艙價(jià)格 firstPrice numeric NULL 頭等艙價(jià)格 航空公司管理系統(tǒng) 國 airlineMemo text NULL 備注信息 表 94 為客戶類型信息表格。每個(gè)表格表示在數(shù)據(jù)庫中的一個(gè)表。 航空公司管理系統(tǒng) 國 圖 97 客戶信息實(shí)體 ER 圖 訂票信息實(shí)體 ER 圖如圖 98 所示。 圖 93 艙位等級(jí)信息實(shí)體 ER 圖 客機(jī)信息 實(shí)體 ER 圖如圖 94 所示。這些實(shí)體包含各種具體信息，通過相互之間的作用形成數(shù)據(jù)的流動(dòng)。 ? 客戶信息，包括的數(shù)據(jù)項(xiàng)有：客戶編號(hào)、客戶姓名、客戶性別、身份證號(hào)碼、聯(lián)系航空公司管理系統(tǒng) 國 電話、客戶類型、備注信息等。 圖 92 航空公司管理信息系統(tǒng)數(shù)據(jù)流程圖 針對(duì)一般航空公司管理信息系統(tǒng)的需求，通過對(duì)航空公司管理工作過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)： ? 艙位等級(jí)信息，包括的數(shù)據(jù)項(xiàng)有：艙位等級(jí)編號(hào)、艙位等級(jí)名稱、是否有禮品、是否有報(bào)紙、是否有飲料、是否有午餐、是否有電影、是否可以改簽、是否可以退票、是否可以打折、備注信息等。 ? 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)。合 理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)可以提高數(shù)據(jù)存儲(chǔ)的效率，保證數(shù)據(jù)的完整和一致。 ? 客戶信息的輸入、修改和查詢，包括客戶編 號(hào)、客戶姓名、客戶性別、身份證號(hào)碼、聯(lián)系電話、客戶類型和備注信息等。本例子中的航空公司管理信息系統(tǒng)需要完成功 能主要有： ? 艙位信息的輸入和修改，包括艙位等級(jí)編號(hào)、艙位等級(jí)名稱、提供的各種服務(wù)類別，以及備注信息等。 本設(shè)計(jì)講述如何建立一個(gè)航空公司管理信息系統(tǒng)。面對(duì)各種不同種類的信息，需要合理的數(shù)據(jù)庫結(jié)構(gòu)來保存數(shù)據(jù)信息以及有效的程序結(jié)構(gòu)支持各種數(shù)據(jù)操作的執(zhí)行。 系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務(wù)的基礎(chǔ)上完成。 ? 客戶等級(jí)信息的輸入、修改，包括客戶等級(jí)編號(hào)、客戶等級(jí)名稱、折扣比例和備注信息等。 航空公司管理系統(tǒng) 國 圖 91 系統(tǒng)功能模塊圖 2 數(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)生影響。 ? 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)。 仔細(xì)分析調(diào)查有關(guān)航空公司管理信息需求的基礎(chǔ) 上，將得到如圖 92 所示的本系統(tǒng)所處理的數(shù)據(jù)流程。 ? 客戶類型信息，包括的數(shù)據(jù)項(xiàng)有：客戶類型編號(hào)、客戶類型名稱、折扣比例、備注信息等。 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì) 得到上面的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。 艙位等級(jí)信息實(shí)體 ER 圖如圖 93 所示。 圖 96 客戶類型信息實(shí)體 ER 圖 客戶信息實(shí)體 ER 圖如圖 97 所示。 航空公司管理信息系統(tǒng)數(shù)據(jù)庫中各個(gè)表格的設(shè)計(jì)結(jié)果如下面表格所示。 表 92 planeInfo客機(jī)信息表格 列 名 數(shù)據(jù)類型 可否為空 說 明 planeNO char NOT NULL 客機(jī)編號(hào) planeType c