汽車零部件查詢系統(tǒng)設計說明書(編輯修改稿)
2025-08-31 03:27 本頁面
【文章內容簡介】 如下：Private Sub Command3_Click()Unload MeEnd Sub（4）查看第一個零件代碼如下：Private Sub Command4_Click()p = Val((0))Call xishi(p)End Sub（5）查看最后一個零件代碼如下：Private Sub Command5_Click()p = Val(( 1))Call xishi(p)End Sub（6）卡片式配件框發(fā)生改變代碼如下：Private Sub Text3_Change()For i = 0 To (0).ListCount 1If Text3 And Text4 = ThenIf Trim(Text3) = Trim((0).List(i)) Then iEnd IfEnd IfIf Text3 And Text4 ThenIf Trim((0).List(i)) = Trim(Text3) And Trim((1).List(i)) = Trim(Text4) Then iEnd IfEnd IfNext iIf 0 Then = 0p = Val()Call xishi(p)ElseText5(0) = Text5(1) = Text5(2) = Text5(3) = Text5(4) = Text5(5) = End IfIf 1 Then = TrueEnd Sub（7）卡片式零件型號框發(fā)生改變代碼如下：Private Sub Text4_Change()For i = 0 To (0).ListCount 1If Text4 And Text3 = ThenIf Trim(Text4) = Trim((1).List(i)) Then iEnd IfEnd IfIf Text3 And Text4 ThenIf Trim((0).List(i)) = Trim(Text3) And Trim((1).List(i)) = Trim(Text4) Then iEnd IfEnd IfNext iIf 0 Then = 0p = Val()Call xishi(p)ElseText5(0) = Text5(1) = Text5(2) = Text5(3) = Text5(4) = Text5(5) = End IfIf 1 Then = TrueEnd Sub： （1）列表框式配件框發(fā)生改變代碼如下：Private Sub Text1_Change() 配件 amp。 amp。 amp。 零件型號 amp。 amp。 amp。 適用車型 amp。 amp。 amp。 amp。 amp。 發(fā)布日期 amp。 amp。 amp。 amp。 單位 amp。 amp。 amp。 amp。 amp。 amp。 價格For i = 0 To (0).ListCount 1If Text1 And Text2 = ThenIf Trim((0).List(i)) = Trim(Text1) Then (0).List(i) amp。 (1).List(i) amp。 (2).List(i) amp。 (3).List(i) amp。 (4).List(i) amp。 (5).List(i)End IfEnd IfIf Text1 And Text2 ThenIf Trim((0).List(i)) = Trim(Text1) And Trim((1).List(i)) = Trim(Text2) Then (0).List(i) amp。 (1).List(i) amp。 (2).List(i) amp。 (3).List(i) amp。 (4).List(i) amp。 (5).List(i)End IfEnd IfNext iEnd Sub（2）列表框式零件型號框發(fā)生改變代碼如下：Private Sub Text2_Change() 配件 amp。 amp。 amp。 零件型號 amp。 amp。 amp。 適用車型 amp。 amp。 amp。 amp。 amp。 發(fā)布日期 amp。 amp。 amp。 amp。 單位 amp。 amp。 amp。 amp。 amp。 amp。 價格For i = 0 To (0).ListCount 1If Text1 = And Text2 ThenIf Trim((1).List(i)) = Trim(Text2) Then (0).List(i) amp。 (1).List(i) amp。 (2).List(i) amp。 (3).List(i) amp。 (4).List(i) amp。 (5).List(i)End IfEnd IfIf Text1 And Text2 ThenIf Trim((0).List(i)) = Trim(Text1) And Trim((1).List(i)) = Trim(Text2) Then (0).List(i) amp。 (1).List(i) amp。 (2).List(i) amp。 (3).List(i) amp。 (4).List(i) amp。 (5).List(i)End IfEnd IfNext iEnd Sub（5）主界面三如圖8所示 圖8 主界面 主要代碼如下:Dim cars As qiche ‘通用代碼Dim a(5)（1）修改零件代碼如下：Private Sub Command1_Click()If List1(0).Text = ThenMsgBox 請選擇要修改的零件Else = List1(0).Text = List1(1).Text = List1(2).Text = List1(3).Text = List1(4).Text = List1(5).TextList1(0).RemoveItem List1(0).ListIndexList1(1).RemoveItem List1(1).ListIndexList1(2).RemoveItem List1(2).Lis
規(guī)章制度相關推薦
鄂ICP備17016276號-1