汽車零部件查詢系統(tǒng)設計(編輯修改稿)
2024-07-27 07:09 本頁面
【文章內容簡介】 xt1, 0 , 0 Text2, 0 Text4, 0Call saveUnload MeEnd SubPrivate Sub Form_Load()End Sub(7) Form7:Private Sub Command1_Click()(0).AddItem Text1, 0(1).AddItem Text2, 0(2).AddItem Text3, 0(3).AddItem Text4, 0(4).AddItem Text5, 0(5).AddItem Text6, 0Unload MeEnd SubPrivate Sub Command2_Click()(0).AddItem Text1, 0(1).AddItem Text2, 0(2).AddItem Text3, 0(3).AddItem Text4, 0(4).AddItem Text5, 0(5).AddItem Text6, 0Call save2Unload MeEnd SubPrivate Sub Form_Load()End Sub(8) Form8:Private Sub Command1_Click()If Combo1(0).Text And Combo1(1).Text And Combo1(2).Text And Combo1(3).Text And Combo1(4).Text And Text1 Then(0).AddItem Combo1(0).Text(1).AddItem Combo1(1).Text(2).AddItem Combo1(2).Text(3).AddItem Combo1(3).Text(4).AddItem Combo1(4).Text(5).AddItem Text1Unload MeElseMsgBox 請寫入完整的信息！End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()End Sub(9) Form9:Private Sub Text2_Change()End SubPrivate Sub Text1_Change()End SubPrivate Sub Timer1_Timer()Text2 = TimeEnd Sub(10) Form10:Dim qPrivate Sub Command1_Click()Static q As IntegerIf q = 1 Then q = 1p = Val((q))Call xishi(p)q = q 1End SubPrivate Sub Command2_Click()Static q As IntegerIf q 1 Then q = 0p = Val((q))Call xishi(p)q = q + 1 = TrueEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()p = Val((0))Call xishi(p)End SubPrivate Sub Command5_Click()p = Val(( 1))Call xishi(p)End SubPrivate Sub Form_Load()End SubPrivate 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 SubPrivate 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 SubPrivate 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) am
環(huán)評公示相關推薦
鄂ICP備17016276號-1