【文章內(nèi)容簡(jiǎn)介】 c gintAmode As Integer 39。記載航線(xiàn)信息模塊的讀寫(xiě)狀態(tài) Public gintTmode As Integer 39。記載客戶(hù)類(lèi)型模塊的讀寫(xiě)狀態(tài) Public gintCmode As Integer 39。記載客戶(hù)信息模塊的讀寫(xiě)狀態(tài) Public gintKmode As Integer 39。記載訂票信息模塊的讀寫(xiě)狀態(tài) 這些全局變量用來(lái)記錄是添加狀態(tài)還是修改狀態(tài)，賦值 1 為添加，賦值 2 為修改。 由于航空公司管理信息管理系統(tǒng)啟動(dòng)后，需要對(duì)用戶(hù)進(jìn)行判斷。如果登錄者是授權(quán)用戶(hù)，將進(jìn)入系統(tǒng)，否則將停止程序的執(zhí)行。這個(gè)判斷需要在系統(tǒng)運(yùn)行的最初進(jìn)行，因此將代碼放電子郵箱： 手機(jī)： 13955813944 – 438 – 在公用模塊中。 5 系統(tǒng)用戶(hù)管理模塊的創(chuàng)建 用戶(hù)管理模塊主要實(shí)現(xiàn)： ? 用戶(hù)登錄。 ? 添加用戶(hù)。 ? 修改用戶(hù)密碼。 6 艙位信息管理模塊的創(chuàng)建 艙位信息管理模塊主要實(shí)現(xiàn)如下功能： ? 添加艙位信息。 ? 修改艙位信息。 ? 刪除艙位信息。 顯示艙位信息窗體的創(chuàng)建 選擇“航線(xiàn)信息管理 |艙位信息”菜單，將出現(xiàn)如圖 912 所示的窗體。 圖 912 艙位等級(jí)信息窗體 航空公司管理系統(tǒng) 國(guó) 這個(gè)窗體用來(lái)顯示艙位等級(jí)信息，并且可以對(duì)各條記錄進(jìn)行操作。在載入窗體時(shí)，程序?qū)⒆詣?dòng)載入所有記錄，代碼如下： Private Sub menuCarbin_Click() = select * from serviceInfo 0 End 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 ShowData End 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 電子郵箱： 手機(jī)： 13955813944 – 440 – .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 39。設(shè)置單元大小 .ColWidth(0) = 1000 .ColWidth(1) = 1000 .ColWidth(2) = 2021 .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 把各條記錄加到表格中，并顯示出來(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ù)類(lèi)型顯示 航空公司管理系統(tǒng) 國(guó) 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 電子郵箱： 手機(jī)： 13955813944 – 442 – = / 2 3000 End If End 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) 航空公司管理系統(tǒng) 國(guó) 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。 修改 End If mblChange = False End Sub 輸入內(nèi)容完畢，單擊“保存”按鈕，將首先判斷輸入內(nèi)容是否滿(mǎn)足要求，然后添加到數(shù)據(jù)庫(kù)中。代碼如下： 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。 ) = Then Select Case intCount Case 0 sMeg = 機(jī)艙等級(jí)編號(hào) Case 1 sMeg = 機(jī)艙等級(jí)名稱(chēng) End Select sMeg = sMeg amp。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount ‘判斷輸入內(nèi)容是否為數(shù)字 If Not IsNumeric(Trim(txtItem(0))) Then sMeg = 機(jī)艙等級(jí)編號(hào) sMeg = sMeg amp。 請(qǐng)輸入數(shù)字！ 電子郵箱： 手機(jī)： 13955813944 – 444 – MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus End If 39。添加判斷是否有相同的 ID 記錄 If gintSmode = 1 Then txtSQL = sel