For i = 1 To Rs1. RecordCount

List1. AddItem Rs1. Field( " 故障原因" )

Next i

End If

在 List 控件的 Click 单击事件代码中编写过程，用于在文本框中显示故障原因的解除方法和在图片数组中显示维修步骤的相应图片。

text1. Text = " "

Rs2. Open " Select * From 故障原因及解除方法

where fangfa = " ＆

List1. Text ＆ " "

text1. Text = Rs2! 解除方法

For i = 1 To k

Image( i) . Picture = LoadPicture( " ＆ Rs2. tu ＆ ")

Next i

6 结束语

拖拉机发动机故障诊断专家系统，具有良好的操作界面，操作简单，使用方便，可有效地提高发动机的常见故障诊断的效率和准确性。
 
 

根据拖拉机的常见故障，采用 VB 编程工具和 SQL Server

数据库，结合维修专家的维修知识，设计拖拉机发动机故障诊断专家系统，可有效地提高发动机常见故障诊断的效率和准确性。

 

上一页  [1] [2]