【導(dǎo)讀】 1 蒞蚃裊袆膅蒅袁裊芇螁螇襖莀薄蚃襖蒂莇袃膂薂袈袂芄蒞螄羈莆薀蝕羀肆莃薆罿羋蕿羄羈莁蒁袀羈蒃蚇螆羇膃蒀螞羆芅蚅薈羅莇蒈袇肄肇蚃螃肅腿蒆蠆肂莁螞蚅肂蒄薅羃肁膃莇衿肀芆薃螅聿莈莆蟻膈肈薁薇膇膀莄袆膆節(jié)蕿螂膆蒅莂螈膅膄蚈蚄膄芇蒁膃荿蚆袈膂蒁葿螄芁膁蚄蝕袈芃蕆薆袇蒞蚃裊袆膅蒅袁裊芇螁螇襖莀薄蚃襖蒂莇袃膂薂袈袂芄蒞螄羈莆薀蝕羀肆莃薆罿羋蕿羄羈莁蒁袀羈蒃蚇螆羇膃蒀螞羆芅蚅薈羅莇蒈袇肄肇蚃螃肅腿蒆蠆肂莁螞蚅肂蒄薅羃肁膃莇衿肀芆薃螅聿莈莆蟻膈肈薁薇膇膀莄袆膆節(jié)蕿螂膆蒅莂螈膅膄蚈蚄膄芇蒁膃荿蚆袈膂蒁葿螄芁膁蚄蝕袈芃蕆薆袇蒞蚃裊袆膅蒅袁裊芇螁螇襖莀薄蚃襖蒂莇袃膂薂袈袂芄蒞螄羈莆薀蝕羀肆莃薆罿羋蕿羄羈莁蒁袀羈蒃蚇螆羇膃蒀螞羆芅蚅薈羅莇蒈袇肄肇蚃螃肅腿蒆蠆肂莁螞蚅肂蒄薅羃肁膃莇衿肀芆薃螅聿莈莆蟻膈肈薁薇膇膀莄袆膆節(jié)蕿螂膆蒅莂螈膅膄蚈蚄膄芇蒁膃荿蚆袈膂蒁葿螄芁膁蚄蝕袈芃蕆薆袇蒞蚃裊袆膅蒅袁裊芇螁螇襖莀薄蚃襖蒂

　　

【正文】 新載入記錄并顯示 = select * from serviceInfo End If End If End Sub 客機(jī)信息管理模塊的創(chuàng)建 顯示客機(jī)信息窗體的創(chuàng)建 代碼如下： Private Sub cmdSave_Click() Dim intCount As Integer Dim sMeg As String Dim MsgText As String ‘判斷輸入內(nèi)容是否為空 For intCount = 0 To 6 27 If Trim(txtItem(intCount) amp。 ) = Then Select Case intCount Case 0 sMeg = 客機(jī)編號 Case 1 sMeg = 客機(jī)型號 Case 2 sMeg = 購買時間 Case 3 sMeg = 服役時間 Case 4 sMeg = 經(jīng)濟(jì)艙座位數(shù)量 Case 5 sMeg = 公務(wù)艙座位數(shù)量 Case 6 sMeg = 頭等艙座位數(shù)量 End Select sMeg = sMeg amp。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount ‘判斷輸入內(nèi)容為數(shù)字 For intCount = 4 To 6 If Not IsNumeric(Trim(txtItem(intCount))) Then sMeg = 座位數(shù)量 sMeg = sMeg amp。 請輸入數(shù)字！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus 28 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。添加判斷是否有相同的 ID 記錄 If gintPmode = 1 Then txtSQL = select * from planeInfo where planeNO=39。 amp。 Trim(txtItem(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在此編號的記錄！ , vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If End If 39。先刪除已有記錄 txtSQL = delete from planeInfo where planeNO=39。 amp。 Trim(txtItem(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) 39。再加入新記錄 txtSQL = select * from planeInfo Set mrc = ExecuteSQL(txtSQL, MsgText) 29 For intCount = 0 To 7 (intCount) = Trim(txtItem(intCount)) Next intCount ‘更新數(shù)據(jù)集 ‘關(guān)閉數(shù)據(jù)集對象 If gintPmode = 1 Then MsgBox 添加記錄成功！ , vbOKOnly + vbExclamation, 添加記錄 For intCount = 0 To 7 txtItem(intCount) = Next intCount mblChange = False Unload frmPlane = select * from planeInfo ElseIf gintPmode = 2 Then Unload Me Unload frmPlane = select * from planeInfo End If End Sub 修改客機(jī)信息 代碼如下： Private Sub cmdModify_Click() Dim intCount As Integer ‘判斷列表內(nèi)容是否為空 If 1 Then 30 gintPmode = 2 ‘記載選擇記錄的位置 intCount = If intCount 0 Then = select * from planeInfo where planeNO =39。 amp。 Trim((intCount, 1)) amp。 39。 1 Else MsgBox 警告 , vbOKOnly + vbExclamation, 請首先選擇需要修改的記錄！ End If End If End Sub 代碼如 下： 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(真的要刪除客機(jī)編號為 amp。 Trim((, 1)) amp。 的型號為 amp。 Trim((, 2)) amp。 的客機(jī)記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then ‘記載選擇記錄的位置 intCount = txtSQL = delete from planeInfo where planeNO =39。 amp。 Trim((intCount, 1)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) 31 Unload frmPlane ‘重新載入所有記錄，并顯示出來 = select * from planeInfo End If End If End Sub 5 測試和運(yùn)行結(jié)果的 截圖 系統(tǒng)的實(shí)現(xiàn) 現(xiàn)在已經(jīng)完成了程序各個功能模塊的創(chuàng)建，現(xiàn)在來運(yùn)行整個系統(tǒng)。運(yùn)行程序，出現(xiàn)如圖 51 所示的登錄窗口。 圖 51 用戶登錄窗口 輸入用戶名和密碼后，進(jìn)入系統(tǒng)。選擇“航線信息管理 |艙位信息”菜單，出現(xiàn)如圖 52 所示的窗體。 32 圖 52 顯示艙位信息窗體 選擇“航線信息管理 |客機(jī)信息”菜單，將顯示所有客機(jī)信息，如圖 53 所示。 圖 53 顯示客機(jī)信息的窗體 在客機(jī)信息列表中單擊“添加”按鈕，出現(xiàn)如圖 54 所示的窗體，在其中輸入客機(jī)信息。 圖 54 添加客機(jī)信息 選擇“航 線信息管理 |航線信息”菜單，出現(xiàn)如圖 55 所示的航線信息列表。 33 圖 55 航線信息列表 在航線信息列表中單擊“添加”按鈕，并輸入航線內(nèi)容，如圖 56 所示。 圖 56 添加航線信息 在航線信息列表中單擊“查詢”按鈕，并設(shè)置查詢內(nèi)容，如圖 57 所示。 圖 57 查詢航線信息窗體 航線查詢結(jié)果如圖 58 所示。 圖 58 航線信息查詢結(jié)果 34 選擇“客戶信息管理 |客戶信息”菜單，并輸入客戶信息，如圖 59 所示。 圖 59 添加客戶信息 選擇“訂票信息管理 |訂票信息”菜單，出現(xiàn)如圖 510 所示的機(jī)票信息 列表。 圖 510 機(jī)票信息列表 在機(jī)票信息列表中單擊“添加”按鈕，出現(xiàn)如圖 511 所示的窗體，輸入訂票信息。 圖 511 添加訂票信息 35 單擊“保存”按鈕，出現(xiàn)如圖 512 所示的對話框提示訂票成功。 圖 512 訂票提示信息 在機(jī)票信息列表中，單擊“查詢”按鈕，出現(xiàn)如圖 513 所示的窗體，輸入查詢內(nèi)容，可以得到剩余機(jī)票信