2023年汽车汽车专卖店零配件仓库管理系统

目录

摘要...............................................................3

Abstract.................................................................3

1绪论.............................................................4

24S店汽车零配件仓库管理系统分析..................................5

2.1汽车4S店业务流程分析.......................................5

2.2关于数据库..................................................5

2.3系统运行环境................................................6

3.管理软件设计......................................................9

3.1功能设计..................................................9

3.2模块结构设计................................................9

3.3程序流程图...............................................10

3.4数据库设计...............................................12

4.仓储管理软件的设计..............................................14

4.1界面的设计................................错误!未定义书签。

4.2仓储管理软件安全性的设计...................................25

5系统测试........................................................26

5.1测试项.....................................................26

5.2测试条件....................................................26

6.结论............................................................28

总结与体会........................................................30

致谢............................................................31

参考文献..........................................错误!未定义书签。

附录..............................................................32

4S店汽车零配件仓储管理系统

摘要

4S店汽车零配件仓储管理系统能够正确有效地完成仓库管理的日常工作，

从而实现用户能够快速的进行汽车零配件仓储管理。4S店汽车零配件仓储管理

系统包括需求分析、系统功能、系统设计、程序设计、系统测试及存在问题等方

面，详细地介绍了“4S店汽车零配件仓库管理系统”设计开发的整个过程。

4s店汽车零配件仓储管理系统采用VisualBasic作为开发工具，后台数据

采用Access数据库设计，利用ADO数据库访问实现各种功能。

关键词：零部件管理；数据库；管理系统；VisualBasico

4SCar'sPartsStorageManagementSystem

Abstract

4Scar'spartsstoragemanagementsystemcanabletocorrectlyandeffectively

accomplishthedailyworkofstoragemanagement,enablinguserstoquicklycar's

partsstoragemanagement.4Scar'spartsstoragemanagementsystemincludes

requirementanalysis,systemfunction,systemsdesign,programmingandthesystem

testsandexiststheaspectssuchasquestionetc,andsystematicallyintroducedthe

wholecourseof“4Scar'spartsstoragepartsmanagementsystem"subject

development.

4Scar'spartsstoragemanagementsystemusingVisualBasicasadevelopment

tool,thebackgrounddatausingtheAccessdatabasedesign,ADOdatabaseaccessto

achievethevariousfunctions.

Keywords：Partsmanagement;Database;Managementsystem;VisualBasic.

1绪论

随着中国经济的快速增长，中国汽车的保有量逐年递增，对于汽车4s店

的售后及仓库管理需要更加方便以及实用的管理软件。在汽车4s店仓库管理中

需要实时采集，并根据需要及时地向相关的各部门传送各类信息，这对零配件供

应、销售服务、质量监控、成本核算等都有着重要的作用。同时此数据对零配件

的质量跟踪和售后服务有重要的意义。由于零配件管理数据属于动态信息，不仅

数据量大，而且内容庞杂，且由于此数据不仅用于售后服务及质量监控等方面,

同时还具有对零配件质量跟踪等功能，因而必须保证数据准确。符合行业的管理

软件和计算机网络技术的应用为实现上述功能需求提供了可靠的保证，为用户提

供更公开、更快捷、更规范和更优质的服务，是各家汽车4s店面临的共同挑战。

想要有效地解决上诉问题，就必须引入更加高效的管理手段，其中实行计算机化

管理就是有效的方法之一。

24S店汽车零配件仓库管理系统分析

2.1汽车4S店业务流程分析

4S汽车店零部件管理系统的业务主要是采购，销售信息的管理。汽车4S店

各个部门把采购信息和销售信息输入系统，操作人员根据汽车4S店零部件信息

控制采购和销售业务，计算机也会自动记录信息。

4S店汽车零部件管理的特点是信息处理量比较大，所管理的信息包括全部

汽车维修企业的信息和业务信息等单据的发生量特别大，关联信息多，查询和统

计的方式各不相同。因此在管理上实现起来有一定困难。在管理的过程中经常出

现住处的重复传递。单据、报表的种类繁多，各个部门管理规格不统一等问题。

4S汽车店零部件管理系统在设计过程中，为了克服这些困难，满足计算机

管理的需求，采取了以下一些原则：

(1)程序代码标准化，软件统一化，确保软件的可维护性和实用性。

(2)删除不必要的管理冗余信息，实现管理规范化、科学化。

(3)统一各种原始单据的格式，统一账目和报表的格式。

进行4S店汽车零部件管理系统业务流程图的设计。操作员或管理人员进入

本系统后，一系列的操作过程设计。

2.2关于数据库

数据库是关于数据的信息的集合，也就是对数据流图中包含的所有元素的定

义的集合。任何数据最主要的用途都是供人查阅对不了解的条目的解释。数据库

的作用是在软件分析和设计的过程中给人提供关于数据的描述信息。数据流图和

数据库共同构成系统的逻辑模型，没有数据库，数据流图就不严格，然而没有数

据流图数据库也难于发挥作用。只有数据库和对数据流图的精确定义放在一起,

才能共同构成系统的规格说明。

系统开发时，常用名片的形式书写保存描述一个数据元素。下面给出本系统

的主要数据元素的数据库索引表格：

名字：配件编号

列名：配件编号

描述：唯一地标识配件信息表的一个特定关键

域

定义：配件编号

位置：配件信息

图2-1配件编号

名字：入库单号

描述：唯一地标识汽车维修企业入库信息一个

特定关键域

位置：入库单号

图2-2入库单号

名字：出库单号

描述：唯一地标识汽车维修企业出库信息一个

特定关键域

位置：出库单号

图2-3出库单号

名字：用户名称

列名：用户名称

描述：用户指定条件下的系统用户口令表

位置：用户信息表

图2-4用户名称

2.3系统运行环境

2.3.1系统开发工具选择

目前，在市场上这些众多的程序开发工具中，有些开发软件强调程序语言的

执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的提高，各

有各的优点和特色，也满足了不同用户的需求。然而，语言的执行效率和工具的

便利性是密切相连的，只有便利的工具，却程序语言的执行效率，许多特殊化的

处理必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作

用；相反，如果只强调程序语言的执行效率，却没有便利的工具作配合，会使一

些即使非常简单的界面处理动作，也会严重地浪费毕业设计的宝贵时间。而

VisualBasic是著名的微软公司的可视化软件开发工具，其被称为最容易编程

语言，它具有简单、高效、功能强大的特点。它是一个非常理想的选择，是可视

化的快速应用程序开发语言，它提供了可视化的集成开发环境，这一环境为应用

程序设计人员提供了一系列灵活而先进的工具，可以广泛地用于许多种类应用程

序设计。

VisualBasic的前身是QBASIC,语言基础是BASIC。自从微软推出VB后，

便成为了程序开发人员的首选工具之一。跟据统计，仅在数据库系统开发领域中，

VB就占了90%的份额。VB是基于对象的可视化程序开发工具，它的优点在于能

够快捷、简易地建立Windows应用程序。1998年8月，微软推出了VB6.0的版

本，进一步加强了部件开发的功能。以适用人员来分，可有以下三个版本：

标准版针对一般程序设计人员，适合普通应用系统的开发。

专业版针对专业程序开发人员，它在标准版的基础上提供了对数据库和

Internet的支持。

企业版适用于专为企业设计应用软件的程序开发人员。

2.3.2数据库的选择

建立一个数据库也有多种选择，现在市场上有各种各样的数据库，而且每一

种数据库都有其自身的特点，不能说哪一种更好，只能在其中寻找一种能更好地

适应系统需求、更好地满足用户的要求以及适应开发人员的习惯。当然，要是一

个完善的管理软件，必须要有后台的数据库。而目前主流的数据库有以下几种：

低级数据库最流行的是ACCESS；中级数据库，最流行的是SQLServer2000,SQL

Server2005,Mysql；高端的三大数据库，DB2,ORACLE,SYBASE□

其中，我选择ACCESS2003做为系统的后台数据库。ACCESS2003是美国微软

公司开发的一款关系型数据库管理系统的产品，具有成本低，易上手，工具全等

优点。适用于大型或超大型数据库服务器端。

利用VB6.0卓越、快速、简便的界面开发平台，制作系统的客户端界面；再

利用ACCESS2003,创建出具有合理的物理关系、逻辑关系的后台数据库；最后

运用VB语言来编写代码，实现人机交互，运用ADO的方法来建立与后台数据库

的连接，包括数据的添加、查询、删除、修改等等；最后开发和测试系统。

2.3.3开发与运行环境

(1)硬件环境

处理器：InterPentiumHI或更高。

内存：256MB以上

硬盘空间：40GB

显卡：集成显卡或更高

(2)软件环境

操作系统：WindowsXPo

开发工具：VB6.0中文企业版。

数据库：MicrosoftACCESS2003□

美化工具：Photoshopo

其他:Excelo

3.管理软件设计

3.1功能设计

仓库管理系统可以为小型的货物管理部门提供基本的仓库管理，从而帮助仓

库管理人员能够使用软件对其现有业务流程进行搞笑的管理，这些管理包括：

货物信息管理，包括货物信息的增加、修改、删除、浏览管理；

货物采购入库管理，对采购的货物完成电子入库；

货物销售出库管理，对销售的货物实现电子出库；

查询管理，包括对货物信息的查询、客户信息的查询和其他信息的查询；

货物信息打印，对当前仓库中的货物信息进行打印；

管理员管理，主要是管理员的登录管理与口令管理。

3.2模块结构设计

“4S店汽车零配件仓库管理系统”可分为几个主模块：系统管理、基本信

息管理、查询管理、出入库管理、库存管理。按照结构化的系统设计方法，将整

个系统分解成相对独立的若干模块，通过对模块的设计和模块之间关系的协调来

实现整个软件系统的功能，从而得到系统的功能模块结构图。本系统的功能模块

结构如图3-1所示。

汽车4S店零配件仓储管理

基

库

系出

本查

存

入

统信询

管

库

管息管

理

管

理管

理理

理

图3-1系统模块结构图

3.3程序流程图

3.4数据库设计

有关数据结构的建立：在进行了数据基本结构的规范化重组后，还必须建立

整体数据的关系结构。这一步设计完成后数据库和数据结构设计工作基本完成,

以后系统实现时将数据分析和数据库的内容代入到所设计的数据整体关系结构

中，一个规范化数据库系统结构就建立起来了。

根据分析阶段得出的结论，结合本系统对有关数据的存储的需要，更加方便

实现该管理系统的所有功能，现将本管理系统设计成如下几个数据库表，表的设

计如下：

表3T用户信息表

计量单位文本(20)

入库数量数字

采购价格货币

生产厂家文本(50)

采购人文本(20)

表3-4销售出库信息

字段名称类型大小

出库单号文本(50)

出库日期文本(20)

配件编号文本(50)

配件名称文本(50)

型号文本(50)

计量单位文本(20)

出库数量数字

销售价格货币

客户文本(50)

销售人文本(20)

其他表请参考数据库.

4.仓储管理软件的设计

4.1界面的设计

界面要求美观易懂、操作简单，使用户感觉愉快、操做方便，从而提高使用

效率。本系统基于WindowsXP操作系统，因此在界面上遵循WindowsXP的传统

风格，由标题栏、菜单栏、快捷工具按钮、对话框等要素组成。与WindowsXP

操作系统一致的人机界面，使得用户只要具备WindowsXP操作基础，就能很快

适应本管理系统的操作使用，因此能够大大降低系统培训费用以及培训周期，提

高系统的可推广性。

为了进一步美化界面，使得用户在操作中更加心情舒畅，我们选用

PhotoshopCS4图像处理软件，为系统设计了比较新颖的界面图。总之对系统界

面的整体风格，页面布局结构以及色彩搭配等进行了合理的规划和设计，在保证

操作员实用性、方便性的前提下，创造更简单，更友好的系统界面。

4.1.1登录界面设计

用户登录窗口启动。包括输入用户名和密码，登录(默认用户名admin,密

码admin)o从用户信息表中检查是否有相应的用户名和密码，如果用户名或密

码错误，进行提示；如果输入的用户名和相应密码正确，进入主控制平台。用户

登录模块的窗体设计，在工程中添加一个窗体，命名为frmLogono用户登录模

块的窗体如图4-1所示。

图4-1登录

其中用户登录连接数据库的部分代码：

检查是否有相应的用户名和密码代码：

PrivateSubcmdOK_Click()”进入..确定

'OnErrorGoToErr

DimtxtSqlAsString

UserID二””

IfTrim(txtUserName.Text)="“Then”判断用户名是否为空

MsgBox”请输入帐号!”,vbOKOnly+vbExclamation,“警告”

txtUserName.SetFocus

ExitSub

EndIf

IfTrim(txtPassword.Text)=""Then'判断密码是否为空

MsgBox”请输入密码！"，vbOKOnly+vbExclamation,"警告”

txtPassword.SetFocus

ExitSub

EndIf

检查是否有该用户代码：

txtSql二"select*from用户信息表where用户名称=,n&txtUserName.Text

”判断是否有这个用户

Ifrs.StateThenrs.Close

rs.OpentxtSql,CN,adOpenStatic,adLockOptimistic

Ifrs.EOF=TrueThen”如果没有这个用户

MsgBox”没有这个帐号，请重新输入帐号!”,vbOKOnly+vbExclamation,

告“

txtUserName.Text二"”

txtPassword.Text=nn

txtUserName.SetFocus

Else”如果有用户

IfTrim(rs.Fields(1))=Trim(txtPassword.Text)Then

IfTrim(rs.Fields(2))="管理员"Then

IsUserMode=1

Else

IsUserMode=2

EndIf

UserID=Trim(txtUserName.Text)

UnloadMe

Mainfrm.Show

ExitSub

4.1.2主界面设计

汽车维修企业零部件管理主界面是如图4-2主界面。采用SDI窗体。WINDOWS

风格设计。主要采用菜单式的管理方式。主界面功能包括系统设置，基本数据,

出入库管理，库存管理，查询管理和帮助。

图4-2主界面截图

其中部分代码如下:

PrivateSubMDIFormLoad()

Me.StatusBarl.Panels(1).Text=〃操作员：〃&Userid

Me.StatusBarl.Panels(2).Text=〃★欢迎使用汽车4S店零配件仓库管理

系统★〃

CallPrivsSeting

EndSub

4.1.3用户管理界面设计

系统设置包括，用户，密码，数据库管理。用户包括权限管理。用户管理模

块实现2个主要功能：增加新的操作人员、删除指定的操作人员。密码是对当前

用户进行密码修改，其中代码可以参考frmUsers。如图4-3

用户管理

删除用户

用户名称：|Combo5三］

删除

退出

如图4-3用户管理界面

4.1.4基本信息界面设计

汽车4S店零配件仓库管理系统基本信息包括对配件分析信息,配件信息的

管理，包括添加，删除，修改等操作。如图4-4是配件信息，添加，操作成功。

图4-4配件信息截图

其中主要代码如下：

PrivateSubcmdRegAdd_Click()'''添加

nModeSys=2''添加操作

DimIDmaxAsString

DimiAsInteger

Fori=1ToVai(Txt(0).Text)

IfLbl(i).Caption=〃库存量〃Then

Txt(i).Text=0

Else

Txt(i).Text=〃〃

EndIf

Nexti

Txt(1).Text=Getmaxld(Lbl(1).Caption)

cmdRegSave.Enabled=True

4.1.5出入库界面设计

出入库管理包括采购入库和销售出库信息。入库管理界面如图4-6所示。本

界面主要是对入库单信息进行添加删除修改保存等操作。其中代码详情请参考

frmlk文件。

图4-6入库界面截图

点击添加按钮如图4-7可实现汽车零配件的添加。配件编号是支持选择配件

信息的，可以名称进行选择。

图4-7添加界面截图

其中代码如下：

rst.Open"select*from采购入库信息where入库单号='〃&

Trim(Textl(0).Text)&〃'〃，CN,adOpenStatic,adLockOptimistic

IfTrim(strDZId)=〃〃Then'添加

rst.AddNew

Fori=0To9

IfTrim(Textl(i).Text)<>〃〃Thenrst.Fields(i).Value=

Trim(Textl(i).Text)

Nexti

rst.Update

Withfrmlk.MSHFlexGridl

If.Rows=2AndTrim(.TextMatrix(1,1))=〃〃Then

Else

.Rows=.Rows+1

Fori=.Rows-2To1Step-1

Forj=0To9

.TextMatrix(i+1,j)=.TextMatrix(i,j)

Nextj

Nexti

EndIf

4.1.6出库管理设计

出库管理设计和入库管理设计思想一样，并不做详细说明，其中出库管理

界面图4-8,图4-9所不。

4-8销售出库界面截图

图4-9出库添加截图

4.1.7零配件库存管理设计

零配件库存管理包括汽车零配件详细库存信息和库存量查询。可以统计零配

件出入库数量及时间。如图4-10。其中的代码：

Ifrst.StateThenrst.Close

rst.Open"select配件编号，配件名称，型号，计量单位from配件信息”，CN,

adOpenStatic,adLockOptimistic

DimiAsInteger

DimjAsInteger

DimgridlAsInteger

i=0

IfrsK.StateThenrsK.Close

rsK.Open"select*from盘点信息表where年月&Combo1.Text&&

Combo2.Text&CN,adOpenStatic,adLockOptimistic

IfNotrsK.EOFThen

IfMsgBox（"本月份配件已统计，是否重新统计？"，vblnformation+

vbYesNo,“提示“）=vbYesThen

CN.Execute”deletefrom盘点信息表where年月=&

Combo1.Text&&Combo2.Text&

Else

ExitSub

Endlf

4-10零配件库存管理截图

4-11零配件信息检索截图

4.1.8查询功能的设计

查询功能的设计包括零配件出入库查询和数据统计。从而实现管理人员对零

配件的数量，销售数量，库存数量进行统计以及查询。如图4-12。其中所涉及

到的代码：

IfTrim(Combo3.Text)<>〃〃AndTrim(Combo4.Text)<>〃〃And

Trim(Textl.Text)<>〃〃Then

strsql="select*from〃&Trim(strTableName)&〃where〃&

Trim(Combo3.Text)&〃〃&Trim(Combo4.Text)&

IfCombo4.Text=〃like〃Then

strsql=strsql&〃％〃&Trim(Textl.Text)&〃％’〃

Else

strsql=strsql&Trim(Textl.Text)&

EndIf

Ifrs2.StateThenrs2.Close

rs2.Openstrsql,CN,adOpenStatic,adLockOptimistic

SetMSHFlexGridl.DataSource=rs2

Else

MsgBox〃请选择或输入数据！〃，，〃系统提示〃

4-12信息检索截图

4.1.9帮助界面设计

关于和帮助界面是对系统软件版本，作者的一个介绍。帮助界面是对功

能介绍包括：

初始用户：用户和密码都为admino

添加用户：在用户名称中输入要添加用户的名，原始密码为12345,可以修

改，之后点添加。完毕。如果系统已经添加的该用户，系统自动提示，重新添加。

删除用户：选中要删除的用户，直接点删除、系统有提示是否真的删除，点

是，就删除了此用户。如图4-13。

4-13关于截图

4.2仓储管理软件安全性的设计

仓库管理系统的安全性设计可以分为数据库级安全设计和应用软件级安全

设计两个级别。

数据库级安全设计对数据库级安全通过赋予操作员不同的操作权限，控制操

作员对数据库的访问，对操作员进行存取控制；另外并发控制、完整性约束以及

数据的备份和恢复策略等等，这些安全性都可以充分利用数据库管理系统(DBMS)

本身具有的功能来实现。

应用软件级安全设计可以在系统平台上根据不同的登陆身份和权限，给出不

同的操作界面，允许不同的操作。本系统的登录模块、用户管理模块配合，就是

完成这样的功能。

5系统测试

测试的目的就是为了能以最少的人力和发现潜在的各种错误和缺陷。系统测

试是保证系统质量和可靠性的关键步骤，是对系统开发过程的系统分析，系统设

计和系统实施的最后检查。

测试表格显示此功能模块通过测试，也证明了本功能模块与其他模块的独立

性十分强，从而在以后维护软件的过程中，能够更多的更有效的使用各个功能模

块。

5.1测试项：整个系统

5.2测试条件：

在其他测试项目都通过了单元测试，组合测试，确认测试。下面针对整个系

统进行测试：系统测试是将已经确认的软件，计算机硬件等其他因素组合在一起,

进行信息系统的各种组装和确认测试，其目的是通过和系统的需求相比较，发现

所开发的系统与用户需求不符或矛盾的地方。常见的系统测试有恢复测试，安全

性测试，强度测试，性能测试，可靠性测试，安装测试。在本系统中我们对整个

源代码进行测试，发现系统没有出现什么问题，在将系统打包后可能会出现的问

题就是有些机器上没有微软公司的一些ActiveXObject控件或者是某些组件。因

此导致系统不能加载某写对象，为了解决这个问题我在对ActiveXObject控件进

行了打包做成压缩包，只要复制到相应的文件夹中即可。

通过对整个系统的测试，我发现整个系统的功能还是比较稳定，虽然在某些

地方还不尽如人意，但是我们开发的目的还是达到了，作为第一次完整的开发软

件，第一次做毕业设计，我们从中还是学到了不少的知识，通过这次开发，我们

为以后进入汽车4S店售后行业做管理工作积累了一定的经验。

在开发本系统时，为了使系统能够稳定运行，对本系统进行了有针对性的全

面测试，采取的方式是：

1、菜单项测试：为了保证每一项下拉菜单能够正确实现系统设计的功能，

我设计了一些测试数据，基本上全部输入到本系统中，并对每一个菜单项逐一进

行了增加、删除、修改等操作，从而保证了菜单没级功能的正确实现。

2、数据测试：完成队菜单项测试后，我又对系统内的每一个数据进行了测

试。例如:例如对配件编号，我首先在配件信息模块中对某个配件信息进行设定，

然后在其他模块进行数据操作，随时观察这两个数值之间是否有冲突产生，经过

多次设置并进行验证，说明该功能没有问题。

3、综合测试：在以上测试的基础上对系统功能进行了整体的测试，依次来

检验系统功能是否符合系统设计的要求。

6.结论

于以前对VB6.0和Access2003只是了解并不能够灵活运用，所以在毕设期

间进行了一番研究，终于可以基本掌握了常用控件的用法和语句编程。数据库的

建设和使用，虽然SQL数据库的安全性和普及性很高，但我们在日常中还是接触

得比较少，所以这自然又是一番努力的学习，就拿安装配置以及连接数据库方面

来说就不那么容易。会用了两种软件，如何把它们连接在一起还真是一件困难的

事：选择连接的方法就很重要，通过各方面的比较，我选择了ADO,通过ADO对

象与数据库中各表进行连接，同时也用到少数编程实现VB和数据库的连接。在

开发过程中我遇到了许许多多的问题，很多地方都不明白，经常有打退堂鼓的想

法，我经常的请教同学和老师，最后的成果虽然不很完美，但我尽力了，并有所

收获。

总结与体会

在开发过程中我遇到了许许多多的问题，很多地方都不明白，经常有打退堂

鼓的想法，我经常的请教同学和老师，最后的成果虽然不很完美，但我尽力了，

并有所收获。通过毕业设计的锻炼，对于以前所学的的基本知识进行了一次比较

系统的复习和巩固。对我们非计算机专业的学生来说设计一个软件还是有一定难

度的，自己通过查阅大量的书籍以及以前所做软件的经验总结，还是比较顺利的

完成了毕业设计的要求。特别是对VB6.0和Access2003有了更深层次的理解，

在开发过程中我遇到了许许多多的问题，很多地方都不明白，经常有打退堂鼓的

想法，我经常的请教同学和老师，最后的成果虽然不很完美，但我尽力了，并有

所收获。

致谢

这次的毕业设计已经进入尾声，在这里我要真诚地感谢帮助我的老师和同学,

有了他们的帮助我才能顺利的完成这次毕业设计。从选择毕业设计题目开始，到

毕业设计规划，查找相关资料，设计模型，具体实施，结束论文，整个大致的流

程中，我的导师都给予了我耐心的指导和非常到位的指点，设计时间之长，其间

遇到了不少问题，也承蒙了老师的照顾，真的想对老师说一声：老师，辛苦了，

谢谢您。除此之外，我还要致谢我的几位同学的得力相助，我希望我能向他们学

习，发扬那种百折不挠、孜孜不倦的对知识求索精神,那种至高无上的敬业精神，

马上我就要走向工作单位了，我相信我会时刻用他们的平凡而不简单来鞭策自己。

再次衷心地感谢帮助我的老师和同学。

【参考文献】

：1］塞奎春.VB6工程应用与项目实践［M］.北京：机械工业出版社，2005.

［2］萨师炮，王珊.数据库系统概论［M］.北京：高等教育出版社，2004.

［3］黄明.信息系统设计与开发实例［M］.北京：机械工业出版社，2005.

［4］张海藩.软件工程导论［加.北京：清华大学出版社，1998.

［5］申莉莉.SQLSERVER数据库应用教程加］.北京：机械工业出版社，2005

［6］李建中.数据库系统原理［M］.西安：电子工业出版社，1998.

［7］刘瑞新.VB6.0数据库开发毕业设计指导及实例［M］.北京：机械工业出版社,

2005.

［8］刘军.汽车4s店管理全程指导.北京：化学工业出版社，2011.

［9］宓亚光.汽车特约销售服务站经营与管理丛书.北京：机械工业出版

社,2011.

［10］王丰，张剑芳，卢宝亮.仓库安全管理与技术（第2版）.北京：中国物资

出版社,2008.

附录

4S店汽车零配件仓储管理系统代码:

PrivateSubCARPP_Click()

strTableName=〃汽车品牌〃

frmZiDian.Show1

EndSub

PrivateSubCGLK_Click()

strTableName=〃采购入库信息〃

frmlk.Show1

EndSub

PrivateSubChangeUser_Click()’

isLogin=False

UnloadMe

frmLogin.Show

EndSub

PrivateSubExit_Click()

End

EndSub

PrivateSubDATAtj_Click()

frmtj.Show1

EndSub

PrivateSubExitSyss_Click()

End

EndSub

PrivateSubFindCGClickO

strTableName=〃采购入库信息〃

frmFind.Show1

EndSub

PrivateSubFindKC_Click()

strTableName=〃配件信息〃

frmFind.Show1

EndSub

PrivateSubFindXXClick()

strTableName=〃销售出库信息〃

frmFind.Show1

EndSub

PrivateSubFJFX_Click()

strTableName=〃配件分类〃

frmZiDian.Show1

EndSub

PrivateSubFormLoad()

Me.Caption=〃汽车4s店零配件仓储管理系统---操作员：〃&UserID

CallPrivssub

isLogin=True

EndSub

SubPrivssub()

IfIsUserMode=2Then

sysManager.Visible=False

BASEDATA.Visible=False

EndIf

EndSub

PrivateSubForm_Resize()

OnErrorGoToErr'''改变控件位置代码

Picturel.Top=0

Picturel.Left=0

Picturel.Height=Me.ScaleHeight一StatusBarl.Height

Picturel.Width=Me.ScaleWidth

StatusBarl.Panels(1).Text=〃欢迎使用〃&Me.Caption

''加载背景代码

Imagel.Picture=LoadPicture(App.Path&〃\1.jpg〃)

Picturel.Refresh

Picturel.PaintPictureImagel.Picture,Picturel.ScaleTop,

Picturel.ScaleLeft,Picturel.ScaleWidth,Picturel.ScaleHeight,0,0,

Imagel.Width,Imagel.Height

Err:

EndSub

PrivateSubHelpFiles_Click()'''帮助文件

OnErrorGoToErr

frmhelp.Show1

ExitSub

Err:

MsgBoxErr.Description

EndSub

PrivateSubInfoPJ_Click()

frmPJ.Show1

EndSub

PrivateSubKCxxinfo_Click()

frmKclnfo.Show1'详细库存

EndSub

PrivateSubSysAbout_Click()''关于

frmAbout.Show1

EndSub

PrivateSubsysManager_Click()

frmUser.Show1

EndSub

PrivateSubUserpaswordClick()''用户密码

frmpsd.Show1

EndSub

PrivateSubXSCK_Click()

frmck.Show1'销售出

EndSub

采购入库管理界面代码：

PrivateSubCommand1_Click()'查询

DimrstAsNewADODB.Recordset

DimiAsInteger

DimstrSQLAsString

IfTrim(Textl.Text)=,,nThen

strSQL="select*from采购入库信息orderby入库单号desc"

Else

Fori=0To3

IfOptionl(i).Value=TrueThen

strSQL="select*from采购入库信息where"&Option1(i).Caption&

like%"&Trim(Textl.Text)&0%,orderby入库单号desc"

ExitFor

EndIf

Nexti

EndIf

Ifrst.StateThenrst.Close

rst.OpenstrSQL,CN,adOpenStatic,adLockOptimistic

WithMSHFlexGridl

.Clear

.Rows=2

.Cols=rst.Fields.Count

Fori=0Torst.Fields.Count-1

.TextMatrix(O,i)=rst.Fields(i).Name

Nexti

Ifrst.RecordCount>0Then

.Rows=rst.RecordCount+1

Label1.Caption="查询至！J"&rst.RecordCount&”条记录”

Else

Label1.Caption="查询到0条记录”

1MsgBox”没有查询记录信息“提示”

ExitSub

EndIf

DimkAsInteger

k=1

WhileNotrst.EOF

Fori=0Torst.Fields.Count-1

IfNotIsNull(rst.Fields(i))Then

Ifrst.Fields(i).Type=adCurrencyThen

.TextMatrix(k,i)=Format((rst.Fields(i)),"0.00")

Else

.TextMatrix(k,i)=Trim(rst.Fields(i))

EndI