【正文】 的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 442 – ‘控制按鈕位置 = + + 50 = / 2 3000 End If End Sub 添加艙位信息窗體的創(chuàng)建 在艙位信息顯示窗體中單擊“添加”按鈕，將出現(xiàn)如圖 913 所示的窗體。固定表頭 .FixedRows = 1 39。 6 艙位信息管理模塊的創(chuàng)建 艙位信息管理模塊主要實現(xiàn)如下功能： ? 添加艙位信息。記載客戶信息模塊的讀寫狀態(tài) Public gintKmode As Integer 39。判斷是否為回車鍵 If Keyasc = 13 Then 39。返回記錄集對象 Set ExecuteSQL = rst MsgString = 查詢到 amp。添加函數(shù) ExecuteSQL，代碼如下： Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。狀態(tài)欄控件需要在通常 的屬性窗口中設(shè)置一般屬性，還需要在其特有的彈出式菜單中進行設(shè)置。有關(guān)數(shù)據(jù)庫結(jié)構(gòu)的所有后臺工作已經(jīng)完成。 表 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 公務(wù)艙價格 firstPrice numeric NULL 頭等艙價格 航空公司管理系統(tǒng) 國 airlineMemo text NULL 備注信息 表 94 為客戶類型信息表格。 航空公司管理系統(tǒng) 國 圖 97 客戶信息實體 ER 圖 訂票信息實體 ER 圖如圖 98 所示。這些實體包含各種具體信息，通過相互之間的作用形成數(shù)據(jù)的流動。 圖 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ù)存儲的效率，保證數(shù)據(jù)的完整和一致。本例子中的航空公司管理信息系統(tǒng)需要完成功 能主要有： ? 艙位信息的輸入和修改，包括艙位等級編號、艙位等級名稱、提供的各種服務(wù)類別，以及備注信息等。面對各種不同種類的信息，需要合理的數(shù)據(jù)庫結(jié)構(gòu)來保存數(shù)據(jù)信息以及有效的程序結(jié)構(gòu)支持各種數(shù)據(jù)操作的執(zhí)行。 ? 客戶等級信息的輸入、修改，包括客戶等級編號、客戶等級名稱、折扣比例和備注信息等。 ? 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計。 ? 客戶類型信息，包括的數(shù)據(jù)項有：客戶類型編號、客戶類型名稱、折扣比例、備注信息等。 艙位等級信息實體 ER 圖如圖 93 所示。 航空公司管理信息系統(tǒng)數(shù)據(jù)庫中各個表格的設(shè)計結(jié)果如下面表格所示。 表 96 ticketInfo 訂票信息表 列 名 數(shù)據(jù)類型 可否為空 說 明 ticketNO char NOT NULL 訂票編號 customerNO char NULL 客戶編號 customerName char NULL 客戶姓名 customerType char NULL 客戶類型 discount numeric NULL 折扣比例 airlineNO char NULL 航線編號 departCity nvarchar NULL 出發(fā)城市 arrivalCity nvarchar NULL 到達城市 ticketDate datetime NULL 出發(fā)日期 serviceType char NULL 艙位類型 ticketPrice numeric NULL 機票價格 ticketSum numeric NULL 結(jié)算金額 customerMemo text NULL 備注 3 數(shù)據(jù)庫結(jié)構(gòu)的實現(xiàn) 經(jīng)過前面的需求分析和概念結(jié)構(gòu)設(shè)計以后，得到數(shù)據(jù)庫的邏輯結(jié)構(gòu)。這里我們刪除這個窗體，單擊 File|Save Project 菜單，將這個工程項目命名為 MIS_Ticket。 創(chuàng)建主窗體的菜單 在如圖 910 所示的主窗體中，單擊鼠標右鍵，選擇彈出式菜單中的 Menu Editor，創(chuàng)建如圖 911 所示的菜單結(jié)構(gòu)： 圖 911 主窗體中的菜單結(jié)構(gòu) 創(chuàng)建公用模塊 在 Visual Basic 中可以用公用模塊來存放整個工程項目公用的函數(shù)、過程和全局變量等。用 Split 函數(shù)產(chǎn)生一個包含各個子串的數(shù)組 sTokens = Split(SQL) ‘創(chuàng)建一個連接 Set n = New 39。 _ Resume ExecuteSQL_Exit End Function 在 ExecuteSQL函數(shù)中使用了 Connect String函數(shù)，這個函數(shù)用來連接數(shù)據(jù)庫，代碼如下： Public Function ConnectString() _ As String 39。 添加全局變量，用來記錄各個功能模塊的讀寫狀態(tài)，代碼如下： Public gintSmode As Integer 39。如果登錄者是授權(quán)用戶，將進入系統(tǒng)，否則將停止程序的執(zhí)行。 顯示艙位信息窗體的創(chuàng)建 選擇“航線信息管理 |艙位信息”菜單，將出現(xiàn)如圖 912 所示的窗體。設(shè)置單元大小 .ColWidth(0) = 1000 .ColWidth(1) = 1000 .ColWidth(2) = 2020 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 1000 .ColWidth(6) = 1000 .ColWidth(7) = 1000 .ColWidth(8) = 1000 .ColWidth(9) = 1000 .ColWidth(10) = 1000 .ColWidth(11) = 1000 .Row = 1 End With End Sub 函數(shù) ShowData 把各條記錄加到表格中，并顯示出來，代碼如下： Private Sub ShowData() Dim j As Integer Dim i As Integer Dim MsgText As String ‘獲得數(shù)據(jù)集 Set mrc = ExecuteSQL(txtSQL, MsgText) With msgList .Rows = 1 ‘判斷是否為空 Do While Not ‘移動到下一行 .Rows = .Rows + 1 ‘循環(huán) For i = 1 To ‘判斷是否為空 航空公司管理系統(tǒng) 國 If Not IsNull(Trim((i 1))) Then ‘根據(jù)數(shù)據(jù)類型顯示 Select Case (i 1).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i 1) amp。 修改 End If mblChange = False End Sub 輸入內(nèi)容完畢，單擊“保存”按鈕，將首先判斷輸入內(nèi)容是否滿足要求，然后添加到數(shù)據(jù)庫中。 39。 Trim(txtItem(1)) amp。再加入新記錄 txtSQL = select * from serviceInfo Set mrc = ExecuteSQL(txtSQL, MsgText) 航空公司管理系統(tǒng) 國 For intCount = 0 To 1 (intCount) = Trim(txtItem(intCount)) Next intCount For intCount = 0 To 7 (intCount + 2) = Trim(Combo1(intCount)) Next intCount (10) = Trim(txtItem(2)) ‘更新數(shù)據(jù)集內(nèi)容 ‘關(guān)閉數(shù)據(jù)集內(nèi)容 If gintSmode = 1 Then MsgBox 添加記錄成功！ , vbOKOnly + vbExclamation, 添加記錄 For intCount = 0 To 1 txtItem(intCount) = Next intCount For intCount = 0 To 3 Combo1(intCount).ListIndex = 0 Next intCount txtItem(2) = mblChange = False Unload frmService = select * from serviceInfo ElseIf gintSmode = 2 Then Unload Me Unload frmService = select * from serviceInfo End If End Sub 修改艙位等級信息 在艙位等級信息列表中選擇需要修改的記錄，然后單擊“修改”按鈕，將出現(xiàn)如圖 913所示的窗體。 的記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then ‘記錄選擇記錄位置 intCount = ‘刪除重復(fù)記錄 txtSQL = delete from serviceInfo where serviceNO =39。 顯示客機信息窗體的創(chuàng)建 選擇“航線信息管理 |客機信息”菜單，將出現(xiàn)如圖 914 所示的窗體。添加判斷是否有相同的 ID 記錄 If gintPmode = 1 Then txtSQL = select * from planeInfo where planeNO=39。 39。 1 Else MsgBox 警告 , vbOKOnly + vbExclamation, 請首先選擇需要修改的記錄！ End If End If End Sub 刪除客機信息 在客機信息列表中選擇記錄，然后單擊“刪除”按鈕，當(dāng)前記錄將被刪除。 39。 End If ‘判斷是否按照客機型號查詢 If chkItem(1).Value = vbChecked Then If Trim(sQSql amp。 amp。 ? 查詢航線信息。代碼如下： Private Sub cmdModify_Click() Dim intCount As Integer ‘判斷列表內(nèi)容是否為空 If 1 Then gintAmode = 2 ‘