汽車零部件查詢系統(tǒng)設(shè)計說明書-文庫吧在線文庫
【正文】 圖2搜索單擊“零件查詢卡片式”按鈕，運行結(jié)果見圖3所示。只懂理論不會實踐最多只是紙上談兵，想要真正的學好VB,完全掌握VB就一定要理論聯(lián)系實踐。 圖19點擊確定后顯示如圖20所示 圖20點擊幫助按鈕后顯示如圖21所示 圖21 結(jié) 論 在這個學生成績查詢、管理系統(tǒng)課設(shè)創(chuàng)作的過程中，讓我親身體會了制作軟件的全過程，讓我明白了制作軟件是一件很復雜的事情。 (4).List(i) amp。 (1).List(i) amp。 amp。 適用車型 amp。 (3).List(i) amp。 價格For i = 0 To (0).ListCount 1If Text1 And Text2 = ThenIf Trim((0).List(i)) = Trim(Text1) Then (0).List(i) amp。 amp。 amp。 List3(2).List(k) amp。本系統(tǒng)可設(shè)立一個工程文件，該工程中包括1個模塊文件，11個窗體文件，如圖3所示。VB一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動方式的高級程序設(shè)計語言，可用于開發(fā)Windows環(huán)境下的各類應(yīng)用程序。再按題目的功能要求編寫對象的事件代碼，并其逐一進行調(diào)試和修改。用戶登錄主界面如圖5所示圖5登錄界面登錄頁面主要代碼如下：Dim pers As managerPrivate Sub Command1_Click() 39。 List3(5).List(k)End IfNext k = False = TrueEnd SubSub hunt(t)For i = 0 To (t).ListCount 1If Trim(Combo1(t).Text) = Trim((t).List(i)) ThenList3(t).AddItem (t).List(i), iElseList3(t).AddItem , iEnd IfNext iEnd SubSub hunt2()For i = 0 To List1(5).ListCount 1If Val(Text1) Val(List1(5).List(i)) And Val(Text2) Val(List1(5).List(i)) ThenList3(5).AddItem List1(5).List(i), iElseList3(5).AddItem , iEnd IfNext iEnd SubPrivate Sub Command2_Click() ‘退出搜索零部件 = FalseEnd SubPrivate Sub glsj_Click() ‘打開管理員數(shù)據(jù)管理功能End SubPrivate Sub bk_Click() ‘表框式查詢零部件 = TrueEnd SubPrivate Sub kp_Click() ‘卡片式查詢零部件 = TrueEnd SubPrivate Sub ljgl_Click() ‘打開零部件數(shù)據(jù)管理功能End SubPrivate Sub tc_Click() ‘退出系統(tǒng)EndEnd Sub（4）主界面二如圖7所示 圖7 主界面主要代碼如下：1．卡片式零件查詢：Dim q（1).查看上一個零件的代碼如下:Private Sub Command1_Click()Static q As IntegerIf q = 1 Then q = 1p = Val((q))Call xishi(p)q = q 1End Sub（2）查看下一個零件代碼如下：Private Sub Command2_Click()Static q As IntegerIf q 1 Then q = 0p = Val((q))Call xishi(p)q = q + 1 = TrueEnd Sub（3）退出卡片式查詢代碼如下：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)
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1