【正文】 接與提供者聯(lián)系。車輛事故列表只能添加本單位的車輛 ,異動車輛是 不能添加到列表中 ,利用了 Text1控件的 LostFocus事腳 ,在車輛異動表中通過 SQL語 句查詢 Text2控件中車牌號碼是否異動車輛 . 1 窗口界面設(shè)計 車輛事故列表窗口設(shè)計圖 2 程序代碼設(shè)計 ? 設(shè)計一個過程 Lockctl,用來設(shè)置控件不可用，其代碼為： Private Sub Lockctl() = False: = False = False: = False = False: = False = False: = False = False: = False = False: = False = False: = False: = False End Sub ? 設(shè)計一個過程 Unlockctl,用來設(shè)置控件可用，其代碼為： Private Sub Unlockctl() = True: = True = True: = True = True: = True 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 Dim As Integer ? 在窗口 Load事件下添加如下代碼： Private Sub Form_Load() = 10350: = 3435 = select * from 車輛類型表 For i = 0 To 1 (0).Value Next = (2) End Sub ? 在“添加”按鈕的 Click事件下添加如下代碼： Private Sub cmdAdd_Click() Unlockctl Text1 = : Text2 = : Text3 = : Text5 = Text6 = : Text7 = : Text8 = : Text9 = Text10 = : Text11 = : Text12 = : Text13 = Text14 = : Text3 = : = True: = True = False: = False = True = False: = False i = 1 End Sub ? 在 Text控件的 LostFocus事件下添加如下代碼： Private Sub Text2_LostFocus() If = Then Exit Sub Dim rss As New Set rss = (select * from 車輛檔案 where 車牌號碼 =39。 amp。) If Then MsgBox 這輛車不屬于本公司的！ , , 系統(tǒng)提示 = Exit Sub Else 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 amp。 39。 amp。 39。文檔在線網(wǎng)會對會員提供的文檔資料進行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。 End If If = Then MsgBox 事故概要不能為空！ , , 系統(tǒng)提示 : Exit Sub End If If = Then MsgBox 事故確認(rèn)者不能為空??！ , , 系統(tǒng)提示 : Exit Sub End If If Text10 = Then MsgBox 對方姓名不能為空??！ , , 系統(tǒng)提示 : Exit Sub End If (insert into 車輛事故表 values (39。 Text1 amp。,39。 Text2 amp。,39。 amp。,39。 amp。,39。 Text5 amp。,39。 Text6 amp。,39。 Text7 amp。,39。 Text8 amp。,39。 Text9 amp。,39。 Text10 amp。,39。 Text11 amp。,39。 Text12 amp。,39。 Text13 amp。,39。 Text14 amp。)) MsgBox 記錄添加成功！ , , 系統(tǒng)提示 Case 2 (update 車輛事故表 set 車牌號碼 =39。 amp。,車輛類型 =39。 amp。,事故時間 =39。 amp。,事故概要 =39。 amp。,事故確認(rèn)者 =39。 amp。,公司負(fù)擔(dān)金 =39。 amp。,保險理賠金 =39。 amp。,對方賠償金 =39。 amp。,對方姓名 =39。 amp。,對方住址 =39。 amp。,對方所在單位 =39。 amp。,對方損壞程度 =39。 amp。,和解內(nèi)容 =39。 amp。 where 事故編號 =39。 amp。) MsgBox 記錄修改成功！ , , 系統(tǒng)提示 End Select Lockctl = False: = False = True: = True = True: = False = True: = True End Sub ? 在“取消” 按鈕的 Click事件下添加如下代碼： Private Sub cmdUpdate_Click() Unlockctl = True: = True = False: = False = True: = False = False: = False 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 1 窗口界面設(shè)計 車輛違章記錄窗口設(shè)計圖 2 程序代碼設(shè)計 ? 設(shè)計一個過程 Lockctl,用來設(shè)置控件不可用，其代碼為： Private Sub Lockctl() = False: = False = False: = False = False End Sub ? 設(shè)計一個過程 Lockctl,用來設(shè)置控件可用，其代碼為 Private Sub Unlockctl() = True: = True = True: = True = True End Sub ? 在代碼窗口中定義數(shù)值型變量，作為保存或修改操作的開關(guān)變量： Dim i As Integer ? 在窗口 Load事件下添加如下代碼： Private Sub Form_Load() = 6720: = 2730 = select * from 車輛違章表 If 0 Then = (違章時間 ).Value End Sub ? 判斷報廢車輛和異動車輛不可以添加到違章列表中，在 Text1 和 LostFocus 事件下添加如下代碼： Private Sub Text1_LostFocus() If = Then Exit Sub 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。 amp。 39。 amp。 39。 amp。 39。文檔在線網(wǎng)會對會員提供的文檔資料進行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。 = False: = False i = 1 = False End Sub ? 在“修改” 按鈕的 Click事件下添加如下代碼： Private Sub cmdUpdate_Click() Unlockctl = False: = False = True: = True = False: = False i = 2 End Sub ? 在“刪除” 按鈕的 Click事件下添加如下代碼： Private Sub cmdDelete_Click() If MsgBox(您確實要刪除記錄嗎？ , vbOKCancel, 系統(tǒng)提示 ) = vbOK Then MsgBox 記錄已刪除！ , , 系統(tǒng)提示 = = = = End If End Sub ? 在“確定” 按鈕的 Click事件下添加如下代碼： Private Sub cmdOk_Click() Select Case i Case 1 If Text1 = Then MsgBox 車牌號碼不能為空 , , 系統(tǒng)提示 : Exit Sub End If If Text2 = Then MsgBox 違章原因不能為空 , , 系統(tǒng)提示 : Exit Sub End If If = Then MsgBox 違章時間不能為空 , , 系統(tǒng)提示 : Exit Sub End If 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。該文檔資料的版權(quán)屬于提供者所有，有關(guān)版權(quán)的問題請直接與提供者聯(lián)系。當(dāng)沒有添加數(shù)據(jù)的時候 處理異常 Lockctl = False: = False = True: = True = True: = True End Sub (6) 車輛維修列表 車輛維修列表主要是用來管理車輛維修的基本信息，計算車輛維修使用零件的費用。文檔在線網(wǎng)會對會員提供的文檔資料進行篩選和編輯，但是并不聲明或保證其內(nèi)容的合法性、正確性或可靠性。 車 輛維修窗口設(shè)計圖 2 程序代碼設(shè)計 ? 設(shè)計一個過程 Lockctl,用來鎖定控件，其代碼為； Private Sub Lockctl() = False: = False = False: = False = False: = False = False: = False = False: = False End Sub ? 設(shè)計一個過程 Unlockctl,用來解除鎖定控件，其代碼為： Private Sub Unlockctl() = True: = True = True: = True = True: = True = True: = True = True End Sub ? 在代碼窗口中定義數(shù)值型變量，控制保存數(shù)據(jù)或修改數(shù)據(jù)的一個開關(guān)變量： Dim As Integer ? 在該窗口 Load事件下添加如下代碼為： Private Sub Form_Load() = 8490 = 3150 = select * from 車輛維修表 If 0 Then = (維修日期 ).Value = select * from 零件表 For i = 0 To 1 (0).Value (0).Value 免責(zé)聲明：文檔在線網(wǎng)（文檔中國）中所有的文檔資料均由 文檔在線網(wǎng)會員提供。該文檔資料