【文章內容簡介】 ring = 查詢錯誤 : amp。 _ Resume ExecuteSQL_Exit End Function 在 ExecuteSQL函數(shù)中使用了 Connect String函數(shù)，這個函數(shù)用來連接數(shù)據(jù)庫，代碼如下： Public Function ConnectString() _ As String 39。返回一個數(shù)據(jù)庫連接 ConnectString = FileDSN=。UID=sa。PWD= End Function 在錄入有關信息時，需要回車來進入下一個文本框，這樣對軟件使用者非常方便。在所有的功能模塊都需要這個函數(shù)，所以將它放在公用模塊中，代碼如下： Public Sub EnterToTab(Keyasc As Integer) 39。判斷是否為回車鍵 If Keyasc = 13 Then 39。轉換成 Tab 鍵 SendKeys {TAB} End If End Sub Keyasc 用來保存當前按鍵， SendKeys 函數(shù)用來指定的按鍵。一旦按下回車鍵，將返回Tab 鍵，下一個控件自動獲得輸入焦點。 添加全局變量，用來記錄各個功能模塊的讀寫狀態(tài)，代碼如下： Public gintSmode As Integer 39。記載艙位等級功能模塊的讀寫狀態(tài) Public gintPmode As Integer 39。記載客機信息模塊的讀寫狀態(tài) Public gintAmode As Integer 39。記載航線信息模塊的讀寫狀態(tài) Public gintTmode As Integer 39。記載客戶類型模塊的讀寫狀態(tài) Public gintCmode As Integer 39。記載客戶信息模塊的讀寫狀態(tài) Public gintKmode As Integer 39。記載訂票信息模塊的讀寫狀態(tài) 這些全局變量用來記錄是添加狀態(tài)還是修改狀態(tài)，賦值 1 為添加，賦值 2 為修改。 由于航空公司管理信息管理系統(tǒng)啟動后，需要對用戶進行判斷。如果登錄者是授權用戶，將進入系統(tǒng)，否則將停止程序的執(zhí)行。這個判斷需要在系統(tǒng)運行的最初進行，因此將代碼放在公用模塊中。 易瑞六月風計算機畢業(yè)設計輔導網(wǎng) ——— 提供畢業(yè)設計輔導及相關資料的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 438 – 5 系統(tǒng)用戶管理模塊的創(chuàng)建 用戶管理模塊主要實現(xiàn)： ? 用戶登錄。 ? 添加用戶。 ? 修改用戶密碼。 6 艙位信息管理模塊的創(chuàng)建 艙位信息管理模塊主要實現(xiàn)如下功能： ? 添加艙位信息。 ? 修改艙位信息。 ? 刪除艙位信息。 顯示艙位信息窗體的創(chuàng)建 選擇“航線信息管理 |艙位信息”菜單，將出現(xiàn)如圖 912 所示的窗體。 圖 912 艙位等級信息窗體 這個窗體用來顯示艙位等級信息，并且可以對各條記錄進行操作。在載入窗體時，程序航空公司管理系統(tǒng) 國 將自動載入所有記錄，代碼如下： Private Sub menuCarbin_Click() = select * from serviceInfo 0 End Sub 窗體的 Show 方法后面加上 0 或者 1，可以得到不同的窗體顯示方式。參數(shù)為 0 時，顯示的窗體為無模式形式，窗體切換時不需要進行其他操作；參數(shù)為 1 時，顯示的窗體為有模式形式，窗體切換時必須進行相關操作。 載入窗體時將自動顯示各條記錄，代碼如下： Private Sub Form_Load() ShowTitle ShowData End Sub 函數(shù) ShowTitle 用來顯示表頭，代碼如下： Private Sub ShowTitle() Dim i As Integer With msgList .Cols = 12 .TextMatrix(0, 1) = 等級編號 .TextMatrix(0, 2) = 機艙等級 .TextMatrix(0, 3) = 是否有禮品 .TextMatrix(0, 4) = 是否有報紙 .TextMatrix(0, 5) = 是否有飲料 .TextMatrix(0, 6) = 是否有午餐 .TextMatrix(0, 7) = 是否提供電影 .TextMatrix(0, 8) = 是否可以改簽 .TextMatrix(0, 9) = 是否可以退票 .TextMatrix(0, 10) = 是否可以打折 .TextMatrix(0, 11) = 備注信息 39。固定表頭 .FixedRows = 1 39。設置各列的對齊方式 For i = 0 To 11 .ColAlignment(i) = 0 Next i 39。表頭項居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 易瑞六月風計算機畢業(yè)設計輔導網(wǎng) ——— 提供畢業(yè)設計輔導及相關資料的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 440 – .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 39。設置單元大小 .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。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i 1) amp。 End Select End If Next I ‘移動到下一條記錄 Loop End With ‘關閉數(shù)據(jù)集對象 End Sub 在窗體顯示時，可以控制窗體中各個控件按照要求的位置顯示?？梢栽诖绑w的 Resize 事件中加入代碼，代碼如下： Private Sub Form_Resize() ‘判斷當前窗體所處的狀態(tài)，當前窗體不處于最小化狀態(tài)并且主窗體不處于最小化狀態(tài)時進行后面的操作 If vbMinimized And vbMinimized Then 39。邊界處理 If 10 * Then Exit Sub End If If + / 2 Then Exit Sub End If 39。控制控件的位置 = = ( ) / 2 ‘控制表格控件的位置 = + + / 2 = 200 = + 100 = 1500 易瑞六月風計算機畢業(yè)設計輔導網(wǎng) ——— 提供畢業(yè)設計輔導及相關資料的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 442 – ‘控制按鈕位置 = + + 50 = / 2 3000 End If End Sub 添加艙位信息窗體的創(chuàng)建 在艙位信息顯示窗體中單擊“添加”按鈕，將出現(xiàn)如圖 913 所示的窗體。 圖 913 添加艙位等級信息窗體 載入窗體時，首先根據(jù)標志變量判斷狀態(tài)，然后決定是添加還是修改，代碼如下： Private Sub Form_Load() Dim intCount As Integer Dim MsgText As String Dim i As Integer ‘判斷是否為添加 If gintSmode = 1 Then = amp。 添加 For i = 0 To 7 Combo1(i).AddItem 否 Combo1(i).AddItem 是 Combo1(i).ListIndex = 0 Next I ‘載入當前選擇記錄內容 ElseIf gintSmode = 2 Then Set mrc = ExecuteSQL(txtSQL, MsgText) 航空公司管理系統(tǒng) 國 ‘判斷記錄是否為空 If = False Then With mrc For intCount = 0 To 1 txtItem(intCount) = .Fields(intCount) Next intCount txtItem(2) = .Fields(10) For i = 0 To 7 Combo1(i).AddItem 否 Combo1(i).AddItem 是 Combo1(i).ListIndex = 0 Next i End With txtItem(0).Enabled = False End If = amp。 修改