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

VB的课程设计题

List3(5).AddItem "", i End If Next i End Sub

Private Sub Command2_Click() ‘退出搜索零部件 Frame1.Visible = False End Sub

Private Sub glsj_Click() ‘打开管理员数据管理功能 Form4.Show End Sub

Private Sub bk_Click() ‘表框式查询零部件 Form10.Show

Form10.Frame1.Visible = True End Sub

Private Sub kp_Click() ‘卡片式查询零部件 Form10.Show

Form10.Frame2.Visible = True End Sub

Private Sub ljgl_Click() ‘打开零部件数据管理功能 Form12.Show End Sub

Private Sub tc_Click() ‘退出系统 End