汽车零部件查询系统设计说明

1、.交通与汽车工程学院课程设计说明书课程名称:计算机应用基础课程设计课程代码:6011339题目:汽车零部件查询系统设计年级/专业/班:学生姓名:学号:开始时间:2012年4月1日完成时间:2012年4月12日课程设计成绩：学习态度与平技术水平与实质说明书（计算书、图纸、分析总分创新（5）时成绩（30）能力（20）报告）撰写质量（45）（100）指导教师署名：年月日目录213233444510303132-1-/38纲要跟着计算机的普与程序的应用也愈来愈遇到重视，本次课程设计使用VisualBasic作为开发工具，进行了汽车零部件查询系统设计的程序设计，本系统主要完成对汽车零部件的管理，包含库存

2、的增加、删除等。系统可以完成对各种信息的追加、阅读、更正、查询和计算等功能。汽车零部件查询系统广泛应用于4S店汽车零部件的库存与销售管理工作中，要求其拥有适用性强、使用方便、效率高和安全靠谱等特色。本管理系统正是环绕以上几个方面进行开发的，在开发过程中充分考虑到本系统的应用特色，并进行了大量的检验，证明其的确达到了设计的要求，是一个已具备了实质应用能力的软件。要点词：汽车零部件销售库存销售-2-/381前言1.1问题的提出为合适现代企业发展的需要,汽车零部件管理已经成为困扰销售的一个难题,因为其费时和繁琐性，企业迫切需要一种特地为零部件管理而服务的工具。为此,简单的汽车零部件管理系统为此而制造

3、出来。本简单程序是为汽车零部件管理而设计的,容简单，使用方便。程序略加更正可以合适对资源分配方面的琐事加以办理。作为今世大学生，纯熟的操作计算机是一种必备的素质。本次设计会让我们更加熟习VB编程，把以前学过的一些东西又重新复习了一遍，并与实质结合起来，对我们能力的提高有了很大的帮助，还可以促使我们在以后的实质应用中更好的应用VB编程来设计一些数据库管理系统。本程序主要功能汽车零部件管理系统是典型的信息管理系统，其开发主要包含后台数据库的建立和保护以与前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完好性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特色.本系统主要完

4、成对汽车零部件信息的管理，包含数据库中部件的入库和出库等。系统可以完成对各种信息的阅读、更正、查询对部件销售价格进行计算等功能。系统的核心是数据库中部件的余量，每一个部件的更正都将联动的影响其他的各项信息，当完成对数据的操作时系统会自动地完成数据库的更正。查询功能也是系统的核心之一，在系统中即有单条件查询和多条件查询，也有精确查询和模糊查询，系统不但有静态的条件查询，也有动向生成-3-/38的条件查询，其目的都是为了方便用户使用。本系统有完好的报价查询，库存节余量，部件名称，销售型号，般配车型查询等等。本程序结构设计汽车零部件管理系统是典型的信息管理系统，其开发主要包含后台数据库的建立和保护以

5、与前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完好性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特色.此中利用函数调用，查询功能，库存检索等完成此次设计。程序设计界面Form1：-4-/38Form2：Form3:Form4:-5-/38Form5:Form6:-6-/38Form7:Form8:-7-/38Form9:Form10:-8-/38Form11:Form12:-9-/38程序代码1）Form1:PrivateSubForm_Click()Form2.ShowUnloadMeEndSubPrivateSubForm_KeyPress(KeyAsci

6、iAsInteger)Form2.ShowUnloadMeEndSubPrivateSubImage1_Click()EndSub-10-/38（2）Form2:DoWhileNotEOF(1)Get#1,persIfTrim(Text2.Text)=Trim(pers.bh)Thenf=TrueForm3.ShowUnloadForm2ExitDoEndIfLoopCloseIff=FalseThent=t+1Ift3ThenMsgBox用户不存在,请重新输入！,vbOKOnly+vbInformation,用户名错误ElseMsgBox重试次数已到，马上退出本系统!,vbOKOnly+vb

7、Exclamation,用户名错误EndExitSubEndIfEndIfEndIfEndSub-11-/38PrivateSubCommand2_Click()EndEndSub3）Form3:DimcarsAsqicheDima(5)PrivateSubbz_Click()Form9.ShowEndSubPrivateSubCommand1_Click()Fori=0To4IfCombo1(i).Text=ThenForj=0ToForm12.List1(i).ListCount-1List3(i).AddItemForm12.List1(i).List(j)NextjElset=iCal

8、lhunt(t)EndIfNextiIfText1AndText2Then-12-/38Callhunt2ElseIfText1=AndText2ThenText1=0:Callhunt2ElseIfText1AndText2=ThenText2=1010:Callhunt2ElseForj=0ToForm12.List1(5).ListCount-1List3(5).AddItemForm12.List1(5).List(j)NextjEndIfFork=0To5m=List3(k).ListCountForj=0TomIfList3(k).List(j)Thena(k)=a(k)+1End

9、IfNextjNextkMax=a(0)Fori=1To5Ifa(i)MaxThenMax=a(i)EndIfNextiFork=0ToVal(Max)-13-/38IfList3(0).List(k)AndList3(1).List(k)AndList3(2).List(k)AndList3(3).List(k)AndList3(4).List(k)AndList3(5).List(k)ThenList2.AddItemList3(0).List(k)&List3(1).List(k)&List3(2).List(k)&List3(3).List(k)&List3(4).List(k)&Li

10、st3(5).List(k)EndIfNextkFrame1.Visible=FalseList2.Visible=TrueEndSubPrivateSubCommand2_Click()Frame1.Visible=FalseEndSubPrivateSubForm_Load()Frame1.Visible=FalseList2.Visible=FalseEndSubPrivateSubglsj_Click()Form4.ShowEndSubPrivateSubbk_Click()Form10.Show-14-/38Form10.Frame1.Visible=TrueEndSubPrivat

11、eSubkp_Click()Form10.ShowForm10.Frame2.Visible=TrueEndSubPrivateSubljgl_Click()Form12.ShowEndSubPrivateSubss_Click()List2.Visible=TrueFrame1.Visible=TrueList2.Visible=NotList2.VisibleList2.ClearEndSubSubhunt(t)Fori=0ToForm12.List1(t).ListCount-1IfTrim(Combo1(t).Text)=Trim(Form12.List1(t).List(i)Then

12、List3(t).AddItemForm12.List1(t).List(i),iElseList3(t).AddItem,iEndIfNexti-15-/38EndSubSubhunt2()Fori=0ToList1(5).ListCount-1IfVal(Text1)Val(List1(5).List(i)ThenList3(5).AddItemList1(5).List(i),iElseList3(5).AddItem,iEndIfNextiEndSubPrivateSubtc_Click()EndEndSub4）Form4：DimpersAsmanagerPrivateSubComma

13、nd1_Click()Form5.ShowEndSubPrivateSubCommand2_Click()List1.RemoveItemList1.ListIndexList2.RemoveItemList2.ListIndexList3.RemoveItemList3.ListIndex-16-/38List4.RemoveItemList4.ListIndexCallsaveEndSubPrivateSubCommand3_Click()IfList1.Text=ThenMsgBox请选择更正对象ElseForm6.ShowForm6.Text1=List1.TextForm6.Text

14、2=List3.TextForm6bo1.Text=List2.TextList1.RemoveItemList1.ListIndexList2.RemoveItemList2.ListIndexList3.RemoveItemList3.ListIndexList4.RemoveItemList4.ListIndexEndIfEndSubPrivateSubCommand4_Click()Form3.ShowUnloadMeEndSubPrivateSubForm_Load()i=0-17-/38OpenApp.Path+mag.datForRandomAs#1DoWhileNotEOF(1

15、)i=i+1Get#1,i,persList1.AddItempers.bh,i-1List2.AddItempers.xb,i-1List3.AddItempers.xm,i-1List4.AddItempers.mm,i-1LoopCloseEndSubPrivateSubList1_Click()List2.ListIndex=List1.ListIndexList3.ListIndex=List1.ListIndexList4.ListIndex=List1.ListIndexEndSubPrivateSubList2_Click()List1.ListIndex=List2.List

16、IndexList3.ListIndex=List2.ListIndexList4.ListIndex=List2.ListIndexEndSubPrivateSubList3_Click()List1.ListIndex=List3.ListIndex-18-/38List2.ListIndex=List3.ListIndexList4.ListIndex=List3.ListIndexEndSubPrivateSubList4_Click()List1.ListIndex=List4.ListIndexList2.ListIndex=List4.ListIndexList3.ListInd

17、ex=List4.ListIndexEndSub5）Form5：DimpersAsmanagerPrivateSubCommand1_Click()IfText1=OrText2=OrText3=OrCombo1.Text=ThenMsgBox请输入完好的信息Text1.SetFocusExitSubEndIfIfText1AndText2AndText3AndCombo1.TextThenForm4.List1.AddItemText1Form4.List2.AddItemCombo1.TextForm4.List3.AddItemText2Form4.List4.AddItemText3C

18、allsave-19-/38EndIfForm4.ShowUnloadMeEndSubPrivateSubCommand2_Click()Form4.ShowUnloadMeEndSubPrivateSubForm_Load()Text3=EndSub6）Form6：PrivateSubCommand1_Click()Form4.List1.AddItemText1,0Form4.List2.AddItemCombo1.Text,0Form4.List3.AddItemText2,0Form4.List4.AddItemText4,0CallsaveForm3.ShowUnloadMeEndS

19、ubPrivateSubForm_Load()-20-/38EndSub(7)Form7:PrivateSubCommand1_Click()Form12.List1(0).AddItemText1,0Form12.List1(1).AddItemText2,0Form12.List1(2).AddItemText3,0Form12.List1(3).AddItemText4,0Form12.List1(4).AddItemText5,0Form12.List1(5).AddItemText6,0Form3.ShowUnloadMeEndSubPrivateSubCommand2_Click(

20、)Form3.List1(0).AddItemText1,0Form3.List1(1).AddItemText2,0Form3.List1(2).AddItemText3,0Form3.List1(3).AddItemText4,0Form3.List1(4).AddItemText5,0Form3.List1(5).AddItemText6,0Callsave2Form3.ShowUnloadMe-21-/38EndSubPrivateSubForm_Load()EndSub(8)Form8:PrivateSubCommand1_Click()IfCombo1(0).TextAndComb

21、o1(1).TextAndCombo1(2).TextAndCombo1(3).TextAndCombo1(4).TextAndText1ThenForm12.List1(0).AddItemCombo1(0).TextForm12.List1(1).AddItemCombo1(1).TextForm12.List1(2).AddItemCombo1(2).TextForm12.List1(3).AddItemCombo1(3).TextForm12.List1(4).AddItemCombo1(4).TextForm12.List1(5).AddItemText1Form3.ShowUnlo

22、adMeElseMsgBox请写入完好的信息！EndIfEndSubPrivateSubCommand2_Click()Form3.ShowUnloadMe-22-/38EndSubPrivateSubForm_Load()EndSub(9)Form9:PrivateSubText2_Change()EndSubPrivateSubText1_Change()EndSubPrivateSubTimer1_Timer()Text2=TimeEndSub(10)Form10:DimqPrivateSubCommand1_Click()StaticqAsIntegerIfq=-1Thenq=List

23、2.ListCount-1p=Val(List2.List(q)Callxishi(p)q=q-1EndSubPrivateSubCommand2_Click()-23-/38StaticqAsIntegerIfqList2.ListCount-1Thenq=0p=Val(List2.List(q)Callxishi(p)q=q+1Command1.Enabled=TrueEndSubPrivateSubCommand3_Click()Form3.ShowUnloadMeEndSubPrivateSubCommand4_Click()p=Val(List2.List(0)Callxishi(p

24、)EndSubPrivateSubCommand5_Click()p=Val(List2.List(List2.ListCount-1)Callxishi(p)EndSubPrivateSubForm_Load()EndSubPrivateSubText3_Change()List2.Clear-24-/38Fori=0ToForm12.List1(0).ListCount-1IfText3AndText4=ThenIfTrim(Text3)=Trim(Form12.List1(0).List(i)ThenList2.AddItemiEndIfEndIfIfText3AndText4ThenI

25、fTrim(Form12.List1(0).List(i)=Trim(Text3)AndTrim(Form12.List1(1).List(i)=Trim(Text4)ThenList2.AddItemiEndIfEndIfNextiIfList2.ListCount0ThenList2.ListIndex=0p=Val(List2.Text)Callxishi(p)ElseText5(0)=Text5(1)=Text5(2)=Text5(3)=Text5(4)=-25-/38Text5(5)=EndIfIfList2.ListCount1ThenCommand2.Enabled=TrueEn

26、dSubPrivateSubText4_Change()List2.ClearFori=0ToForm12.List1(0).ListCount-1IfText4AndText3=ThenIfTrim(Text4)=Trim(Form12.List1(1).List(i)ThenList2.AddItemiEndIfEndIfIfText3AndText4ThenIfTrim(Form12.List1(0).List(i)=Trim(Text3)AndTrim(Form12.List1(1).List(i)=Trim(Text4)ThenList2.AddItemiEndIfEndIfNext

27、iIfList2.ListCount0ThenList2.ListIndex=0p=Val(List2.Text)Callxishi(p)-26-/38ElseText5(0)=Text5(1)=Text5(2)=Text5(3)=Text5(4)=Text5(5)=EndIfIfList2.ListCount1ThenCommand2.Enabled=TrueEndSubPrivateSubText1_Change()List1.ClearList1.AddItem配件&部件型号&适用车型&公布日期&单位&价格Fori=0ToForm12.List1(0).ListCount-1IfText

28、1AndText2=ThenIfTrim(Form12.List1(0).List(i)=Trim(Text1)ThenList1.AddItemForm12.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)EndIfEndIf-27-/38IfText1AndText2ThenIfTrim(Form12.List1(0).List(i)=Trim(Text1)AndTri

29、m(Form12.List1(1).List(i)=Trim(Text2)ThenList1.AddItemForm12.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)EndIfEndIfNextiEndSubPrivateSubText2_Change()List1.ClearList1.AddItem配件&部件型号&适用车型&公布日期&单位&价格Fori=0ToFor

30、m12.List1(0).ListCount-1IfText1=AndText2ThenIfTrim(Form12.List1(1).List(i)=Trim(Text2)ThenList1.AddItemForm12.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)EndIfEndIf-28-/38IfText1AndText2ThenIfTrim(Form12.List

31、1(0).List(i)=Trim(Text1)AndTrim(Form12.List1(1).List(i)=Trim(Text2)ThenList1.AddItemForm12.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)EndIfEndIfNextiEndSub11）Form11：DimcarsAsqicheDima(5)PrivateSubForm_Load()

32、OpenApp.Path+car.datForRandomAs#2DoWhileNotEOF(2)i=i+1Get#2,i,carsList1(0).AddItemcars.pjList1(1).AddItemcars.ljxhList1(2).AddItemcars.sychList1(3).AddItemcars.fb-29-/38List1(4).AddItemcars.dwList1(5).AddItemcars.jgLoopCloseEndSubPrivateSubList1_Click(IndexAsInteger)SelectCaseIndexCase0List1(5).List

33、Index=List1(0).ListIndexList1(4).ListIndex=List1(0).ListIndexList1(3).ListIndex=List1(0).ListIndexList1(2).ListIndex=List1(0).ListIndexList1(1).ListIndex=List1(0).ListIndexCase1List1(5).ListIndex=List1(1).ListIndexList1(4).ListIndex=List1(1).ListIndexList1(3).ListIndex=List1(1).ListIndexList1(2).Lis

34、tIndex=List1(1).ListIndexList1(0).ListIndex=List1(1).ListIndexCase2List1(5).ListIndex=List1(2).ListIndexList1(4).ListIndex=List1(2).ListIndexList1(3).ListIndex=List1(2).ListIndex-30-/38List1(0).ListIndex=List1(2).ListIndexList1(1).ListIndex=List1(2).ListIndexCase3List1(5).ListIndex=List1(3).ListInde

35、xList1(4).ListIndex=List1(3).ListIndexList1(0).ListIndex=List1(3).ListIndexList1(2).ListIndex=List1(3).ListIndexList1(1).ListIndex=List1(3).ListIndexCase4List1(5).ListIndex=List1(4).ListIndexList1(0).ListIndex=List1(4).ListIndexList1(3).ListIndex=List1(4).ListIndexList1(2).ListIndex=List1(4).ListInd

36、exList1(1).ListIndex=List1(4).ListIndexCase5List1(0).ListIndex=List1(5).ListIndexList1(4).ListIndex=List1(5).ListIndexList1(3).ListIndex=List1(5).ListIndexList1(2).ListIndex=List1(5).ListIndexList1(1).ListIndex=List1(5).ListIndexEndSelectEndSub-31-/38(12)Form12:DimcarsAsqicheDima(5)PrivateSubCommand

37、1_Click()IfList1(0).Text=ThenMsgBox请选纲要更正的部件ElseForm7.ShowForm7.Text1=List1(0).TextForm7.Text2=List1(1).TextForm7.Text3=List1(2).TextForm7.Text4=List1(3).TextForm7.Text5=List1(4).TextForm7.Text6=List1(5).TextList1(0).RemoveItemList1(0).ListIndexList1(1).RemoveItemList1(1).ListIndexList1(2).RemoveIte

38、mList1(2).ListIndexList1(3).RemoveItemList1(3).ListIndexList1(4).RemoveItemList1(4).ListIndexList1(5).RemoveItemList1(5).ListIndexEndIfEndSubPrivateSubCommand2_Click()-32-/38Form8.ShowEndSubPrivateSubCommand3_Click()List1(0).RemoveItemList1(0).ListIndexList1(1).RemoveItemList1(1).ListIndexList1(2).R

39、emoveItemList1(2).ListIndexList1(3).RemoveItemList1(3).ListIndexList1(4).RemoveItemList1(4).ListIndexList1(5).RemoveItemList1(5).ListIndexEndSubPrivateSubCommand4_Click()Form3.ShowUnloadMeEndSubPrivateSubForm_Load()OpenApp.Path+car.datForRandomAs#2DoWhileNotEOF(2)i=i+1Get#2,i,carsList1(0).AddItemcar

40、s.pjList1(1).AddItemcars.ljxhList1(2).AddItemcars.sychList1(3).AddItemcars.fb-33-/38List1(4).AddItemcars.dwList1(5).AddItemcars.jgLoopCloseEndSubPrivateSubList1_Click(IndexAsInteger)SelectCaseIndexCase0List1(5).ListIndex=List1(0).ListIndexList1(4).ListIndex=List1(0).ListIndexList1(3).ListIndex=List1(0).ListIndexList1(2).ListIndex=List1(0).ListIndexList1(1).ListIndex=List1(0).ListIndexCase1List1(5).ListIndex=List1(1).ListIndexList1(4).ListIndex=List1(1).ListIndexList1(3).ListIndex=List1(1).ListIndexList1(2).ListIndex=List1(1).ListIndexList1(0).ListIndex=List1(1).ListIndexCas