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