电子商务数据库技术实践示例轿车销售管理--毕业论文.doc

沈阳工业大学
《电子商务数据库课程设计》报告

轿车销售管理系统设计

学 院: 工程学院
专业班级： 电子商务0801
学生姓名：
学 号：
日 期： 2010年12月22日

电子商务数据库技术实践任务书
学院：工程学院
题目名称：轿车销售管理系统设计
分组情况
电子商务0801班12-23号
课程设计地点
3-A209
时间
第17周
课程设计的目的和意义：
随着我国经济的发展和国民生活水平的提高，国内轿车产业迅猛发展，民众对轿车的需求日益增多，也因此产生了很多轿车销售公司。
在轿车销售公司里，往往需要处理各种品牌型号轿车的销售查询工作，销售人员的管理工作等等。这些工作如果只靠人工实现，不仅工作量大，而且容易出现错误，造成管理上的混乱。因此，制作一套轿车销售管理系统能够提高轿车销售公司的管理水平、工作效率、服务质量，降低销售成本，最终提高公司的市场竞争力
本题目可综合考查学生对VB和SQL Server数据库的掌握程度，对主键的设置、信息的存储、VB和SQL的连接等知识点做重点考查。
课程设计的主要内容及需达到的目标和参数：
轿车销售管理系统主要实现对轿车信息、客户信息和员工信息的管理。具体要实现的功能包括：
（1）系统用户的管理功能。用户根据姓名和密码登录系统。登录用户分两个等级：普通用户和管理员用户。普通用户只有查看轿车信息、客户信息、员工信息等功能；管理员用户（Admin）除了以上功能外，同时还有添加用户、修改用户密码和删除用户的功能。
（2）轿车信息管理功能。录入所销售的轿车的编号、型号、品牌、价格、保修期等信息，同时支持对轿车信息的添加、修改、删除和查询功能。
（3）客户信息管理功能。录入购买轿车的客户的姓名、性别、年龄、联系方式、所购车型号、购车价格等信息，同时支持对客户信息的添加、修改、删除和查询功能。
（4）员工信息管理功能。录入员工的员工号、姓名、性别等信息，同时支持对员工信息的添加、修改、删除和查询功能。
完成课程设计的条件和方法：
本题目在计算机上完成。使用VisualBasic 6.0和SQL Server2000建立完成一个简单的轿车销售管理系统。
本题目需参加者独立完成，提交本人编制完成的软件代码及课程设计报告。
课程设计报告的要求：
根据本题目的特点，课程设计报告需包括以下内容：
（1）系统分析与系统设计。包括用户的需求分析和系统设计，系统设计主要描述软件系统和数据库系统的体系结构和各部分功能模块的划分。
（2）数据库的设计与实现。主要介绍数据库的设计、数据库的实现和数据库连接及数据源的设置方法。
（3）应用程序设计与实现。主要包括系统的总体设计和各程序模块的程序设计。
指导教师： 2010年12月17日

目 录
第一章 系统分析与设计 4
1.1用户需求与分析 4
1.1.1 用户需求与分析 4
1.1.2功能需求 4
1.1.3运行需求 5
1.2.4需求软件简介 5
1.2系统的功能模块设计 6
1.2.1 系统用户管理模块 7
1.2.2 轿车信息管理模块 7
1.2.3 客户信息管理模块 8
1.2.4 员工信息管理模块 8
1.2.5 退出销售系统模块 8
第二章 数据库的设计及实现 9
2.1数据库设计 9
2.1.1 数据库的模型图 9
2.1.2 数据库详细设计 11
2.2数据库的实现 12
2.3 数据库的安全性 12
2.4 设置ODBC数据源 12
第三章 应用程序的设计与实现 12
3.1 系统总体设计 12
3.1.1用户登录模块设计 12
3.1.2 系统主界面 12
3.1.3 系统用户模块实现 12
3.1.4 轿车信息管理模块实现 12
3.1.5 客户信息管理模块实现 12
3.1.6 员工信息管理模块实现 12
结 论 12

第一章 系统分析与设计
1.1用户需求与分析
1.1.1 用户需求与分析
汽车工业经历了上百年的发展，时至今日已经成为很多国家的支柱产业。随着人们生活水平的提高与汽车性能的发展，人们对汽车的需求量也越来越大，由此众多汽车生产制造商纷纷都加大了投资。近几年一种介于制造商与购买者之间桥梁形式的汽车销售公司也日渐发展壮大。
每个汽车销售公司都有管理、计划、销售、财务、配件、售后服务等职能部门。怎样管理好这些部门，怎样整个公司协调一致、高效率地运转，是很多公司急待解决的问题。但很多业务人采用人工操作的方法，既容易出错又会导致账目混乱，查询和统计非常不方便，甚至会给公司造成巨大损失。像这样初级的公司管理方法，已远跟不上销售政策和销售形势发展的需要。因此，如何对汽车销售管理提供一整套的管理方法达到提高效率和降低成本的问题成为焦点。汽车销售管理系统的提出，对汽车销售公司来讲意义重大。它不但能使各业务环节协调一致，而且操作简单，账目清晰，通过账目查询，公司能在最短的时间内获得市场信息，从而制订相应的决策。
我们设计的汽车销售管理信息系统能够让汽车销售商对销售业务流程进行全面并且系统的管理。管理规范，控制集中，能够解决传统管理中档案资料容易遗失不便管理的问题。因此以下需求是必须满足的：
1. 使得各销售业务流程间紧密连接，数据共享。
2. 为系统提供数据支持。
3. 使不同级别的用户拥有不同级别的使用权限，保证的系统数据的安全性4. 保证整个系统的稳定性与安全性。
5. 通过后台管理用户名和密码。
6. 系统退出。
1.1.2功能需求
首先将汽车信息入库，然后销售商通过与客户的交易活动，将相关信息存入库，然后经销商通过销售信息的查询获得汽车销售的盈亏情况，通过库存查询获

得公司目前的库存情况。由此可分析系统需要达到以下目标：
1. 能很好地完成汽车的售前管理。售前管理包括供应商信息，需求商信息和汽车基本信息的入库作业。
2. 能详细地记录汽车供应商和公司之间的交易过程，即进货或退货过程。
3. 能详细地记录需求商与公司之间的交易过程，即订车和退车过程。
4. 能及时准确地获得汽车在某阶段的盈亏情况和市场的需求走势。即通过对汽车销售排行、汽车进货、汽车退货、订车、退车等信息查询获得相应的结果，以备公司作为参考，从而制定出相应的策略。
5. 能够对各种经济结算进行相应的记录。包括对进货结帐，退货结帐，订车结帐，退车结帐等。
6. 能够对不同权限的用户进行合理的管理。包括添加用户，删除用户，用户账号和密码管理等。
1.1.3运行需求
本系统的运行环境如下：
1.硬件环境
处理器：Inter Pentium 4 2.0G或更高
内存：512M(推荐)
硬盘空间：80GB及以上
2.软件环境
OS：Windows XP
SoftWare：Microsoft Visual Basic 6.0
DataBase：Microsoft SQL Server 2000
1.2.4需求软件简介
SQL server 2000 简介
微软公司新推出的SQL Server 2000扩展了SQL Server 7.0版的性能，加强了可靠性，提高了质量和易用性。SQL Server 2000增加了多种新的功能，由此成为大规模联机事物处理（OLTP）、数据库和电子商务应用程序的优秀数据平台，它包含服务器组件和客户端工具。

服务器组件
SQL Server的服务器组件是以Windows服务（Windows Services）方式运行的。一般认为SQL Server包含四种Windows服务，分别是：MS SQL Server、DTC Distributed Transaction Coordinator、SQL Server Agent、Search Service。
MS SQL Server是最常用的服务，一般的数据库功能都是由它提供的，例如文件管理、查询处理、数据存储等；DTC是分布式事务协调器，支持跨越两个或多个服务器的更新操作来保证事务的完整性；SQL Server Agent负责SQL Server 自动化工作，如果需要SQL Server 在指定时间执行某一个存储过程，就需要用到这个服务了，Search Service是全文查询服务，负责全文检索方面的工作。

客户端工具
SQL Server 2000 的核心是服务器组件，但用户直接接触的却不是它们，而是客户端工具。服务器组件是引擎，客户端工具是用户界面，两者是相辅相成的。
SQL Server 2000 的客户端共有企业管理器、查询分析器、事件探查器、服务管理器、客户端网络实用工具、服务器网络实用工具、导入和导出数据（DTS）等等。
服务器组件与客户端工具功能上是配套的，客户端工具需要用最简单的形式表达最丰富的服务器组件的功能。服务器组件和客户端工具物理上是离散的，客户端工具要与服务器组件连通，需要一些用于通讯的动态链接库，SQL Server 2000 的通讯库支持多种网络协议，例如TCP/IP、命名管道等。

1.2系统的功能模块设计
经过分析，将系统划分为5个模块，分别是系统用户管理模块、轿车信息管理模块、客户信息管理、员工信息管理和退出系统，，其功能结构如图1-1所示，下面针对各模块的功能进行详细说明。

图1-1 系统功能模块结构图
1.2.1 系统用户管理模块
该模块主要管理添加用户、修改密码和用户管理。该功能仅限于系统管理员系统管理员担负着整个系统的维护和管理工作，负责所有用户信息的管理，系统管理员登陆后可进行用户的添加、删除修改密码等操作。
1.2.2 轿车信息管理模块
本模块主要负责车辆信息的录入和管理。该数据库表存储了车辆的基本信息，对表中数据进行添加、修改、删除就能及时更新数据，保证数据的准确性。
轿车信息的管理包括编号、型号、品牌、价格和保修期等的录入、修改、添加和删除功能。增加轿车信息功能仅限于管理员。
本模块的查询功能可以实现对公司所有的汽车状态的查询，并且可以通过型号、品牌、价格中的单个条件或多个组合条件进行搜索，条件越多搜索越精确，反之则搜索的范围越广。
1.2.3 客户信息管理模块
本模块主要负责客户信息的查看、修改、删除和添加管理。该数据库中存储了客户的基本信息，对改数据库进行修改、删除和添加管理就能完成对客户实时资料的更新，保证了数据库的准确性。增加客户信息功能仅限于管理员。
客户信息的管理包括顾客姓名、性别、年龄、职业、证件号码、电话、住址、车辆型号、价格的录入、修改、添加和删除功能。
该模块的查询功能可以实现对公司所有客户信息的查询，并且可以通过姓名、性别、年龄、职业中的单个或者多个组合条件进行搜索，条件越多越精确，反之范围越广。
1.2.4 员工信息管理模块
员工信息管理模块收录了公司所有员工的信息数据。登陆后可对数据库进行查看、修改、添加、删除等操作。实时更新本数据库可确保数据的准确性。修改、删除和增加员工信息等功能仅限于管理员权限。
员工的信息管理包括员工姓名、性别、生日、电话、住址、进公司时间、所在部门和员工职务。
该模块的查询功能可以实现对公司所有员工信息的查询，并且可以通过姓名、时间、部门、职务中的单个或者多个组合条件进行搜索，条件越多越精确，反之范围越广。
1.2.5 退出销售系统模块
用户操作完毕后可选择从本模块退出销售管理系统。
第二章 数据库的设计及实现
2.1数据库设计
2.1.1 数据库的E-R图
针对一般汽车销售管理信息系统的需求，通过对轿车销售管理过程的内容和流程分析，设计如下面所示的数据项和数据结构：
用户信息，包括的数据项有：用户名、用户密码、用户类型。
轿车信息，包括的数据项有：编号、型号、品牌、价格、保修期、备注。
客户信息，包括的数据项有：顾客姓名、性别、年龄、职业、证件号码、电话、住址、车辆型号、价格、备注。
员工信息，包括的数据项有：姓名、性别、生日、进入公司的时间、部门、职务、电话、地址。

各个实体具体的描述E-R图如图2-1至2-4所示。
图2-1 系统用户实体E-R图

图2-2 轿车信息E-R图

图2-3客户信息E-R图

图2-4 员工信息E-R图

实体间关系E-R图

系统用户（用户编号，用户名，用户类型）
轿车信息（轿车编号，型号，价格，品牌）
客户信息（客户编号，客户姓名，客户地址）
员工信息（员工编号，员工姓名，员工地址）
2.1.2 数据库详细设计
通过分析该信息系统所用到的表单如表2-5至2-5图所示
用户数据表信息包含用户名的添加和密码的修改。主键为用户编号。用户管理数据表结构详细设计如表2-5所示。

表2-5 用户管理信息数据表结构（User的结构）
列名
数据类型
长度
主键否
描述
Userid
int
4
是
用户编号
username
varchar
50
否
用户名
userpwd
varchar
50
否
密码

轿车信息数据表包含轿车的编号、型号、品牌、价格、保修期、备注等。主键为汽车编号。轿车信息数据表详细设计如表2-6所示。

表2-6 轿车信息管理数据表结构（Car的结构）
列名
数据类型
长度
主键否
描述
Car_id
int
4
是
汽车编号
Car_name
varchar
20
否
汽车名称
Car_brand
varchar
20
否
汽车品牌
Car_price
int
4
否
汽车价格
Car_time
varchar
10
否
保修时间
Car_info
varchar
100
否
备注

客户信息数据表包含顾客姓名、性别、年龄、职业、证件号码、电话、住址、车辆型号、价格、备注。主键为客户编号。客户信息数据表详细设计如表2-7所示。

表2-7 客户信息数据表结构（customer的结构）
列名
数据类型
长度
主键否
描述
Custmoer_id
int
4
是
客户编号
Custmoer_name
varchar
10
否
客户姓名
Custmoer_sex
varchar
2
否
客户性别
Custmoer_age
int
4
否
客户年龄
Custmoer_occup
varchar
10
否
客户职业
Custmoer_num
varchar
20
否
证件号码
Custmoer_tel
varchar
10
否
客户电话
Custmoer_addr
varchar
20
否
客户住址
Buy_car
varchar
20
否
购买汽车
Buy_price
varchar
10
否
购买价格
info
varchar
100
否
备注

员工信息数据表包含姓名、性别、生日、进入公司的时间、部门、职务、电话、地址。主键为员工编号。员工信息数据表详细设计如表2-8所示。

表2-8 员工信息数据表结构（staff的结构）
列名
数据类型
长度
主键否
描述
Staff_id
int
4
是
员工编号
Staff_neme
varchar
10
否
员工姓名
Staff_sex
varchar
2
否
员工性别
Staff_birth
ditetime
8
否
员工生日
Staff_intime
ditetime
8
否
进入公司时间
Staff_depart
varchar
10
否
所属部门
Staff_title
varchar
10
否
职务
Staff_tel
varchar
10
否
员工电话
Staff_addr
varchar
20
否
员工住址

2.2数据库的实现
进入SQL server2000，在数据库中新建数据库“CarSaleSys”然后根据数据库表单设计建立数据表，具体如图2-9至2-16所示。
用户管理信息数据表建立如图2-9。

图2-9用户管理信息数据表建立
用户管理信息数据表实现如图2-10

图2-10 用户管理信息数据表实现。

轿车信息数据表建立如图2-11所示。

图2-11 建立轿车信息数据表

轿车信息数据表实现如图2-12所示。

图2-12轿车信息数据表实现

客户信息数据表建立如图2-13所示。
图2-13 建立客户信息数据表

客户信息数据表实现如图2-14所示。
图2-14 客户信息数据表实现

员工信息数据表建立如图2-15所示。
图2-15 建立员工信息数据表

员工信息数据表实现如图 2-16 所示。
图2-16 员工信息数据实现
2.3 数据库的安全性
数据库的安全性主要是指保护数据库，防止因为用户非法使用数据库而造成数据泄漏。共享数据库中的数据必须在数据管理系统同意严格控制之下，只允许有合法使用权限的用户访问允许其存取的数据。
只有注册到数据库管理系统上，才可以访问其中的数据对象。数据库管理系统有一套创建和管理各种级别用户的机制，不通的用户在数据库管理系统中有不通的权限。数据库管理系统利用用户名来识别具体的用户，利用口令来识别用户的真伪，只有合法用户的用户名和口令才能进入数据库系统。
图2-17 数据库账户设置

2.4 设置ODBC数据源
VB通过ADO连接SQL Server数据库可以分为有源数据库连接和无源数据库连接，区别它们看是否使用了DSN（数据源名称）来决定。

1.源数据库的连接
数据库连接的首要任务是要注册数据源名称（DSN），通过配置ODBC环境，进行数据源的注册，然后才能在对数据库编程时，对数据源进行连接、访问和操作。

2.创建有源数据库连接
创建数据源是进行有源数据库连接的第一步，下面同样是运用ADO对象模型的主要元素Connection（连接）进行源数据库连接。
ConnectionString是Connection对象的属性名称，提供数据提供者或服务提供者打开到数据源的连接所需要的特定信息，包括Database、DSN、UID等。
（1）Database：字符串表达式，指定服务器上的数据库名称。
（2）UID：字符串表达式，为ODBC数据源指定用户标识（用户账号名）。
（3）PWD：字符串表达式，为ODBC数据源指定用户口令。
（4）DSN：字符串表达式，指定连接的ODBC 数据源名称。
利用已配置好的ODBC数据源进行连接。
打开管理工具进入数据源设置，添加SQL server设置数据源名称为CarSaleSys。选择使用用户输入登陆ID和密码的SQL server验证并设置登陆ID 和密码。将默认数据库设置为CarSaleSys并且选择服务器。具体操作如图2-18至2-23所示

图2-18 进入数据源管理器

图2-19 创建SQL server数据源

图2-20 设置数据源名称并选择服务器

图2-21 设置数据库验证方式与登陆密码

图2-22 更改默认数据库

图2-23 设置数据源完成
第三章 应用程序的设计与实现
3.1 系统总体设计
3.1.1用户登录模块设计
用户登录主要用于验证用户登录系统时输入的用户名、密码和验证码是否正确，只有合法的用户才可以进入系统，否则将不能进入此系统，该系统登录页面的运行效果如图3-1所示。

图3-1 系统登录界面

系统登录设计流程图如图3-2所示。

图3-2 登陆流程设计图
系统登录设置代码如下：

Private Sub cmdOk_Click()
'静态常量intLogTimes用于保存用户请求验证的次数
Static intLogTimes As Integer
intLogTimes = intLogTimes + 1 '保存登录次数
If intLogTimes > MaxLogTimes Then
'超过允许的登录次数，显示提示信息
MsgBox "你已经超过允许的登录验证次数！" & vbCr _
& "应用程序将结束！", vbCritical, "登录验证"
End '结束应用程序
Else
Drug_Store.rsSysUsers.Open '打开纪录集
With Drug_Store.rsSysUsers '检验用户名和口令的合法性
If .RecordCount > 0 Then
.MoveFirst
.Find "编号='" & Trim(txtLog(0)) & "'"
If .EOF Then
MsgBox "编号：" & Trim(txtLog(0)) _
& "不是系统用户编号，请修改编号重试！", vbCritical, "登录验证"
txtLog(0).SetFocus
txtLog(0).SelStart = 0
txtLog(0).SelLength = Len(txtLog(0))
ElseIf .Fields("口令") <> Trim(txtLog(1)) Then
MsgBox "口令错误，请重新输入口令！", vbCritical, "登录验证"
txtLog(1).SetFocus
txtLog(1) = ""
Else
CurrentUserNumber = .Fields("编号")
CurrentUserPassword = .Fields("口令")
CurrentUserStatus = .Fields("权限")
MsgBox "欢迎使用汽车管理系统！", vbInformation, "登录成功"
Unload Me
SystemMain.Show
End If
End If
End With
Drug_Store.rsSysUsers.Close '关闭纪录集
End If
End Sub

3.1.2 系统主界面
当登录成功后，就会进入如图3-3的主界面。首页主要由两大部分组成，第一部分是功能导航区，第二部分是操作区。

图3-3 系统主界面

系统主界面代码设计如下：
Public User As String
Public usertype As Integer

Private Sub Form_Load()
Frm_login.Show 1
End Sub

Private Sub Menu_addCar_Click()
Frm_addCar.Show
End Sub

Private Sub Menu_addCus_Click()
Frm_addCus.Show
End Sub

Private Sub Menu_addEmp_Click()
Frm_addEmp.Show
End Sub

Private Sub Menu_addUser_Click()
Frm_addUser.Show
End Sub

Private Sub Menu_Exit_Click()
Unload Me
End Sub

Private Sub Menu_edit_Car_Click()
Frm_edit_Car.Show
End Sub

Private Sub Menu_edit_Cus_Click()
Frm_edit_Cus.Show
End Sub

Private Sub Menu_edit_User_Click()
Frm_edit_User.Show
End Sub

Private Sub Menu_modiEmp_Click()
Frm_edit_Emp.Show
End Sub

Private Sub Menu_queCar_Click()
Frm_queCar.Show
End Sub

Private Sub Menu_queCus_Click()
Frm_queCus.Show
End Sub

Private Sub Menu_queEmp_Click()
Frm_queEmp.Show
End Sub
3.1.3 系统用户模块实现
系统用户信息管理只要用于添加用户、修改删除密码。添加信息如图3-4所示。

图3-4添加系统用户

该模块设计执行代码如下：
Private Sub Cmd_Cancel_Click()
Unload Me
End Sub

Private Sub Cmd_OK_Click()
Dim usertype As Integer

'数据有效性检查
If txtUser = "" Then
MsgBox "请输入用户名"
txtUser.SetFocus
Exit Sub
End If

Adodc1.RecordSource = "SELECT * FROM Users WHERE User_name = '" + Trim(txtUser.Text) + "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF = False Then
MsgBox "已经有此用户，请重新输入"
txtUser.SetFocus
Exit Sub
Else
If txtPwd = "" Then
MsgBox "请输入密码"
txtPwd.SetFocus
Exit Sub
End If

If txtSurePwd = "" Then
MsgBox "请确认密码"
txtSurePwd.SetFocus
Exit Sub
End If

If Option1 = True Then
usertype = 0
ElseIf Option2 = True Then
usertype = 1
Else
MsgBox "请选择用户类型"
Exit Sub
End If

If Len(txtPwd) < 6 Then
MsgBox "密码长度不能小于6"
txtPwd.SetFocus
txtPwd.SelStart = 0
txtPwd.SelLength = Len(txtPwd)
Exit Sub
End If

If txtPwd <> txtSurePwd Then
MsgBox "密码和确认密码不相同，请重新确认"
txtSurePwd.SetFocus
txtSurePwd.SelStart = 0
txtSurePwd.SelLength = Len(txtSurePwd)
Exit Sub
End If

'增加新用户
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0).Value = Trim(txtUser.Text)
Adodc1.Recordset.Fields(1).Value = Trim(txtPwd.Text)
Adodc1.Recordset.Fields(2).Value = usertype

Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox "用户增加完成"
Unload Me
End If

End Sub
3.1.4 轿车信息管理模块实现
轿车信息管理模块主要用于查看轿车信息、修改/删除轿车信息、增加轿车信息具体操作图3-5至3-7所示。

图3-5按条件查询轿车

图3-6 修改/删除轿车信息

图3-7 增加轿车信息

该模块设计执行代码如下：
Private Sub Cmd_add_Click()
Dim txtId As Integer

Adodc1.RecordSource = "SELECT * FROM Car Order by Car_id desc"
Adodc1.Refresh
If Adodc1.Recordset.EOF = True Then
txtId = 1
Else
txtId = Adodc1.Recordset.Fields(0) + 1
End If

If txtBrand.Text = "" Then
MsgBox ("请输入汽车品牌")
Exit Sub
End If

If txtPrice.Text = "" Then
MsgBox ("请输入汽车价格")
Exit Sub
End If

If txtName.Text = "" Then
MsgBox ("请输入汽车型号")
Exit Sub
End If

If txtTime.Text = "" Then
MsgBox ("请输入汽车保修期")
Exit Sub
End If

'增加新车
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0).Value = Val(txtId)
Adodc1.Recordset.Fields(1).Value = Trim(txtName.Text)
Adodc1.Recordset.Fields(2).Value = Trim(txtBrand.Text)
Adodc1.Recordset.Fields(3).Value = Val(Trim(txtPrice.Text))
Adodc1.Recordset.Fields(4).Value = Trim(txtTime.Text)
Adodc1.Recordset.Fields(5).Value = Trim(txtInfo.Text)

Adodc1.Recordset.Update
Adodc1.Refresh
MsgBox "汽车信息增加完成"
Unload Me
End Sub

Private Sub Cmd_Cancel_Click()
Unload Me
End Sub
3.1.5 客户信息管理模块实现
客户信息管理模块主要用于查看客户信息、修改/删除客户信息、增加客户信息具体操作图3-8至3-10所示。

图3-8 查询客户信息

图3-9 修改/删除客户信息

图3-10 添加客户信息

该模块的具体设计执行代码如下：
Private Sub Cmd_add_Click()

Dim txtId As Integer

Adodc1.RecordSource = "SELECT * FROM Customer Order by Customer_id desc"
Adodc1.Refresh
If Adodc1.Recordset.EOF = True Then
txtId = 1
Else
txtId = Adodc1.Recordset.Fields(0) + 1
End If

If cus_name = "" Then
MsgBox ("请输入客户名字")
Exit Sub
End If

If buycar_name = "" Then
MsgBox ("请输入汽车型号")
Exit Sub
Else
Adodc1.RecordSource = "select * from Car where Car_name = '" + Trim(buycar_name)
If Adodc1.Recordset.BOF = False Then
MsgBox ("没有的输入汽车型号")
buycar_name.SetFocus
End If

End If

If buyc