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

交通与汽车工程学院课程设计说明书课程名称:计算机应用基础课程设计课程代码:6011339题目:汽车零部件查询系统设计年级/专业/班:学生姓名:学号:开始时间:2012年4月1日完成时间:2012年4月12日课程设计成绩：学习态度及平时成绩（30）技术水平与实际能力（20）创新（5）说明书（计算书、图纸、分析报告）撰写质量（45）总分（100）指导教师签名：年月日计算机应用基础课程设计-1-目录摘要…………………………………………………………………………………………11引言…………………………………………………………………………………………2方案设计…………………………………………………………………………………2.汽车零部件查询模拟系统方案设计……………………………………………………52.1.1系统功能描述………………………………………………………………………52.1.2系统结构分析………………………………………………………………………52.1.3系统流程分析………………………………………………………………………52.2程序界面和代码设计…………………………………………………………………62.2.1系统工程设计框架…………………………………………………………………62.2.2系统各界面设计及代码设计………………………………………………………83结果分析………………………………………………………………………………33结论………………………………………………………………………………………45致谢………………………………………………………………………………………46参考文献…………………………………………………………………………………47计算机应用基础课程设计-2-摘要随着计算机的普及,计算机高级语言已经运用到生活中的各个方面，本次课程设计使用VB语言作为开发工具，进行了汽车零部件查询系统的程序设计，该程序能实现汽车零部件查询模拟功能，进行汽车零部件的查询，修改，添加等操作，查询结果简便明了，运行界面清晰实用，操作方便，易于实际处理。关键词：网络化计算机对策VB语言汽车零部件查询程序计算机应用基础课程设计-3-1引言1.1问题的提出随着计算机的普及，网络进入大众的家庭。VB一种可视化的、面向对象和采用事件驱动方式的高级程序设计语言，可用于开发Windows环境下的各类应用程序。本次课程设计主要内容就是使用VB编制简单、实用的小程序，以巩固我们所学的计算机VB语言知识，提高分析问题和解决问题的能力，锻炼我们独立动手的能力。1.2任务与分析本课题主要的目的是为了检测步进电机步距角误差，并把误差进行分析计算，最终得到一份误差数据，用误差曲线的方式在坐标上面把误差和步数结果表现出来，方便日后对误差的分析、误差的减少讨论出相应的方案…2设计方案首先根据题目要求设计合理界面，确定哪些控件会用到，要考虑到操作的方便性和美观性。再按题目的功能要求编写对象的事件代码，并其逐一进行调试和修改。…2.1系统总体方案的设计2.1.1系统的驱动控制方案设计根据设计要求，程序要达到的功能如下：（1）、用随机文件建立汽车零部件和管理员的信息档案；（2）、读出汽车零部件的信息，显示在列表框中；（3）、能实现汽车零部件及管理员的信息的查询，修改，添加，删除等操作；（4）、对汽车零部件搜索。2.1.2系统结构分析根据上面对系统功能的描述，构建出系统的总体功能结构图，如图1所示计算机应用基础课程设计-4-图1系统的总体功能结构图2.1.3系统流程分析本系统运行后从欢迎（登录）界面进入主界面。程序的主要工作流程图如图2所示。汽车零部件查询系统对管理员信息的维护对汽车零部件信息的维护对汽车零部件搜索对汽车零部件的查询使用说明计算机应用基础课程设计-5-图2系统主要流程图2.2程序界面和代码设计2.2.1系统工程设计框架在设计程序之前，应先布局整个工程。本系统可设立一个工程文件，取名汽车零部件查询系统.vbp，该工程中包括1个模块文件，11个窗体文件，如图3所示。用户登录读取用户数据并登录开始失败重试3次操作主界面(1).卡片式（2）.列表框式查询零件精确或粗略搜索搜索零件1.添加数据2.删除数据3.修改数据管理员数据1.添加数据2.删除数据3.修改数据零件管理计算机应用基础课程设计-6-图3工程内容模块代码如下：DimhTypeqichepjAsString*10ljxhAsString*10sychAsString*10jgAsString*10fbAsString*10rqAsString*10dwAsString*10EndTypeDimcarsAsqicheTypemanagerbhAsString*10xbAsVariantxmAsVariantmmAsString*10EndType计算机应用基础课程设计-7-DimpersAsmanagerSubsave()KillApp.Path+\mag.datOpenApp.Path+\mag.datForRandomAs#1Fori=0ToForm4.List1.ListCount-1pers.bh=Form4.List1.List(i)pers.xb=Form4.List2.List(i)pers.xm=Form4.List3.List(i)pers.mm=Form4.List4.List(i)Put#1,i+1,persNextiCloseEndSubSubxishi(p)Form10.Text5(0)=Form10.Text5(1)=Form10.Text5(2)=Form10.Text5(3)=Form10.Text5(4)=Form10.Text5(5)=Form10.Text5(0)=Form12.List1(0).List(p)Form10.Text5(1)=Form12.List1(1).List(p)Form10.Text5(2)=Form12.List1(2).List(p)Form10.Text5(3)=Form12.List1(3).List(p)Form10.Text5(4)=Form12.List1(4).List(p)Form10.Text5(5)=Form12.List1(5).List(p)EndSub2.2.2系统各界面设计根据功能不同，在本系统中设计了11个窗体。（1）欢迎界面计算机应用基础课程设计-8-欢迎界面的主要功能是让用户了解程序软件的用途（2）用户登录界面用户登录界面的功能是让管理员进入系统，防止非工作人员进入。用户登录主界面如图5所示图5登录界面登录页面主要代码如下：DimpersAsmanagerPrivateSubCommand1_Click()'登录系统按钮StatictAsIntegerf=FalseIfText2.Text=OrText1=ThenMsgBox请填写完整的个人信息EndIfIfText2.TextThenOpenApp.Path+\mag.datForRandomAs#1n=LOF(1)/Len(pers)DoWhileNotEOF(1)Get#1,,persIfTrim(Text2.Text)=Trim(pers.bh)Then计算机应用基础课程设计-9-f=TrueForm3.ShowUnloadForm2ExitDoEndIfLoopCloseIff=FalseThent=t+1Ift3ThenMsgBox用户不存在,请重新输入！,vbOKOnly+vbInformation,用户名错误ElseMsgBox重试次数已到，即将退出本系统!,vbOKOnly+vbExclamation,用户名错误EndExitSubEndIfEndIfEndIfEndSubPrivateSubCommand2_Click()'结束按钮EndEndSub（3）主界面一如图6所示主界面的功能是展示出系统软件的功能，使用户一目了然。计算机应用基础课程设计-10-图6主界面主要代码如下：DimcarsAsqiche’通用定义代码Dima(5)PrivateSubForm_Load()Frame1.Visible=FalseList2.Visible=FalseEndSubPrivateSubbz_Click()’查看系统帮助Form9.ShowEndSubPrivateSubss_Click()‘搜索零件List2.Visible=TrueFrame1.Visible=TrueList2.Visible=NotList2.VisibleList2.ClearEndSub计算机应用基础课程设计-11-PrivateSubCommand1_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: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)+1EndIfNextjNextkMax=a(0)Fori=1To5计算机应用基础课程设计-12-Ifa(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)ThenList2.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=FalseList2.Visible=TrueEndSubSubhunt(t)Fori=0ToForm12.List1(t).ListCount-1IfTrim(Combo1(t).Text)=Trim(Form12.List1(t).List(i))ThenList3(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),iElse计算机应用基础课程设计-13-List3(5).AddItem,iEndIfNextiEndSubPrivateSubCommand2_Click()‘退出搜索零部件Frame1.Visible=FalseEndSubPrivateSubglsj_Click()‘打开管理员数据管理功能Form4.ShowEndSubPrivateSubbk_Click()‘表框式查询零部件Form10.ShowForm10.Frame1.Visible=