【正文】 Exit Sub w1: MsgBox 該故障現(xiàn)象已經(jīng)存在 , 0 + 48, 提示 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = = = End Sub Private Sub Form_Unload(Cancel As Integer) End Sub Private Sub Text2_Change() End Sub 7. 故障查詢界面 Form7中的整體 VB代碼如下： Private Sub Command1_Click() If Trim() = Then MsgBox 請輸入查詢關(guān)鍵詞 , 0 + 48, 提示 Exit Sub End If Dim res As New 第 30 頁 共 42 頁 聊城大學本科畢業(yè)論文（設(shè)計） select * from 故障 where 故障現(xiàn)象 like ?% amp。 ? where 故 障 現(xiàn) 象 =? amp。 ?,診斷流程 =? amp。 ?,故障原因 =? amp。 ?) MsgBox 添加成功 , 0 + 48, 提示 = 0 = = = Exit Sub w1: MsgBox 該故障現(xiàn)象已經(jīng)存在 , 0 + 48, 提示 End Sub Private Sub Command2_Click() 第 27 頁 共 42 頁 聊城大學本科畢業(yè)論文（設(shè)計） Unload Me End Sub Private Sub Form_Unload(Cancel As Integer) End Sub Private Sub Text1_Change() End Sub 5. 汽車發(fā)動機常見故障界面 Form5 中的整體 VB 代碼如下： Private Sub Command1_Click() End Sub Private Sub Command2_Click() End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() End Sub 第 28 頁 共 42 頁 聊城大學本科畢業(yè)論文（設(shè)計） Private Sub Form_Unload(Cancel As Integer) End Sub 6. 故障信息編輯界面 Form6中的整體 VB 代碼如下： Private Sub Command1_Click() If Trim() = Then MsgBox 請輸入故障現(xiàn)象 , 0 + 48, 提示 Exit Sub End If If Trim() = Then MsgBox 請輸入故障原因 , 0 + 48, 提示 Exit Sub End If If Trim() = Then MsgBox 請輸入故障診斷流程 , 0 + 48, 提示 Exit Sub End If On Error GoTo w1 update 故障 set 故障現(xiàn)象 =? amp。 ?,? amp。 ?,? amp。 ?, dbs, 1, 1 If Not Then = (1) = (2) Else = = End If End Sub Private Sub Text1_Change() End Sub 4. 故障信息添加界面 Form4中的整體 VB 代碼如下： Private Sub Command1_Click() If Trim() = Then MsgBox 請輸入故障現(xiàn)象 , 0 + 48, 提示 第 26 頁 共 42 頁 聊城大學本科畢業(yè)論文（設(shè)計） Exit Sub End If If Trim() = Then MsgBox 請輸入故障原因 , 0 + 48, 提示 Exit Sub End If If Trim() = Then MsgBox 請輸入故障診斷流程 , 0 + 48, 提示 Exit Sub End If On Error GoTo w1 insert into 故障 ( 故障現(xiàn)象 ,故障原因 ,診斷流程 ) values(? amp。 ? If 0 Then = 0 Else = = End If End If Else MsgBox 請選擇要刪除的故障 , 0 + 48, 提示 End If End Sub Private Sub Command4_Click() Unload Me End Sub 第 25 頁 共 42 頁 聊城大學本科畢業(yè)論文（設(shè)計） Private Sub Form_Load() Dim res As New select * from 故障 , dbs, 1, 1 If Not Then Do While Not (0) Loop = 0 End If End Sub Private Sub List1_Click() Dim res As New select * from 故障 where 故障現(xiàn)象 =? amp。Persist Security Info=False n End Sub 第 23 頁 共 42 頁 聊城大學本科畢業(yè)論文（設(shè)計） Private Sub Label2_Click() Unload Me End Sub Form2 中的整體 VB 代碼如下： Private Sub Command1_Click() End Sub Private Sub Command4_Click() End Sub Private Sub Command6_Click() If MsgBox(確實要退出嗎 ?, 1 + 32, 退出 ) = vbOK Then End End If End Sub Private Sub Form_Load() End Sub 3. 汽車發(fā)動機故障管理界面 Form3 中的整體 VB 代碼如下： Private Sub Command1_Click() End Sub Private Sub Command2_Click() 第 24 頁 共 42 頁 聊城大學本科畢業(yè)論文（設(shè)計） If = 0 Then Else MsgBox 請選擇要編輯的故障 , 0 + 48, 提示 End If End Sub Private Sub Command3_Click() If = 0 Then If MsgBox(確實要 刪除嗎 ?, 1 + 32, 提示 ) = vbOK Then delete from 故障 where 故障現(xiàn)象 =? amp。 file amp。 \ n = Provider=。 第 22 頁 共 42 頁 聊城大學本科畢業(yè)論文（設(shè)計） 圖 517 故障碼編輯界面 （ 12）新建標準 exe，新建一個 Form12，在 Form7上新建 1個 Label， 4個 Frame控件， 2個 Text控件， 1個 List控件，新建故障查詢界面，如圖 518所示。 圖 515 汽車發(fā)動機故障碼管理界面 （ 10）新建標準 exe，新建一個 Form10，在 Form10上新建 3個 Frame控件， 3個 第 21 頁 共 42 頁 聊城大學本科畢業(yè)論文（設(shè)計） Text控件 ,2個 Commond控件，新建故障信息添加界面，如圖 516所示。 圖 513 故障信息查詢界面 （ 8）新建標準 exe，新建一個 Fo