【正文】 MsgBox 已經(jīng)存在此編號(hào)的記錄！, 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) For intCount = 0 To 7 (intCount) = Trim(txtItem(intCount)) Next intCount ‘更新數(shù)據(jù)集 ‘關(guān)閉數(shù)據(jù)集對(duì)象 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 IfEnd Sub 修改客機(jī)信息在客機(jī)信息列表中選擇記錄，然后單擊“修改”按鈕。當(dāng)前記錄將顯示在如圖915所示的窗體中，可以進(jìn)行修改。代碼如下：Private Sub cmdModify_Click() Dim intCount As Integer ‘判斷列表內(nèi)容是否為空 If 1 Then gintPmode = 2 ‘記載選擇記錄的位置 intCount = If intCount 0 Then = select * from planeInfo where planeNO =39。 amp。 Trim((intCount, 1)) amp。 39。 1 Else MsgBox 警告, vbOKOnly + vbExclamation, 請(qǐng)首先選擇需要修改的記錄！ End If End IfEnd Sub 刪除客機(jī)信息在客機(jī)信息列表中選擇記錄，然后單擊“刪除”按鈕，當(dāng)前記錄將被刪除。代碼如下：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(真的要?jiǎng)h除客機(jī)編號(hào)為 amp。 Trim((, 1)) amp。 的型號(hào)為 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) Unload frmPlane ‘重新載入所有記錄，并顯示出來 = select * from planeInfo End If End IfEnd Sub 查詢客機(jī)信息在客機(jī)信息列表中單擊“查詢”按鈕，將出現(xiàn)如圖916所示的窗體。圖916 查詢客機(jī)信息的窗體載入窗體時(shí)，將自動(dòng)加入所有客機(jī)編號(hào)和客機(jī)型號(hào)的信息，代碼如下：Private Sub Form_Load() Dim i As Integer Dim sSql As String Dim txtSQL As String Dim MsgText As String Dim mrc As ‘清楚各個(gè)列表框中的內(nèi)容 For i = 0 To 1 Combo1(i).Clear Next i ‘選擇數(shù)據(jù)庫(kù)中所有客機(jī)編號(hào)的內(nèi)容 txtSQL = select DISTINCT planeNO from planeInfo Set mrc = ExecuteSQL(txtSQL, MsgText) ‘判斷數(shù)據(jù)庫(kù)是否為空 If Not Then Do While Not Combo1(0).AddItem Trim((0)) Loop Else MsgBox 請(qǐng)先進(jìn)行客機(jī)信息設(shè)置！, vbOKOnly + vbExclamation, 警告 Exit Sub End If ‘選擇所有數(shù)據(jù)庫(kù)中有關(guān)飛機(jī)型號(hào)的內(nèi)容 txtSQL = select DISTINCT planeType from planeInfo Set mrc = ExecuteSQL(txtSQL, MsgText) ‘判斷數(shù)據(jù)集對(duì)象是否為空 If Not Then Do While Not Combo1(1).AddItem Trim((0)) Loop Else MsgBox 請(qǐng)先進(jìn)行客機(jī)信息設(shè)置！, vbOKOnly + vbExclamation, 警告 Exit Sub End If ‘關(guān)閉數(shù)據(jù)集對(duì)象 End Sub設(shè)置完查詢內(nèi)容和方式后，單擊cmdOK按鈕將進(jìn)行查詢。所有滿足條件的記錄將顯示在如圖914所示的窗體中，代碼如下：Private Sub cmdOK_Click() Dim sQSql As String ‘判斷是否按照客機(jī)編號(hào)查詢 If chkItem(0).Value = vbChecked Then sQSql = planeNO = 39。 amp。 Trim(Combo1(0) amp。 ) amp。 39。 End If ‘判斷是否按照客機(jī)型號(hào)查詢 If chkItem(1).Value = vbChecked Then If Trim(sQSql amp。 ) = Then sQSql = planeType =39。 amp。 Trim(Combo1(1) amp。 ) amp。 39。 Else sQSql = sQSql amp。 and planeType =39。 amp。 Trim(Combo1(1) amp。 ) amp。 39。 End If End If ‘判斷查詢內(nèi)容是否為空 If Trim(sQSql) = Then MsgBox 請(qǐng)?jiān)O(shè)置查詢條件！, vbOKOnly + vbExclamation, 警告 Exit Sub Else ‘顯示所有滿足查詢條件的內(nèi)容 = select * from planeInfo where amp。 sQSql Unload frmPlane End IfEnd Sub八 航線信息管理模塊的創(chuàng)建航線信息管理模塊主要實(shí)現(xiàn)如下功能：l 添加航線信息。l 修改航線信息。l 刪除航線信息。l 查詢航線信息。 顯示航線信息窗體的創(chuàng)建選擇“航線信息管理|航線信息”菜單，將出現(xiàn)如圖917所示的窗體。所有航線信息都將顯示出來。窗體的Load事件調(diào)用ShowTitle、ShowData函數(shù)，將所有記錄顯示出來。圖917 顯示客機(jī)信息窗體 添加航線信息窗體的創(chuàng)建選擇“航線信息管理|航線信息”菜單，將出現(xiàn)如圖918所示的窗體，用來添加航線信息。圖918 添加航線窗體輸入完航線信息后，單擊“保存”按鈕：程序首先檢查輸入內(nèi)容是否符合要求，然后檢查是否有重復(fù)記錄，最后添加到數(shù)據(jù)庫(kù)中。 修改航線信息在航線信息列表中選擇記錄，然后單擊“修改”按鈕。當(dāng)前記錄將顯示在如圖918所示的窗體中，可以進(jìn)行修改。代碼如下：Private Sub cmdModify_Click() Dim intCount As Integer ‘判斷列表內(nèi)容是否為空 If 1 Then gintAmode = 2 ‘記載選擇記錄的位置 intCount = If intCount 0 Then = select * from airlineInfo where airlineNO =39。 amp。 Trim((intCount, 1)) amp。 39。 1 Else MsgBox 警告, vbOKOnly + vbExclamation, 請(qǐng)首先選擇需要修改的記錄！ End If End IfEnd Sub 刪除航線信息在航線信息列表中選擇記錄，然后單擊“刪除”按鈕，當(dāng)前記錄將被刪除。代碼如下：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(真的要?jiǎng)h除 amp。 Trim((, 4)) amp。 從 amp。 Trim((, 2)) amp。 出發(fā)到 amp。 Trim((, 3)) amp。 的航線記錄嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then ‘記載選擇記錄位置 intCount = txtSQL = delete from airlineInfo where airlineNO =39。 amp。 Trim((intCount, 1)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) ‘重新載入記錄并顯示 Unload frmAirline = select * from airlineInfo End If End IfEnd Sub 查詢航線信息在航線信息列表中單擊“查詢”按鈕，將出現(xiàn)如圖919所示的窗體。圖919 航線信息查詢窗體載入窗體時(shí)自動(dòng)加入出發(fā)城市和到達(dá)城市的內(nèi)容，代碼如下：Private Sub Form_Load() Dim i As Integer Dim sSql As String Dim txtSQL As String Dim MsgText As String Dim mrc As ‘清除列表框中的內(nèi)容 For i = 0 To 1 Combo1(i).Clear Next i ‘選擇數(shù)據(jù)庫(kù)中與出發(fā)城市有關(guān)的內(nèi)容 txtSQL = select DISTINCT departCity from airlineInfo Set mrc = ExecuteSQL(txtSQL, MsgText) ‘判斷數(shù)據(jù)集是否為空 If Not Then Do While Not