汽車零部件查詢系統(tǒng)設(shè)計(jì)概要

1、 計(jì)算機(jī)應(yīng)用基礎(chǔ)課程設(shè)計(jì)交通與汽車工程學(xué)院課程設(shè)計(jì)說明書課 程 名 稱: 計(jì)算機(jī)應(yīng)用基礎(chǔ)課程設(shè)計(jì) 課 程 代 碼: 6011339 題 目: 汽車零部件查詢系統(tǒng)設(shè)計(jì) 年級(jí)/專業(yè)/班: 學(xué) 生 姓 名: 學(xué) 號(hào): 開 始 時(shí) 間: 2012 年 4 月 1 日完 成 時(shí) 間: 2012 年 4 月 12 日課程設(shè)計(jì)成績(jī)：學(xué)習(xí)態(tài)度及平時(shí)成績(jī)（30）技術(shù)水平與實(shí)際能力（20）創(chuàng)新（5）說明書（計(jì)算書、圖紙、分析報(bào)告）撰寫質(zhì)量（45）總 分（100）指導(dǎo)教師簽名： 年 月 日目 錄摘要 21 引言 32 本程序主要功能 33 本程序結(jié)構(gòu)設(shè)計(jì) 44 程序設(shè)計(jì)界面 45 程序代碼 10結(jié)論30致謝31參考

2、文獻(xiàn)32 摘 要 隨著計(jì)算機(jī)的普及程序的應(yīng)用也越來越受到重視，本次課程設(shè)計(jì)使用 Visual Basic 作為開發(fā)工具，進(jìn)行了汽車零部件查詢系統(tǒng)設(shè)計(jì)的程序設(shè)計(jì)，本系統(tǒng)主要完成對(duì)汽車零部件的管理，包括庫(kù)存的添加、刪除等。系統(tǒng)可以完成對(duì)各類信息的追加、瀏覽、修改、查詢和計(jì)算等功能。汽車零部件查詢系統(tǒng)廣泛應(yīng)用于4S店汽車零部件的庫(kù)存與銷售管理工作中，要求其具有實(shí)用性強(qiáng)、使用方便、效率高和安全可靠等特點(diǎn)。本管理系統(tǒng)正是圍繞以上幾個(gè)方面進(jìn)行開發(fā)的，在開發(fā)過程中充分考慮到本系統(tǒng)的應(yīng)用特點(diǎn)，并進(jìn)行了大量的檢驗(yàn)，證明其的確達(dá)到了設(shè)計(jì)的要求，是一個(gè)已具備了實(shí)際應(yīng)用能力的軟件。關(guān)鍵詞： 汽車零部件 銷售 庫(kù)存 銷

3、售1 引 言 1.1 問題的提出 為適合現(xiàn)代企業(yè)發(fā)展的需要,汽車零部件管理已經(jīng)成為困擾銷售的一個(gè)難題,由于其費(fèi)時(shí)和繁瑣性，企業(yè)迫切需要一種專門為零部件管理而服務(wù)的工具。為此,簡(jiǎn)單的汽車零部件管理系統(tǒng)為此而制造出來。本簡(jiǎn)單程序是為汽車零部件管理而設(shè)計(jì)的,內(nèi)容簡(jiǎn)單，使用方便。程序稍加變更可以適合對(duì)資源分配方面的雜事加以處理。作為當(dāng)代大學(xué)生，熟練的操作計(jì)算機(jī)是一種必備的素質(zhì)。本次設(shè)計(jì)會(huì)讓我們更加熟悉VB編程，把以前學(xué)過的一些東西又重新復(fù)習(xí)了一遍，并與實(shí)際結(jié)合起來，對(duì)我們能力的提升有了很大的幫助，還能促使我們?cè)谝院蟮膶?shí)際應(yīng)用中更好的應(yīng)用VB編程來設(shè)計(jì)一些數(shù)據(jù)庫(kù)管理系統(tǒng)。2 本程序主要功能 汽車零部件管

4、理系統(tǒng)是典型的信息管理系統(tǒng)，其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn).本系統(tǒng)主要完成對(duì)汽車零部件信息的管理，包括數(shù)據(jù)庫(kù)中零件的入庫(kù)和出庫(kù)等。系統(tǒng)可以完成對(duì)各類信息的瀏覽、修改、查詢對(duì)零件銷售價(jià)格進(jìn)行計(jì)算等功能。系統(tǒng)的核心是數(shù)據(jù)庫(kù)中零件的余量，每一個(gè)零件的修改都將聯(lián)動(dòng)的影響其它的各項(xiàng)信息，當(dāng)完成對(duì)數(shù)據(jù)的操作時(shí)系統(tǒng)會(huì)自動(dòng)地完成數(shù)據(jù)庫(kù)的修改。查詢功能也是系統(tǒng)的核心之一，在系統(tǒng)中即有單條件查詢和多條件查詢，也有精確查詢和模糊查詢，系統(tǒng)不僅有靜態(tài)的條件查詢，也有動(dòng)態(tài)生成的條

5、件查詢，其目的都是為了方便用戶使用。本系統(tǒng)有完整的報(bào)價(jià)查詢，庫(kù)存剩余量，零件名稱，銷售型號(hào)，匹配車型查詢等等。3 本程序結(jié)構(gòu)設(shè)計(jì) 汽車零部件管理系統(tǒng)是典型的信息管理系統(tǒng)，其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn).其中利用函數(shù)調(diào)用，查詢功能，庫(kù)存檢索等完成此次設(shè)計(jì)。4 程序設(shè)計(jì)界面Form1： Form2：Form3:Form4:Form5:Form6:Form7:Form8:Form9:Form10:Form11:Form12:5 程序代碼（1）Form1:Pri

6、vate Sub Form_Click()Form2.ShowUnload MeEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Form2.ShowUnload MeEnd SubPrivate Sub Image1_Click()End Sub（2）Form2:Do While Not EOF(1)Get #1, , persIf Trim(Text2.Text) = Trim(pers.bh) Thenf = TrueForm3.ShowUnload Form2Exit DoEnd IfLoopCloseIf f = False T

7、hent = t + 1If t < 3 ThenMsgBox "用戶不存在,請(qǐng)重新輸入！", vbOKOnly + vbInformation, "用戶名錯(cuò)誤"ElseMsgBox "重試次數(shù)已到，即將退出本系統(tǒng)!", vbOKOnly + vbExclamation, "用戶名錯(cuò)誤"EndExit SubEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub（3）Form3:Dim cars As qicheDim a(5)Priva

8、te Sub bz_Click()Form9.ShowEnd SubPrivate Sub Command1_Click()For i = 0 To 4If Combo1(i).Text = "" ThenFor j = 0 To Form12.List1(i).ListCount - 1List3(i).AddItem Form12.List1(i).List(j)Next jElset = iCall hunt(t)End IfNext iIf Text1 <> "" And Text2 <> "" The

9、nCall hunt2ElseIf Text1 = "" And Text2 <> "" Then Text1 = 0: Call hunt2ElseIf Text1 <> "" And Text2 = "" Then Text2 = 10 10: Call hunt2ElseFor j = 0 To Form12.List1(5).ListCount - 1List3(5).AddItem Form12.List1(5).List(j)Next jEnd IfFor k = 0 To 5

10、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 Lis

11、t3(2).List(k) <> "" And List3(3).List(k) <> "" And List3(4).List(k) <> "" And List3(5).List(k) <> "" Then'List2.AddItem List3(0).List(k) & List3(1).List(k) & List3(2).List(k) & List3(3).List(k) & List3(4).List(k) &am

12、p; List3(5).List(k)End IfNext kFrame1.Visible = False'List2.Visible = TrueEnd SubPrivate Sub Command2_Click()Frame1.Visible = FalseEnd SubPrivate Sub Form_Load() Frame1.Visible = False'List2.Visible = FalseEnd SubPrivate Sub glsj_Click()Form4.ShowEnd SubPrivate Sub bk_Click()Form10.ShowForm1

13、0.Frame1.Visible = TrueEnd SubPrivate Sub kp_Click()Form10.ShowForm10.Frame2.Visible = TrueEnd SubPrivate Sub ljgl_Click()Form12.ShowEnd SubPrivate Sub ss_Click() 'List2.Visible = TrueFrame1.Visible = True ' List2.Visible = Not List2.Visible'List2.ClearEnd SubSub hunt(t)For i = 0 To Form

14、12.List1(t).ListCount - 1If Trim(Combo1(t).Text) = Trim(Form12.List1(t).List(i) ThenList3(t).AddItem Form12.List1(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)

15、.List(i) ThenList3(5).AddItem List1(5).List(i), iElseList3(5).AddItem "", iEnd IfNext iEnd SubPrivate Sub tc_Click()EndEnd Sub（4） Form4：Dim pers As managerPrivate Sub Command1_Click()Form5.ShowEnd SubPrivate Sub Command2_Click()List1.RemoveItem List1.ListIndexList2.RemoveItem List2.ListInd

16、exList3.RemoveItem List3.ListIndexList4.RemoveItem List4.ListIndexCall saveEnd SubPrivate Sub Command3_Click()If List1.Text = "" ThenMsgBox "請(qǐng)選擇修改對(duì)象"ElseForm6.ShowForm6.Text1 = List1.TextForm6.Text2 = List3.TextForm6.Combo1.Text = List2.TextList1.RemoveItem List1.ListIndexList2.R

17、emoveItem List2.ListIndexList3.RemoveItem List3.ListIndexList4.RemoveItem List4.ListIndexEnd IfEnd SubPrivate Sub Command4_Click()Form3.ShowUnload MeEnd SubPrivate Sub Form_Load()i = 0Open App.Path + "mag.dat" For Random As #1Do While Not EOF(1)i = i + 1Get #1, i, persList1.AddItem pers.bh

18、, i - 1List2.AddItem pers.xb, i - 1List3.AddItem pers.xm, i - 1List4.AddItem pers.mm, i - 1LoopCloseEnd SubPrivate Sub List1_Click()List2.ListIndex = List1.ListIndexList3.ListIndex = List1.ListIndexList4.ListIndex = List1.ListIndexEnd SubPrivate Sub List2_Click()List1.ListIndex = List2.ListIndexList

19、3.ListIndex = List2.ListIndexList4.ListIndex = List2.ListIndexEnd SubPrivate Sub List3_Click()List1.ListIndex = List3.ListIndexList2.ListIndex = List3.ListIndexList4.ListIndex = List3.ListIndexEnd SubPrivate Sub List4_Click()List1.ListIndex = List4.ListIndexList2.ListIndex = List4.ListIndexList3.Lis

20、tIndex = List4.ListIndexEnd Sub（5） Form5：Dim pers As managerPrivate Sub Command1_Click()If Text1 = "" Or Text2 = "" Or Text3 = "" Or Combo1.Text = "" ThenMsgBox "請(qǐng)輸入完整的信息"Text1.SetFocusExit SubEnd IfIf Text1 <> "" And Text2 <> &

21、quot;" And Text3 <> "" And Combo1.Text <> "" ThenForm4.List1.AddItem Text1Form4.List2.AddItem Combo1.TextForm4.List3.AddItem Text2Form4.List4.AddItem Text3Call saveEnd IfForm4.ShowUnload MeEnd SubPrivate Sub Command2_Click()Form4.ShowUnload MeEnd SubPrivate Sub F

22、orm_Load()Text3 = ""End Sub（6） Form6：Private Sub Command1_Click()Form4.List1.AddItem Text1, 0Form4.List2.AddItem Combo1.Text, 0Form4.List3.AddItem Text2, 0Form4.List4.AddItem Text4, 0Call saveForm3.ShowUnload MeEnd SubPrivate Sub Form_Load()End Sub(7) Form7:Private Sub Command1_Click()Form

23、12.List1(0).AddItem Text1, 0Form12.List1(1).AddItem Text2, 0Form12.List1(2).AddItem Text3, 0Form12.List1(3).AddItem Text4, 0Form12.List1(4).AddItem Text5, 0Form12.List1(5).AddItem Text6, 0Form3.ShowUnload MeEnd SubPrivate Sub Command2_Click()Form3.List1(0).AddItem Text1, 0Form3.List1(1).AddItem Text

24、2, 0Form3.List1(2).AddItem Text3, 0Form3.List1(3).AddItem Text4, 0Form3.List1(4).AddItem Text5, 0Form3.List1(5).AddItem Text6, 0Call save2Form3.ShowUnload MeEnd SubPrivate Sub Form_Load()End Sub(8) Form8:Private Sub Command1_Click()If Combo1(0).Text <> "" And Combo1(1).Text <>

25、"" And Combo1(2).Text <> "" And Combo1(3).Text <> "" And Combo1(4).Text <> "" And Text1 <> "" ThenForm12.List1(0).AddItem Combo1(0).TextForm12.List1(1).AddItem Combo1(1).TextForm12.List1(2).AddItem Combo1(2).TextForm12.List1(3

26、).AddItem Combo1(3).TextForm12.List1(4).AddItem Combo1(4).TextForm12.List1(5).AddItem Text1Form3.ShowUnload MeElseMsgBox "請(qǐng)寫入完整的信息！"End IfEnd SubPrivate Sub Command2_Click()Form3.ShowUnload MeEnd SubPrivate Sub Form_Load()End Sub(9) Form9:Private Sub Text2_Change()End SubPrivate Sub Text1_

27、Change()End SubPrivate Sub Timer1_Timer()Text2 = TimeEnd Sub(10) Form10:Dim qPrivate Sub Command1_Click()Static q As IntegerIf q = -1 Then q = List2.ListCount - 1p = Val(List2.List(q)Call xishi(p)q = q - 1End SubPrivate Sub Command2_Click()Static q As IntegerIf q > List2.ListCount - 1 Then q = 0p

28、 = Val(List2.List(q)Call xishi(p)q = q + 1Command1.Enabled = TrueEnd SubPrivate Sub Command3_Click()Form3.ShowUnload MeEnd SubPrivate Sub Command4_Click()p = Val(List2.List(0)Call xishi(p)End SubPrivate Sub Command5_Click()p = Val(List2.List(List2.ListCount - 1)Call xishi(p)End SubPrivate Sub Form_L

29、oad()End SubPrivate Sub Text3_Change()List2.ClearFor i = 0 To Form12.List1(0).ListCount - 1If Text3 <> "" And Text4 = "" ThenIf Trim(Text3) = Trim(Form12.List1(0).List(i) ThenList2.AddItem iEnd IfEnd IfIf Text3 <> "" And Text4 <> "" ThenIf Tr

30、im(Form12.List1(0).List(i) = Trim(Text3) And Trim(Form12.List1(1).List(i) = Trim(Text4) ThenList2.AddItem iEnd IfEnd IfNext iIf List2.ListCount > 0 ThenList2.ListIndex = 0p = Val(List2.Text)Call xishi(p)ElseText5(0) = ""Text5(1) = ""Text5(2) = ""Text5(3) = "&quo

31、t;Text5(4) = ""Text5(5) = ""End IfIf List2.ListCount > 1 Then Command2.Enabled = TrueEnd SubPrivate Sub Text4_Change()List2.ClearFor i = 0 To Form12.List1(0).ListCount - 1If Text4 <> "" And Text3 = "" ThenIf Trim(Text4) = Trim(Form12.List1(1).List(i)

32、ThenList2.AddItem iEnd IfEnd IfIf Text3 <> "" And Text4 <> "" ThenIf Trim(Form12.List1(0).List(i) = Trim(Text3) And Trim(Form12.List1(1).List(i) = Trim(Text4) ThenList2.AddItem iEnd IfEnd IfNext iIf List2.ListCount > 0 ThenList2.ListIndex = 0p = Val(List2.Text)Call

33、 xishi(p)ElseText5(0) = ""Text5(1) = ""Text5(2) = ""Text5(3) = ""Text5(4) = ""Text5(5) = ""End IfIf List2.ListCount > 1 Then Command2.Enabled = TrueEnd SubPrivate Sub Text1_Change()List1.ClearList1.AddItem "配件" & " &qu

34、ot; & " " & "零件型號(hào)" & " " & " " & "適用車型" & " " & " " & " " & " " & "發(fā)布日期" & " " & " " & " " & "單位" &

35、" " & " " & " " & " " & " " & "價(jià)格"For i = 0 To Form12.List1(0).ListCount - 1If Text1 <> "" And Text2 = "" ThenIf Trim(Form12.List1(0).List(i) = Trim(Text1) ThenList1.AddItem Form12.List1(0).List

36、(i) & Form12.List1(1).List(i) & Form12.List1(2).List(i) & Form12.List1(3).List(i) & Form12.List1(4).List(i) & Form12.List1(5).List(i)End IfEnd IfIf Text1 <> "" And Text2 <> "" ThenIf Trim(Form12.List1(0).List(i) = Trim(Text1) And Trim(Form12.List1(

37、1).List(i) = Trim(Text2) ThenList1.AddItem Form12.List1(0).List(i) & Form12.List1(1).List(i) & Form12.List1(2).List(i) & Form12.List1(3).List(i) & Form12.List1(4).List(i) & Form12.List1(5).List(i)End IfEnd IfNext iEnd SubPrivate Sub Text2_Change()List1.ClearList1.AddItem "配件

38、" & " " & " " & "零件型號(hào)" & " " & " " & "適用車型" & " " & " " & " " & " " & "發(fā)布日期" & " " & " " & " " &

39、; "單位" & " " & " " & " " & " " & " " & "價(jià)格"For i = 0 To Form12.List1(0).ListCount - 1If Text1 = "" And Text2 <> "" ThenIf Trim(Form12.List1(1).List(i) = Trim(Text2) ThenList1.AddIt

40、em Form12.List1(0).List(i) & Form12.List1(1).List(i) & Form12.List1(2).List(i) & Form12.List1(3).List(i) & Form12.List1(4).List(i) & Form12.List1(5).List(i)End IfEnd IfIf Text1 <> "" And Text2 <> "" ThenIf Trim(Form12.List1(0).List(i) = Trim(Text1)

41、 And Trim(Form12.List1(1).List(i) = Trim(Text2) ThenList1.AddItem Form12.List1(0).List(i) & Form12.List1(1).List(i) & Form12.List1(2).List(i) & Form12.List1(3).List(i) & Form12.List1(4).List(i) & Form12.List1(5).List(i)End IfEnd IfNext iEnd Sub（11） Form11：Dim cars As qicheDim a(5

42、)Private Sub Form_Load()Open App.Path + "car.dat" For Random As #2Do While Not EOF(2)i = i + 1Get #2, i, carsList1(0).AddItem cars.pjList1(1).AddItem cars.ljxhList1(2).AddItem cars.sychList1(3).AddItem cars.fbList1(4).AddItem cars.dwList1(5).AddItem cars.jgLoopCloseEnd SubPrivate Sub List1

43、_Click(Index As Integer)Select Case Index Case 0List1(5).ListIndex = List1(0).ListIndexList1(4).ListIndex = List1(0).ListIndexList1(3).ListIndex = List1(0).ListIndexList1(2).ListIndex = List1(0).ListIndexList1(1).ListIndex = List1(0).ListIndexCase 1List1(5).ListIndex = List1(1).ListIndexList1(4).Lis

44、tIndex = List1(1).ListIndexList1(3).ListIndex = List1(1).ListIndexList1(2).ListIndex = List1(1).ListIndexList1(0).ListIndex = List1(1).ListIndexCase 2List1(5).ListIndex = List1(2).ListIndexList1(4).ListIndex = List1(2).ListIndexList1(3).ListIndex = List1(2).ListIndexList1(0).ListIndex = List1(2).Lis

45、tIndexList1(1).ListIndex = List1(2).ListIndexCase 3List1(5).ListIndex = List1(3).ListIndexList1(4).ListIndex = List1(3).ListIndexList1(0).ListIndex = List1(3).ListIndexList1(2).ListIndex = List1(3).ListIndexList1(1).ListIndex = List1(3).ListIndexCase 4List1(5).ListIndex = List1(4).ListIndexList1(0).

46、ListIndex = List1(4).ListIndexList1(3).ListIndex = List1(4).ListIndexList1(2).ListIndex = List1(4).ListIndexList1(1).ListIndex = List1(4).ListIndexCase 5List1(0).ListIndex = List1(5).ListIndexList1(4).ListIndex = List1(5).ListIndexList1(3).ListIndex = List1(5).ListIndexList1(2).ListIndex = List1(5).

47、ListIndexList1(1).ListIndex = List1(5).ListIndexEnd SelectEnd Sub(12) Form12:Dim cars As qicheDim a(5)Private Sub Command1_Click()If List1(0).Text = "" ThenMsgBox "請(qǐng)選擇要修改的零件"ElseForm7.ShowForm7.Text1 = List1(0).TextForm7.Text2 = List1(1).TextForm7.Text3 = List1(2).TextForm7.Text4

48、 = List1(3).TextForm7.Text5 = List1(4).TextForm7.Text6 = List1(5).TextList1(0).RemoveItem List1(0).ListIndexList1(1).RemoveItem List1(1).ListIndexList1(2).RemoveItem List1(2).ListIndexList1(3).RemoveItem List1(3).ListIndexList1(4).RemoveItem List1(4).ListIndexList1(5).RemoveItem List1(5).ListIndexEn

49、d IfEnd SubPrivate Sub Command2_Click()Form8.ShowEnd SubPrivate Sub Command3_Click()List1(0).RemoveItem List1(0).ListIndexList1(1).RemoveItem List1(1).ListIndexList1(2).RemoveItem List1(2).ListIndexList1(3).RemoveItem List1(3).ListIndexList1(4).RemoveItem List1(4).ListIndexList1(5).RemoveItem List1(

50、5).ListIndexEnd SubPrivate Sub Command4_Click()Form3.ShowUnload MeEnd SubPrivate Sub Form_Load()Open App.Path + "car.dat" For Random As #2Do While Not EOF(2)i = i + 1Get #2, i, carsList1(0).AddItem cars.pjList1(1).AddItem cars.ljxhList1(2).AddItem cars.sychList1(3).AddItem cars.fbList1(4).AddItem cars.dwList1(5).AddItem cars.jgLoopCloseEnd SubPrivate Sub List1_Click(Index As Integer)Select Case Index Case 0List1(5).ListIndex = List1(0).ListIndexList1(4).ListIndex = List1(0).ListIndexList1(3).ListIndex = List1(0).ListIndexList1(2).ListI