汽车零部件查询系统设计

交通与汽车工程学院课程设计说明书课程名称:计算机应用基础课程设计课程代码:6011339题目:汽车零部件查询系统设计年级/专业/班:学生姓名:学号:开始时间:2012年4月1日完成时间:2012年4月12日课程设计成绩：学习态度及平时成绩（30）技术水平与实际能力（20）创新（5）说明书（计算书、图纸、分析报告）撰写质量（45）总分（100）指导教师签名：年月日计算机应用基础课程设计-1-目录摘要…………………………………………………………………………………21引言…………………………………………………………………………………32本程序主要功能…………………………………………………………………33本程序结构设计…………………………………………………………………44程序设计界面…………………………………………………………………45程序代码……………………………………………………………………10结论………………………………………………………………………………………30致谢………………………………………………………………………………………31参考文献…………………………………………………………………………………32计算机应用基础课程设计-2-摘要随着计算机的普及程序的应用也越来越受到重视，本次课程设计使用VisualBasic作为开发工具，进行了汽车零部件查询系统设计的程序设计，本系统主要完成对汽车零部件的管理，包括库存的添加、删除等。系统可以完成对各类信息的追加、浏览、修改、查询和计算等功能。汽车零部件查询系统广泛应用于4S店汽车零部件的库存与销售管理工作中，要求其具有实用性强、使用方便、效率高和安全可靠等特点。本管理系统正是围绕以上几个方面进行开发的，在开发过程中充分考虑到本系统的应用特点，并进行了大量的检验，证明其的确达到了设计的要求，是一个已具备了实际应用能力的软件。关键词：汽车零部件销售库存销售计算机应用基础课程设计-3-1引言1.1问题的提出为适合现代企业发展的需要,汽车零部件管理已经成为困扰销售的一个难题,由于其费时和繁琐性，企业迫切需要一种专门为零部件管理而服务的工具。为此,简单的汽车零部件管理系统为此而制造出来。本简单程序是为汽车零部件管理而设计的,内容简单，使用方便。程序稍加变更可以适合对资源分配方面的杂事加以处理。作为当代大学生，熟练的操作计算机是一种必备的素质。本次设计会让我们更加熟悉VB编程，把以前学过的一些东西又重新复习了一遍，并与实际结合起来，对我们能力的提升有了很大的帮助，还能促使我们在以后的实际应用中更好的应用VB编程来设计一些数据库管理系统。2本程序主要功能汽车零部件管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点.本系统主要完成对汽车零部件信息的管理，包括数据库中零件的入库和出库等。系统可以完成对各类信息的浏览、修改、查询对零件销售价格进行计算等功能。系统的核心是数据库中零件的余量，每一个零件的修改都将联动的影响其它的各项信息，当完成对数据的操作时系统会自动地完成数据库的修改。查询功能也是系统的核心之一，在系统中即有单条件查询和多条件查计算机应用基础课程设计-4-询，也有精确查询和模糊查询，系统不仅有静态的条件查询，也有动态生成的条件查询，其目的都是为了方便用户使用。本系统有完整的报价查询，库存剩余量，零件名称，销售型号，匹配车型查询等等。3本程序结构设计汽车零部件管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点.其中利用函数调用，查询功能，库存检索等完成此次设计。4程序设计界面Form1：计算机应用基础课程设计-5-Form2：Form3:计算机应用基础课程设计-6-Form4:Form5:计算机应用基础课程设计-7-Form6:Form7:计算机应用基础课程设计-8-Form8:Form9:计算机应用基础课程设计-9-Form10:Form11:计算机应用基础课程设计-10-Form12:5程序代码（1）Form1:PrivateSubForm_Click()计算机应用基础课程设计-11-Form2.ShowUnloadMeEndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)Form2.ShowUnloadMeEndSubPrivateSubImage1_Click()EndSub（2）Form2:DoWhileNotEOF(1)Get#1,,persIfTrim(Text2.Text)=Trim(pers.bh)Thenf=TrueForm3.ShowUnloadForm2ExitDoEndIfLoopCloseIff=FalseThent=t+1Ift3ThenMsgBox用户不存在,请重新输入！,vbOKOnly+vbInformation,用户名错误ElseMsgBox重试次数已到，即将退出本系统!,vbOKOnly+vbExclamation,用户名错误EndExitSubEndIf计算机应用基础课程设计-12-EndIfEndIfEndSubPrivateSubCommand2_Click()EndEndSub（3）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=iCallhunt(t)EndIfNextiIfText1AndText2ThenCallhunt2ElseIfText1=AndText2ThenText1=0:Callhunt2ElseIfText1AndText2=ThenText2=10^10:Callhunt2Else计算机应用基础课程设计-13-Forj=0ToForm12.List1(5).ListCount-1List3(5).AddItemForm12.List1(5).List(j)NextjEndIfFork=0To5m=List3(k).ListCountForj=0TomIfList3(k).List(j)Thena(k)=a(k)+1EndIfNextjNextkMax=a(0)Fori=1To5Ifa(i)MaxThenMax=a(i)EndIfNextiFork=0ToVal(Max)IfList3(0).List(k)AndList3(1).List(k)AndList3(2).List(k)AndList3(3).List(k)AndList3(4).List(k)AndList3(5).List(k)Then'List2.AddItemList3(0).List(k)&List3(1).List(k)&List3(2).List(k)&List3(3).List(k)&List3(4).List(k)&List3(5).List(k)EndIfNextkFrame1.Visible=False'List2.Visible=TrueEndSubPrivateSubCommand2_Click()计算机应用基础课程设计-14-Frame1.Visible=FalseEndSubPrivateSubForm_Load()Frame1.Visible=False'List2.Visible=FalseEndSubPrivateSubglsj_Click()Form4.ShowEndSubPrivateSubbk_Click()Form10.ShowForm10.Frame1.Visible=TrueEndSubPrivateSubkp_Click()Form10.ShowForm10.Frame2.Visible=TrueEndSubPrivateSubljgl_Click()Form12.ShowEndSubPrivateSubss_Click()'List2.Visible=TrueFrame1.Visible=True'List2.Visible=NotList2.Visible'List2.ClearEndSubSubhunt(t)Fori=0ToForm12.List1(t).ListCount-1IfTrim(Combo1(t).Text)=Trim(Form12.List1(t).List(i))Then计算机应用基础课程设计-15-List3(t).AddItemForm12.List1(t).List(i),iElseList3(t).AddItem,iEndIfNextiEndSubSubhunt2()Fori=0ToList1(5).ListCount-1IfVal(Text1)Val(List1(5).List(i))AndVal(Text2)Val(List1(5).List(i))ThenList3(5).AddItemList1(5).List(i),iElseList3(5).AddItem,iEndIfNextiEndSubPrivateSubtc_Click()EndEndSub（4）Form4：DimpersAsmanagerPrivateSubCommand1_Click()Form5.ShowEndSubPrivateSubCommand2_Click()List1.RemoveItemList1.ListIndexList2.RemoveItemList2.ListIndexList3.RemoveItemList3.ListIndexList4.RemoveItemList4.ListIndexCallsave计算机应用基础课程设计-16-EndSubPrivateSubCommand3_Click()IfList1.Text=ThenMsgBox请选择修改对象ElseForm6.ShowForm6.Text1=List1.TextForm6.Text2=List3.TextForm6.Combo1.Text=List2.TextList1.RemoveItemList1.ListIndexList2.RemoveItemList2.ListIndexList3.RemoveItemList3.ListIndexList4.RemoveItemList4.ListIndexEndIfEndSubPrivateSubCommand4_Click()Form3.ShowUnloadMeEndSubPrivateSubForm_Load()i=0OpenApp.Path+\mag.datForRandomAs#1DoWhileNotEOF(1)i=i+1Get#1,i,persList1.AddItempers.bh,i-1List2.AddItempers.xb,i-1List3.AddItempers.xm,i-1List4.AddItempers.mm,i-1Loop计算机应用基础课程设计-17-CloseEndSubPrivateSubList1_Click()List2.ListIndex=List1.ListIndexList3.ListIndex=List1.ListIndexList4.ListIndex=List1.ListIndexEndSubPrivateSubList2_Click()List1.ListInd