汽車零部件查詢系統(tǒng)設(shè)計(jì)-展示頁(yè)
2025-07-09 07:09本頁(yè)面
【正文】 象Else = = = End IfEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Form_Load()i = 0Open + \ For Random As 1Do While Not EOF(1)i = i + 1Get 1, i, pers , i 1 , i 1 , i 1 , i 1LoopCloseEnd SubPrivate Sub List1_Click() = = = End SubPrivate Sub List2_Click() = = = End SubPrivate Sub List3_Click() = = = End SubPrivate Sub List4_Click() = = = End Sub（5） Form5：Dim pers As managerPrivate Sub Command1_Click()If Text1 = Or Text2 = Or Text3 = Or = ThenMsgBox 請(qǐng)輸入完整的信息Exit SubEnd IfIf Text1 And Text2 And Text3 And Then Text1 Text2 Text3Call saveEnd IfUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Text3 = End Sub（6） Form6：Private Sub Command1_Click() Text1, 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 請(qǐng)寫入完整的信息！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)
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1