汽車銷售管理系統的設計實現與汽車4S店管理系統應用

一、緒論

摘要：

本系統是為處理汽車銷售企業的管理問題而設計。伴隨經濟H勺發展和國內汽

車市場日勺不停擴大，某汽車銷售企業定單成倍增長，各項業務愈加細化，各部門

分工愈加明確。而目前的人工管理方式顯然已是不符合現代企業日勺管理規定。

基于整體考慮，本次課程設計任務就是設計一種管理系統，運用計算機來替

代人工操作。減輕了員工的勞動強度，提高了勞動質量和效率，減少了錯誤的發

生。

本次設計，從需求分析，概念設計，邏輯設計，物理設計，到數據庫。勺建立、

運行，再到數據庫日勺安全維護等各個方面進行了詳細口勺分析設計。并且值得一提

H勺是，我認真分析了企業口勺業務需求，企業日勺重要職責和重要構造等信息，從而

保證了設計出比較符合企業需要口勺管理系統。

1.1系統簡介

《智百盛汽車銷售管理系統》是針對汽車銷售行業的業務特點，專為汽車銷

售日勺企業設計制作。我們根據現代科學管理理念，集國內外先進管理思想，并結

合自身數年積累日勺開發經驗和大量的市場調研，在高度集成、操作簡樸、以便管

理、使用靈活等原則H勺指導下精心研發的一款軟件。

該軟件重要包括客戶關系管理、進車管理、庫存管理、售車管理、代辦管理、

財務管理、報表分析、系統管理等模塊。軟件價格低廉，功能強大，維護簡樸，

無論中、小型企業，花費很少投資，可以迅速得到企業全面信息化管理應用。

?智百盛汽車俏售管理系統7.5緊密結合當今汽銷模式，為汽銷企業提

供了全面日勺信息管理功能。是廣大汽車經銷商、汽車特許專營店等顧

客優秀的計算機管理方案。滿足各級部門對工作的需求，如總經理、

銷售經理、銷售人員、會計、出納、計劃員、庫管員等，是汽車銷售

企業最佳管理利器。

?集汽銷企業的進、銷、存、財管理于一體。

?所有單據和報表均支持底盤號、發動機號、合格證號等顯示、查詢

和打印。

?先進的）萬能查詢功能。

?支持顧客自定義報表。

?所有單據和表格可以導出至Excel、Word、HTML>TXT格式文獻。

?嚴謹的權限設置，不僅可以定義菜單權限，還可以定義詳細操作權

限。

-實用的多帳套管理。

?操作簡樸、極易上手，不必專業培訓I,會用鍵盤鼠標即會使用。

《智百盛汽車銷售管理系統》采用了大量的最新技術，深入完善了

業務管理功能，整個產品在管理功能、易用性、數據容量、數據安全

性等方面均有了很大H勺提高。

二、系統需求分析

本系統日勺設計模擬一般醫院的汽車銷售管理系統內容，通過充足日勺系統分析和調研,

本系統重要包括的信息有3類：汽車商品信息、汽車進貨信息以及汽車銷售信息。

在老式的俏售管理工作中，往往是用人工清點的方式來掌握倉庫中的汽車商品、使用

手工記賬的方式來掌握商品日勺進貨和銷售狀況。這種方式在數量較少、庫存變換少的狀況

下，不失為一種好的措施。不過，伴隨每天所發生的進貨和銷售狀況紛繁復雜，假如借助

人工來記錄和管理，將會花費大量的時間，并且輕易出現錯誤，導致管理上日勺混亂。

詳細而言，汽車銷售管理系統需要實現一下的需求：

（1）可以對醫院過擁有日勺多種汽車的I基礎信息進行維護和管理。汽車日勺基礎信息

包括：汽車的次序號、汽車名稱、汽車規格、計量單位、備注信息、庫存數

量等。系統需要可以對汽車信息進行添加、修改和刪除，也可以以圖形的方

式顯示出現汽車口勺庫存數最的比較。

（2）跟蹤多種汽車的II勺進貨信息。汽車的進貨信息包括次序號、汽車名稱、進貨

數量、進貨價格、進貨日期、備注等。系統還需要可以對進貨信息進行添加、

修改和刪除.也可以按照一定的條件來進行查詢c

（3）跟蹤多種汽車的銷售信息。汽車的銷售信息包括次序號、汽車名稱、顧客名

稱、購置數量、售出價格、銷售日期、備注等。系統需要可以對銷售信息進

行添加、修改和刪除，也可以按照一定向條件來進行查詢。

三、界面設計

設計主界面美觀，以便實用：

盛號件展樓停徵屬筑

07fia/snen9Software

四、概念構造設計

本階段口勺重要任務是將需求分析得到口勺顧客需求抽象為信息構造構造（即概

念模型）

設計概,念構造一般有四類措施：自頂向下、自底向上、逐漸打張和混合方略C

我在這里采用自底向上措施。

概念設計成果如下:

（某企業轎車銷售管理系統的基本E-R圖）

五、邏輯構造設計

邏輯構造設計的任務就是把^念構造設計階段設計好的基本E-R圖轉換為與sql所支

持的數據模型相符合的邏輯構造。

1.E-R圖向關系模型轉換

由概念設計於JE-R圖可得一般關系模型如下

廠商（廠商號，廠商名，地址,，信用度）

客戶（客戶號，客戶名，地址,，信用度）

發貨單（貨單號，細節號,戶品號,客戶號,數量，日期，金日,折扣）

收款單（客戶號，定單號，收據號，收款金額，收款日期）

定單（定單號，細節號，產品號，廠商號，數量，FI期,金額）

付款（廠商號，定單號，發票號,支付金額,支付口期）

顧客（顧客1D,顧客名，密碼,顧客類型,權限）

員工（員工號,姓名,性別,部門,職務，）

產品（巴睹，產品名，廠商號，單價，庫存量）

2.數據模型日勺優化

數據庫邏輯設計的成果不是唯一時.為深入提高數據庫應用系統的性能,我們還應當根

據應用需要合適口勺修改，調整數據模型日勺構造，這就是數據模型口勺優化。

（1）數據依賴舉例

R廠商=（廠商號-＞廠商名，廠商號-＞地址,廠商號-＞）

R顧客=｛顧客ID一〉顧客名，顧客II）一＞密碼，顧客H）一＞顧客類型，顧客［1）一＞權限,

顧客類型一〉權限｝

（2）對數據依賴進行極小化處理，消除冗余聯絡舉例

上述關系中，發貨單中存在冗余聯絡（詳細是細節號、折扣等），因此我們可以增長一種

發貨細節單和折扣規則單,

（3）按照數據依賴的理論對關系模式逐進行分析，考察與否存在部分函數依賴，傳遞

函數依賴，多值依賴等，確定各關系分別屬于第兒范式舉例

上述關系中，顧客表存在非主屬性傳遞依賴，因此顧客表屬于2NF。我們可以增長一種

顧客權限表來消除該表中非主屬性傳遞依賴。

3.邏輯設計最終止果如下:

1列名數據類型長度允許空

User_typesmallint2

Type_discriptionchar50

（UscrTypc表）

列名數據類型長度允許空|

User_namevarchar10

User_pwdvarchar20

User_typesmallint2

（Users表）

列名數據類型長度允許空|

Staff_najnevarchar10

Staff_sexvarchar2

Staff_departvarchar10V

varchar10/

Staff.telvarchar10V

staff_salarymoney8V

___■

（Staff表）

（共13個表，其他截醫略）

六、系統構造設計

1.在關系模式存取措施選擇之前，我們首先要對要運行的事務進行詳細分析，獲得選

擇物理數據庫設計所需要的參數。同步，還要懂得每個事務在各關系上運行日勺頻率和性能規

定。

(1)對于數據庫查詢事務，我們需要得到如下信息：查詢的關系、查詢條件/連接條件

波及附屬性、查詢的投影屬性

A、食詢發貨廠商名、產品、發貨數量(>100)和日期事務

屋查詢的關系：廠商表、發貨單表、產品表

II,查詢條件所波及附屬性：廠商號、發貨數品、產品號

III、連接條件所波及附屬性：廠商號、產品號

IV.查詢時投影屬性：廠商名、產品名、發貨數量、發貨n期

(2)對于數據更新事務，我們需要得到如下信息：被更新的關系、每個關系上的更新

操作條件波及H勺屬性、修改操作要變化的屬性值

B、對發貨事務

I、被更新的關系：發貨表

II、每個關系上II勺更新操作條件所波及附屬性：無

HI、需要改口勺屬性值：貨單號、產品號、發貨數量、發貨n期

2.關系模式存取措施選擇(即建立哪些存儲途徑)

C、對carsale建立索引

對廠商表上H勺廠商號、發貨表的產品號、產品表的產品號等建立索引，由于他們常常在

查詢條件和連接條件中出現

根據事務查詢中的廠商表建立索引如下：

CREATEUNIQUEINDEXl-aPa_noONFactory(l-a_no);

D、對carsale建立聚簇索引

對產品表口勺廠商號、付款表的廠商號、收款表的客戶號等建立聚簇索引，由于他僅在其

關系表中的值反復率很高

對產品表的產品號、發貨表的產品號、訂單表的產品號等建立聚簇索引，由于他俏常常

出目前相等比較條件中

根據事務查詢中產品表建立聚簇索引如卜

CREATECLUSTERINDEXProFa.noONProduct(Fa_no);

E、對carsale確定數據日勺寄存位置

為提高系統性能，我們根據應用狀況將數據的易變部分和穩定部分、常常存取部分和

存取頻率較低部分分開寄存。即我們把表和索引放在不一樣的磁盤上。

F、對carsale確定系統配置

使用數據庫口勺顧客數(我們只要設置比較少日勺顧客數)；

同步打開口勺數據庫對象數(顧客同步操作對象不超過3個)；

內存分派參數（運行exe文獻需要5M內存）;

緩沖辨別配參數（略）;

數據庫的大?。A留500M數據存儲空間）等。

G、對carsale物理構造H勺評價

數據庫物理設計過程中需要對時間效率、空間效率、維護代價和多種顧客規定進行權

衡，其成果產生多種方案。通過我們的J細致評價，得出上述系統配置作為carsale曰勺數據庫

物理構造。

七、詳細設計

數據H勺載入和應用程序的調試

（1）由于該系統尚未投入使用，我們僅象征性池載入少許數據

馳

奔

13000002年

旗

紅

國產紅旗1500002年

2眾

大

桑塔納1年

眾

3大100000

4-2000200000L5年（轎車

信息表導入試驗數據）

知表“Cgonwr”中的數據，位置是“8廣中、”（locdir,上_"n"x

CustomeridlCustonernemelCustofiersexICustoneroreJCustoneroccudCustonernunICustonertelICustofieraddrIBuycarIBuypriceIInfo

于東洋

男

教接10007146739華東文道大竽寶馬200000

蟲

李小

男

還理20007345234南昌初泡電柏公司柒塔泊300000<5RJLL

王段

女

30007167897華東交通大學桑塔蛆300000OIULL

（客戶信息表導入試驗數據）

表“Factory”中的數據，位置是“car”中、“（loc叫”上

Factoryid〔Factoryname(FactoryaddrFactorytelTin表"Book”中的數據，位置是“8

177654534Bookid|Customer_id|Booknum|Boc

2桑塔納98765643121020C

398755643232020C

___3120020C

（訂單表導入試驗數據）

（生產商表導入試臉數據）

【應用程序日勺調試】

數據庫應用程序的設計應當與數據庫設計同步進行，鑒于VB簡樸易用，我們選擇VB作為應

用程序的設計語言。因此在組織數據入庫的同步還要調試應用

部分代碼：

部分代碼

A進貨信息列表窗體代碼

PrivateSubcmdAdd_Click()

frmStock.mbAddMode=True

frmStock.ShowvbModal

EndSub

PrivateSubcmdDelete_Click()

OnErrorGoToerrHandler

DimIAsLong

I=grdList.TextMatrix(grdList.Rowz1)

gConn.Execute"deletefromstockwhere次序號="&I

UnloadMe

LoadMe

Me.SQL="select*fromstock"

Me.Show

ExitSub

errHandler:

MsgBoxErr.Description,vbCritical,"錯誤"

EndSub

PrivateSubcmdEdit_Click()

frmStock.mnSerial=CLngfgrdList.TextMatrixfgrdList.Row,1)]

frmStock.mbAddMode=True

frmStock.ShowvbModal

EndSub

PrivateSubcmdFind_Click(]

frmFind.SQL=mRs.Source

frmFind.ShowvbModal

UnloadMe

LoadMe

IfTrim(frmFind.msResultSQL)<>""Then

Me.SQL="select*fromstockwhere"&frmFind.msResultSQL

EndIf

Me.Show

UnloadfrmFind

EndSub

PrivateSubcmdShowAII_Click()

UnloadMe

LoadMe

Me.SQL="select*fromstock"

Me.Show

EndSub

PrivateSubForm_Load()

DimiAsInteger

WithgrdList

.Cols=8

.TextMatrixfO,1)=""

.TextMatrix(O,2)="汽車名稱”

,TextMatrixfO,3)="供應商名稱”

.TextMatrix(O,4)="進貨數量”

.TextMatrixfO,5)="商品單價”

.TextMatrixfO,6)=”進貨口期”

.TextMatrix(O,7)="備注”

.FixedRows=1

Fori=0To.Cols-1

.ColAlignment(i)=0

Nexti

.FillStyle=flexFillRepeat

.Col=0

.Row=0

.RowSel=1

.ColSel=.Cols-1

.CellAlignment=4

.ColWidth(O)=100

.ColWidth(l)=0

.ColWidth(2)=1000

.ColWidth(3)=1000

.ColWidth⑷=1000

.ColWidth(S)=1000

.ColWidth(6)=1000

.ColWidth(7)=1000

.Row=1

EndWith

SetmRs=NewADODB.Recordset

EndSub

PrivateSubForm_Resize()

fraManage.Left=(Me.ScaleWidth-fraManage.Width)/2

fraManage.Top=Me.ScaleHeight-200-fraManage.Height

grdList.Top=200

grdList.Width=Me.ScaleWidth-200

grdList.Left=Me.ScaleLeft+100

grdList.Height=Me.ScaleHeight-fraManage.Height-grdList.Top-200

EndSub

PrivateSubForm_Unload(CancelAsInteger)

IfmRs.State<>adStateClosedThenmRs.Close

EndSub

B進貨信息編輯窗體代碼

PrivateSubcmdCancel_Click()

IfmbChangeThen

IfMsgBox("保留目前記錄的變化嗎？、vbOKCancel+vbExclamation,"警告")=vbOKThen

CallcmdOK_Click

EndIf

EndIf

UnloadMe

UnloadfrmStockList

LoadfrmStockList

frmStockList.SQL="select*fromstock"

frmStockList.Show

EndSub

PrivateSubcmdOK_Click()

OnErrorGoToerrHandler

lftxtlntem(3).Text=""Then

MsgBox”字段不能為空，并且只能輸入數字，vbCritical,"錯誤”

EndIf

Iftxtlntem(4).Text=""Then

MsgBox”字段不能為空,并且只能輸入數字”,vbCritical,“錯誤”

EndIf

IfTrim(cboltem)=""Then

MsgBox"必須選擇汽車名稱”,vbCritical,“錯誤”

cboltem.SetFocus

ExitSub

EndIf

IfNotlsDate(Trim(txtlnteml5)))Then

MsgBox"請輸入對的的日期格式!",vbOKOnly+vbExdamation,"警告"

txtlntem(5).SetFocus

ExitSub

EndIf

IfNotmbAddModeThen

gConn.Execute"deletefromstockwhere次序號&mnSerial&

EndIf

DimrsAsNewADODB.Recordset

rs.Open"select*fromstock",gConn,adOpenDynamic,adLockOptimistic

rs.AddNew

rs(“汽車名稱”)=cboltem.Text

DimiAsInteger

Fori=txtlntem.LBoundTotxtlntem.UBound

rs.Fields(i).Value=txtlntem(i)

Nexti

rs.Update

rs.Close

mnQuantity=Clnt(txtlnterr(3))-mnQuantity

gConn.Execute"updateproductsset庫存數量=庫存數量+"&mnQuantity&"where汽車名稱

="'&cboltem.Text&

IfmbAddModeThen

mbCha