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

目录TOC\o"1-2"\h\z\u摘要 3Abstract 41绪论 524S店汽车零配件仓库管理系统分析 62.1汽车4S店业务流程分析 62.2关于数据库 62.3系统运行环境 73.管理软件设计 103.1功能设计 103.2模块结构设计 103.3程序流程图 113.4数据库设计 134.仓储管理软件的设计 154.1 界面的设计 154.2仓储管理软件安全性的设计 265系统测试 275.1测试项 275.2测试条件 276.结论 29总结与体会 30致谢 31参考文献 32附录 334S店汽车零配件仓储管理系统摘要4S店汽车零配件仓储管理系统能够正确有效地完成仓库管理的日常工作，从而实现用户能够快速的进行汽车零配件仓储管理。4S店汽车零配件仓储管理系统包括需求分析、系统功能、系统设计、程序设计、系统测试及存在问题等方面，详细地介绍了“4S店汽车零配件仓库管理系统”设计开发的整个过程。4S店汽车零配件仓储管理系统采用VisualBasic作为开发工具，后台数据采用Access数据库设计，利用ADO数据库访问实现各种功能。关键词：零部件管理；数据库；管理系统；VisualBasic。4SCar’sPartsStorageManagementSystemAbstract4Scar’spartsstoragemanagementsystemcanabletocorrectlyandeffectivelyaccomplishthedailyworkofstoragemanagement,enablinguserstoquicklycar’spartsstoragemanagement.4Scar’spartsstoragemanagementsystemincludesrequirementanalysis,systemfunction,systemsdesign,programmingandthesystemtestsandexiststheaspectssuchasquestionetc,andsystematicallyintroducedthewholecourseof“4Scar’spartsstoragepartsmanagementsystem"subjectdevelopment.4Scar’spartsstoragemanagementsystemusingVisualBasicasadevelopmenttool,thebackgrounddatausingtheAccessdatabasedesign,ADOdatabaseaccesstoachievethevariousfunctions.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，SQLServer2005，Mysql；高端的三大数据库，DB2，ORACLE,SYBASE。其中，我选择ACCESS2003做为系统的后台数据库。ACCESS2003是美国微软公司开发的一款关系型数据库管理系统的产品，具有成本低，易上手，工具全等优点。适用于大型或超大型数据库服务器端。利用VB6.0卓越、快速、简便的界面开发平台，制作系统的客户端界面；再利用ACCESS2003，创建出具有合理的物理关系、逻辑关系的后台数据库；最后运用VB语言来编写代码，实现人机交互，运用ADO的方法来建立与后台数据库的连接，包括数据的添加、查询、删除、修改等等；最后开发和测试系统。2.3.3开发与运行环境(1)硬件环境处理器：InterPentiumⅢ或更高。内存：256MB以上硬盘空间：40GB显卡：集成显卡或更高(2)软件环境操作系统：WindowsXP。开发工具：VB6.0中文企业版。数据库：MicrosoftACCESS2003。美化工具：Photoshop。其他：Excel。3.管理软件设计3.1功能设计仓库管理系统可以为小型的货物管理部门提供基本的仓库管理，从而帮助仓库管理人员能够使用软件对其现有业务流程进行搞笑的管理，这些管理包括：货物信息管理，包括货物信息的增加、修改、删除、浏览管理；货物采购入库管理，对采购的货物完成电子入库；货物销售出库管理，对销售的货物实现电子出库；查询管理，包括对货物信息的查询、客户信息的查询和其他信息的查询；货物信息打印，对当前仓库中的货物信息进行打印；管理员管理，主要是管理员的登录管理与口令管理。3.2模块结构设计“4S店汽车零配件仓库管理系统”可分为几个主模块：系统管理、基本信息管理、查询管理、出入库管理、库存管理。按照结构化的系统设计方法，将整个系统分解成相对独立的若干模块，通过对模块的设计和模块之间关系的协调来实现整个软件系统的功能，从而得到系统的功能模块结构图。本系统的功能模块结构如图3-1所示。汽车4S店零配件仓储管理查询管理用户管理密码管理切换用户配件管理配件分类库存查询库存详细信息采购查询销售查询汽车4S店零配件仓储管理查询管理用户管理密码管理切换用户配件管理配件分类库存查询库存详细信息采购查询销售查询系统管理基本信息管理出入库管理库存管理系统管理基本信息管理出入库管理库存管理采购入库销售出库采购入库销售出库图3-1系统模块结构图3.3程序流程图登陆管理系统登陆管理系统验证用户信息信息错误信息正确进入主界面用户是否正确库存管理查询管理系统管理基本信息管理出入库管理用户管理密码管理切换用户配件管理配件管理采购入库库存查询库存详细信息采购查询销售查询销售出库3.4数据库设计有关数据结构的建立：在进行了数据基本结构的规范化重组后，还必须建立整体数据的关系结构。这一步设计完成后数据库和数据结构设计工作基本完成，以后系统实现时将数据分析和数据库的内容代入到所设计的数据整体关系结构中，一个规范化数据库系统结构就建立起来了。根据分析阶段得出的结论，结合本系统对有关数据的存储的需要，更加方便实现该管理系统的所有功能，现将本管理系统设计成如下几个数据库表，表的设计如下:表3-1用户信息表字段名称类型大小用户名称文本（20）密码文本（20）权限文本（20）表3-2配件信息字段名称类型大小配件编号文本（50）配件名称文本（50）型号文本（50）汽车品牌文本（50）计量单位文本（20）库存量数字配件分类文本（20）表3-3采购入库信息字段名称类型大小入库单号文本（50）入库日期文本（20）配件编号文本（50）配件名称文本（50）型号文本（50）计量单位文本（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）。从用户信息表中检查是否有相应的用户名和密码，如果用户名或密码错误，进行提示；如果输入的用户名和相应密码正确，进入主控制平台。用户登录模块的窗体设计，在工程中添加一个窗体，命名为frmLogon。用户登录模块的窗体如图4-1所示。图4-1登录其中用户登录连接数据库的部分代码：检查是否有相应的用户名和密码代码：PrivateSubcmdOK_Click()''进入..确定'OnErrorGoToErrDimtxtSqlAsStringUserID=""IfTrim(txtUserName.Text)=""Then''判断用户名是否为空MsgBox"请输入帐号！",vbOKOnly+vbExclamation,"警告"txtUserName.SetFocusExitSubEndIfIfTrim(txtPassword.Text)=""Then'判断密码是否为空MsgBox"请输入密码！",vbOKOnly+vbExclamation,"警告"txtPassword.SetFocusExitSubEndIf检查是否有该用户代码：txtSql="select*from用户信息表where用户名称='"&txtUserName.Text&"'"''判断是否有这个用户Ifrs.StateThenrs.Closers.OpentxtSql,CN,adOpenStatic,adLockOptimisticIfrs.EOF=TrueThen''如果没有这个用户MsgBox"没有这个帐号，请重新输入帐号!",vbOKOnly+vbExclamation,"警告"txtUserName.Text=""txtPassword.Text=""txtUserName.SetFocusElse''如果有用户IfTrim(rs.Fields(1))=Trim(txtPassword.Text)ThenIfTrim(rs.Fields(2))="管理员"ThenIsUserMode=1ElseIsUserMode=2EndIfUserID=Trim(txtUserName.Text)UnloadMeMainfrm.ShowExitSub4.1.2主界面设计汽车维修企业零部件管理主界面是如图4-2主界面。采用SDI窗体。WINDOWS风格设计。主要采用菜单式的管理方式。主界面功能包括系统设置，基本数据，出入库管理，库存管理，查询管理和帮助。图4-2主界面截图其中部分代码如下:PrivateSubMDIForm_Load()Me.StatusBar1.Panels(1).Text="操作员:"&UserIdMe.StatusBar1.Panels(2).Text="★欢迎使用汽车4S店零配件仓库管理系统★"CallPrivsSetingEndSub4.1.3用户管理界面设计系统设置包括，用户，密码，数据库管理。用户包括权限管理。用户管理模块实现2个主要功能：增加新的操作人员、删除指定的操作人员。密码是对当前用户进行密码修改，其中代码可以参考frmUsers。如图4-3如图4-3用户管理界面4.1.4基本信息界面设计汽车4S店零配件仓库管理系统基本信息包括对配件分析信息,配件信息的管理，包括添加，删除，修改等操作。如图4-4是配件信息，添加，操作成功。图4-4配件信息截图其中主要代码如下:PrivateSubcmdRegAdd_Click()'''添加nModeSys=2''添加操作DimIDmaxAsStringDimiAsIntegerFori=1ToVal(Txt(0).Text)IfLbl(i).Caption="库存量"ThenTxt(i).Text=0ElseTxt(i).Text=""EndIfNextiTxt(1).Text=GetmaxId(Lbl(1).Caption)cmdRegSave.Enabled=True4.1.5出入库界面设计出入库管理包括采购入库和销售出库信息。入库管理界面如图4-6所示。本界面主要是对入库单信息进行添加删除修改保存等操作。其中代码详情请参考frmlk文件。图4-6入库界面截图点击添加按钮如图4-7可实现汽车零配件的添加。配件编号是支持选择配件信息的,可以名称进行选择。图4-7添加界面截图其中代码如下：rst.Open"select*from采购入库信息where入库单号='"&Trim(Text1(0).Text)&"'",CN,adOpenStatic,adLockOptimisticIfTrim(strDZId)=""Then'添加rst.AddNewFori=0To9IfTrim(Text1(i).Text)<>""Thenrst.Fields(i).Value=Trim(Text1(i).Text)Nextirst.UpdateWithfrmlk.MSHFlexGrid1If.Rows=2AndTrim(.TextMatrix(1,1))=""ThenElse.Rows=.Rows+1Fori=.Rows-2To1Step-1Forj=0To9.TextMatrix(i+1,j)=.TextMatrix(i,j)NextjNextiEndIf4.1.6出库管理设计出库管理设计和入库管理设计思想一样，并不做详细说明，其中出库管理界面图4-8，图4-9所示。4-8销售出库界面截图图4-9出库添加截图4.1.7零配件库存管理设计零配件库存管理包括汽车零配件详细库存信息和库存量查询。可以统计零配件出入库数量及时间。如图4-10。其中的代码：Ifrst.StateThenrst.Closerst.Open"select配件编号,配件名称,型号,计量单位from配件信息",CN,adOpenStatic,adLockOptimisticDimiAsIntegerDimjAsIntegerDimgridIAsIntegeri=0IfrsK.StateThenrsK.ClosersK.Open"select*from盘点信息表where年月='"&Combo1.Text&"-"&Combo2.Text&"'",CN,adOpenStatic,adLockOptimisticIfNotrsK.EOFThenIfMsgBox("本月份配件已统计,是否重新统计?",vbInformation+vbYesNo,"提示")=vbYesThenCN.Execute"deletefrom盘点信息表where年月='"&Combo1.Text&"-"&Combo2.Text&"'"ElseExitSubEndIf4-10零配件库存管理截图4-11零配件信息检索截图4.1.8查询功能的设计查询功能的设计包括零配件出入库查询和数据统计。从而实现管理人员对零配件的数量，销售数量，库存数量进行统计以及查询。如图4-12。其中所涉及到的代码：IfTrim(Combo3.Text)<>""AndTrim(Combo4.Text)<>""AndTrim(Text1.Text)<>""Thenstrsql="select*from"&Trim(strTableName)&"where"&Trim(Combo3.Text)&""&Trim(Combo4.Text)&"'"IfCombo4.Text="like"Thenstrsql=strsql&"%"&Trim(Text1.Text)&"%'"Elsestrsql=strsql&Trim(Text1.Text)&"'"EndIfIfrs2.StateThenrs2.Closers2.Openstrsql,CN,adOpenStatic,adLockOptimisticSetMSHFlexGrid1.DataSource=rs2ElseMsgBox"请选择或输入数据!",,"系统提示"4-12信息检索截图4.1.9帮助界面设计关于和帮助界面是对系统软件版本,作者的一个介绍。帮助界面是对功能介绍包括：初始用户:用户和密码都为admin。添加用户：在用户名称中输入要添加用户的名，原始密码为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]张海藩.软件工程导论[M].北京：清华大学出版社，1998.[5]申莉莉.SQLSERVER数据库应用教程[M].北京：机械工业出版社，2005[6]李建中.数据库系统原理[M].西安：电子工业出版社，1998.[7]刘瑞新.VB6.0数据库开发毕业设计指导及实例[M].北京：机械工业出版社，2005.[8]刘军.汽车4S店管理全程指导.北京：化学工业出版社,2011. [9]宓亚光.汽车特约销售服务站经营与管理丛书.北京：机械工业出版社,2011.[10]王丰，张剑芳，卢宝亮.仓库安全管理与技术（第2版）.北京：中国物资出版社,2008.附录4S店汽车零配件仓储管理系统代码：PrivateSubCARPP_Click()strTableName="汽车品牌"frmZiDian.Show1EndSubPrivateSubCGLK_Click()strTableName="采购入库信息"frmlk.Show1EndSubPrivateSubChangeUser_Click()''isLogin=FalseUnloadMefrmLogin.ShowEndSubPrivateSubExit_Click()EndEndSubPrivateSubDATAtj_Click()frmtj.Show1EndSubPrivateSubExitSyss_Click()EndEndSubPrivateSubFindCG_Click()strTableName="采购入库信息"frmFind.Show1EndSubPrivateSubFindKC_Click()strTableName="配件信息"frmFind.Show1EndSubPrivateSubFindXX_Click()strTableName="销售出库信息"frmFind.Show1EndSubPrivateSubFJFX_Click()strTableName="配件分类"frmZiDian.Show1EndSubPrivateSubForm_Load()Me.Caption="汽车4S店零配件仓储管理系统操作员:"&UserIDCallPrivssubisLogin=TrueEndSubSubPrivssub()IfIsUserMode=2ThensysManager.Visible=FalseBASEDATA.Visible=FalseEndIfEndSubPrivateSubForm_Resize()OnErrorGoToErr'''改变控件位置代码Picture1.Top=0Picture1.Left=0Picture1.Height=Me.ScaleHeight-StatusBar1.HeightPicture1.Width=Me.ScaleWidthStatusBar1.Panels(1).Text="欢迎使用"&Me.Caption''加载背景代码Image1.Picture=LoadPicture(App.Path&"\1.jpg")Picture1.RefreshPicture1.PaintPictureImage1.Picture,Picture1.ScaleTop,Picture1.ScaleLeft,Picture1.ScaleWidth,Picture1.ScaleHeight,0,0,Image1.Width,Image1.HeightErr:EndSubPrivateSubHelpFiles_Click()'''帮助文件OnErrorGoToErrfrmhelp.Show1ExitSubErr:MsgBoxErr.DescriptionEndSubPrivateSubInfoPJ_Click()frmPJ.Show1EndSubPrivateSubKCxxinfo_Click()frmKcInfo.Show1'详细库存EndSubPrivateSubSysAbout_Click()''关于frmAbout.Show1EndSubPrivateSubsysManager_Click()frmUser.Show1EndSubPrivateSubUserpasword_Click()''用户密码frmpsd.Show1EndSubPrivateSubXSCK_Click()frmck.Show1'销售出EndSub采购入库管理界面代码：PrivateSubCommand1_Click()'查询DimrstAsNewADODB.RecordsetDimiAsIntegerDimstrSQLAsStringIfTrim(Text1.Text)=""ThenstrSQL="select*from采购入库信息orderby入库单号desc"ElseFori=0To3IfOption1(i).Value=TrueThenstrSQL="select*from采购入库信息where"&Option1(i).Caption&"like'%"&Trim(Text1.Text)&"%'orderby入库单号desc"ExitForEndIfNextiEndIfIfrst.StateThenrst.Closerst.OpenstrSQL,CN,adOpenStatic,adLockOptimisticWithMSHFlexGrid1.Clear.Rows=2.Cols=rst.Fields.CountFori=0Torst.Fields.Count-1.TextMatrix(0,i)=rst.Fields(i).NameNextiIfrst.RecordCount>0Then.Rows=rst.RecordCount+1Label1.Caption="查询到"&rst.RecordCount&"条记录"ElseLabel1.Caption="查询到0条记录"'MsgBox"没有查询记录信息!",,"提示"ExitSubEndIfDimkAsIntegerk=1WhileNotrst.EOFFori=0Torst.Fields.Count-1IfNotIsNull(rst.Fields(i))ThenIfrst.Fields(i).Type=adCurrencyThen.TextMatrix(k,i)=Format((rst.Fields(i)),"0.00")Else.TextMatrix(k,i)=Trim(rst.Fields(i))EndIfEndIfNextik=k+1rst.MoveNextWendEndWithEndSubPublicSubCommand3_Click()'添加frmlkAdd.strDZId=""frmlkAdd.Show1EndSubPrivateSubCommand4_Click()WithMSHFlexGrid1IfTrim(.TextMatrix(.Row,0))=""ThenMsgBox"请选择采购入库信息",,"提示"ExitSubEndIffrmlkAdd.strDZId=Trim(.TextMatrix(.Row,0))frmlkAdd.Show1frmlkAdd.strDZId=""EndWithEndSubPrivateSubCommand5_Click()''删除WithMSHFlexGrid1IfTrim(.TextMatrix(.Row,0))=""ThenMsgBox"请选择采购入库信息",,"提示"ExitSubEndIfIfMsgBox("真的删除编号为:"&Trim(.TextMatrix(.Row,0))&"的信息吗?不可恢复!",vbExclamation+vbYesNo,"提示")=vbYesThenCN.Execute"deletefrom采购入库信息where入库单号='"&Trim(.TextMatrix(.Row,0))&"'"CN.Execute"update配件信息set库存量='"&Getkc(Trim(.TextMatrix(.Row,2)))&"'where配件编号='"&Trim(.TextMatrix(.Row,2))&"'"If.Rows=2ThenFori=0To.Cols-1.TextMatrix(1,i)=""NextiElse.RemoveItem.RowEndIfEndIfEndWithEndSubPrivateSubCommand6_Click()UnloadMeEndSubPublicSubForm_Load()OnErrorGoToErrDimrstAsNewADODB.RecordsetIfrst.StateThenrst.Closerst.Open"select*from采购入库信息orderby入库单号desc",CN,adOpenStatic,adLockOptimisticWithMSHFlexGrid1.Clear.Rows=2.Cols=rst.Fields.CountFori=0Torst.Fields.Count-1.TextMatrix(0,i)=rst.Fields(i).NameNextiIfrst.RecordCount>=1Then.Rows=rst.RecordCount+1DimkAsIntegerk=1WhileNotrst.EOFFori=0Torst.Fields.Count-1IfNotIsNull(rst.Fields(i))ThenIfrst.Fields(i).Type=adCurrencyThen.TextMatrix(k,i)=Format((rst.Fields(i)),"0.00")Else.TextMatrix(k,i)=Trim(rst.Fields(i))EndIfEndIfNextik=k+1rst.MoveNextWendEndWithExitSubErr:MsgBoxErr.DescriptionEndSubPrivateSubMSHFlexGrid1_DblClick()CallCommand4_ClickEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCallCommand1_ClickEndIfEndSub

附录资料：不需要的可以自行删除制造业现场管理实践第一部分：材料管理入库之前数数看：实际数量与<送货单>一致才能签名，不对不能签。签完名后才向对方说数量有差异，才提出赔偿要求，肯定没人理睬你。<现品票>要留下：<现品票>是向前工序反馈情报的重要凭证，也是不良品主要追踪线索之一，附在不良品上退回给前工序（协作厂家）时，更具有说服力。先来先用乱不得：材料使用的第一原则就是先来先用，这是防止品质产生混乱，保持良好的可追溯性的先决条件之一。材料去向要清楚：不是所有的材料都能组装出成品，中途分流的材料要有合理的理由，分流的数量要补回，否则生产计划就不能达成。材料台面摆放有学问：合理的摆放不仅能够节约空间，提高取拿准确度，降低作业工时，并能使台面3S活动得以维持。副料管理决不可是一笔糊涂帐：缺少副料，生产一样无法进行。副料的好坏不仅直接影响着品质，它还在成本中占据一定比例。不良品退回要确认：向前工序退回良品和自责品，最终失去的将是别人对你的信任，此外，还浪费双方无谓的人力和财力资源。盘点的时候要仔细：盘点是一段不得已暂时中止生产，只有支出没收入的非常时期，务必在短时间内、高精度的加以完成。不用的时候封存好：不用的材料不等于不要！需要时，能迅速、准确、完整无缺的找到，才不会延误生产。10、报废大笔挥不得:报废就是扔钱!报废意味着血本无归、破产倒闭，同行竞争者巴不得你天天都在报废，决对不会同情你！11、追加工、选别要有样品：对作业人员来说，文件远不如样品直观，只有设定了上下限样品，才能进行自主判定；才能将作业差异控制在所要求的范围内。12、库存太多是浪费，太少又不安全：库存好比是吃饭，吃多了，撑着！吃少了，不管饱！不仅要看菜吃饭，还得量肚而行。决定材料库存量的基本原则是：适时、适量、适价、适地、适质。材料的基本订购法有：一次过订货、分阶段订货、现用现订等三种方法。13、算准在线库存量：单品材料在线库存太多，说明材料的派发方法和包装质量有问题。部件在线库存过多，说明各工序工时不平衡，前后衔接失调。14、部件先行不贪多：如果产品是一列火车，那么部件就是火车头。只有火车头先开动，整列火车才会动，而且火车头总是同步领先于后边的车厢。15、外观瑕疵真棘手：客户并不完全拒绝外观有瑕疵的商品。插手外观控制的手越多，就越容易形成多重标准，但谁都不能真正代表客户的意愿。16、搬运方式要讲究：粗暴的搬运，会造成被搬运物的破损。适时、适量、完整无缺的搬运，能为缩短作业工时、提高生产效率、降低库存提供保证。17、特殊材料，特别管理：之所以特殊，是由于在我们现有的科技力量下不容易大量获得，即使获得了，也要通过特别的管理手法，才能确保其品质。18、特采不慎是自杀：特采是品质下降的开始；是未经市场认可的冒险行为，屡试之下，终会有被市场拒绝的时候。19、申领手续要齐全：办理手续不仅仅是为了留下一个凭证，也是为了精确控制数量和避免浪费，使管理人员心中有数。20、从一开始就降低材料成本：材料成本包括使用量和单价两个要素，要降低材料成本就必须在这两方面下工夫，但是，其前提条件是要确保品质。21、早早反馈不良情报，救人也救已：因情报交流不顺畅而延误的时间成本，比起不良材料自身的价值要大得多！不早点反馈给别人，就别指望能早日解决！第二部分:人员管理所有的管理活动都不能离开最基本的管理目标，管理手段只有领先于时代的要求，企业才有生存和发展的可能。现场要管理的对象（生产要素），从大的方面可分为：人员（Man）、设备（Machine）、材料（Material）、作业方法（Method）作业环境（Environment）等五大部分，即4M1E。而围绕其所展开的最基本的目标活动为：提升品质（Quality）、降低成本（Costing）、确保交货期（Deadline）、确保人身安全（Safety）提高士气（Morale）等五点，即QCDSM。新人更要耐心去指导：新进公司，就像到了国外一样，人生地不熟的，门都摸不着，哪谈得上对公司有所贡献呢！抽象指示听不懂：没有具体内容的指示，使部下无所适从，要么不去做，要么靠自己的想象发挥来做，必然导致作业结果出现偏差。即发出的指示里要有5W1H（何人Who、何时When、何事What、何地Where、何故Why、如何How）。缺席顶位有陷阱：有许多作业不良，就是由于顶位人员不熟练而造成的。平时有计划地培养全能工，是填平缺席陷阱，避过危机的有效方法之一。个别辅导与集中指导相结合：能力差的要个别辅导，使其达到平均水平。集中指导是为了明确集体目标，强调协同配合意识，以及借用众人的智慧。调动每一个人的积极性：健全的奖惩制度是基础，高明的指示、命令是调动积极性的关键。积极性一旦调动起来，再棘手的难题都能得到圆满的解决。光讲不干不是将：上司的行动就是最好的命令！谁都喜欢追随善解人意、有礼有节、指挥头头是道，又身先士卒的上司。筑起良好的上下关系：主动亲近部下，赢得信赖和尊重后，指导部下才有可能成功。积极贴近上司，学习其优秀的品德、才能，拓展自己广阔的将来。让情报交流更顺畅：情报交流的成功与否，取决于是否准确发出，以及对情报内容是否接收、理解、共鸣。情报交流充分，执行才不会偏离要求。10、褒贬部下要不失时机：事过境迁，对部下的表扬或批评才姗姗来迟，部下会以为你根本就没放在心上，有说和没说的效果差不多。适时表扬的含义：不漏听、不漏看、不忘记部下取得的成果；要及时在众人面前表扬；可以借助他人来表扬。表扬时注意事项：莫要夸大其实；莫要瞒上欺下；莫要哗众取宠；莫要夜郎自大。批评时注意事项：A、就事论事，切莫言及他人他事（如：把以前的旧帐一笔一笔搬出来，逐条清算；胡乱断言部下无可救药，将来不会有前途；一口咬定别人怎么好，你怎么没出息；连同家人一起牵扯进来，祖宗八代一起骂。）；B、批人要留“皮”，不往死里整（如：事先未对当事人“吹风”，就直接招集众人，当着大家的面，点名道姓地数落起来；当着不相关的第三者，或者资格更低者的面前批评；到处发布批评的言辞；实际处罚比批评要严厉）；C、切忌“四不”（不听部下解释，揪住就批，有理没理先骂一顿再说；不给挽回机会，一错就批，根本不理会最终结果；不再信任，错一回批一次，以后就不再使用该人；不采取相应的实际处罚，仅停留在口头上。）。11、管理人员更要有问题意识：按部就班地完成工作目标，还不能说是万事大吉，现场的问题总是不停地涌现，要改善的项目永无止境。实战注意事项：①、仅靠老经验已无法应付的工作是否增多？②、是否认为世上只有自己的专业高？③、是否不愿与其它部门更多地沟通？④、计划中途变更的次数是否增多？⑤、多品种，少批量，短期限的生产任务是否越来越多？⑥、是否重视最终业绩？⑦、有无轻视外语？⑧、有无轻视电脑的学习与应用？⑨、发觉问题和处理问题的能力有无提高？12、巡视不是做样子：百闻不如一见，看一百份报告、听一百次汇报，都不如亲自到现场巡视一趟深刻得多。13、要有果敢的勇气：遇变处险时，不被传统观念所束缚，要敢于创新、周密计划、大胆试验，才有可能开拓新局面。实战注意事项：①、改变自我的勇气；②、坚韧不拔的勇气；③、倾听忠言的勇气；④、行动的勇气；⑤、信任部下的勇气；⑥、量才用人的勇气；⑦、不轻易与部下妥协的勇气；⑧、公平、公正、公开的勇气；⑨、责为己任的勇气。14、指导部下的基本方法—OJT（ONJOBTRAINING）：如果部下的业务知识匮乏、办事能力差、工作业绩不理想，其实就是上司指导不足；就是上司的失职。实战时注意事项：由基础到应用；从简单到复杂；让其动手看看；让其积极地提问；不停地关心、鼓励。15、建立鲜明的奖惩制度：奖励优秀的人员，是为了激励全体人员的积极性；惩罚恶行，是为了保证每一个人的行为都符合最低要求。16、抓紧每天八小时：工作效率低下，长期延迟至八小时，除了得到一些加班工资之外，就是身心疲乏和老板的白眼。管理人员总是在“做”与“管”之间不停地切换。“管”是为了保证整体目标能够实现，而“做”则是引导集体迈向目标的第一步。17、后工序也是客户：掏钱购买你的产品或服务的人是客户，但是不掏一分钱，要接手自己下一步工作的人也是客户。18、客户投诉，怠慢不得：处理投诉要快，否则让人觉得你缺乏诚意。客户发火时，不妨先说声“对不起”，然后再细究。19、为何大错不犯小错不断：大批量的不良，比偶发不良要容易对策得多，偶发不良很难根治，它来无踪，去无影，最令人头痛。实战时注意事项：A、对事不对人；B、一切“傻瓜化”，即作业、检查、判定时，尽可能简单化、明了化，人人都可以胜任。20、建立高效的组织：过多的组织层次，只会导致工作效率下降；官僚风气蔓延；人事关系复杂，最终自己拖垮自己的境地。实战时注意事项：A、上下层次少，机构不重复；B、适材适所，适责适遇，宁缺勿滥；C、职责分明；D、建立鲜明奖惩制度；E、每一成员均有完成本职工作的能力；F、动态运行。

第三部分作业方法管理工时真的不能再降了吗：作业工时越短，付出的人事成本越低，但是标准工时的确立，并不是以最快的某个人为基准，需要综合考虑。试做就是找问题：通过试做可以设定最佳组合的生产要素；可以为重大决策指明方向，但是天天都在试做的产品，其品质八成不稳定。写好标准书：实际作业与标准书的要求必须完全一致，写好标准书，对企业来说就像制定一部“国家法律”一样重要。出厂号码是“天线”：出厂号码里浓缩了大量有关制造条件的信息，通过它可查出该产品的来龙去脉，为及时、准确地向客户提供服务打下基础。不良品发生先别慌：斩除不良品，原本就是管理工作的一部分，经历的越多，经验越能得到积累；管理能力越能得到提升。用用QC七手法：优良的品质是靠科学的方法管理出来的QC七手法正是现场品质管理最常用的科学工具之一。QC七手法排列图、因果图、散布图、直方图、检查表、层别法、管制图。工序诊断看看病：就象一年一次的身体健康检查一样，通过诊断可以发现工序上潜在的“病因”，使问题消除在初级阶段。识别没做好，东西真难找：生产要素的识别做不好，要么就你一个人知道，别人都不知道；要么别人都知道，就你一个人不知道。人员识别；设备、夹具识别；材料识别；作业方法识别；作业环境识别。推进5S活