【正文】 文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。車輛維修的算法是 :零件數(shù)量 *零件價格 . 1 窗口界面設(shè)計 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。 (0) = (1) = (2) = (3) = (4) = MsgBox 記錄添加成功！ , , 系統(tǒng)提示 Case 2 On Error Resume Next (0) = (1) = (2) = (3) = (4) = MsgBox 記錄修 改成功！ , , 系統(tǒng)提示 End Select Lockctl = False: = False = True: = True = True: = True Command1(0).Enabled = False: Command1(1).Enabled = False Command1(2).Enabled = False: Command1(3).Enabled = False End Sub ? 在“取消” 按鈕的 Click事件下添加如下代碼 Private Sub cmdCancel_Click() On Error Resume Next 39。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。) If Then Else MsgBox 該車已經(jīng)報廢！ , , 系統(tǒng)提示 = Exit Sub End If End Sub ? 在“添加”按鈕的 Click事件下添加如下代碼： Private Sub cmdAdd_Click() Unlockctl Text1 = : Text2 = Text3 = : Text4 = = Format(Now, yyyymmdd) = True: = True 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。 amp。) If Then Else MsgBox 該車為異動車輛！ , , 系統(tǒng)提示 = Exit Sub End If Dim rss2 As New Set rss2 = (select * from 車輛報廢表 where 車牌號碼 =39。 amp。) If Then MsgBox 這輛車不屬于本公司的！ , , 系統(tǒng)提示 = Exit Sub End If Dim rss1 As New Set rss1 = (select * from 車輛異動表 where 車牌號碼 =39。 amp。 Dim rss As New Set rss = (select * from 車輛檔案 where 車牌號碼 =39。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。 i = 2 End Sub （ 5） 車輛違章列表 車輛違章列表記錄操作窗口用于添加，修改，刪除車輛違章信息 .報廢車輛和 異動車輛不允許記錄在車輛違章列表中。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。) MsgBox 記錄已刪除！ , , 系統(tǒng)提示 End If End Sub ? 在“確定” 按鈕的 Click事件下添加如下代碼： Private Sub cmdOk_Click() Select Case i Case 1: If = Then MsgBox 事故編號不能為空！ , , 系統(tǒng)提示 Exit Sub End If If = Then MsgBox 車牌號碼不能為空！ , , 系統(tǒng)提示 : Exit Sub 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。 Text1 amp。) If = False Then MsgBox 這輛車為異動車輛！ , , 系統(tǒng)提示 = Exit Sub End If End Sub ? 在“修改” 按鈕的 Click事件下添加如下代碼： Private Sub cmdUpdate_Click() Unlockctl = True: = True = False: = False = True: = False = False: = False i = 2 End Sub ? 在“刪除” 按鈕的 Click事件下添加如下代碼： Private Sub cmdDelete_Click() If MsgBox(您確實要刪除記錄嗎？ , vbOKCancel, 系統(tǒng)提示 ) = vbOK Then (delete from 車輛事故表 where 事故編號 =39。 amp。 = (1).Value End If Dim rss1 As New Set rss1 = (select * from 車輛異動表 where 車牌號碼 =39。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。 39。 amp。 = True: = True = True: = True = True: = True = True: = True: = True End Sub ? 在代碼窗口中定義數(shù)值型變量，作為保存或修改操作的開關(guān)變量。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。 Call QingKong MsgBox 對不起，沒有符合您查詢條件的車輛！ Else = sql End If = 0 = 0 = 0 End Sub （ 4）車輛事故列表 車輛事故列表窗口用于添加，修改，刪除車輛事故信息。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。%39。%39。%39。 and amp。 and amp。 End If sql = select * from 車輛運營表 where amp。 Else stime = 運營時間 like 39。 and amp。 End If Dim stime As String If Then stime = 運營時間 between amp。 Else sdate = 運營日期 like 39。 / amp。 / amp。 and amp。 / amp。 / amp。 End If Dim sdate As String If Then sdate = 運營日期 between amp。 Else scp = 車牌號碼 like 39。 amp。點擊查詢按紐后首先清空車輛檔案列表 Call QingKong Dim sql As String Dim scp As String If Then scp = 車牌號碼 like 39。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。Persist Security Info=False = select * from 車輛運營表 where 1=0 End Sub ? 在窗口 Load事件下添加代碼為 ： Private Sub Form_Load() = 6615 = 4260 Call Rebind Set adors = (select distinct 車牌號碼 from 車輛運營表 ) On Error Resume Next Do (0) Loop Until 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。 \ amp。Data Source= amp。Persist Security Info=False = select * from 車輛運營表 End Sub ? 設(shè)計一個 QingKong過程。 \ amp。Data Source= amp。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。運營日期段和運營時間段查詢功能的實現(xiàn)主要使用了 SQL中的 Between......And語句 . 1 窗口界面設(shè)計 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。 If = Then MsgBox 運營時間不能為空??！ , , 系統(tǒng)提示 Exit Sub End If If = Then MsgBox 運營收入不能為空！！ , , 系統(tǒng)提示 Exit Sub End If (1) = MsgBox 記錄添加成功！ , , 系統(tǒng)提示 Case 2 MsgBox 記錄修改成功！ , , 系統(tǒng)提示 End Select Lockctl = False: = False = True: = True = True: = True End Sub ? 在“取消” 按鈕的 Click事件下，通過 ADO 控件 CancelUpdate方法撤消對當(dāng)前記錄所作的任何更改或放棄新添加的記錄，其代碼為： Private Sub cmdCancel_Click() On Error Resume Next 39。文檔在線網(wǎng)會對會員提供的文檔資料進(jìn)行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。) If Then Else MsgBox 此車為“異動車輛”不能參加運營！ , , 系統(tǒng)提示