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

VB的课程设计题

图6 主界面

主要代码如下：

Dim cars As qiche ’通用定义代码 Dim a(5)

Private Sub Form_Load() Frame1.Visible = False List2.Visible = False End Sub

Private Sub bz_Click() ’查看系统帮助 Form9.Show End Sub

Private Sub ss_Click() ‘搜索零件 List2.Visible = True Frame1.Visible = True

List2.Visible = Not List2.Visible List2.Clear End Sub

VB的课程设计题

Private Sub Command1_Click() ’依照零件信息对零件搜索 For i = 0 To 4

If Combo1(i).Text = "" Then

For j = 0 To Form12.List1(i).ListCount - 1 List3(i).AddItem Form12.List1(i).List(j) Next j Else t = i Call hunt(t) End If Next i

If Text1 <> "" And Text2 <> "" Then Call hunt2

ElseIf Text1 = "" And Text2 <> "" Then Text1 = 0: Call hunt2 ElseIf Text1 <> "" And Text2 = "" Then Text2 = 10 ^ 10: Call hunt2 Else

For j = 0 To Form12.List1(5).ListCount - 1 List3(5).AddItem Form12.List1(5).List(j) Next j End If

For k = 0 To 5

m = List3(k).ListCount For j = 0 To m

If List3(k).List(j) <> "" Then a(k) = a(k) + 1 End If Next j Next k Max = a(0)