目錄

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

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

1緒論.............................................................4

24S店汽車零配件倉(cāng)庫(kù)管理系統(tǒng)分析..................................5

2.1汽車4S店業(yè)務(wù)流程分析.......................................5

2.2關(guān)于數(shù)據(jù)庫(kù)..................................................5

2.3系統(tǒng)運(yùn)行環(huán)境................................................6

3.管理軟件設(shè)計(jì)......................................................9

3.1功能設(shè)計(jì)..................................................9

3.2模塊結(jié)構(gòu)設(shè)計(jì)................................................9

3.3程序流程圖...............................................10

3.4數(shù)據(jù)庫(kù)設(shè)計(jì)...............................................12

4.倉(cāng)儲(chǔ)管理軟件的設(shè)計(jì)..............................................14

4.1界面的設(shè)計(jì)................................錯(cuò)誤!未定義書(shū)簽。

4.2倉(cāng)儲(chǔ)管理軟件安全性的設(shè)計(jì)...................................25

5系統(tǒng)測(cè)試........................................................26

5.1測(cè)試項(xiàng).....................................................26

5.2測(cè)試條件....................................................26

6.結(jié)論............................................................28

總結(jié)與體會(huì)........................................................30

致謝............................................................31

參考文獻(xiàn)..........................................錯(cuò)誤!未定義書(shū)簽。

附錄..............................................................32

4S店汽車零配件倉(cāng)儲(chǔ)管理系統(tǒng)

摘要

4S店汽車零配件倉(cāng)儲(chǔ)管理系統(tǒng)能夠正確有效地完成倉(cāng)庫(kù)管理的日常工作，

從而實(shí)現(xiàn)用戶能夠快速的進(jìn)行汽車零配件倉(cāng)儲(chǔ)管理。4S店汽車零配件倉(cāng)儲(chǔ)管理

系統(tǒng)包括需求分析、系統(tǒng)功能、系統(tǒng)設(shè)計(jì)、程序設(shè)計(jì)、系統(tǒng)測(cè)試及存在問(wèn)題等方

面，詳細(xì)地介紹了“4S店汽車零配件倉(cāng)庫(kù)管理系統(tǒng)”設(shè)計(jì)開(kāi)發(fā)的整個(gè)過(guò)程。

4s店汽車零配件倉(cāng)儲(chǔ)管理系統(tǒng)采用VisualBasic作為開(kāi)發(fā)工具，后臺(tái)數(shù)據(jù)

采用Access數(shù)據(jù)庫(kù)設(shè)計(jì)，利用ADO數(shù)據(jù)庫(kù)訪問(wèn)實(shí)現(xiàn)各種功能。

關(guān)鍵詞：零部件管理；數(shù)據(jù)庫(kù)；管理系統(tǒng)；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緒論

隨著中國(guó)經(jīng)濟(jì)的快速增長(zhǎng)，中國(guó)汽車的保有量逐年遞增，對(duì)于汽車4s店

的售后及倉(cāng)庫(kù)管理需要更加方便以及實(shí)用的管理軟件。在汽車4s店倉(cāng)庫(kù)管理中

需要實(shí)時(shí)采集，并根據(jù)需要及時(shí)地向相關(guān)的各部門傳送各類信息，這對(duì)零配件供

應(yīng)、銷售服務(wù)、質(zhì)量監(jiān)控、成本核算等都有著重要的作用。同時(shí)此數(shù)據(jù)對(duì)零配件

的質(zhì)量跟蹤和售后服務(wù)有重要的意義。由于零配件管理數(shù)據(jù)屬于動(dòng)態(tài)信息，不僅

數(shù)據(jù)量大，而且內(nèi)容龐雜，且由于此數(shù)據(jù)不僅用于售后服務(wù)及質(zhì)量監(jiān)控等方面,

同時(shí)還具有對(duì)零配件質(zhì)量跟蹤等功能，因而必須保證數(shù)據(jù)準(zhǔn)確。符合行業(yè)的管理

軟件和計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)的應(yīng)用為實(shí)現(xiàn)上述功能需求提供了可靠的保證，為用戶提

供更公開(kāi)、更快捷、更規(guī)范和更優(yōu)質(zhì)的服務(wù)，是各家汽車4s店面臨的共同挑戰(zhàn)。

想要有效地解決上訴問(wèn)題，就必須引入更加高效的管理手段，其中實(shí)行計(jì)算機(jī)化

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

24S店汽車零配件倉(cāng)庫(kù)管理系統(tǒng)分析

2.1汽車4S店業(yè)務(wù)流程分析

4S汽車店零部件管理系統(tǒng)的業(yè)務(wù)主要是采購(gòu)，銷售信息的管理。汽車4S店

各個(gè)部門把采購(gòu)信息和銷售信息輸入系統(tǒng)，操作人員根據(jù)汽車4S店零部件信息

控制采購(gòu)和銷售業(yè)務(wù)，計(jì)算機(jī)也會(huì)自動(dòng)記錄信息。

4S店汽車零部件管理的特點(diǎn)是信息處理量比較大，所管理的信息包括全部

汽車維修企業(yè)的信息和業(yè)務(wù)信息等單據(jù)的發(fā)生量特別大，關(guān)聯(lián)信息多，查詢和統(tǒng)

計(jì)的方式各不相同。因此在管理上實(shí)現(xiàn)起來(lái)有一定困難。在管理的過(guò)程中經(jīng)常出

現(xiàn)住處的重復(fù)傳遞。單據(jù)、報(bào)表的種類繁多，各個(gè)部門管理規(guī)格不統(tǒng)一等問(wèn)題。

4S汽車店零部件管理系統(tǒng)在設(shè)計(jì)過(guò)程中，為了克服這些困難，滿足計(jì)算機(jī)

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

(1)程序代碼標(biāo)準(zhǔn)化，軟件統(tǒng)一化，確保軟件的可維護(hù)性和實(shí)用性。

(2)刪除不必要的管理冗余信息，實(shí)現(xiàn)管理規(guī)范化、科學(xué)化。

(3)統(tǒng)一各種原始單據(jù)的格式，統(tǒng)一賬目和報(bào)表的格式。

進(jìn)行4S店汽車零部件管理系統(tǒng)業(yè)務(wù)流程圖的設(shè)計(jì)。操作員或管理人員進(jìn)入

本系統(tǒng)后，一系列的操作過(guò)程設(shè)計(jì)。

2.2關(guān)于數(shù)據(jù)庫(kù)

數(shù)據(jù)庫(kù)是關(guān)于數(shù)據(jù)的信息的集合，也就是對(duì)數(shù)據(jù)流圖中包含的所有元素的定

義的集合。任何數(shù)據(jù)最主要的用途都是供人查閱對(duì)不了解的條目的解釋。數(shù)據(jù)庫(kù)

的作用是在軟件分析和設(shè)計(jì)的過(guò)程中給人提供關(guān)于數(shù)據(jù)的描述信息。數(shù)據(jù)流圖和

數(shù)據(jù)庫(kù)共同構(gòu)成系統(tǒng)的邏輯模型，沒(méi)有數(shù)據(jù)庫(kù)，數(shù)據(jù)流圖就不嚴(yán)格，然而沒(méi)有數(shù)

據(jù)流圖數(shù)據(jù)庫(kù)也難于發(fā)揮作用。只有數(shù)據(jù)庫(kù)和對(duì)數(shù)據(jù)流圖的精確定義放在一起,

才能共同構(gòu)成系統(tǒng)的規(guī)格說(shuō)明。

系統(tǒng)開(kāi)發(fā)時(shí)，常用名片的形式書(shū)寫(xiě)保存描述一個(gè)數(shù)據(jù)元素。下面給出本系統(tǒng)

的主要數(shù)據(jù)元素的數(shù)據(jù)庫(kù)索引表格：

名字：配件編號(hào)

列名：配件編號(hào)

描述：唯一地標(biāo)識(shí)配件信息表的一個(gè)特定關(guān)鍵

域

定義：配件編號(hào)

位置：配件信息

圖2-1配件編號(hào)

名字：入庫(kù)單號(hào)

描述：唯一地標(biāo)識(shí)汽車維修企業(yè)入庫(kù)信息一個(gè)

特定關(guān)鍵域

位置：入庫(kù)單號(hào)

圖2-2入庫(kù)單號(hào)

名字：出庫(kù)單號(hào)

描述：唯一地標(biāo)識(shí)汽車維修企業(yè)出庫(kù)信息一個(gè)

特定關(guān)鍵域

位置：出庫(kù)單號(hào)

圖2-3出庫(kù)單號(hào)

名字：用戶名稱

列名：用戶名稱

描述：用戶指定條件下的系統(tǒng)用戶口令表

位置：用戶信息表

圖2-4用戶名稱

2.3系統(tǒng)運(yùn)行環(huán)境

2.3.1系統(tǒng)開(kāi)發(fā)工具選擇

目前，在市場(chǎng)上這些眾多的程序開(kāi)發(fā)工具中，有些開(kāi)發(fā)軟件強(qiáng)調(diào)程序語(yǔ)言的

執(zhí)行效率；有些則偏重于可視化程序開(kāi)發(fā)工具所帶來(lái)的便利性與效率的提高，各

有各的優(yōu)點(diǎn)和特色，也滿足了不同用戶的需求。然而，語(yǔ)言的執(zhí)行效率和工具的

便利性是密切相連的，只有便利的工具，卻程序語(yǔ)言的執(zhí)行效率，許多特殊化的

處理必需要耗費(fèi)數(shù)倍的工夫來(lái)處理，使得原來(lái)所標(biāo)榜的效率提高的優(yōu)點(diǎn)失去了作

用；相反，如果只強(qiáng)調(diào)程序語(yǔ)言的執(zhí)行效率，卻沒(méi)有便利的工具作配合，會(huì)使一

些即使非常簡(jiǎn)單的界面處理動(dòng)作，也會(huì)嚴(yán)重地浪費(fèi)畢業(yè)設(shè)計(jì)的寶貴時(shí)間。而

VisualBasic是著名的微軟公司的可視化軟件開(kāi)發(fā)工具，其被稱為最容易編程

語(yǔ)言，它具有簡(jiǎn)單、高效、功能強(qiáng)大的特點(diǎn)。它是一個(gè)非常理想的選擇，是可視

化的快速應(yīng)用程序開(kāi)發(fā)語(yǔ)言，它提供了可視化的集成開(kāi)發(fā)環(huán)境，這一環(huán)境為應(yīng)用

程序設(shè)計(jì)人員提供了一系列靈活而先進(jìn)的工具，可以廣泛地用于許多種類應(yīng)用程

序設(shè)計(jì)。

VisualBasic的前身是QBASIC,語(yǔ)言基礎(chǔ)是BASIC。自從微軟推出VB后，

便成為了程序開(kāi)發(fā)人員的首選工具之一。跟據(jù)統(tǒng)計(jì)，僅在數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)領(lǐng)域中，

VB就占了90%的份額。VB是基于對(duì)象的可視化程序開(kāi)發(fā)工具，它的優(yōu)點(diǎn)在于能

夠快捷、簡(jiǎn)易地建立Windows應(yīng)用程序。1998年8月，微軟推出了VB6.0的版

本，進(jìn)一步加強(qiáng)了部件開(kāi)發(fā)的功能。以適用人員來(lái)分，可有以下三個(gè)版本：

標(biāo)準(zhǔn)版針對(duì)一般程序設(shè)計(jì)人員，適合普通應(yīng)用系統(tǒng)的開(kāi)發(fā)。

專業(yè)版針對(duì)專業(yè)程序開(kāi)發(fā)人員，它在標(biāo)準(zhǔn)版的基礎(chǔ)上提供了對(duì)數(shù)據(jù)庫(kù)和

Internet的支持。

企業(yè)版適用于專為企業(yè)設(shè)計(jì)應(yīng)用軟件的程序開(kāi)發(fā)人員。

2.3.2數(shù)據(jù)庫(kù)的選擇

建立一個(gè)數(shù)據(jù)庫(kù)也有多種選擇，現(xiàn)在市場(chǎng)上有各種各樣的數(shù)據(jù)庫(kù)，而且每一

種數(shù)據(jù)庫(kù)都有其自身的特點(diǎn)，不能說(shuō)哪一種更好，只能在其中尋找一種能更好地

適應(yīng)系統(tǒng)需求、更好地滿足用戶的要求以及適應(yīng)開(kāi)發(fā)人員的習(xí)慣。當(dāng)然，要是一

個(gè)完善的管理軟件，必須要有后臺(tái)的數(shù)據(jù)庫(kù)。而目前主流的數(shù)據(jù)庫(kù)有以下幾種：

低級(jí)數(shù)據(jù)庫(kù)最流行的是ACCESS；中級(jí)數(shù)據(jù)庫(kù)，最流行的是SQLServer2000,SQL

Server2005,Mysql；高端的三大數(shù)據(jù)庫(kù)，DB2,ORACLE,SYBASE□

其中，我選擇ACCESS2003做為系統(tǒng)的后臺(tái)數(shù)據(jù)庫(kù)。ACCESS2003是美國(guó)微軟

公司開(kāi)發(fā)的一款關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)的產(chǎn)品，具有成本低，易上手，工具全等

優(yōu)點(diǎn)。適用于大型或超大型數(shù)據(jù)庫(kù)服務(wù)器端。

利用VB6.0卓越、快速、簡(jiǎn)便的界面開(kāi)發(fā)平臺(tái)，制作系統(tǒng)的客戶端界面；再

利用ACCESS2003,創(chuàng)建出具有合理的物理關(guān)系、邏輯關(guān)系的后臺(tái)數(shù)據(jù)庫(kù)；最后

運(yùn)用VB語(yǔ)言來(lái)編寫(xiě)代碼，實(shí)現(xiàn)人機(jī)交互，運(yùn)用ADO的方法來(lái)建立與后臺(tái)數(shù)據(jù)庫(kù)

的連接，包括數(shù)據(jù)的添加、查詢、刪除、修改等等；最后開(kāi)發(fā)和測(cè)試系統(tǒng)。

2.3.3開(kāi)發(fā)與運(yùn)行環(huán)境

(1)硬件環(huán)境

處理器：InterPentiumHI或更高。

內(nèi)存：256MB以上

硬盤空間：40GB

顯卡：集成顯卡或更高

(2)軟件環(huán)境

操作系統(tǒng)：WindowsXPo

開(kāi)發(fā)工具：VB6.0中文企業(yè)版。

數(shù)據(jù)庫(kù)：MicrosoftACCESS2003□

美化工具：Photoshopo

其他:Excelo

3.管理軟件設(shè)計(jì)

3.1功能設(shè)計(jì)

倉(cāng)庫(kù)管理系統(tǒng)可以為小型的貨物管理部門提供基本的倉(cāng)庫(kù)管理，從而幫助倉(cāng)

庫(kù)管理人員能夠使用軟件對(duì)其現(xiàn)有業(yè)務(wù)流程進(jìn)行搞笑的管理，這些管理包括：

貨物信息管理，包括貨物信息的增加、修改、刪除、瀏覽管理；

貨物采購(gòu)入庫(kù)管理，對(duì)采購(gòu)的貨物完成電子入庫(kù)；

貨物銷售出庫(kù)管理，對(duì)銷售的貨物實(shí)現(xiàn)電子出庫(kù)；

查詢管理，包括對(duì)貨物信息的查詢、客戶信息的查詢和其他信息的查詢；

貨物信息打印，對(duì)當(dāng)前倉(cāng)庫(kù)中的貨物信息進(jìn)行打??；

管理員管理，主要是管理員的登錄管理與口令管理。

3.2模塊結(jié)構(gòu)設(shè)計(jì)

“4S店汽車零配件倉(cāng)庫(kù)管理系統(tǒng)”可分為幾個(gè)主模塊：系統(tǒng)管理、基本信

息管理、查詢管理、出入庫(kù)管理、庫(kù)存管理。按照結(jié)構(gòu)化的系統(tǒng)設(shè)計(jì)方法，將整

個(gè)系統(tǒng)分解成相對(duì)獨(dú)立的若干模塊，通過(guò)對(duì)模塊的設(shè)計(jì)和模塊之間關(guān)系的協(xié)調(diào)來(lái)

實(shí)現(xiàn)整個(gè)軟件系統(tǒng)的功能，從而得到系統(tǒng)的功能模塊結(jié)構(gòu)圖。本系統(tǒng)的功能模塊

結(jié)構(gòu)如圖3-1所示。

汽車4S店零配件倉(cāng)儲(chǔ)管理

基

庫(kù)

系出

本查

存

入

統(tǒng)信詢

管

庫(kù)

管息管

理

管

理管

理理

理

圖3-1系統(tǒng)模塊結(jié)構(gòu)圖

3.3程序流程圖

3.4數(shù)據(jù)庫(kù)設(shè)計(jì)

有關(guān)數(shù)據(jù)結(jié)構(gòu)的建立：在進(jìn)行了數(shù)據(jù)基本結(jié)構(gòu)的規(guī)范化重組后，還必須建立

整體數(shù)據(jù)的關(guān)系結(jié)構(gòu)。這一步設(shè)計(jì)完成后數(shù)據(jù)庫(kù)和數(shù)據(jù)結(jié)構(gòu)設(shè)計(jì)工作基本完成,

以后系統(tǒng)實(shí)現(xiàn)時(shí)將數(shù)據(jù)分析和數(shù)據(jù)庫(kù)的內(nèi)容代入到所設(shè)計(jì)的數(shù)據(jù)整體關(guān)系結(jié)構(gòu)

中，一個(gè)規(guī)范化數(shù)據(jù)庫(kù)系統(tǒng)結(jié)構(gòu)就建立起來(lái)了。

根據(jù)分析階段得出的結(jié)論，結(jié)合本系統(tǒng)對(duì)有關(guān)數(shù)據(jù)的存儲(chǔ)的需要，更加方便

實(shí)現(xiàn)該管理系統(tǒng)的所有功能，現(xiàn)將本管理系統(tǒng)設(shè)計(jì)成如下幾個(gè)數(shù)據(jù)庫(kù)表，表的設(shè)

計(jì)如下：

表3T用戶信息表

計(jì)量單位文本(20)

入庫(kù)數(shù)量數(shù)字

采購(gòu)價(jià)格貨幣

生產(chǎn)廠家文本(50)

采購(gòu)人文本(20)

表3-4銷售出庫(kù)信息

字段名稱類型大小

出庫(kù)單號(hào)文本(50)

出庫(kù)日期文本(20)

配件編號(hào)文本(50)

配件名稱文本(50)

型號(hào)文本(50)

計(jì)量單位文本(20)

出庫(kù)數(shù)量數(shù)字

銷售價(jià)格貨幣

客戶文本(50)

銷售人文本(20)

其他表請(qǐng)參考數(shù)據(jù)庫(kù).

4.倉(cāng)儲(chǔ)管理軟件的設(shè)計(jì)

4.1界面的設(shè)計(jì)

界面要求美觀易懂、操作簡(jiǎn)單，使用戶感覺(jué)愉快、操做方便，從而提高使用

效率。本系統(tǒng)基于WindowsXP操作系統(tǒng)，因此在界面上遵循WindowsXP的傳統(tǒng)

風(fēng)格，由標(biāo)題欄、菜單欄、快捷工具按鈕、對(duì)話框等要素組成。與WindowsXP

操作系統(tǒng)一致的人機(jī)界面，使得用戶只要具備WindowsXP操作基礎(chǔ)，就能很快

適應(yīng)本管理系統(tǒng)的操作使用，因此能夠大大降低系統(tǒng)培訓(xùn)費(fèi)用以及培訓(xùn)周期，提

高系統(tǒng)的可推廣性。

為了進(jìn)一步美化界面，使得用戶在操作中更加心情舒暢，我們選用

PhotoshopCS4圖像處理軟件，為系統(tǒng)設(shè)計(jì)了比較新穎的界面圖。總之對(duì)系統(tǒng)界

面的整體風(fēng)格，頁(yè)面布局結(jié)構(gòu)以及色彩搭配等進(jìn)行了合理的規(guī)劃和設(shè)計(jì)，在保證

操作員實(shí)用性、方便性的前提下，創(chuàng)造更簡(jiǎn)單，更友好的系統(tǒng)界面。

4.1.1登錄界面設(shè)計(jì)

用戶登錄窗口啟動(dòng)。包括輸入用戶名和密碼，登錄(默認(rèn)用戶名admin,密

碼admin)o從用戶信息表中檢查是否有相應(yīng)的用戶名和密碼，如果用戶名或密

碼錯(cuò)誤，進(jìn)行提示；如果輸入的用戶名和相應(yīng)密碼正確，進(jìn)入主控制平臺(tái)。用戶

登錄模塊的窗體設(shè)計(jì)，在工程中添加一個(gè)窗體，命名為frmLogono用戶登錄模

塊的窗體如圖4-1所示。

圖4-1登錄

其中用戶登錄連接數(shù)據(jù)庫(kù)的部分代碼：

檢查是否有相應(yīng)的用戶名和密碼代碼：

PrivateSubcmdOK_Click()”進(jìn)入..確定

'OnErrorGoToErr

DimtxtSqlAsString

UserID二””

IfTrim(txtUserName.Text)="“Then”判斷用戶名是否為空

MsgBox”請(qǐng)輸入帳號(hào)!”,vbOKOnly+vbExclamation,“警告”

txtUserName.SetFocus

ExitSub

EndIf

IfTrim(txtPassword.Text)=""Then'判斷密碼是否為空

MsgBox”請(qǐng)輸入密碼！"，vbOKOnly+vbExclamation,"警告”

txtPassword.SetFocus

ExitSub

EndIf

檢查是否有該用戶代碼：

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

”判斷是否有這個(gè)用戶

Ifrs.StateThenrs.Close

rs.OpentxtSql,CN,adOpenStatic,adLockOptimistic

Ifrs.EOF=TrueThen”如果沒(méi)有這個(gè)用戶

MsgBox”沒(méi)有這個(gè)帳號(hào)，請(qǐng)重新輸入帳號(hào)!”,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主界面設(shè)計(jì)

汽車維修企業(yè)零部件管理主界面是如圖4-2主界面。采用SDI窗體。WINDOWS

風(fēng)格設(shè)計(jì)。主要采用菜單式的管理方式。主界面功能包括系統(tǒng)設(shè)置，基本數(shù)據(jù),

出入庫(kù)管理，庫(kù)存管理，查詢管理和幫助。

圖4-2主界面截圖

其中部分代碼如下:

PrivateSubMDIFormLoad()

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

Me.StatusBarl.Panels(2).Text=〃★歡迎使用汽車4S店零配件倉(cāng)庫(kù)管理

系統(tǒng)★〃

CallPrivsSeting

EndSub

4.1.3用戶管理界面設(shè)計(jì)

系統(tǒng)設(shè)置包括，用戶，密碼，數(shù)據(jù)庫(kù)管理。用戶包括權(quán)限管理。用戶管理模

塊實(shí)現(xiàn)2個(gè)主要功能：增加新的操作人員、刪除指定的操作人員。密碼是對(duì)當(dāng)前

用戶進(jìn)行密碼修改，其中代碼可以參考frmUsers。如圖4-3

用戶管理

刪除用戶

用戶名稱：|Combo5三］

刪除

退出

如圖4-3用戶管理界面

4.1.4基本信息界面設(shè)計(jì)

汽車4S店零配件倉(cāng)庫(kù)管理系統(tǒng)基本信息包括對(duì)配件分析信息,配件信息的

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

圖4-4配件信息截圖

其中主要代碼如下：

PrivateSubcmdRegAdd_Click()'''添加

nModeSys=2''添加操作

DimIDmaxAsString

DimiAsInteger

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

IfLbl(i).Caption=〃庫(kù)存量〃Then

Txt(i).Text=0

Else

Txt(i).Text=〃〃

EndIf

Nexti

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

cmdRegSave.Enabled=True

4.1.5出入庫(kù)界面設(shè)計(jì)

出入庫(kù)管理包括采購(gòu)入庫(kù)和銷售出庫(kù)信息。入庫(kù)管理界面如圖4-6所示。本

界面主要是對(duì)入庫(kù)單信息進(jìn)行添加刪除修改保存等操作。其中代碼詳情請(qǐng)參考

frmlk文件。

圖4-6入庫(kù)界面截圖

點(diǎn)擊添加按鈕如圖4-7可實(shí)現(xiàn)汽車零配件的添加。配件編號(hào)是支持選擇配件

信息的，可以名稱進(jìn)行選擇。

圖4-7添加界面截圖

其中代碼如下：

rst.Open"select*from采購(gòu)入庫(kù)信息where入庫(kù)單號(hào)='〃&

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出庫(kù)管理設(shè)計(jì)

出庫(kù)管理設(shè)計(jì)和入庫(kù)管理設(shè)計(jì)思想一樣，并不做詳細(xì)說(shuō)明，其中出庫(kù)管理

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

4-8銷售出庫(kù)界面截圖

圖4-9出庫(kù)添加截圖

4.1.7零配件庫(kù)存管理設(shè)計(jì)

零配件庫(kù)存管理包括汽車零配件詳細(xì)庫(kù)存信息和庫(kù)存量查詢?？梢越y(tǒng)計(jì)零配

件出入庫(kù)數(shù)量及時(shí)間。如圖4-10。其中的代碼：

Ifrst.StateThenrst.Close

rst.Open"select配件編號(hào)，配件名稱，型號(hào)，計(jì)量單位from配件信息”，CN,

adOpenStatic,adLockOptimistic

DimiAsInteger

DimjAsInteger

DimgridlAsInteger

i=0

IfrsK.StateThenrsK.Close

rsK.Open"select*from盤點(diǎn)信息表where年月&Combo1.Text&&

Combo2.Text&CN,adOpenStatic,adLockOptimistic

IfNotrsK.EOFThen

IfMsgBox（"本月份配件已統(tǒng)計(jì)，是否重新統(tǒng)計(jì)？"，vblnformation+

vbYesNo,“提示“）=vbYesThen

CN.Execute”deletefrom盤點(diǎn)信息表where年月=&

Combo1.Text&&Combo2.Text&

Else

ExitSub

Endlf

4-10零配件庫(kù)存管理截圖

4-11零配件信息檢索截圖

4.1.8查詢功能的設(shè)計(jì)

查詢功能的設(shè)計(jì)包括零配件出入庫(kù)查詢和數(shù)據(jù)統(tǒng)計(jì)。從而實(shí)現(xiàn)管理人員對(duì)零

配件的數(shù)量，銷售數(shù)量，庫(kù)存數(shù)量進(jìn)行統(tǒng)計(jì)以及查詢。如圖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〃請(qǐng)選擇或輸入數(shù)據(jù)！〃，，〃系統(tǒng)提示〃

4-12信息檢索截圖

4.1.9幫助界面設(shè)計(jì)

關(guān)于和幫助界面是對(duì)系統(tǒng)軟件版本，作者的一個(gè)介紹。幫助界面是對(duì)功

能介紹包括：

初始用戶：用戶和密碼都為admino

添加用戶：在用戶名稱中輸入要添加用戶的名，原始密碼為12345,可以修

改，之后點(diǎn)添加。完畢。如果系統(tǒng)已經(jīng)添加的該用戶，系統(tǒng)自動(dòng)提示，重新添加。

刪除用戶：選中要?jiǎng)h除的用戶，直接點(diǎn)刪除、系統(tǒng)有提示是否真的刪除，點(diǎn)

是，就刪除了此用戶。如圖4-13。

4-13關(guān)于截圖

4.2倉(cāng)儲(chǔ)管理軟件安全性的設(shè)計(jì)

倉(cāng)庫(kù)管理系統(tǒng)的安全性設(shè)計(jì)可以分為數(shù)據(jù)庫(kù)級(jí)安全設(shè)計(jì)和應(yīng)用軟件級(jí)安全

設(shè)計(jì)兩個(gè)級(jí)別。

數(shù)據(jù)庫(kù)級(jí)安全設(shè)計(jì)對(duì)數(shù)據(jù)庫(kù)級(jí)安全通過(guò)賦予操作員不同的操作權(quán)限，控制操

作員對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)，對(duì)操作員進(jìn)行存取控制；另外并發(fā)控制、完整性約束以及

數(shù)據(jù)的備份和恢復(fù)策略等等，這些安全性都可以充分利用數(shù)據(jù)庫(kù)管理系統(tǒng)(DBMS)

本身具有的功能來(lái)實(shí)現(xiàn)。

應(yīng)用軟件級(jí)安全設(shè)計(jì)可以在系統(tǒng)平臺(tái)上根據(jù)不同的登陸身份和權(quán)限，給出不

同的操作界面，允許不同的操作。本系統(tǒng)的登錄模塊、用戶管理模塊配合，就是

完成這樣的功能。

5系統(tǒng)測(cè)試

測(cè)試的目的就是為了能以最少的人力和發(fā)現(xiàn)潛在的各種錯(cuò)誤和缺陷。系統(tǒng)測(cè)

試是保證系統(tǒng)質(zhì)量和可靠性的關(guān)鍵步驟，是對(duì)系統(tǒng)開(kāi)發(fā)過(guò)程的系統(tǒng)分析，系統(tǒng)設(shè)

計(jì)和系統(tǒng)實(shí)施的最后檢查。

測(cè)試表格顯示此功能模塊通過(guò)測(cè)試，也證明了本功能模塊與其他模塊的獨(dú)立

性十分強(qiáng)，從而在以后維護(hù)軟件的過(guò)程中，能夠更多的更有效的使用各個(gè)功能模

塊。

5.1測(cè)試項(xiàng)：整個(gè)系統(tǒng)

5.2測(cè)試條件：

在其他測(cè)試項(xiàng)目都通過(guò)了單元測(cè)試，組合測(cè)試，確認(rèn)測(cè)試。下面針對(duì)整個(gè)系

統(tǒng)進(jìn)行測(cè)試：系統(tǒng)測(cè)試是將已經(jīng)確認(rèn)的軟件，計(jì)算機(jī)硬件等其他因素組合在一起,

進(jìn)行信息系統(tǒng)的各種組裝和確認(rèn)測(cè)試，其目的是通過(guò)和系統(tǒng)的需求相比較，發(fā)現(xiàn)

所開(kāi)發(fā)的系統(tǒng)與用戶需求不符或矛盾的地方。常見(jiàn)的系統(tǒng)測(cè)試有恢復(fù)測(cè)試，安全

性測(cè)試，強(qiáng)度測(cè)試，性能測(cè)試，可靠性測(cè)試，安裝測(cè)試。在本系統(tǒng)中我們對(duì)整個(gè)

源代碼進(jìn)行測(cè)試，發(fā)現(xiàn)系統(tǒng)沒(méi)有出現(xiàn)什么問(wèn)題，在將系統(tǒng)打包后可能會(huì)出現(xiàn)的問(wèn)

題就是有些機(jī)器上沒(méi)有微軟公司的一些ActiveXObject控件或者是某些組件。因

此導(dǎo)致系統(tǒng)不能加載某寫(xiě)對(duì)象，為了解決這個(gè)問(wèn)題我在對(duì)ActiveXObject控件進(jìn)

行了打包做成壓縮包，只要復(fù)制到相應(yīng)的文件夾中即可。

通過(guò)對(duì)整個(gè)系統(tǒng)的測(cè)試，我發(fā)現(xiàn)整個(gè)系統(tǒng)的功能還是比較穩(wěn)定，雖然在某些

地方還不盡如人意，但是我們開(kāi)發(fā)的目的還是達(dá)到了，作為第一次完整的開(kāi)發(fā)軟

件，第一次做畢業(yè)設(shè)計(jì)，我們從中還是學(xué)到了不少的知識(shí)，通過(guò)這次開(kāi)發(fā)，我們

為以后進(jìn)入汽車4S店售后行業(yè)做管理工作積累了一定的經(jīng)驗(yàn)。

在開(kāi)發(fā)本系統(tǒng)時(shí)，為了使系統(tǒng)能夠穩(wěn)定運(yùn)行，對(duì)本系統(tǒng)進(jìn)行了有針對(duì)性的全

面測(cè)試，采取的方式是：

1、菜單項(xiàng)測(cè)試：為了保證每一項(xiàng)下拉菜單能夠正確實(shí)現(xiàn)系統(tǒng)設(shè)計(jì)的功能，

我設(shè)計(jì)了一些測(cè)試數(shù)據(jù)，基本上全部輸入到本系統(tǒng)中，并對(duì)每一個(gè)菜單項(xiàng)逐一進(jìn)

行了增加、刪除、修改等操作，從而保證了菜單沒(méi)級(jí)功能的正確實(shí)現(xiàn)。

2、數(shù)據(jù)測(cè)試：完成隊(duì)菜單項(xiàng)測(cè)試后，我又對(duì)系統(tǒng)內(nèi)的每一個(gè)數(shù)據(jù)進(jìn)行了測(cè)

試。例如:例如對(duì)配件編號(hào)，我首先在配件信息模塊中對(duì)某個(gè)配件信息進(jìn)行設(shè)定，

然后在其他模塊進(jìn)行數(shù)據(jù)操作，隨時(shí)觀察這兩個(gè)數(shù)值之間是否有沖突產(chǎn)生，經(jīng)過(guò)

多次設(shè)置并進(jìn)行驗(yàn)證，說(shuō)明該功能沒(méi)有問(wèn)題。

3、綜合測(cè)試：在以上測(cè)試的基礎(chǔ)上對(duì)系統(tǒng)功能進(jìn)行了整體的測(cè)試，依次來(lái)

檢驗(yàn)系統(tǒng)功能是否符合系統(tǒng)設(shè)計(jì)的要求。

6.結(jié)論

于以前對(duì)VB6.0和Access2003只是了解并不能夠靈活運(yùn)用，所以在畢設(shè)期

間進(jìn)行了一番研究，終于可以基本掌握了常用控件的用法和語(yǔ)句編程。數(shù)據(jù)庫(kù)的

建設(shè)和使用，雖然SQL數(shù)據(jù)庫(kù)的安全性和普及性很高，但我們?cè)谌粘Ｖ羞€是接觸

得比較少，所以這自然又是一番努力的學(xué)習(xí)，就拿安裝配置以及連接數(shù)據(jù)庫(kù)方面

來(lái)說(shuō)就不那么容易。會(huì)用了兩種軟件，如何把它們連接在一起還真是一件困難的

事：選擇連接的方法就很重要，通過(guò)各方面的比較，我選擇了ADO,通過(guò)ADO對(duì)

象與數(shù)據(jù)庫(kù)中各表進(jìn)行連接，同時(shí)也用到少數(shù)編程實(shí)現(xiàn)VB和數(shù)據(jù)庫(kù)的連接。在

開(kāi)發(fā)過(guò)程中我遇到了許許多多的問(wèn)題，很多地方都不明白，經(jīng)常有打退堂鼓的想

法，我經(jīng)常的請(qǐng)教同學(xué)和老師，最后的成果雖然不很完美，但我盡力了，并有所

收獲。

總結(jié)與體會(huì)

在開(kāi)發(fā)過(guò)程中我遇到了許許多多的問(wèn)題，很多地方都不明白，經(jīng)常有打退堂

鼓的想法，我經(jīng)常的請(qǐng)教同學(xué)和老師，最后的成果雖然不很完美，但我盡力了，

并有所收獲。通過(guò)畢業(yè)設(shè)計(jì)的鍛煉，對(duì)于以前所學(xué)的的基本知識(shí)進(jìn)行了一次比較

系統(tǒng)的復(fù)習(xí)和鞏固。對(duì)我們非計(jì)算機(jī)專業(yè)的學(xué)生來(lái)說(shuō)設(shè)計(jì)一個(gè)軟件還是有一定難

度的，自己通過(guò)查閱大量的書(shū)籍以及以前所做軟件的經(jīng)驗(yàn)總結(jié)，還是比較順利的

完成了畢業(yè)設(shè)計(jì)的要求。特別是對(duì)VB6.0和Access2003有了更深層次的理解，

在開(kāi)發(fā)過(guò)程中我遇到了許許多多的問(wèn)題，很多地方都不明白，經(jīng)常有打退堂鼓的

想法，我經(jīng)常的請(qǐng)教同學(xué)和老師，最后的成果雖然不很完美，但我盡力了，并有

所收獲。

致謝

這次的畢業(yè)設(shè)計(jì)已經(jīng)進(jìn)入尾聲，在這里我要真誠(chéng)地感謝幫助我的老師和同學(xué),

有了他們的幫助我才能順利的完成這次畢業(yè)設(shè)計(jì)。從選擇畢業(yè)設(shè)計(jì)題目開(kāi)始，到

畢業(yè)設(shè)計(jì)規(guī)劃，查找相關(guān)資料，設(shè)計(jì)模型，具體實(shí)施，結(jié)束論文，整個(gè)大致的流

程中，我的導(dǎo)師都給予了我耐心的指導(dǎo)和非常到位的指點(diǎn)，設(shè)計(jì)時(shí)間之長(zhǎng)，其間

遇到了不少問(wèn)題，也承蒙了老師的照顧，真的想對(duì)老師說(shuō)一聲：老師，辛苦了，

謝謝您。除此之外，我還要致謝我的幾位同學(xué)的得力相助，我希望我能向他們學(xué)

習(xí)，發(fā)揚(yáng)那種百折不撓、孜孜不倦的對(duì)知識(shí)求索精神,那種至高無(wú)上的敬業(yè)精神，

馬上我就要走向工作單位了，我相信我會(huì)時(shí)刻用他們的平凡而不簡(jiǎn)單來(lái)鞭策自己。

再次衷心地感謝幫助我的老師和同學(xué)。

【參考文獻(xiàn)】

：1］塞奎春.VB6工程應(yīng)用與項(xiàng)目實(shí)踐［M］.北京：機(jī)械工業(yè)出版社，2005.

［2］薩師炮，王珊.數(shù)據(jù)庫(kù)系統(tǒng)概論［M］.北京：高等教育出版社，2004.

［3］黃明.信息系統(tǒng)設(shè)計(jì)與開(kāi)發(fā)實(shí)例［M］.北京：機(jī)械工業(yè)出版社，2005.

［4］張海藩.軟件工程導(dǎo)論［加.北京：清華大學(xué)出版社，1998.

［5］申莉莉.SQLSERVER數(shù)據(jù)庫(kù)應(yīng)用教程加］.北京：機(jī)械工業(yè)出版社，2005

［6］李建中.數(shù)據(jù)庫(kù)系統(tǒng)原理［M］.西安：電子工業(yè)出版社，1998.

［7］劉瑞新.VB6.0數(shù)據(jù)庫(kù)開(kāi)發(fā)畢業(yè)設(shè)計(jì)指導(dǎo)及實(shí)例［M］.北京：機(jī)械工業(yè)出版社,

2005.

［8］劉軍.汽車4s店管理全程指導(dǎo).北京：化學(xué)工業(yè)出版社，2011.

［9］宓亞光.汽車特約銷售服務(wù)站經(jīng)營(yíng)與管理叢書(shū).北京：機(jī)械工業(yè)出版

社,2011.

［10］王豐，張劍芳，盧寶亮.倉(cāng)庫(kù)安全管理與技術(shù)（第2版）.北京：中國(guó)物資

出版社,2008.

附錄

4S店汽車零配件倉(cāng)儲(chǔ)管理系統(tǒng)代碼:

PrivateSubCARPP_Click()

strTableName=〃汽車品牌〃

frmZiDian.Show1

EndSub

PrivateSubCGLK_Click()

strTableName=〃采購(gòu)入庫(kù)信息〃

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=〃采購(gòu)入庫(kù)信息〃

frmFind.Show1

EndSub

PrivateSubFindKC_Click()

strTableName=〃配件信息〃

frmFind.Show1

EndSub

PrivateSubFindXXClick()

strTableName=〃銷售出庫(kù)信息〃

frmFind.Show1

EndSub

PrivateSubFJFX_Click()

strTableName=〃配件分類〃

frmZiDian.Show1

EndSub

PrivateSubFormLoad()

Me.Caption=〃汽車4s店零配件倉(cāng)儲(chǔ)管理系統(tǒng)---操作員：〃&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'詳細(xì)庫(kù)存

EndSub

PrivateSubSysAbout_Click()''關(guān)于

frmAbout.Show1

EndSub

PrivateSubsysManager_Click()

frmUser.Show1

EndSub

PrivateSubUserpaswordClick()''用戶密碼

frmpsd.Show1

EndSub

PrivateSubXSCK_Click()

frmck.Show1'銷售出

EndSub

采購(gòu)入庫(kù)管理界面代碼：

PrivateSubCommand1_Click()'查詢

DimrstAsNewADODB.Recordset

DimiAsInteger

DimstrSQLAsString

IfTrim(Textl.Text)=,,nThen

strSQL="select*from采購(gòu)入庫(kù)信息orderby入庫(kù)單號(hào)desc"

Else

Fori=0To3

IfOptionl(i).Value=TrueThen

strSQL="select*from采購(gòu)入庫(kù)信息where"&Option1(i).Caption&

like%"&Trim(Textl.Text)&0%,orderby入庫(kù)單號(hào)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”沒(méi)有查詢記錄信息“提示”

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