【正文】 修改客戶信息在客戶信息列表中選擇需要修。圖922 顯示客戶信息窗體 添加客戶信息窗體的創(chuàng)建在客戶信息列表中單擊“添加”按鈕，將出現(xiàn)如圖923所示的窗體，用來添加客戶信息。所有客戶類型信息都將顯示出來。l 查詢客戶信息。l 修改客戶信息。 39。 amp。 Trim((, 2)) amp。 1 Else MsgBox 警告, vbOKOnly + vbExclamation, 請首先選擇需要修改的記錄！ End If End IfEnd Sub 刪除客戶類型信息選擇客戶類型信息列表中需要刪除的記錄，然后單擊“刪除”按鈕，可以刪除所選記錄。 Trim((intCount, 1)) amp。代碼如下：Private Sub cmdModify_Click() Dim intCount As Integer ‘判斷列表內(nèi)容是否為空 If 1 Then gintTmode = 2 ‘記載選擇記錄的位置 intCount = ‘判斷是否選擇記錄 If intCount 0 Then ‘顯示需要修改的記錄 = select * from customerType where ctypeNO =39。 修改客戶類型信息在客戶類型信息列表中選擇需要修改的記錄，然后單擊“修改”按鈕，當前記錄將出現(xiàn)在如圖914所示的窗體中。圖920 顯示客戶類型信息窗體 添加客戶類型信息窗體的創(chuàng)建在客戶類型信息列表中單擊“添加”按鈕，將出現(xiàn)如圖921所示的窗體，用來添加客戶類型信息。所有客戶類型信息都將顯示出來。l 刪除客戶類型信息。9 客戶類型信息管理模塊的創(chuàng)建客戶類型信息管理模塊主要實現(xiàn)如下功能：l 添加客戶類型信息。 Set mrc = ExecuteSQL(txtSQL, MsgText) ‘重新載入記錄并顯示 Unload frmAirline = select * from airlineInfo End If End IfEnd Sub 查詢航線信息在航線信息列表中單擊“查詢”按鈕，將出現(xiàn)如圖919所示的窗體。 Trim((intCount, 1)) amp。 的航線記錄嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then ‘記載選擇記錄位置 intCount = txtSQL = delete from airlineInfo where airlineNO =39。 出發(fā)到 amp。 從 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。當前記錄將顯示在如圖918所示的窗體中，可以進行修改。圖918 添加航線窗體輸入完航線信息后，單擊“保存”按鈕：程序首先檢查輸入內(nèi)容是否符合要求，然后檢查是否有重復記錄，最后添加到數(shù)據(jù)庫中。窗體的Load事件調(diào)用ShowTitle、ShowData函數(shù)，將所有記錄顯示出來。 顯示航線信息窗體的創(chuàng)建選擇“航線信息管理|航線信息”菜單，將出現(xiàn)如圖917所示的窗體。l 刪除航線信息。 sQSql Unload frmPlane End IfEnd Sub8 航線信息管理模塊的創(chuàng)建航線信息管理模塊主要實現(xiàn)如下功能：l 添加航線信息。 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 IfEnd 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。當前記錄將顯示在如圖915所示的窗體中，可以進行修改。 Set mrc = ExecuteSQL(txtSQL, MsgText) 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 時間應輸入日期（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 = 公務艙座位數(shù)量 Case 6 sMeg = 頭等艙座位數(shù)量 End Select sMeg = sMeg amp。圖914 顯示客機信息列表窗體 添加客機信息窗體的創(chuàng)建單擊客機信息列表中的“添加”按鈕，將出現(xiàn)如圖915所示的窗體。所有客機信息都將顯示出來。l 查詢客機信息。l 修改客機信息。 39。 amp。 Trim((, 2)) amp。 39。 amp。選擇記錄的內(nèi)容將顯示在窗體中，可以進行修改，最后保存修改后的記錄。 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 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 ‘載入當前選擇記錄內(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 End With txtItem(0).Enabled = False End If = amp?？刂瓶丶奈恢? = = ( ) / 2 ‘控制表格控件的位置 = +