轿车4S店综合服务系统实用培训教程.docx

《轿车4S店综合服务系统实用培训教程.docx》由会员分享，可在线阅读，更多相关《轿车4S店综合服务系统实用培训教程.docx（59页珍藏版）》请在三一办公上搜索。

1、引言中国以前的汽车销售是由国营的汽车销售公司垄断。到了20世纪90年代中期，汽车厂商开始建立自己的销售渠道，并逐渐形成以下四种汽车渠道模式。1代理制。渠道模式可表述为厂商总代理区域代理下级代理商最终用户。2.代理制。渠道模式可表述为厂商区域总代理下级代理商最终用户。3.经销制。渠道模式可表述为厂商特许经销商最终用户。4.专卖制。渠道模式可表述为厂商专卖店最终用户。但是，随着汽车市场逐渐成熟，用户的消费心理也逐渐成熟，用户需求多样化，对产品、服务的要求也越来越高，越来越严格，原有的代理销售体制已不能适应市场与用户的需求。4S店的出现，恰好能满足用户的各种需求，它可以提供装备精良、整洁干净的维修区

2、，现代化的设备和服务管理，高度职业化的气氛，保养良好的服务设施，充足的零配件供应，迅速及时的跟踪服务体系。通过4S店的服务，可以使用户对品牌产生信赖感，所以说，4S店是汽车市场激烈竞争下的产物。第一章 开发工具的软件描述1.1 ADO编程模型简介在VB6.0中推出的ADO（ACTIVE Data Object）是一种数据访问策略，也是一个用于存取数据源的COM组件，它提供了编程语言和统一数据访问方式OLE DB的一个中间层。他将逐步替代DAO和RDO而成为主要的数据访问接口。ADO对象模型包括下表所示的一些可编程的对象。名称说明Connection（连接）通过“连接“可使应用程序访问数据源Co

3、mmand（命令）通过连接所发出的“命令“操作数据源Recordset（记录集）“记录集”描述来自数据表或命令执行结果的记录的集合Eror（错误）用于维护数据源所产生的错误信息Parameter（参数）“参数“是命令所需要的变量部分Field(字段)用于操作记录集中单个列的信息其中的每个对象都具有属性（Properties）对象，用于描述对象的属性。1.连接（Connection）对象“连接”是交换数据所必须的环境，通过“连接”可使应用程序访问数据源。ADO对象模型使用Connection对象使连接概念得宜具体化，Connection对象用于指定专门的提供者的任意参数下表列出Connectio

4、n对象的常用属性和方法。名称说明ConnectionString属性设置到数据源的连接信息Open方法打开数据源的连接Excuse方法对连接执行各种操作Cansel方法取消Open或Excuse方法的调用Close方法关闭打开的Connection对象2.命令（Command）对象“命令”对象描述对数据源执行的命令。通过已建立的连接发出的“命令”可以某种方式来操作数据源。一般情况下，命令可以在数据源中添加、删除、或更新数据，或者在表中以行的格式检索数据。ADO对象模型用Command对象来体现命令概念，使用Command对象可使ADO优化命令执行，下表列出Command对象的常用属性和方法。名

5、称说明ActiveConnection属性设置到数据源的连接信息CommandText方法指定发送的命令文本，如SQL语句等CommandType设置或返回CommandText的类型Excuse方法执行CommandText属性指定操作Cansel方法取消Excuse方法的调用3.记录集（Recordset）对象“记录集“对象描述来自数据表或命令执行结果的记录集合，其组成为记录（行）。Recordset是在进行中检查和修改数据最主要的方法。常用于指定可以检查的行，移动行，指定移动行的顺序，添加、更改或删除行，通过更改行更新数据源等。下表列出Recordset对象的常用属性和方法。名称说明Ac

6、tiveConn属性tion返回Recordset对象所属的Connection对象Souce属性返回或设置Recordset对象的生成方式；Command对象、SQL语句或存储过程RecordCount属性返回Recordset对象中的记录个数BOF、EOF属性指示当前记录指针位置是否位于首记录前、末记录后Bookmark属性返回或设置Recordset对象中当前记录的书签CursorTyp属性设置或返回Recordset对象中使用的光标类型Filter属性设置Recordset对象中的数据筛选条件Sort属性设置排序字段Open方法打开代表数据库、查询结果等Recordset对象中的记录的

7、光标Move的方法移动Recordset对象中的当前记录指针到指定位置Movefirst、Movelast、Movenext和MovePrevios方法移动Recordset对象中的当前记录指针到首记录、末记录、下一个、上一个Addnew方法为可更新的Recordset对象创建一条新记录Requery方法重新执行生成Recordset对象的查询，以更新其中数据Update方法保存对当前记录的修改Cancelupdate方法取消在调用Update方法之前对当前记录的修改Delete方法删除当前记录或记录组此外，在ADO 编程模型中，Connection、Command、Recordset 和 F

8、ield 对象都具有 Properties 集合。它包含所有属于各个包含对象的 Property 对象。 ADO 对象拥有可在其上使用的诸如“整型”、“字符型”或“布尔型”这样的普通数据类型来设置或检索值的属性。然而，有必要将某些属性看成是数据类型“COLLECTION OBJECT”的返回值。相应的，集合对象具有存储和检索适合该集合的其他对象的方法。1.1.1 ADO 提供执行操作的方式 1、连接到数据源。同时，可确定对数据源的所有更改是否已成功或没有生。2、指定访问数据源的命令，同时可带变量参数，或优化执行。3、执行命令。3、如果这个命令使数据按表中的行的形式返回，则将这些行存储在易于检查

9、、操作或更改的缓存中。 4、适当情况下，可使用缓存行的更改内容来更新数据源。5、提供常规方法检测错误（通常由建立连接或执行命令造成）。在典型情况下，需要在编程模型中采用所有这些步骤。但是，由于ADO 有 很强的灵活性，所以最后只需执行部分模块就能做一些有用的工作。 1.1.2 ADO的特点 ADO是一种可视化、面对对象和调用事件驱动方式的结构高级程序设计，可用于Windows环境下的应用程序，她简单易学、效率高，而且功能强大。总的来说，ADO具有以下特点： 1、 易于使用这是ADO技术的最重要的一个特征。由于ADO是高层应用，所以相对于OLE DB或者ODBC来说，它具有面向对象的特性。同时，

10、在ADO的对象结构中，其对象之间的层次关系并不明显。相对于DAO等访问技术来讲，又不必关心对象的构造顺序和构造层次。对于要用的对象，不必选建立连接、会话等对象，只需直接构造即可，方便了应用程序的编制。 2、 高速访问数据源由于ADO技术基于OLE DB，所以，它也继承了OLE DB访问数据库的高速性。3、 可以访问不同数据源ADO技术可以访问包括关系数据库和非关系数据库的所有文件系统。此特点使应用程序有很多的灵活性和通用性。4、 可以用于Microsoft ActiveX页ADO技术可以以ActiveX控件的形式出现，所以，可以被用于Microsoft ActiveX页，此特征可简化WEB页的

11、编程。5、 程序占用内存少由于ADO是基于组件对象模型（COM）的访问技术，所以，用ADO产生的应用程序占用内存少。1.2 数据库的发展数据库 （data base）为满足某一部门中多个用户多种应用的需要，按照一定的数据模型在计算机系统中组织、存储和使用的互相联系的数据集合。 带有数据库的计算机系统，除具备一般的硬件、软件外，必须有用以存储大量数据的直接存取存储设备、管理并控制数据库的软件数据库管理系统(DBMS)、管理数据库的人员数据库管理员 (DBA)。这样的数据、硬件、软件和管理人员的总体构成数据库系统。数据库仅是数据库系统的一个组成部分。数据库系统的功能和特征 数据库系统由文卷系统发展

12、而来。与文卷系统相比，这种系统具有数据、体系和控制三个方面的主要特征。 数据特征 在文卷系统中虽然程序与数据之间可用存取方法进行转换,但文卷还是与应用程序对应的,即数据仍面向应用。每一应用各自建立自己的一组文卷。不同的应用若涉及相同的数据，则这些数据分别纳入各自的文卷之中。文卷的各种记录之间没有建立联系，因而数据冗余度大。增加新的应用，必须同时增加新的文卷。因此，文卷系统中的文卷是无结构的、不易扩充的信息集合。数据库则不仅描述数据本身，而且描述数据之间的联系。它的数据结构反映了某一部门的整体信息结构，数据冗余度小、易于扩充新的应用，因而是面向数据总体结构的信息集合，可为多个用户共享。 体系特征

13、 一切数据都有逻辑和物理两个侧面。在数据库系统中，数据逻辑结构的描述称为逻辑模式。逻辑模式又分为描述全局逻辑结构的全局模式(简称模式)和描述某些应用所涉及的局部逻辑结构的子模式。数据物理结构的描述称为存储模式。这两种模式总称为数据库模式。 数据库系统中，用户根据子模式编制程序。子模式与模式模式与存储模式之间有软件进行映射。因此,程序与数据之间具有两级独立性：物理独立性和逻辑独立性。数据的存储模式改变，而模式可以不改变，因而不必改写应用程序,这称为物理独立性。模式改变时,子模式可能不改变，也就不必改写应用程序，这称为逻辑独立性。由于数据库系统具备比较高的程序与数据的独立性，可以使程序员在编制应用

14、程序时集中精力考虑算法逻辑，不必过问物理细节，而且可以大大减少应用程序维护的工作量。 控制特征 数据库数据数量庞大，结构复杂，又为多个用户所共享。因此，必须由数据库管理系统在定义、建立、运行以及维护时进行统一管理和控制，以保证数据库数据的安全性、完整性和并发操作的一致性。此外，还必须有数据库管理员专门负责对数据库的管理、控制监督和改进。 由于数据库系统具有上述特征，它的出现使信息系统的研制从围绕加工数据的程序为中心，转变到围绕共享的数据库来进行。这便于数据的集中管理，有利于应用程序的研制和维护。数据减少了冗余度和提高了相容性，从而提高了作出决策的相容性。因此，大型复杂的信息系统大多以数据库为核

15、心，数据库系统在计算机应用中起着越来越重要的作用。 研究课题 数据库研究的课题，主要涉及三个领域。 数据库管理系统软件的研制 DBMS是数据库系统的基础。研制DBMS的基本目标，是扩大功能，提高性能和可用性，从而提高用户的生产率。70年代以来，研制的重点是探索关系数据库管理系统的设计，内容包括关系数据语言、查询优化、并发控制和系统性能等。另一类课题是对DBMS标准化的研究，即研究一个统一的DBMS体系结构的规范。 数据库设计这是在计算机系统具有的数据库管理系统的基础上，按照应用要求以及计算机系统所提供的数据模型和功能，设计一个结构良好、使用方便、效率较高的，以数据库为核心的应用信息系统。这一领

16、域主要的研究课题，是数据库设计方法学和设计工具的探索。例如，运用软件工程的方法和工具指导数据库设计；研究数据库设计各个阶段中完备的方法和工具；以关系数据库的规范化理论为指南进行数据库逻辑设计等。 数据库理论 主要研究关系数据库理论。关系数据库理论研究的意义，一方面在于它为数据库学科奠定了理论基础;另一方面它为数据库设计提供了判别标准,从而成为数据库设计的有力指南。研究的主要内容是关系的规范化理论。关系规范化理论已应用于数据库设计的各个阶段。 发展 数据库技术是计算机科学中发展最快的领域之一，新的领域越来越多。 分布式数据库系统 随着70年代后期分布计算机系统的发展，相应地研究成功分布式数据库系

17、统。分布式数据库系统是一个在逻辑上完整，而在物理上分散在若干台互相连接的结点机上的数据库系统。它既具有分布性又具有数据库的综合性。这是数据库系统发展的一个重要方向。分布式数据库系统结构复杂，其中最复杂的是分布式数据库管理系统。 数据库机器 新的计算机系统的体系结构。它把由中央处理器包办的数据库操作分散给一些局部的部件来执行，或转移到一个与主计算机相连的专用计算机去执行，以提高并行性。数据库机器的发展，包括智能控制器和存储器，专用处理机和数据库计算机。 数据库语义模型 数据库的数据模型基本上属于语法模型，语义体现很不完备，不能明显地含有现实世界的意义。因此，用户只能按照DBMS所提供的数据操纵语

18、言访问数据库。语义模型能准确地描述现实世界中某个部门的信息集合及其意义，使用户能基于对现实世界的认识或用类似于自然语言的形式来访问数据库。这方面的研究已发展为数据语义学。 数据库智能检索 数据库技术和人工智能相结合，根据数据库中的事实和知识进行推理，演绎出正确答案，这就是数据库的智能检索。这涉及到自然语言用户接口、逻辑演绎功能和数据库语义模型等问题，如70年代末所开始的知识库管理系统和演绎数据库的研究。 办公室自动化系统中的数据库 研究在办公室自动化系统中数据库技术的应用，其中主要研究对各种非格式化数据如图像、声音、正文的处理，以及面向端点用户的高级语言接口。 第二章 汽车4S店综合服务系统的

19、分析与设计 进入21世纪以来，随着汽车工业竞争的日趋激烈，计算机的飞速发展，计算机在汽车服务方面发挥着越来越大的作用，利用计算机实现对汽车企业的管理势在必行。对于大中型企业来说，利用计算机支持企业高效完成汽车的销售、查询的日常事物以及了解客户对企业或车辆的信息反馈，只有这样才能适应现代企业的制度要求，才能推动企业走向科学化的必要条件。而在销售、查询、信息反馈方面都是一些琐碎、复杂的工作，销售额的计算，进货库和销售库的管理一般都是不允许出错的，如果实行手工操作，数量大的时候，这不仅耗时，而且不能够快速、准确无误的的算出结果，但是利用计算机进行工作，在这些工作中有着人工无法比拟的优点。例如：管理方

20、便、存储量大、保密性好、成本低等。这些优点极大的提高汽车4S店综合服务系统的开发性和实用前景。2.1系统分析 要设计一个有效的汽车4S店综合服务系统必须做全面的调查，从多方面来对系统进行考虑。重点是数据分析极其处理过程，从系统的分析的调查中获得企业用户对系统的使用要求。包括：1. 功能要求，既要实现什么功能以及怎样实现2. 信息要求，企业用户从数据库中获得的怎样的信息内容3. 安全性和完整性的要求2.2系统的设计使用Visual basic 和ADO对数据库和程序设计语言进行编写和实现。在编写程序过程中，既要考虑程序实现设计功能，同时也要考虑程序的简单性，这样的目的是以便于后来的程序调试和修改

21、。在创立数据库模块时，要从实际从发，必须考虑到每一个模块的实际意义。设计的模块有：2.2.1 进货模块的设计2.2.2 销售模块的设计2.2.3 进货查询模块的设计2.2.4 维修用户模块的查询2.2.5 购车用户添加及查询模块的设计2.2.6车辆维修模块的设计 2.2.7信息反馈模块的设计2.2.8 汽车临配件模块的设计2.2.9 车辆保养模块的设计第三章 系统操作流程图及功能介绍3.1系统功能介绍：1. 车辆进货；2. 车辆销售；3. 车辆进货查询；4. 添加数据记录；5. 信息反馈；6. 车辆维修与保养；3.2系统功能模块图：图3.1 系统功能模块图通过系统模块图，我们可以简单的了解一下

22、系统结构，现在我们对以下的模块（销售管理、车辆资料实体、查询系统、管理系统）做一个简单的了解。以便于我们更好的了解各个模块的功能。图3.2 销售管理实体E-R图图3.3 车辆资料实体E-R图图3.4 查询系统的模块图图3.5 车辆维修系统3.6 数据库管理系统图 图3.7管理系统图第四章 车4S店综合服务系统主体功能说明4. 1 陆界面的说明及功能：系统运行之后，首先呈现您的面前是系统的登陆界面，该界面是由姓名和密码组成，登陆界面如图4.1所示。图4.1 登陆界面进入登陆界面后，单击用户名所对应文本框的下拉列表按钮，将看到有许燕永、张立军、王文凯、石景丰等用户名，每个用户名都有各自所对应的密码

23、，任选一个用户名，如以许燕永为例（其默认密码为1111），在对应的文本框内输入密码，单击确定按钮，即可登陆，进如到轿车4S店主界面。如图4.2所示。图4.2 4S店界面但是如果密码输入错误，将出现如图4.3所示。图4.3 密码错误提示对话框用它来保护系统，使系统具有较高的安全性。点确定后，用户可以重新输入密码。该系统允许输入三次密码，如果用户三次都不能输入正确的密码，则系统认为你为非法用户，试图窃取信息，所以系统会自动弹出“对不起，您无权登陆此系统!”对话框，如图4.4所示。图4.4 登陆失败界面点击确定按钮后自动将用户名文本框、密码文本框变成灰色，成为不可用状态，登陆者只能取消，退出登陆界面

24、。如果用户名和密码都正确，用户就进入到轿车4S店主界面。如图4.2。程序代码如下：Private Sub Command1_Click()Dim b As Boolean, D As String, i As Integer: Static K As Integer D = False: b = False: K = K + 1 Adodc1.Refresh Adodc1.Recordset.MoveLast Print K For i = 1 To Adodc1.Recordset.RecordCount Step 1 Adodc1.Recordset.AbsolutePosition =

25、i i-1 -i If Trim(Adodc1.Recordset.Fields(姓名).Value) = Trim(Combo1.Text) And Trim _ (Adodc1.Recordset.Fields(密码).Value) = Trim(Text1.Text) Then Form1.Hide Form2.Show: K = 0: Exit For Else b = True End If Next i If K = 1 Or K = 2 Then D = MsgBox(您的密码错误，请从新输入!, 32, 密码错误) End If If K = 3 Then D = MsgBox

26、(警告!你输入的信息有三次不正确!, 32, 密码错误) Combo1.Enabled = False: Text1.Enabled = False End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub4.1.1登陆界面的设计和实现： 用户的登陆界面是进入应用系统的舌喉，在安全性方面占有重要的地位，是系统安全、稳定、正常运行的关键，同时为了能够真正的吸引操作人员的眼球，让他们感到舒服，美观也是很重要的，所以对登陆界面进行美观设置。1. 图案设置：为了美化登陆界面，首先在工具箱中选择Image控件，把它拖到窗口上，然后Image的属性

27、栏上使用Picture属性。 2. 控件分布：主要包括5个Label控件，它们的Caption属性分别为用户名、密码、指导老师、制作人、时间显示，其他属性为默认值；一个Textbox控件;一个Combo控件; 一个Adodc控件,两个CommandButton控件,它们的属性分别为确定、取消。 3.控件功能：【确定】命令按钮，首先它是判断用户名和密码是否一致，如果不一致则出现用户提示信息-“您的密码错误，请重新输入！”，如果用户名和密码一致，操作人员则可以打开主界面，进入系统进行以后的相关操作。【取消】命令按钮则是退出登陆系统。4.2 轿车销售界面系统主界面包括了整个应用程序的概况，其上面显示

28、的所有功能也就是该系统的所有功能，也是操作人员可以操作的所有显示，它是该系统的母体，如图4.2所示。在系统主界面上，有五个功能键，分别为车辆销售、汽车零配件、维修服务、信息反馈和退出，意识先各自的功能。1.图案设置：美化界面，在工具箱上选择Image控件，把它拖到窗口上，然后在在工具箱上选择Image属性栏中使用Picture属性导入图片。2. 控件分布：主要包括一个Label控件，它的Caption属性为欢迎您到汽车4S界面，5个CommandButton控件,它们的属性分别为车辆销售，汽车零配件，维修服务，信息反馈和返回。单击轿车销售按钮，会显示出轿车销售界面，在轿车销售界面上有六个功能键

29、，一个Label控件，它的Caption属性为欢迎您到汽车销售系统，5个CommandButton控件, 它们的Caption属性分别为进货，销售，查询，网络连接和退出。如图4.5 所示。程序代码：Private Sub Command1_Click()Form4.ShowForm2.HideEnd SubPrivate Sub Command5_Click()Form2.HideForm1.ShowEnd Sub4.2.1 进货界面在汽车销售系统中，单击进货按钮，您就可以进入到进货界面，该界面有多个Label控件和所对应的多个Text控件，两个CommandButton控件，它们的Capti

30、on属性分别为进货和取消，还有1个DataGrid控件。如图4.6所示。程序代码：Private Sub jinhuo_Click() Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(车辆序号).Value = Text1.Text Adodc1.Recordset.Fields(车辆品牌).Value = TextName.Text Adodc1.Recordset.Fields(进货数量).Value = TextSL.Text Adodc1.Recordset.Fields(车辆型号).Value = Text

31、CX.Text Adodc1.Recordset.Fields(进价（万元/辆）).Value = Texta.Text Adodc1.Recordset.Fields(进货日期).Value = TextRQ.Text Adodc1.Recordset.Fields(备注).Value = TextBZ.Text Adodc1.Recordset.Fields(车辆生产商).Value = Text2.Text Adodc1.Recordset.Fields(查看此车辆信息).Value = Text9.Text Adodc1.Recordset.Update Adodc1.RefreshE

32、nd SubPrivate Sub Command2_Click()Form5.HideForm4.ShowEnd SubPrivate Sub Command1_Click()Form4.ShowForm2.HideEnd SubPrivate Sub Command5_Click()Form2.HideForm1.ShowEnd SubPrivate Sub Command5_Click()Form2.HideForm1.ShowEnd Sub 图4.6 轿车进货界面1） 首先，进货人员填写进货清单，它包括车辆序号、汽车生产商、车辆品牌、车辆型号、进货数量、进价（万元/辆）、进货日期、备注

33、、查看此车辆信息，然后单击“进货”按钮，就可以完成该次进货操作，并且自动添加到库存清单中。同时，库存清单也会作相应的变动。如图4.7所示。 点击进货按钮之后，库存清单也做相应的变化，如图4.8所示。图4.7 添加进货界面图4.8 库存变化界面图4.5 销售系统界面4.2.3 销售界面在汽车销售系统中，单击销售按钮，您就可以进入到销售界面，该界面有多Label控件和所对应的多个Text控件，4个CommandButton控件，它们的Caption属性分别为确认售出，结算，清空和返回，还有3个DataGrid控件。如图4.9所示。程序代码：Private Sub Command1_Click()D

34、im i As Integer, j As Integer, K As IntegerDim SUM As Integer: Dim temp As Boolean If Text1 = Or Text2 = Then MsgBox 请输入车辆序号！, vbOKOnly + vbExclamation, 警告 End If If Len(Text1.Text) 4 Then MsgBox 车辆序号为4位！, vbOKOnly + vbExclamation, 警告 End If Adodc1.Refresh Adodc1.Recordset.MoveLast 改变库存 Print Adodc1

35、.Recordset.RecordCount For i = 1 To Adodc1.Recordset.RecordCount Step 1 Adodc1.Recordset.AbsolutePosition = i i-1 -i If Trim(Adodc1.Recordset.Fields(车辆序号).Value) = Trim(Text1.Text) Then Adodc1.Recordset.Fields(进货数量).Value = Val(Adodc1.Recordset.Fields(进货数量).Value) - Val(Text9.Text) Adodc1.Recordset.

36、Update Adodc1.Refresh 若无此句，则不会马上改变数量，即关闭后再打开才有效 End If Next i 进入顾客销售库If Adodc2.Recordset.RecordCount Then For K = 1 To Adodc2.Recordset.RecordCount Adodc2.Recordset.AbsolutePosition = K If Trim(Adodc2.Recordset.Fields(车辆序号).Value) = Trim(Text1.Text) Then Adodc2.Recordset.Fields(出售数量).Value = Val(Ado

37、dc2.Recordset.Fields(出售数量).Value) + Val(Text9.Text)Else Adodc2.Refresh Adodc2.Recordset.AddNew Adodc2.Recordset.Fields(车辆序号).Value = Text1.Text Adodc2.Recordset.Fields(车辆品牌).Value = Text3.Text Adodc2.Recordset.Fields(车辆型号).Value = Text4.Text Adodc2.Recordset.Fields(出售数量).Value = Text9.Text Adodc2.Re

38、cordset.Fields(售价（万元/辆）).Value = Text11.Text Adodc2.Recordset.Fields(销售日期).Value = Date Adodc2.Recordset.UpdateEnd IfNext K Else Adodc2.Refresh Adodc2.Recordset.AddNew Adodc2.Recordset.Fields(车辆序号).Value = Text1.Text Adodc2.Recordset.Fields(车辆品牌).Value = Text3.Text Adodc2.Recordset.Fields(车辆型号).Valu

39、e = Text4.Text Adodc2.Recordset.Fields(出售数量).Value = Text9.Text Adodc2.Recordset.Fields(售价（万元/辆）).Value = Text11.Text Adodc2.Recordset.Fields(销售日期).Value = Date Adodc2.Recordset.UpdateAdodc2.Refresh End If进入总销售库 temp = False Adodc3.Refresh For j = 1 To Adodc3.Recordset.RecordCount Adodc3.Recordset.A

40、bsolutePosition = j If Trim(Adodc3.Recordset.Fields(车辆序号).Value) = Trim(Text1.Text) And _ Trim(Adodc3.Recordset.Fields(销售日期).Value) = Trim(Text11.Text) Then Adodc3.Recordset.Fields(出售数量).Value = Val(Adodc3.Recordset.Fields(出售数量).Value) + Val(Text9.Text) temp = True Adodc3.Recordset.Update Text1.Text

41、 = Text2.Text = Text3.Text = Text4.Text = Text9.Text = Text10.Text = Text11.Text = Text12.Text = Text13.Text = Adodc3.Refresh End IfNext j If Not temp Then Adodc3.Refresh Adodc3.Recordset.AddNew Adodc3.Recordset.Fields(车辆序号).Value = Text1.Text Adodc3.Recordset.Fields(车辆生产商).Value = Text2.Text Adodc3

42、.Recordset.Fields(车辆品牌).Value = Text3.Text Adodc3.Recordset.Fields(车辆型号).Value = Text4.Text Adodc3.Recordset.Fields(出售数量).Value = Text9.Text Adodc3.Recordset.Fields(售价（万元/辆）).Value = Text11.Text Adodc3.Recordset.Fields(销售日期).Value = Date Adodc3.Recordset.Fields(备注).Value = Text12.Text Adodc3.Records

43、et.Fields(查看此车辆信息).Value = Text13.TextAdodc3.Recordset.UpdateAdodc3.Refresh End If Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text9.Text = Text10.Text = Text11.Text = Text12.Text = Text13.Text = End SubPrivate Sub Command2_Click() Dim i As Integer,Dim SUM As Single For i = 1 To Adodc2.Recor

44、dset.RecordCount Adodc2.Recordset.AbsolutePosition = i SUM = SUM + Val(Adodc2.Recordset.Fields(售价（万元/辆）) * Val(Adodc2.Recordset.Fields(出售数量)Next i Label18.Caption = 共需金额 & SUM & 万元人民币End SubPrivate Sub Command4_Click()Dim j As Integer, b As Integer, i As IntegerAdodc2.RefreshAdodc2.Recordset.MoveLastFor j = 1 To Adodc2.Recordset.RecordCount Adodc2.Recordset.MoveLastAdodc2.Recordset.DeleteAdodc2.RefreshNext jLabel18.Caption = Adodc2.RefreshEnd SubPrivate Sub Command5_Click()Form6.HideForm4.Show