汽车销售管理系统的设计实现与汽车4S店销售管理软件的应用

1、汽车销售管理系统的设计实现与汽车4S店管理系统应用一、绪论摘要：本系统是为解决汽车销售公司的管理问题而设计。 随着经济的发展和国内汽 车市场的不断扩大，某汽车销售公司定单成倍增加，各项业务更加细化，各部门 分工更加明确。而目前的人工管理方式显然已是不符合现代企业的管理要求。基于整体考虑，本次课程设计任务就是设计一个管理系统， 利用计算机来代 替人工操作。减轻了员工的劳动强度，提高了劳动质量和效率，减少了错误的发 生。本次设计，从需求分析，概念设计，逻辑设计，物理设计，到数据库的建立、 运行，再到数据库的安全维护等各个方面进行了详细的分析设计。并且值得一提的是，我认真分析了企业的业务需求，公司的

2、主要职责和主要结构等信息， 从而 保证了设计出比较符合公司需要的管理系统。1.1系统简介智百盛汽车销售管理系统 是针对汽车销售行业的业务特点，专为汽车销 售的公司设计制作。我们依据现代科学管理理念，集国内外先进管理思想，并结 合自身多年积累的开发经验和大量的市场调研， 在高度集成、操作简单、方便管 理、使用灵活等原则的指导下精心研发的一款软件。该软件主要包括客户关系管理、进车管理、库存管理、售车管理、代办管理、 财务管理、报表分析、系统管理等模块。软件价格低廉，功能强大，维护简单， 无论中、小型企业，花费很少投资，可以迅速得到企业全面信息化管理应用。智百盛汽车销售管理系统7.5紧密结合当今汽销

3、模式，为汽销企业提 供了全面的信息管理功能。是广大汽车经销商、汽车特许专营店等用 户优秀的计算机管理方案。满足各级部门对工作的需求，如总经理、 销售经理、销售人员、会计、出纳、计划员、库管员等，是汽车销售 企业最佳管理利器。集汽销企业的进、销、存、财管理于一体。所有单据和报表均支持底盘号、发动机号、合格证号等显示、查询 和打印。先进的万能查询功能。支持用户自定义报表。所有单据和表格可以导出至 Excel、Word HTML TXT格式文件。严谨的权限设置，不仅可以定义菜单权限，还可以定义具体操作权 限。实用的多帐套管理。操作简单、极易上手，无须专业培训，会用键盘鼠标即会使用。智百盛汽车销售管理

4、系统采用了大量的最新技术，进一步完善 了业务管理功能，整个产品在管理功能、易用性、数据容量、数据安 全性等方面都有了很大的提高。二、系统需求分析本系统的设计模拟一般医院的汽车销售管理系统内容，经过充分的系统分析和调研， 本系统主要包括的信息有 3类：汽车商品信息、汽车进货信息以及汽车销售信息。在传统的销售管理工作中， 往往是用人工清点的方式来掌握仓库中的汽车商品、使用手工记账的方式来掌握商品的进货和销售情况。这种方式在数量较少、库存变换少的情况下，不失为一种好的方法。但是，随着每天所发生的进货和销售情况纷繁复杂，如果借助 人工来记录和管理，将会耗费大量的时间，而且容易出现错误，造成管理上的混乱

5、。具体而言，汽车销售管理系统需要实现一下的需求：(1) 能够对医院过拥有的各种汽车的基础信息进行维护和管理。汽车的基础信息包括：汽车的顺序号、汽车名称、汽车规格、计量单位、备注信息、库存数 量等。系统需要能够对汽车信息进行添加、修改和删除，也可以以图形的方式显示出现汽车的库存数量的比较。(2) 跟踪各种汽车的的进货信息。汽车的进货信息包括顺序号、汽车名称、进货数量、进货价格、进货日期、备注等。系统还需要能够对进货信息进行添加、 修改和删除，也可以按照一定的条件来进行查询。(3) 跟踪各种汽车的销售信息。汽车的销售信息包括顺序号、汽车名称、顾客名 称、购买数量、售出价格、销售日期、备注等。系统需

6、要能够对销售信息进 行添加、修改和删除，也可以按照一定的条件来进行查询。三、界面设计设计主界面美观，方便实用:四、概念结构设计本阶段的主要任务是将需求分析得到的用户需求抽象为信息结构结构（即概念模型）设计概念结构通常有四类方法：自顶向下、自底向上、逐步扩张和混合策略 我在这里采用自底向上方法。概念设计结果如下:（某公司轿车销售管理系统的基本E- R图）五、逻辑结构设计逻辑结构设计的任务就是把概念结构设计阶段设计好的基本E-R图转换为与sql所支持的数据模型相符合的逻辑结构。1. E-R图向关系模型转换由概念设计的E-R图可得一般关系模型如下厂商（厂商号,厂商名，地址，电话，信用度）客户（客户号

7、,客户名，地址，电话，信用度）发货单（货单号,细节号,产品号，客户号，数量，日期，金额，折扣）收款单（客户号，定单号，收据号，收款金额，收款日期）定单（定单号，细节号，产品号，厂商号，数量，日期，金额）付款（厂商号，定单号，发票号，支付金额，支付日期）用户（用户ID，用户名，密码，用户类型，权限） 员工（员工号，姓名，性别，部门，职务，电话） 产品(产品号，产品名，厂商号，单价，库存量)2 数据模型的优化数据库逻辑设计的结果不是唯一的为进一步提高数据库应用系统的性能，我们还应该根据应用需要适当的修改，调整数据模型的结构，这就是数据模型的优化。(1) 数据依赖举例R厂商=厂商号- 厂商名，厂商号

8、- 地址，厂商号- 电话R用户=用户ID 用户名，用户ID 密码，用户ID 用户类型，用户ID 权限， 用户类型一 权限(2) 对数据依赖进行极小化处理，消除冗余联系举例上述关系中，发货单中存在冗余联系(具体是细节号、折扣等)，因此我们可以增加一个发货纟田节单和折扣规则单。(3) 按照数据依赖的理论对关系模式逐一进行分析，考察是否存在部分函数依赖，传递函数依赖，多值依赖等，确定各关系分别属于第几范式举例上述关系中，用户表存在非主属性传递依赖，因此用户表属于2NF我们可以增加一个用户权限表来消除该表中非主属性传递依赖。3.逻辑设计最终结果如下：1列名数稱类型先许空卜gmsllint2?|呷Tjr

9、ps_di scriptionchar50V (UserType 表)列名数据类型允许空1Usernamev ar char10jmf 且var charzon泗乩lint2(Users 表)數据类型1聲允许空S t a£ fnajn evar ct az-la£_5ckStaff_departvarcharia7io7las t a£:E.s al aryiim oney87（Staff 表）（共13个表，其他截图略）六、系统结构设计1 在关系模式存取方法选择之前，我们首先要对要运行的事务进行详细分析，获得选择物理数据库设计所需要的参数。同时，还要知道每个事务在

10、各关系上运行的频率和性能要求。（1） 对于数据库查询事务，我们需要得到如下信息：查询的关系、查询条件/连接条件 涉及的属性、查询的投影属性A、查询发货厂商名、产品、发货数量（>100）和日期事务、查询的关系：厂n、查询条件所涉及的属性：厂商号、发货数量、产品号ill 、连接条件所涉及的属性：厂商号、产品号IV、查询的投影属性：厂商名、产品名、发货数量、发货日期（2）对于数据更新事务，我们需要得到如下信息：被更新的关系、每个关系上的更新 操作条件涉及的属性、修改操作要改变的属性值B对发货事务I、被更新的关系：发货表n、每个关系上的更新操作条件所涉及的属性：无 _ill、需要改的属性值：货单

11、号、产品号、发货数量、发货日期2.关系模式存取方法选择（即建立哪些存储路径）C对carsale建立索引对厂商表上的厂商号、 发货表的产品号、 产品表的产品号等建立索引，因为他们经常在查询条件和连接条件中出现根据事务查询中的厂商表建立索引如下：CREATE UNIQUE INDEX FaPa_no ON Factory（Fa_no）;D对carsale建立聚簇索引对产品表的厂商号、付款表的厂商号、收款表的客户号等建立聚簇索引，因为他们在其关系表中的值重复率很高对产品表的产品号、发货表的产品号、订单表的产品号等建立聚簇索引，因为他们经常出现在相等比较条件中根据事务查询中产品表建立聚簇索引如下CRE

12、ATE CLUSTER INDEX ProFa_ no ON Product（Fa_ no）;E、对carsale确定数据的存放位置为提高系统性能，我们根据应用情况将数据的易变部分和稳定部分、经常存取部分和存取频率较低部分分开存放。即我们把表和索引放在不同的磁盘上。F、对carsale确定系统配置使用数据库的用户数（我们只要设置比较少的用户数）;同时打开的数据库对象数（用户同时操作对象不超过3个）；内存分配参数（运行 exe文件需要5M内存）；缓冲区分配参数（略）；数据库的大小（预留 500M数据存储空间）等。G对carsale物理结构的评价数据库物理设计过程中需要对时间效率、空间效率、维护代

13、价和各种用户要求进行权 衡，其结果产生多种方案。经过我们的细致评价，得出上述系统配置作为 carsale的数据库 物理结构。讣表吓施如屮中的数摒，位畳是 心严中、强上七、详细设计7765453493TB5643中国90T55B43Tactory idf ac toirjr nameaddrfactory tel数据的载入和应用程序的调试（1）由于该系统尚未投入使用，我们仅象征性地载入少量数据奔驰新型 回产红満3000001500001000001年2000001弓年（轿车信息表导入实验数据）.2 3n戰f?LUUOT1毎预ZQOCIXI2000T315EW3EOQK第迩1718T&9f

14、r¥4二左H事畝®HsnmoomOU（客户信息表导入实验数据）需表ilBook,14l的数据.豆書是"啓呻L11 (local) H± |Boofci dhCuls tomer1 d.E oeknwidatePara.aillr|12102006-5-823£02006-5-IS江西移动公司3120020M-5-1华东交適大学（订单表导入实验数据）（生产商表导入实验数据）【应用程序的调试】数据库应用程序的设计应该与数据库设计同时进行，鉴于VB简单易用，我们选择VB作为应 用程序的设计语言。因此在组织数据入库的同时还要调试应用部分代码：部分代码A

15、进货信息列表窗体代码Private Sub cmdAdd Click（）frmStock.mbAddMode = TruefrmStock.Show vbModalEnd SubPrivate Sub cmdDelete_Click()On Error GoTo errHandlerDim l As Long顺序号 =" & ll = grdList.TextMatrix(grdList.Row, 1) gConn.Execute "delete from stock whereUnload MeLoad MeMe.SQL = "select * from

16、 stock"Me.ShowExit Sub errHandler:MsgBox Err.Description, vbCritical, " 错误 "End SubPrivate Sub cmdEdit_Click() frmStock.mnSerial = CLng(grdList.TextMatrix(grdList.Row, 1) frmStock.mbAddMode = True frmStock.Show vbModalEnd SubPrivate Sub cmdFind_Click()frmFind.SQL = mRs.SourcefrmFind.S

17、how vbModalUnload MeLoad MeIf Trim(frmFind.msResultSQL) <> "" ThenMe.SQL = "select * from stock where" & frmFind.msResultSQLEnd IfMe.ShowUnload frmFindEnd SubPrivate Sub cmdShowAll_Click()Unload MeLoad MeMe.SQL = "select * from stock"Me.ShowEnd SubPrivate Sub

18、Form_Load()Dim i As IntegerWith grdList.Cols = 8汽车名称 " 供应商名称 " 进货数量 " 商品单价 " 进货日期 " 备注".TextMatrix(0, 1) = "".TextMatrix(0, 2) = ".TextMatrix(0, 3) = ".TextMatrix(0, 4) = ".TextMatrix(0, 5) = ".TextMatrix(0, 6) = ".TextMatrix(0, 7) = &

19、quot;.FixedRows = 1For i = 0 To .Cols - 1.ColAlignment(i) = 0Next i.FillStyle = flexFillRepeat .Col = 0.Row = 0.RowSel = 1.ColSel = .Cols - 1.CellAlignment = 4.ColWidth(0) = 100.ColWidth(1) = 0.ColWidth(2) = 1000.ColWidth(3) = 1000.ColWidth(4) = 1000.ColWidth(5) = 1000.ColWidth(6) = 1000.ColWidth(7)

20、 = 1000.Row = 1End WithSet mRs = New ADODB.RecordsetEnd SubPrivate Sub Form_Resize()fraManage.Left = (Me.ScaleWidth - fraManage.Width) / 2 fraManage.Top = Me.ScaleHeight - 200 - fraManage.Height grdList.Top = 200grdList.Width = Me.ScaleWidth - 200grdList.Left = Me.ScaleLeft + 100grdList.Height = Me.

21、ScaleHeight - fraManage.Height - grdList.Top - 200End SubPrivate Sub Form_Unload(Cancel As Integer)If mRs.State <> adStateClosed Then mRs.CloseEnd SubB 进货信息编辑窗体代码Private Sub cmdCancel_Click()If mbChange ThenIf MsgBox(" 保存当前记录的变化吗？ ", vbOKCancel + vbExclamation, " 警告 ") = vb

22、OK ThenCall cmdOK_ClickEnd IfEnd IfUnload MeUnload frmStockListLoad frmStockListfrmStockList.SQL = "select * from stock"frmStockList.ShowEnd SubPrivate Sub cmdOK_Click()On Error GoTo errHandler错误"If txtIntem(3).Text = "" ThenMsgBox " 字段不能为空，而且只能输入数字 ", vbCritical,

23、"End IfIf txtIntem(4).Text = "" ThenMsgBox " 字段不能为空，而且只能输入数字 ", vbCritical, "错误 "End IfIf Trim(cboItem) = "" ThenMsgBox " 必须选择汽车名称 ", vbCritical, "错误 "cboItem.SetFocusExit SubEnd IfIf Not IsDate(Trim(txtIntem(5) ThenMsgBox " 请输入正确

24、的日期格式！ ", vbOKOnly + vbExclamation, "Ap. h警告 "txtIntem(5).SetFocusExit SubEnd IfIf Not mbAddMode Then顺序号 ='" & mnSerial & "'"gConn.Execute "delete from stock whereEnd IfDim rs As New ADODB.Recordsetrs.Open "select * from stock", gConn, adO

25、penDynamic, adLockOptimistic rs.AddNew rs(" 汽车名称 ") = cboItem.TextDim i As IntegerFor i = txtIntem.LBound To txtIntem.UBoundrs.Fields(i).Value = txtIntem(i)Next irs.Updaters.Close mnQuantity = CInt(txtIntem(3) - mnQuantitygConn.Execute "update products set 库存数量 =库存数量 +" & mnQ

26、uantity & "where汽车名称 ='" & cboItem.Text & "'"If mbAddMode ThenmbChange = TrueMsgBox " 添加进货信息成功！继续添加下一条进货信息", vbOKOnly + vbExclamation," 添加进货信息 "Unload MeMe.Show vbModalElseUnload MefrmStockList.SQL = "select * from stock"frmStockList.ShowEnd IfExit Sub errHandler:End SubPrivate Sub Form_Load()On Error GoTo errHandlerDim rs As New ADODB.Recordsetrs.Open "select distinct汽车名称 from products", gConn, adOpenKeysetIf Not rs.EOF ThencboItem.ClearDo While Not rs.EOFcboItem.AddItem rs(" 汽车名称 ")rs