汽车零部件查询系统设计说明书(15)

VB的课程设计题

End If

If Text3 <> "" And Text4 <> "" Then If

Trim(Form12.List1(0).List(i))

=

Trim(Text3)

And

Trim(Form12.List1(1).List(i)) = Trim(Text4) Then

List2.AddItem i End If End If Next i

If List2.ListCount > 0 Then List2.ListIndex = 0 p = Val(List2.Text) Call xishi(p) Else

Text5(0) = "" Text5(1) = "" Text5(2) = "" Text5(3) = "" Text5(4) = "" Text5(5) = "" End If

If List2.ListCount > 1 Then Command2.Enabled = True End Sub

2.列表框式零件查询：

（1）列表框式配件框发生改变代码如下：

Private Sub Text1_Change() List1.Clear

List1.AddItem "配件" & " " & " " & "零件型号" & " " & " " & "适用车型" & " " & " " & " " & " " & "发布日期" & " " & " " & " " & "单位" & " " & " " & " " &