【文章內(nèi)容簡(jiǎn)介】 操作函數(shù)，用以執(zhí)行各種SQL語(yǔ)句。添加函數(shù)ExecuteSQL，代碼如下：Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。執(zhí)行SQL語(yǔ)句，并返回記錄集對(duì)象 ‘聲明一個(gè)連接 Dim n As ‘聲明一個(gè)數(shù)據(jù)集對(duì)象 Dim rst As Dim sTokens() As String39。異常處理 On Error GoTo ExecuteSQL_Error39。用Split函數(shù)產(chǎn)生一個(gè)包含各個(gè)子串的數(shù)組 sTokens = Split(SQL) ‘創(chuàng)建一個(gè)連接 Set n = New 39。打開(kāi)連接 ConnectString If InStr(INSERT,DELETE,UPDATE, _ UCase$(sTokens(0))) Then ‘執(zhí)行查詢語(yǔ)句 SQL MsgString = sTokens(0) amp。 _ query successful Else Set rst = New Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic 39。 39。get RecordCount39。返回記錄集對(duì)象 Set ExecuteSQL = rst MsgString = 查詢到 amp。 amp。 _ 條記錄 End IfExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit Function ExecuteSQL_Error: MsgString = 查詢錯(cuò)誤: amp。 _ Resume ExecuteSQL_ExitEnd Function 在ExecuteSQL函數(shù)中使用了Connect String函數(shù)，這個(gè)函數(shù)用來(lái)連接數(shù)據(jù)庫(kù)，代碼如下：Public Function ConnectString() _ As String39。返回一個(gè)數(shù)據(jù)庫(kù)連接 ConnectString = FileDSN=。UID=sa。PWD=End Function在錄入有關(guān)信息時(shí)，需要回車來(lái)進(jìn)入下一個(gè)文本框，這樣對(duì)軟件使用者非常方便。在所有的功能模塊都需要這個(gè)函數(shù)，所以將它放在公用模塊中，代碼如下：Public Sub EnterToTab(Keyasc As Integer) 39。判斷是否為回車鍵 If Keyasc = 13 Then 39。轉(zhuǎn)換成Tab鍵 SendKeys {TAB} End IfEnd SubKeyasc用來(lái)保存當(dāng)前按鍵，SendKeys函數(shù)用來(lái)指定的按鍵。一旦按下回車鍵，將返回Tab鍵，下一個(gè)控件自動(dòng)獲得輸入焦點(diǎn)。添加全局變量，用來(lái)記錄各個(gè)功能模塊的讀寫(xiě)狀態(tài)，代碼如下：Public gintSmode As Integer 39。記載艙位等級(jí)功能模塊的讀寫(xiě)狀態(tài)Public gintPmode As Integer 39。記載客機(jī)信息模塊的讀寫(xiě)狀態(tài)Public gintAmode As Integer 39。記載航線信息模塊的讀寫(xiě)狀態(tài)Public gintTmode As Integer 39。記載客戶類型模塊的讀寫(xiě)狀態(tài)Public gintCmode As Integer 39。記載客戶信息模塊的讀寫(xiě)狀態(tài)Public gintKmode As Integer 39。記載訂票信息模塊的讀寫(xiě)狀態(tài)這些全局變量用來(lái)記錄是添加狀態(tài)還是修改狀態(tài)，賦值1為添加，賦值2為修改。由于航空公司管理信息管理系統(tǒng)啟動(dòng)后，需要對(duì)用戶進(jìn)行判斷。如果登錄者是授權(quán)用戶，將進(jìn)入系統(tǒng)，否則將停止程序的執(zhí)行。這個(gè)判斷需要在系統(tǒng)運(yùn)行的最初進(jìn)行，因此將代碼放在公用模塊中。五 系統(tǒng)用戶管理模塊的創(chuàng)建用戶管理模塊主要實(shí)現(xiàn)：l 用戶登錄。l 添加用戶。l 修改用戶密碼。 六 艙位信息管理模塊的創(chuàng)建艙位信息管理模塊主要實(shí)現(xiàn)如下功能：l 添加艙位信息。l 修改艙位信息。l 刪除艙位信息。 顯示艙位信息窗體的創(chuàng)建選擇“航線信息管理|艙位信息”菜單，將出現(xiàn)如圖912所示的窗體。圖912 艙位等級(jí)信息窗體這個(gè)窗體用來(lái)顯示艙位等級(jí)信息，并且可以對(duì)各條記錄進(jìn)行操作。在載入窗體時(shí)，程序?qū)⒆詣?dòng)載入所有記錄，代碼如下：Private Sub menuCarbin_Click() = select * from serviceInfo 0End Sub窗體的Show方法后面加上0或者1，可以得到不同的窗體顯示方式。參數(shù)為0時(shí)，顯示的窗體為無(wú)模式形式，窗體切換時(shí)不需要進(jìn)行其他操作；參數(shù)為1時(shí)，顯示的窗體為有模式形式，窗體切換時(shí)必須進(jìn)行相關(guān)操作。載入窗體時(shí)將自動(dòng)顯示各條記錄，代碼如下：Private Sub Form_Load() ShowTitle ShowDataEnd Sub函數(shù)ShowTitle用來(lái)顯示表頭，代碼如下：Private Sub ShowTitle() Dim i As Integer With msgList .Cols = 12 .TextMatrix(0, 1) = 等級(jí)編號(hào) .TextMatrix(0, 2) = 機(jī)艙等級(jí) .TextMatrix(0, 3) = 是否有禮品 .TextMatrix(0, 4) = 是否有報(bào)紙 .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。設(shè)置各列的對(duì)齊方式 For i = 0 To 11 .ColAlignment(i) = 0 Next i 39。表頭項(xiàng)居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 39。設(shè)置單元大小 .ColWidth(0) = 1000 .ColWidth(1) = 1000 .ColWidth(2) = 2000 .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 WithEnd Sub函數(shù)ShowData把各條記錄加到表格中，并顯示出來(lái)，代碼如下：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 ‘移動(dòng)到下一行 .Rows = .Rows + 1 ‘循環(huán) For i = 1 To ‘判斷是否為空 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 ‘移動(dòng)到下一條記錄 Loop End With ‘關(guān)閉數(shù)據(jù)集對(duì)象 End Sub在窗體顯示時(shí)，可以控制窗體中各個(gè)控件按照要求的位置顯示?？梢栽诖绑w的Resize事件中加入代碼，代碼如下：Private Sub Form_Resize() ‘判斷當(dāng)前窗體所處的狀態(tài)，當(dāng)前窗體不處于最小化狀態(tài)并且主窗體不處于最小化狀態(tài)時(shí)進(jìn)行后面的操作 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 ‘控制按鈕位置 = + + 50 = / 2 3000 End IfEnd Sub 添加艙位信息窗體的創(chuàng)建在艙位信息顯示窗體中單擊“添加”按鈕，將出現(xiàn)如圖913所示的窗體。圖913 添加艙位等級(jí)信息窗體載入窗體時(shí)，首先根據(jù)標(biāo)志變量判斷狀態(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 ‘載入當(dāng)前選擇記錄內(nèi)容 ElseIf gintSmode = 2 Then Set mrc = ExecuteSQL(txtSQL, MsgText) ‘判斷記錄是否為空 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 En