汽車(chē)零部件查詢(xún)系統(tǒng)設(shè)計(jì)(參考版)
2025-07-03 07:09本頁(yè)面
【正文】 以此次課程設(shè)計(jì)為契機(jī)，提升自己的綜合素質(zhì)。由于我水平有限，加之時(shí)間短暫，故此系統(tǒng)中還有許多不足之處，請(qǐng)老師批評(píng)指正，我會(huì)在以后的制作中不斷改進(jìn)，不斷完善。 致 謝 本次實(shí)驗(yàn)讓我越發(fā)深入的了解了VB程序，而這次設(shè)計(jì)的成功主要是得到了老師以及同學(xué)們的熱心幫助，在此對(duì)那些幫助過(guò)我的人表示感謝，對(duì)學(xué)院領(lǐng)導(dǎo)和老師的幫助和支持表示敬意。這次設(shè)計(jì)對(duì)我的綜合能力是一次很好的鍛煉，但是我必須承認(rèn)自己的能力和知識(shí)還很膚淺。這次設(shè)計(jì)使我的編程水平提高了一大步，使我充分的認(rèn)識(shí)到合作的可貴。 (4).List(i) amp。 (2).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。 (3).List(i) amp。 (1).List(i) amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 適用車(chē)型 amp。 amp。 amp。 (5).List(i)End IfEnd IfNext iEnd SubPrivate Sub Text2_Change() 配件 amp。 (3).List(i) amp。 (1).List(i) amp。 (4).List(i) amp。 (2).List(i) amp。 價(jià)格For i = 0 To (0).ListCount 1If Text1 And Text2 = ThenIf Trim((0).List(i)) = Trim(Text1) Then (0).List(i) amp。 amp。 amp。 單位 amp。 amp。 發(fā)布日期 amp。 amp。 amp。 amp。 零件型號(hào) amp。 amp。 = Not 39。 = FalseEnd SubPrivate Sub glsj_Click()End SubPrivate Sub bk_Click() = TrueEnd SubPrivate Sub kp_Click() = TrueEnd SubPrivate Sub ljgl_Click()End SubPrivate Sub ss_Click() 39。 List3(5).List(k)End IfNext k = False39。 List3(3).List(k) amp。 List3(1).List(k) amp。4 程序設(shè)計(jì)界面Form1： Form2：Form3:Form4:Form5:Form6:Form7:Form8:Form9:Form10:Form11:Form12:5 程序代碼（1）Form1:Private Sub Form_Click()Unload MeEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Unload MeEnd SubPrivate Sub Image1_Click()End Sub（2）Form2:Do While Not EOF(1)Get 1, , persIf Trim() = Trim() Thenf = TrueUnload Form2Exit DoEnd IfLoopCloseIf f = False Thent = t + 1If t 3 ThenMsgBox 用戶(hù)不存在,請(qǐng)重新輸入！, vbOKOnly + vbInformation, 用戶(hù)名錯(cuò)誤ElseMsgBox 重試次數(shù)已到，即將退出本系統(tǒng)!, vbOKOnly + vbExclamation, 用戶(hù)名錯(cuò)誤EndExit SubEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub（3）Form3:Dim cars As qicheDim a(5)Private Sub bz_Click()End SubPrivate Sub Command1_Click()For i = 0 To 4If Combo1(i).Text = ThenFor j = 0 To (i).ListCount 1List3(i).AddItem (i).List(j)Next jElset = iCall hunt(t)End IfNext iIf Text1 And Text2 ThenCall hunt2ElseIf Text1 = And Text2 Then Text1 = 0: Call hunt2ElseIf Text1 And Text2 = Then Text2 = 10 ^ 10: Call hunt2ElseFor j = 0 To (5).ListCount 1List3(5).AddItem (5).List(j)Next jEnd IfFor 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 jNext kMax = a(0)For i = 1 To 5If a(i) Max ThenMax = a(i)End IfNext iFor k = 0 To Val(Max)If List3(0).List(k) And List3(1).List(k) And List3(2).List(k) And List3(3).List(k) And List3(4).List(k) And List3(5).List(k) Then39。對(duì)于前者要求建立起數(shù)據(jù)一致性和
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1