管理服务轿车4S店综合服务系统

引言中国以前的汽车销售是由国营的汽车销售公司垄断。到了20世纪90年代中期，汽车厂商开始建立自己的销售渠道，并逐渐形成以下四种汽车渠道模式。1代理制。渠道模式可表述为厂商→总代理→区域代理→下级代理商→最终用户。代理制。渠道模式可表述为厂商→区域总代理→下级代理商→最终用户。经销制。渠道模式可表述为厂商→特许经销商→最终用户。专卖制。渠道模式可表述为厂商→专卖店→最终用户。但是，随着汽车市场逐渐成熟，用户的消费心理也逐渐成熟，用户需求多应市场与用户的需求。4S店的出现，恰好能满足用户的各种需求，它可以提供装备4S店的服务，可以使用户对品牌产生信赖感，所以说，4S店是汽车市场激烈竞争下的产物。第一章开发工具的软件描述ADO编程模型简介在VB6.0中推出的ADO（ACTIVEDataObject）是一种数据访问策略，也是一个用于存取数据源的COMOLEDBDAORDO而成为主要的数据访问接口。ADO对象模型包括下表所示的一些可编程的对象。名称说明Connection（连接）通过“连接“可使应用程序访问数据源Command（命令）通过连接所发出的“命令“操作数据源Recordset（记录集）“记录集”描述来自数据表或命令执行结果的记录的集合Eror（错误）用于维护数据源所产生的错误信息Parameter（参数）“参数“是命令所需要的变量部分Field(字段)用于操作记录集中单个列的信息其中的每个对象都具有属性（Properties）对象，用于描述对象的属性。连接（Connection）对象名称说明ConnectionString属性设置到数据源的连接信息Open方法打开数据源的连接Excuse方法对连接执行各种操作Cansel方法取消Open或Excuse方法的调用名称说明ConnectionString属性设置到数据源的连接信息Open方法打开数据源的连接Excuse方法对连接执行各种操作Cansel方法取消Open或Excuse方法的调用Close方法关闭打开的Connection对象命令（Command）对象“命令”“命令”者在表中以行的格式检索数据。ADO对象模型用Command对象来体现命令概念，使用Command对象可使ADO优化命令执行，下表列出Command对象的常用属性和方法。名称说明ActiveConnection属性设置到数据源的连接信息CommandText方法指定发送的命令文本，如SQL语句等CommandType设置或返回CommandText的类型Excuse方法执行CommandText属性指定操作Cansel方法取消Excuse方法的调用记录集（Recordset）对象““（行Recordset移动行，指定移动行的顺序，添加、更改或删除行，通过更改行更新数据源等。下表列出Recordset对象的常用属性和方法。名称说明ActiveConn属性tion返回Recordset对象所属的Connection对象Souce属性RecordsetCommand对象、SQL语句或存储过程RecordCount属性返回Recordset对象中的记录个数BOF、EOF属性指示当前记录指针位置是否位于首记录前、末记录后Bookmark属性返回或设置Recordset对象中当前记录的书签CursorTyp属性设置或返回Recordset对象中使用的光标类型Filter属性设置Recordset对象中的数据筛选条件Sort属性设置排序字段Open方法打开代表数据库、查询结果等Recordset对象中的记录的光标Move的方法移动Recordset对象中的当前记录指针到指定位置Movefirst、Movelast、Movenext和MovePrevios方法移动Recordset对象中的当前记录指针到首记录、末记录、下一个、上一个Addnew方法为可更新的Recordset对象创建一条新记录Requery方法重新执行生成Recordset对象的查询，以更新其中数据Update方法保存对当前记录的修改Cancelupdate方法取消在调用Update方法之前对当前记录的修改Delete方法删除当前记录或记录组此外，在ADO编程模型中，Connection、Command、Recordset和Field对象都具有Properties集合。它包含所有属于各个包含对象的Property对象。ADO对象拥有可在其上使用的诸如“整型”、“字符型”或“布尔型”这样的普通数据类“COLLECTIONOBJECT”ADO提供执行操作的方式1、连接到数据源。同时，可确定对数据源的所有更改是否已成功或没有生。2、指定访问数据源的命令，同时可带变量参数，或优化执行。3、执行命令。3、如果这个命令使数据按表中的行的形式返回，则将这些行存储在易于检查、操作或更改的缓存中。4、适当情况下，可使用缓存行的更改内容来更新数据源。5、提供常规方法检测错误（通常由建立连接或执行命令造成。在典型情况ADO有很强的灵活性，所以最后只需执行部分模块就能做一些有用的工作。ADO的特点ADO是一种可视化、面对对象和调用事件驱动方式的结构高级程序设计，可用于Windows环境下的应用程序，她简单易学、效率高，而且功能强大。总的来说，ADO具有以下特点：1、易于使用这是ADO技术的最重要的一个特征。由于ADO是高层应用，所以相对于OLEDBODBCADODAO方便了应用程序的编制。2、高速访问数据源由于ADO技术基于OLEDB，所以，它也继承了OLEDB访问数据库的高速性。3、可以访问不同数据源ADO技术可以访问包括关系数据库和非关系数据库的所有文件系统。此特点使应用程序有很多的灵活性和通用性。4、可以用于MicrosoftActiveX页ADO技术可以以ActiveX控件的形式出现，所以，可以被用于MicrosoftActiveX页，此特征可简化WEB页的编程。5、程序占用内存少由于ADO是基于组件对象模型（COM）的访问技术，所以，用ADO产生的应用程序占用内存少。数据库的发展数据库（database）为满足某一部门中多个用户多种应用的需要，按照一定的数据模型在计算机系统中组织、存储和使用的互相联系的数据集合。带有数据库的——数据库管理系统(DBMS)——数据库管理员(DBA)数据库仅是数据库系统的一个组成部分。数据库系统的功能和特征数据库系统由文,但文卷还是与应用程序对应的,即数据仍面向应用。每一应用各自建立自己的一组文卷。不(简称模式)和这两种模式总称为数据库模式。控制特征数据库数据数量庞大，结构复杂，又为多个用户所共享。因此，必须由数DBMS是数据库系统的基础。研制DBMS的基本目标，是扩大功能，提高性能和可用性，从而提高用户的生产率。70年代以来，研制的重点是探索关系数据库管理系统的设计，内容包括关系数据语言、查询优化、并发控制和系统性能等。另一类课题是对DBMS标准化的研究，即研究DBMS体系结构的规范。数据库设计这是在计算机系统具有的数据库管关系数据库理论研究的意义，一方面在于它为数据库学科奠定了理论基础;另一方面它为数据库设计提供了判别标准,从而成为数据库设计的有力指南。研究的主要内容库技术是计算机科学中发展最快的领域之一，新的领域越来越多。分布式数据库系统随着70重要方向。分布式数据库系统结构复杂，其中最复杂的是分布式数据库管理系统。数据库机器新的计算机系统的体系结构。它把由中央处理器包办的数据库操作分散不能明显地含有现实世界的意义。因此，用户只能按照DBMS所提供的数据操纵语70年代末所开始的正文的处理，以及面向端点用户的高级语言接口。第二章汽车4S店综合服务系统的分析与设计21世纪以来，随着汽车工业竞争的日趋激烈，计算机的飞速发展，计算机4S店综合服务系统的开发性和实用前景。系统分析要设计一个有效的汽车4S店综合服务系统必须做全面的调查，从多方面来对系系统的使用要求。包括：功能要求，既要实现什么功能以及怎样实现信息要求，企业用户从数据库中获得的怎样的信息内容安全性和完整性的要求系统的设计使用Visualbasic和ADO对数据库和程序设计语言进行编写和实现。在编写程一个模块的实际意义。设计的模块有：进货模块的设计销售模块的设计进货查询模块的设计维修用户模块的查询购车用户添加及查询模块的设计车辆维修模块的设计信息反馈模块的设计汽车临配件模块的设计车辆保养模块的设计第三章系统操作流程图及功能介绍系统功能介绍：车辆进货；车辆销售；车辆进货查询；添加数据记录；信息反馈；车辆维修与保养；系统功能模块图：图3.1系统功能模块图（了解各个模块的功能。3.2E-R图3.3E-R图3.4查询系统的模块图3.5车辆维修系统3.6数据库管理系统图图3.7管理系统图第四章车4S店综合服务系统主体功能说明4.1陆界面的说明及功能：系统运行之后，首先呈现您的面前是系统的登陆界面，该界面是由姓名和密码组成，登陆界面如图4.1所示。图4.1登陆界面（11114S4.2所示。图4.24S店界面但是如果密码输入错误，将出现如图4.3所示。4.3密码错误提示对话框用户，试图窃取信息，所以系统会自动弹出“对不起，您无权登陆此系统!”对话框，4.4所示。图4.4登陆失败界面4S店主4.2。程序代码如下：PrivateSubCommand1_Click()DimbAsBoolean,DAsString,iAsInteger:StaticKAsIntegerD=False:b=False:K=K+1Adodc1.RefreshAdodc1.Recordset.MoveLastPrintK=i 'i-1IfTrim(Adodc1.Recordset.Fields("姓名").Value)=Trim(Combo1.Text)AndTrim_(Adodc1.Recordset.Fields("密码").Value)=Trim(Text1.Text)ThenForm1.HideForm2.Show:K=0:ExitForElseb=TrueEndIfNextiIfK=1OrK=2ThenD=MsgBox("您的密码错误，请从新输入!",32,"密码错误")EndIfIfK=3ThenD=MsgBox("警告!你输入的信息有三次不正确!",32,"密码错误")Combo1.Enabled=False:Text1.Enabled=FalseEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub登陆界面的设计和实现：用户的登陆界面是进入应用系统的舌喉，在安全性方面占有重要的地位，是系统到舒服，美观也是很重要的，所以对登陆界面进行美观设置。ImageImagePicture属性。5LabelCaptionTextbox控件;Combo控件;一个Adodc控件,两个CommandButton控件,它们的属性分别为确定、取消。3.控件功能：【确定】命令按钮，首先它是判断用户名和密码是否一致，如果不一致则出现用户提示信息-“轿车销售界面4.2ImageImagePicture属性导入图片。LabelCaption属性为欢迎您到汽车4SCommandButton控件,服务，信息反馈和返回。单击轿车销售按钮，会显示出轿车销售界面，在轿车销售界面上有六个功能键，一个Label控件，它的Caption属性为欢迎您到汽车销售系统，5个CommandButton控件,它们的Caption属性分别为进货，销售，查询，网络连接和退出。如图4.5所示。程序代码：PrivateSubCommand1_Click()Form4.ShowForm2.HideEndSubPrivateSubCommand5_Click()Form2.HideForm1.ShowEndSub4.2.1进货界面在汽车销售系统中，单击进货按钮，您就可以进入到进货界面，该界面有多个Label控件和所对应的多个Text控件，两个CommandButton控件，它们的Caption属性分别为进货和取消，还有1个DataGrid控件。如图4.6所示。程序代码：Adodc1.Recordset.Fields("车辆序号").Value=Text1.TextAdodc1.Recordset.Fields("车辆品牌").Value=TextName.TextAdodc1.Recordset.Fields("进货数量").Value=TextSL.TextAdodc1.Recordset.Fields("车辆型号").Value=TextCX.TextAdodc1.Recordset.Fields("进价（万元/辆）").Value=Texta.TextAdodc1.Recordset.Fields("进货日期").Value=TextRQ.TextAdodc1.Recordset.Fields("备注").Value=TextBZ.TextAdodc1.Recordset.Fields("车辆生产商").Value=Text2.TextAdodc1.Recordset.Fields("查看此车辆信息Adodc1.RefreshEndSubPrivateSubCommand2_Click()Form5.HideForm4.ShowEndSubPrivateSubCommand1_Click()Form4.ShowForm2.HideEndSubPrivateSubCommand5_Click()Form2.HideForm1.ShowEndSubPrivateSubCommand5_Click()Form2.HideForm1.ShowEndSub图4.6轿车进货界面1）首先，进货人员填写进货清单，它包括车辆序号、汽车生产商、车辆品牌、车辆（万元/辆“货”按钮，就可以完成该次进货操作，并且自动添加到库存清单中。同时，库存清单4.7所示。点击进货按钮之后，库存清单也做相应的变化，如图4.8所示。4.7添加进货界面4.8库存变化界面销售界面

图4.5销售系统界面Text控件，4CommandButtonCaption属性分3DataGrid4.9所示。程序代码：PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,KAsIntegerDimSUMAsInteger:DimtempAsBooleanIfText1=""OrText2=""ThenMsgBox"请输入车辆序号！",vbOKOnly+vbExclamation,"警告"EndIfIfLen(Text1.Text)<>4ThenMsgBox"车辆序号为4位！",vbOKOnly+vbExclamation,"警告"EndIfAdodc1.RefreshAdodc1.Recordset.MoveLast'改变库存=i 'i-1IfTrim(Adodc1.Recordset.Fields("车辆序号").Value)=Trim(Text1.Text)ThenAdodc1.Recordset.Fields("进货数量").Value=Val(Adodc1.Recordset.Fields("进货数量").Value)-Val(Text9.Text)Adodc1.Refresh '若无此句，则不会马上改变数量，即关闭后再打开才有效EndIfNexti'进入顾客销售库IfAdodc2.Recordset.RecordCountThenForK=1ToAdodc2.Recordset.RecordCountAdodc2.Recordset.AbsolutePosition=KIfTrim(Adodc2.Recordset.Fields("车辆序号").Value)=Trim(Text1.Text)ThenAdodc2.Recordset.Fields("出售数量").Value=Val(Adodc2.Recordset.Fields("出售数量").Value)+Val(Text9.Text)ElseAdodc2.Recordset.Fields("车辆序号").Value=Text1.TextAdodc2.Recordset.Fields("车辆品牌").Value=Text3.TextAdodc2.Recordset.Fields("车辆型号").Value=Text4.TextAdodc2.Recordset.Fields("出售数量").Value=Text9.TextAdodc2.Recordset.Fields("售价（万元/辆）").Value=Text11.TextAdodc2.Recordset.Fields("销售日期EndIfNextKElseAdodc2.Recordset.Fields("车辆序号").Value=Text1.TextAdodc2.Recordset.Fields("车辆品牌").Value=Text3.TextAdodc2.Recordset.Fields("车辆型号").Value=Text4.TextAdodc2.Recordset.Fields("出售数量").Value=Text9.TextAdodc2.Recordset.Fields("售价（万元/辆）").Value=Text11.TextAdodc2.Recordset.Fields("销售日期Adodc2.RefreshEndIf'进入总销售库temp=FalseAdodc3.RefreshForj=1ToAdodc3.Recordset.RecordCountAdodc3.Recordset.AbsolutePosition=jIfTrim(Adodc3.Recordset.Fields("车辆序号").Value)=Trim(Text1.Text)And_Trim(Adodc3.Recordset.Fields("销售日期").Value)=Trim(Text11.Text)ThenAdodc3.Recordset.Fields("出售数量").Value=Val(Adodc3.Recordset.Fields("出售数量").Value)+Val(Text9.Text)Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text9.Text=""Text10.Text=""Text11.Text=""Text12.Text=""Text13.Text=""Adodc3.RefreshEndIfNextjAdodc3.Recordset.Fields("车辆序号").Value=Text1.TextAdodc3.Recordset.Fields("车辆生产商").Value=Text2.TextAdodc3.Recordset.Fields("车辆品牌").Value=Text3.TextAdodc3.Recordset.Fields("车辆型号").Value=Text4.TextAdodc3.Recordset.Fields("出售数量").Value=Text9.TextAdodc3.Recordset.Fields("售价（万元/辆）").Value=Text11.TextAdodc3.Recordset.Fields("销售日期").Value=DateAdodc3.Recordset.Fields("备注").Value=Text12.TextAdodc3.Recordset.Fields("查看此车辆信息Adodc3.RefreshEndIfText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text9.Text=""Text10.Text=""Text11.Text=""Text12.Text=""Text13.Text=""EndSubPrivateSubCommand2_Click()DimiAsInteger,DimSUMAsSingleFori=1ToAdodc2.Recordset.RecordCountAdodc2.Recordset.AbsolutePosition=iSUM=SUM+Val(Adodc2.Recordset.Fields("售价（万元/辆）"))*Val(Adodc2.Recordset.Fields("出售数量"))NextiLabel18.Caption="共需金额"&SUM&"万元人民币"EndSubPrivateSubCommand4_Click()Adodc2.RefreshNextjLabel18.Caption=""Adodc2.RefreshEndSubPrivateSubCommand5_Click()Form6.HideForm4.ShowEndSubPrivateSubCommand3_Click()Form14.HideForm2.ShowEndSub图4.9销售界面首先销售人员在车辆序号文本框内输入所要出售的车辆序号，则系统会自动显示“确认售出”4.10图4.10结算界面结算完成后，销售人员还可以对顾客购买车辆清单进行清除操作，单击“清除”按钮，就可以清空顾客购买车辆清单，以方便下次操作，如图4.11所示。查询界面

图4.11清空顾客购买车辆清单1个Label5ComandButton所示。程序代码：PrivateSubCommand3_Click()Form4.HideForm13.ShowEndSubPrivateSubCommand4_Click()Form4.HideForm2.ShowEndSub4.12查询界面单击“客户添加与查询”按钮，您就会进入客户添加与查询界面，如图4.13所示。程序代码：

图4.13客户添加与查询界面PrivateSubCommand1_Click()Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("编号").ValueText1.TextAdodc1.Recordset.Fields("姓名").ValueText2.TextAdodc1.Recordset.Fields("性别").ValueText3.TextAdodc1.Recordset.Fields("家庭住址Adodc1.RefreshEndSub如果在顾客添加框中输入所对应的信息，点击系统则会把该记录添加到客户列表中，如图4.14所示。图4.14客户添加界面如果在查询列表，在‘请输入客户编号‘文本框中输入待查询的编号，则在查询列表中知道显示，如图4.15所示。程序代码：PrivateSubCommand2_Click()DimiAsInteger,jAsInteger,KAsIntegerDimSUMAsInteger:DimHAsIntegerH=Len(Text5.Text)IfAdodc1.Recordset.RecordCountThenAdodc1.RefreshForK=1ToAdodc1.Recordset.RecordCountAdodc1.Recordset.AbsolutePosition=KIfLeft(Trim(Adodc1.Recordset.Fields("编号").Value),H)=Trim(Text5.Text)ThenAdodc2.Recordset.Fields("编号").Value=Adodc1.Recordset.Fields("编号").ValueAdodc2.Recordset.Fields("姓名").Value=Adodc1.Recordset.Fields("姓名").ValueAdodc2.Recordset.Fields("性别").Value=Adodc1.Recordset.Fields("性别").ValueAdodc2.Recordset.Fields("家庭住址").Value=Adodc1.Recordset.Fields("家庭住址").ValueAdodc2.Recordset.UpdateEndIfNextKEndIfPrintiEndSubPrivateSubCommand3_Click()DimjAsInteger,bAsInteger,iAsIntegerAdodc2.RefreshNextjAdodc2.RefreshEndSub4.15顾客查询界面单击“系统工具”按钮，您就会进入用户增加与修改界面，如图4.16所示。程序代码：

图4.16用户增加与修改界面PrivateSubCommand6_Click()Form17.ShowForm13.HideEndSub在用户密码修改栏中，在用户名中填写库中以有的用户名和密码，在新密码中填写新的密码，但确认密码栏中的密码必须和新密码相同，如图4.17所示。程序代码：Adodc2.RefreshIfAdodc2.Recordset.Fields("姓名")=Text5.TextAndAdodc2.Recordset.Fields("密码").Value=Text6.TextThenIfText7.Text=Text4.TextThenAdodc2.RefreshAdodc2.Recordset.Fields("密码").Value=Text7.TextAdodc2.Recordset.UpdateAdodc2.RefreshElseD=MsgBox("您两次输入的密码不一致，请从新输入!",32,"错误")EndIfElseD=MsgBox("您的账号或密码错误，请从新输入!",32,"错误")EndIfText5.Text=""Text6.Text=""Text7.Text=""Text4.Text=""EndSubPrivateSubCommand2_Click()EndEndSub4.17系统管理界面密码修改后，密码表中的密码自动改变。如图4.18所示。4.18密码更改界面在新用户增加栏中，创建自己的用户名和密码，如图4.19所示。图4.19新增用户界面点击确定按钮后，系统密码表中自动添加一条新记录，如图4.20所示。图4.20增加用户界面程序代码：PrivateSubCommand3_Click()Adodc1.Recordset.Fields("姓名").Value=Text1.TextAdodc1.Recordset.Fields("密码Adodc1.RefreshElseD=MsgBox("您两次输入的密码不一致，请从新输入!",32,"错误")EndIfText1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand4_Click()Form13.ShowForm17.HideEndSub单击“进货查询”按钮，您就会进入进货查询界面，在‘请输入车辆序号’的文本框中输入车辆序号，查询如图4.21所示。图4.21进货查询界面程序代码：DimiAsInteger,jAsInteger,KAsInteger，SUMAsInteger:DimHAsIntegerH=Len(Text1.Text)IfAdodc1.Recordset.RecordCountThenAdodc1.RefreshForK=1ToAdodc1.Recordset.RecordCountAdodc1.Recordset.AbsolutePosition=KIfLeft(Trim(Adodc1.Recordset.Fields("车辆序号").Value),H)=Trim(Text1.Text)ThenAdodc2.Recordset.Fields("车辆序号").Value=Adodc1.Recordset.Fields("车辆序号").ValueAdodc2.Recordset.Fields("车辆生产商").Value=Adodc1.Recordset.Fields("车辆生产商").ValueAdodc2.Recordset.Fields("车辆品牌").Value=Adodc1.Recordset.Fields("车辆品牌").ValueAdodc2.Recordset.Fields("车辆型号").Value=Adodc1.Recordset.Fields("车辆型号").ValueAdodc2.Recordset.Fields("进货数量").Value=Adodc1.Recordset.Fields("进货数量").ValueAdodc2.Recordset.Fields("进价（万元/辆）").Value=Adodc1.Recordset.Fields("进价（万元/辆）").ValueAdodc2.Recordset.Fields("进货日期").Value=Adodc1.Recordset.Fields("进货日期").ValueAdodc2.Recordset.Fields("备注").Value=Adodc1.Recordset.Fields("备注").ValueAdodc2.Recordset.Fields("查看此车辆信息").Value=Adodc1.Recordset.Fields("查看此车辆信息").ValueEndIfNextKEndIfAdodc1.RefreshPrintiEndSubPrivateSubCommand2_Click()DimjAsInteger,bAsInteger,iAsIntegerAdodc2.RefreshNextjAdodc2.RefreshEndSubPrivateSubCommand3_Click()Form12.HideForm13.ShowEndSub单击“销售查询”按钮，您就会进入销售查询界面，销售查询界面是系统自动帮4.22所示。4.22销售未查询界面在‘请输入待查询的日期‘的文本框中输入待查询的日期，如图4.23所示。图4.23销售查询界面程序代码：PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,KAsIntegerDimSUMAsInteger:DimHAsIntegerH=Len(Text1.Text)IfAdodc1.Recordset.RecordCountThenAdodc1.Refresh: Form15.ClsForK=1ToAdodc1.Recordset.RecordCount '进入查询结果库Adodc1.Recordset.AbsolutePosition=KIfLeft(Trim(Adodc1.Recordset.Fields("销售日期").Value),H)=Trim(Text1.Text)ThenAdodc2.Recordset.Fields("车辆序号").Value=Adodc1.Recordset.Fields("车辆序号").ValueAdodc2.Recordset.Fields("车辆生产商").Value=Adodc1.Recordset.Fields("车辆生产商").ValueAdodc2.Recordset.Fields("车辆品牌").Value=Adodc1.Recordset.Fields("车辆品牌").ValueAdodc2.Recordset.Fields("车辆型号").Value=Adodc1.Recordset.Fields("车辆型号").ValueAdodc2.Recordset.Fields("出售数量").Value=Adodc1.Recordset.Fields("出售数量").ValueAdodc2.Recordset.Fields("售价（万元/辆）").Value=Adodc1.Recordset.Fields("售价（万元/辆）").ValueAdodc2.Recordset.Fields("销售日期").Value=Adodc1.Recordset.Fields("销售日期").ValueAdodc2.Recordset.Fields("备注").Value=Adodc1.Recordset.Fields("备注").ValueAdodc2.Recordset.Fields("查看此车辆信息").Value=Adodc1.Recordset.Fields("查看此车辆信息").ValueAdodc2.Recordset.UpdateEndIfAdodc1.RefreshNextKEndIfAdodc1.RefreshPrintiEndSubPrivateSubCommand2_Click()DimjAsInteger,bAsInteger,iAsIntegerNextjEndSubPrivateSubCommand3_Click()Form15.HideForm13.ShowEndSub单击“维修用户查询”按钮，操作人员就会进入维修用户查询界面，如图4.24所示。4.24维修用户未查询界面在‘请输入客户编号‘的文本框中输入客户编号，如图4.25所示。程序代码：DimiAsInteger,jAsInteger,KAsIntegerDimSUMAsInteger:DimHAsIntegerH=Len(Text1.Text)IfAdodc2.Recordset.RecordCountThenAdodc2.RefreshForK=1ToAdodc2.Recordset.RecordCountAdodc2.Recordset.AbsolutePosition=KIfLeft(Trim(Adodc2.Recordset.Fields("客户编号").Value),H)=Trim(Text1.Text)ThenAdodc1.Recordset.Fields("客户名称").Value=Adodc2.Recordset.Fields("客户名称").ValueAdodc1.Recordset.Fields("性别").Value=Adodc2.Recordset.Fields("性别").ValueAdodc1.Recordset.Fields("地址").Value=Adodc2.Recordset.Fields("地址").ValueAdodc1.Recordset.Fields("电话").Value=Adodc2.Recordset.Fields("电话").ValueAdodc1.Recordset.Fields("送修或来访日期").Value=Adodc2.Recordset.Fields("送修或来访日期").ValueAdodc1.Recordset.Fields("送修或来访车辆型号").Value=Adodc2.Recordset.Fields("送修或来访车辆型号").ValueAdodc1.Recordset.Fields("车牌号").ValueAdodc2.Recordset.Fields("车牌号").ValueAdodc1.Recordset.Fields("维修项目").Value=Adodc2.Recordset.Fields("维修项目").ValueAdodc1.Recordset.Fields("维修记录").Value=Adodc2.Recordset.Fields("维修记录").ValueEndIfNextKEndIfAdodc2.RefreshPrintiEndSubPrivateSubCommand2_Click()DimjAsInteger,bAsInteger,iAsIntegerAdodc1.Refreshb=Adodc1.Recordset.RecordCountForj=1TobNextjAdodc1.RefreshEndSubPrivateSubCommand3_Click()Form13.ShowForm11.HideEndSub轿车零配件界面

图4.25维修用户查询界面LabelCaption属性为轿车零配件供应内容，两DataGrid和一个返回按钮,DataGrid4.26所示。程序代码：PrivateSubCommand3_Click()Form7.ShowForm2.HideEndSubPrivateSubCommand5_Click()Form2.HideForm1.ShowEndSub维修服务界面

图4.26汽车车配件内容键，1LabelCaption属性为维修与保养界面，3CommandButton控件,Caption4.27所示。程序代码：PrivateSubCommand2_Click()Form8.ShowForm2.HideEndSubPrivateSubCommand3_Click()Form7.ShowForm2.HideEndSubPrivateSubCommand1_Click()Form9.ShowForm8.HideEndSub4.27轿车维修保养界面在轿车维修保养界面上，用户单击‘车辆保养‘按钮，会自动弹出下图，如图4.28所示。图4.28车辆保养界面单击‘显示保养内容‘将显示保养车辆信息，如图4.29所示。图4.29显示保养内容界面随着社会的进步，人们对车辆的保养越来越重视，所以本系统为用户提供了车辆保养界面，再在轿车维修保养界面上，单击‘车辆维修‘按钮，会自动弹出下图，如图4.30所示。程序代码：PrivateSubCommand1_Click()Adodc1.RefreshAdodc1.Recordset.Fields("客户编号").Value=Text9.TextAdodc1.Recordset.Fields("客户名称").Value=Text1.TextAdodc1.Recordset.Fields("性别").Value=Combo1.TextAdodc1.Recordset.Fields("地址").Value=Text2.TextAdodc1.Recordset.Fields("电话").Value=Text3.TextAdodc1.Recordset.Fields("送修或来访日期").Value=Text4.TextAdodc1.Recordset.Fields("送修或来访车辆型号").Value=Text5.Text‘显示车辆送来的信息。Adodc1.Recordset.Fields("车牌号").Value=Text6.TextAdodc1.Recordset.Fields("维修项目").Value=Text7.TextAdodc1.Recordset.Fields("维修记录").Value=Text8.TextAdodc1.Recordset.UpdateAdodc1.RefreshEndSubPrivateSubCommand2_Click()Form10.HideForm8.ShowEndSubPrivateSubCommand3_Click()Form14.HideForm2.ShowEndSub图4.30车辆维修界面在车辆维修界面上，用户可以在添加维修用户栏中添加相应信息，如图4.31所示。在上述界面上，用户单击‘确定‘按钮后，该新记录将自动加到系统中去。但值得注4.32所示。4.31维修用户添加界面4.32客户添加表信息反馈界面单击信息反馈按钮，会显示出信息反馈界面，在该界面上有24个功能键，10个Label控件，它们的Caption属性分别为主题，反馈内容，编号，姓名，地址，所在单位，邮件等，9个Text控件，3个CommandButton控件，