【正文】 當(dāng)前記錄將顯示在如圖 918 所示的窗體中，可以進(jìn)行修改。 航空公司管理系統(tǒng) 國 圖 918 添加航線窗體 輸入完航線信息后，單擊“保存”按鈕：程序首先檢查輸入內(nèi)容是否符合要 求，然后檢查是否有重復(fù)記錄，最后添加到數(shù)據(jù)庫中。窗體的 Load 事件調(diào)用 ShowTitle、 ShowData 函數(shù)，將所有記錄顯示出來。 顯示航線信息窗體的創(chuàng)建 選擇“航線信息管理 |航線信息”菜單，將出現(xiàn)如圖 917 所示的窗體。 ? 刪除航線信息。 sQSql Unload frmPlane End If End Sub 易瑞六月風(fēng)計算機畢業(yè)設(shè)計輔導(dǎo)網(wǎng) ——— 提供畢業(yè)設(shè)計輔導(dǎo)及相關(guān)資料的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 454 – 8 航線信息管理模塊的創(chuàng)建 航線信息管理模塊主要實現(xiàn)如下功能： ? 添加航線信 息。 39。 Trim(Combo1(1) amp。 and planeType =39。 39。 Trim(Combo1(1) amp。 ) = Then sQSql = planeType =39。 39。 Trim(Combo1(0) amp。所有滿足條件的記錄將顯示在如圖 914 所示的窗體中，代碼如下： Private Sub cmdOK_Click() Dim sQSql As String ‘判斷是否按照客機編號查詢 If chkItem(0).Value = vbChecked Then sQSql = planeNO = 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) Unload frmPlane ‘重新載入所有記錄，并顯示出來 = select * from planeInfo End If End If End Sub 查詢客機信息 在客機信息列表中單擊“查詢”按鈕，將出現(xiàn)如圖 916 所示的窗體。 Trim((intCount, 1)) amp。 的客機記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then ‘記載選擇記錄的位置 intCount = txtSQL = delete from planeInfo where planeNO =39。 的型號為 amp。代碼如下： 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。 39。 amp。當(dāng)前記錄將顯示在如圖 915 所示的窗體中，可以進(jìn)行修改。 Set mrc = ExecuteSQL(txtSQL, MsgText) 易瑞六月風(fēng)計算機畢業(yè)設(shè)計輔導(dǎo)網(wǎng) ——— 提供畢業(yè)設(shè)計輔導(dǎo)及相關(guān)資料的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 450 – 39。 Trim(txtItem(0)) amp。先刪除已有記錄 txtSQL = delete from planeInfo where planeNO=39。 39。 amp。 請輸入數(shù)字！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus End If Next intCount ‘判斷輸入內(nèi)容是否為日期 For intCount = 2 To 3 If IsDate(txtItem(intCount)) Then txtItem(intCount) = Format(txtItem(intCount), yyyymmdd) Else MsgBox 時間應(yīng)輸入日期（ yyyymmdd）！ , vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount 39。 ) = 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 = 公務(wù)艙座位數(shù)量 Case 6 sMeg = 頭等艙座位數(shù)量 End Select 航空公司管理系統(tǒng) 國 sMeg = sMeg amp。 圖 914 顯示客機信息列表窗體 添加客機信息窗體的創(chuàng)建 單擊客機信息列表中的“添加”按鈕，將出現(xiàn)如圖 915 所示的窗體。所有客機信息都將顯示出 來。 ? 查詢客機信息。 ? 修改客機信息。 39。 amp。 Trim((, 2)) amp。 39。 amp。選擇記錄的內(nèi)容將顯示在窗體中，可以進(jìn)行修改，最后保存修改后的記錄。 Set mrc = ExecuteSQL(txtSQL, MsgText) 39。 Trim(txtItem(0)) amp。先刪除已有記錄 txtSQL = delete from serviceInfo where serviceNO=39。 39。 amp。 39。 amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在此編號的記錄！ , vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If End If 39。 Trim(txtItem(0)) amp。添加判斷是否有相同的 ID 記錄 If gintSmode = 1 Then txtSQL = select * from serviceInfo where serviceNO=39。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If 易瑞六月風(fēng)計算機畢業(yè)設(shè)計輔導(dǎo)網(wǎng) ——— 提供畢業(yè)設(shè)計輔導(dǎo)及相關(guān)資料的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 444 – Next intCount ‘判斷輸入內(nèi)容是否為數(shù)字 If Not IsNumeric(Trim(txtItem(0))) Then sMeg = 機艙等級編號 sMeg = sMeg amp。代碼如下： 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。 添加 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) 航空公司管理系統(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?？刂瓶丶奈恢? = = ( ) / 2 ‘控制表格控件的位置 = + + / 2 = 200 = + 100 = 1500 易瑞六月風(fēng)計算機畢業(yè)設(shè)計輔導(dǎo)網(wǎng) ——— 提供畢業(yè)設(shè)計輔導(dǎo)及相關(guān)資料的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱： 手機： 13955813944918 電子郵箱： 手機： 13955813944 – 442 – ‘控制按鈕位置 = + + 50 = / 2 3000 End If End Sub 添加艙位信息窗體的創(chuàng)建 在艙位信息顯示窗體中單擊“添加”按鈕，將出現(xiàn)如圖 913 所示的窗體?？梢栽诖绑w的 Resize 事件中加入代碼，代碼如下： Private Sub Form_Resize() ‘判斷當(dāng)前窗體所處的狀態(tài)，當(dāng)前窗體不處于最小化狀態(tài)并且主窗體不處于最小化狀態(tài)時進(jìn)行后面的操作 If vbMinimized And vbMinimized Then 39。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i 1) amp。表頭項居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 易瑞六月風(fēng)計算機畢業(yè)設(shè)計輔導(dǎo)網(wǎng) ——— 提供畢業(yè)設(shè)計輔導(dǎo)及相關(guān)資料的專業(yè)網(wǎng)站 ： 380856 ： 380856918 電子郵箱：