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

《汽车4S店零配件仓库管理系统》由会员分享，可在线阅读，更多相关《汽车4S店零配件仓库管理系统（40页珍藏版）》请在装配图网上搜索。

1、编号：时间：2021年x月x日书山有路勤为径，学海无涯苦作舟页码：第40页 共40页目录摘要3Abstract41 绪论52 4S店汽车零配件仓库管理系统分析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店汽车零配件仓储管理系统能够正确有效地完成仓库

2、管理的日常工作，从而实现用户能够快速的进行汽车零配件仓储管理。4S店汽车零配件仓储管理系统包括需求分析、系统功能、系统设计、程序设计、系统测试及存在问题等方面，详细地介绍了“4S店汽车零配件仓库管理系统”设计开发的整个过程。4S店汽车零配件仓储管理系统采用Visual Basic作为开发工具，后台数据采用Access数据库设计，利用ADO数据库访问实现各种功能。关键词： 零部件管理；数据库；管理系统；Visual Basic。4S Cars Parts Storage Management SystemAbstract4S cars parts storage management syste

3、m can able to correctly and effectively accomplish the daily work of storage management, enabling users to quickly cars parts storage management.4S cars parts storage management system includes requirement analysis, system function, systems design, programming and the system tests and exists the asp

4、ects such as question etc, and systematically introduced the whole course of “4S cars parts storage parts management system subject development.4S cars parts storage management system using Visual Basic as a development tool, the background data using the Access database design, ADO database access

5、to achieve the various functions. Keywords： Parts management; Database; Management system; Visual Basic.1 绪论 随着中国经济的快速增长，中国汽车的保有量逐年递增，对于汽车4S店的售后及仓库管理需要更加方便以及实用的管理软件。在汽车4S店仓库管理中需要实时采集，并根据需要及时地向相关的各部门传送各类信息，这对零配件供应、销售服务、质量监控、成本核算等都有着重要的作用。同时此数据对零配件的质量跟踪和售后服务有重要的意义。由于零配件管理数据属于动态信息，不仅数据量大，而且内容庞杂，且由于此数据不

6、仅用于售后服务及质量监控等方面，同时还具有对零配件质量跟踪等功能，因而必须保证数据准确。符合行业的管理软件和计算机网络技术的应用为实现上述功能需求提供了可靠的保证，为用户提供更公开、更快捷、更规范和更优质的服务，是各家汽车4S店面临的共同挑战。想要有效地解决上诉问题，就必须引入更加高效的管理手段，其中实行计算机化管理就是有效的方法之一。2 4S店汽车零配件仓库管理系统分析2.1 汽车4S店业务流程分析4S汽车店零部件管理系统的业务主要是采购,销售信息的管理。汽车4S店各个部门把采购信息和销售信息输入系统，操作人员根据汽车4S店零部件信息控制采购和销售业务，计算机也会自动记录信息。4S店汽车零部

7、件管理的特点是信息处理量比较大，所管理的信息包括全部汽车维修企业的信息和业务信息等单据的发生量特别大，关联信息多，查询和统计的方式各不相同。因此在管理上实现起来有一定困难。在管理的过程中经常出现住处的重复传递。单据、报表的种类繁多，各个部门管理规格不统一等问题。4S汽车店零部件管理系统在设计过程中，为了克服这些困难，满足计算机管理的需求，采取了以下一些原则：(1)程序代码标准化，软件统一化，确保软件的可维护性和实用性。(2)删除不必要的管理冗余信息，实现管理规范化、科学化。(3)统一各种原始单据的格式，统一账目和报表的格式。进行4S店汽车零部件管理系统业务流程图的设计。操作员或管理人员进入本系

8、统后，一系列的操作过程设计。2.2关于数据库数据库是关于数据的信息的集合，也就是对数据流图中包含的所有元素的定义的集合。任何数据最主要的用途都是供人查阅对不了解的条目的解释。数据库的作用是在软件分析和设计的过程中给人提供关于数据的描述信息。数据流图和数据库共同构成系统的逻辑模型，没有数据库，数据流图就不严格，然而没有数据流图数据库也难于发挥作用。只有数据库和对数据流图的精确定义放在一起，才能共同构成系统的规格说明。系统开发时，常用名片的形式书写保存描述一个数据元素。下面给出本系统的主要数据元素的数据库索引表格：名字：配件编号列名：配件编号描述：唯一地标识配件信息表的一个特定关键域定义：配件编号

9、位置：配件信息 图2-1配件编号 名字：入库单号描述：唯一地标识汽车维修企业入库信息一个特定关键域位置： 入库单号 图2-2入库单号 名字：出库单号描述：唯一地标识汽车维修企业出库信息一个特定关键域位置： 出库单号 图2-3出库单号名字：用户名称列名：用户名称描述：用户指定条件下的系统用户口令表位置：用户信息表 图2-4用户名称2.3系统运行环境2.3.1系统开发工具选择目前，在市场上这些众多的程序开发工具中，有些开发软件强调程序语言的执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的提高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的执行效率和工具的便利性是密切相连的，

10、只有便利的工具，却程序语言的执行效率，许多特殊化的处理必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程序语言的执行效率，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费毕业设计的宝贵时间。而Visual Basic是著名的微软公司的可视化软件开发工具，其被称为最容易编程语言，它具有简单、高效、功能强大的特点。它是一个非常理想的选择，是可视化的快速应用程序开发语言，它提供了可视化的集成开发环境，这一环境为应用程序设计人员提供了一系列灵活而先进的工具，可以广泛地用于许多种类应用程序设计。Visual Basic的前身是QBASIC，

11、语言基础是BASIC。自从微软推出VB后，便成为了程序开发人员的首选工具之一。跟据统计，仅在数据库系统开发领域中，VB就占了90的份额。VB是基于对象的可视化程序开发工具，它的优点在于能够快捷、简易地建立Windows应用程序。1998年8月，微软推出了VB 6.0的版本，进一步加强了部件开发的功能。以适用人员来分，可有以下三个版本：标准版 针对一般程序设计人员,适合普通应用系统的开发。专业版 针对专业程序开发人员，它在标准版的基础上提供了对数据库和Internet的支持。企业版 适用于专为企业设计应用软件的程序开发人员。2.3.2数据库的选择建立一个数据库也有多种选择，现在市场上有各种各样的

12、数据库，而且每一种数据库都有其自身的特点，不能说哪一种更好，只能在其中寻找一种能更好地适应系统需求、更好地满足用户的要求以及适应开发人员的习惯。当然，要是一个完善的管理软件，必须要有后台的数据库。而目前主流的数据库有以下几种：低级数据库最流行的是ACCESS；中级数据库，最流行的是SQL Server 2000，SQL Server 2005，Mysql；高端的三大数据库，DB2，ORACLE,SYBASE。其中，我选择ACCESS2003做为系统的后台数据库。ACCESS2003是美国微软公司开发的一款关系型数据库管理系统的产品，具有成本低，易上手，工具全等优点。适用于大型或超大型数据库服务

13、器端。利用VB6.0卓越、快速、简便的界面开发平台，制作系统的客户端界面；再利用ACCESS2003，创建出具有合理的物理关系、逻辑关系的后台数据库；最后运用VB语言来编写代码，实现人机交互，运用ADO的方法来建立与后台数据库的连接，包括数据的添加、查询、删除、修改等等；最后开发和测试系统。2.3.3开发与运行环境(1)硬件环境 处理器：Inter Pentium 或更高。内存：256MB以上 硬盘空间：40GB 显卡：集成显卡或更高(2)软件环境 操作系统：Windows XP。开发工具：VB6.0中文企业版。数据库：Microsoft ACCESS 2003。美化工具：Photoshop。

14、其他：Excel。3.管理软件设计3.1功能设计仓库管理系统可以为小型的货物管理部门提供基本的仓库管理，从而帮助仓库管理人员能够使用软件对其现有业务流程进行搞笑的管理，这些管理包括：货物信息管理，包括货物信息的增加、修改、删除、浏览管理；货物采购入库管理，对采购的货物完成电子入库；货物销售出库管理，对销售的货物实现电子出库；查询管理，包括对货物信息的查询、客户信息的查询和其他信息的查询；货物信息打印，对当前仓库中的货物信息进行打印；管理员管理，主要是管理员的登录管理与口令管理。3.2模块结构设计“4S店汽车零配件仓库管理系统”可分为几个主模块：系统管理、基本信息管理、查询管理、出入库管理、库存

15、管理。按照结构化的系统设计方法，将整个系统分解成相对独立的若干模块，通过对模块的设计和模块之间关系的协调来实现整个软件系统的功能，从而得到系统的功能模块结构图。本系统的功能模块结构如图3-1所示。汽车4S店零配件仓储管理查询管理用户管理密码管理切换用户配件管理配件分类 库存查询库存详细信息采购查询销售查询系统管理基本信息管理出入库管理库存管理采购入库销售出库图3-1 系统模块结构图3.3程序流程图 登陆管理系统验证用户信息信息错误信息正确进入主界面用户是否正确库存管理查询管理系统管理基本信息管理出入库管理用户管理密码管理切换用户配件管理配件管理 采购入库库存查询库存详细信息采购查询销售查询销售

16、出库3.4数据库设计有关数据结构的建立：在进行了数据基本结构的规范化重组后，还必须建立整体数据的关系结构。这一步设计完成后数据库和数据结构设计工作基本完成，以后系统实现时将数据分析和数据库的内容代入到所设计的数据整体关系结构中，一个规范化数据库系统结构就建立起来了。根据分析阶段得出的结论，结合本系统对有关数据的存储的需要，更加方便实现该管理系统的所有功能，现将本管理系统设计成如下几个数据库表，表的设计如下:表3-1 用户信息表字段名称类型大小用户名称文本（20）密码文本（20）权限文本（20）表3-2 配件信息字段名称类型大小配件编号文本（50）配件名称文本（50）型号文本（50）汽车品牌文本

17、（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界面的设计界面要求美观易懂、操作简单，使用户感觉愉快、操做方便，从而提

18、高使用效率。本系统基于Windows XP操作系统，因此在界面上遵循Windows XP的传统风格，由标题栏、菜单栏、快捷工具按钮、对话框等要素组成。与Windows XP操作系统一致的人机界面，使得用户只要具备Windows XP操作基础，就能很快适应本管理系统的操作使用，因此能够大大降低系统培训费用以及培训周期，提高系统的可推广性。为了进一步美化界面，使得用户在操作中更加心情舒畅，我们选用Photoshop CS4图像处理软件，为系统设计了比较新颖的界面图。总之对系统界面的整体风格，页面布局结构以及色彩搭配等进行了合理的规划和设计，在保证操作员实用性、方便性的前提下，创造更简单，更友好的系

19、统界面。4.1.1登录界面设计用户登录窗口启动。包括输入用户名和密码，登录（默认用户名admin，密码admin）。从用户信息表中检查是否有相应的用户名和密码，如果用户名或密码错误，进行提示；如果输入的用户名和相应密码正确，进入主控制平台。用户登录模块的窗体设计，在工程中添加一个窗体，命名为frmLogon。用户登录模块的窗体如图4-1所示。图4-1 登录其中用户登录连接数据库的部分代码：检查是否有相应的用户名和密码代码：Private Sub cmdOK_Click() 进入.确定On Error GoTo Err Dim txtSql As String UserID = If Trim(

20、txtUserName.Text) = Then 判断用户名是否为空 MsgBox 请输入帐号！, vbOKOnly + vbExclamation, 警告 txtUserName.SetFocus Exit Sub End If If Trim(txtPassword.Text) = Then 判断密码是否为空 MsgBox 请输入密码！, vbOKOnly + vbExclamation, 警告 txtPassword.SetFocus Exit Sub End If检查是否有该用户代码： txtSql = select * from 用户信息表 where 用户名称 = & txtUse

21、rName.Text & 判断是否有这个用户 If rs.State Then rs.Close rs.Open txtSql, CN, adOpenStatic, adLockOptimistic If rs.EOF = True Then 如果没有这个用户 MsgBox 没有这个帐号，请重新输入帐号!, vbOKOnly + vbExclamation, 警告 txtUserName.Text = txtPassword.Text = txtUserName.SetFocus Else 如果有用户 If Trim(rs.Fields(1) = Trim(txtPassword.Text)

22、Then If Trim(rs.Fields(2) = 管理员 Then IsUserMode = 1 Else IsUserMode = 2 End If UserID = Trim(txtUserName.Text) Unload Me Mainfrm.Show Exit Sub 4.1.2主界面设计汽车维修企业零部件管理主界面是如图4-2 主界面。采用SDI窗体。WINDOWS风格设计。主要采用菜单式的管理方式。主界面功能包括系统设置，基本数据，出入库管理，库存管理，查询管理和帮助。 图4-2 主界面截图 其中部分代码如下:Private Sub MDIForm_Load()Me.Sta

23、tusBar1.Panels(1).Text = 操作员: & UserIdMe.StatusBar1.Panels(2).Text = 欢迎使用汽车4S店零配件仓库管理系统Call PrivsSetingEnd Sub4.1.3用户管理界面设计系统设置包括，用户，密码，数据库管理。用户包括权限管理。用户管理模块实现2个主要功能：增加新的操作人员、删除指定的操作人员。密码是对当前用户进行密码修改，其中代码可以参考frmUsers。如图4-3 如图4-3用户管理界面4.1.4基本信息界面设计 汽车4S店零配件仓库管理系统基本信息包括对配件分析信息,配件信息的管理，包括添加，删除，修改等操作。如图

24、4-4是配件信息，添加，操作成功。 图4-4 配件信息截图 其中主要代码如下:Private Sub cmdRegAdd_Click() 添加nModeSys = 2 添加操作Dim IDmax As StringDim i As IntegerFor i = 1 To Val(Txt(0).Text) If Lbl(i).Caption = 库存量 Then Txt(i).Text = 0 Else Txt(i).Text = End IfNext iTxt(1).Text = GetmaxId(Lbl(1).Caption)cmdRegSave.Enabled = True4.1.5出入库

25、界面设计出入库管理包括采购入库和销售出库信息。入库管理界面如图4-6所示。本界面主要是对入库单信息进行添加删除修改保存等操作。其中代码详情请参考frmlk文件。 图4-6 入库界面截图点击添加按钮如图4-7可实现汽车零配件的添加。配件编号是支持选择配件信息的,可以名称进行选择。图4-7 添加界面截图其中代码如下：rst.Open select * from 采购入库信息 where 入库单号= & Trim(Text1(0).Text) & , CN, adOpenStatic, adLockOptimisticIf Trim(strDZId) = Then 添加 rst.AddNew For

26、 i = 0 To 9 If Trim(Text1(i).Text) Then rst.Fields(i).Value = Trim(Text1(i).Text) Next i rst.Update With frmlk.MSHFlexGrid1 If .Rows = 2 And Trim(.TextMatrix(1, 1) = Then Else .Rows = .Rows + 1 For i = .Rows - 2 To 1 Step -1 For j = 0 To 9 .TextMatrix(i + 1, j) = .TextMatrix(i, j) Next j Next i End

27、If 4.1.6出库管理设计 出库管理设计和入库管理设计思想一样，并不做详细说明，其中出库管理界面图4-8，图4-9所示。 4-8销售出库界面截图 图4-9出库添加截图4.1.7零配件库存管理设计零配件库存管理包括汽车零配件详细库存信息和库存量查询。可以统计零配件出入库数量及时间。如图4-10。其中的代码：If rst.State Then rst.Closerst.Open select 配件编号,配件名称,型号,计量单位 from 配件信息, CN, adOpenStatic, adLockOptimisticDim i As IntegerDim j As IntegerDim grid

28、I As Integeri = 0If rsK.State Then rsK.ClosersK.Open select * from 盘点信息表 where 年月= & Combo1.Text & - & Combo2.Text & , CN, adOpenStatic, adLockOptimisticIf Not rsK.EOF Then If MsgBox(本月份配件已统计,是否重新统计?, vbInformation + vbYesNo, 提示) = vbYes Then CN.Execute delete from 盘点信息表 where 年月= & Combo1.Text & -

29、& Combo2.Text & Else Exit Sub EndIf 4-10零配件库存管理截图 4-11零配件信息检索截图4.1.8查询功能的设计查询功能的设计包括零配件出入库查询和数据统计。从而实现管理人员对零配件的数量，销售数量，库存数量进行统计以及查询。如图4-12。其中所涉及到的代码：If Trim(Combo3.Text) And Trim(Combo4.Text) And Trim(Text1.Text) Then strsql = select * from & Trim(strTableName) & where & Trim(Combo3.Text) & & Trim(C

30、ombo4.Text) & If Combo4.Text = like Then strsql = strsql & % & Trim(Text1.Text) & % Else strsql = strsql & Trim(Text1.Text) & End If If rs2.State Then rs2.Close rs2.Open strsql, CN, adOpenStatic, adLockOptimistic Set MSHFlexGrid1.DataSource = rs2Else MsgBox 请选择或输入数据!, , 系统提示 4-12信息检索截图4.1.9帮助界面设计 关于

31、和帮助界面是对系统软件版本,作者的一个介绍。帮助界面是对功能介绍包括：初始用户:用户和密码都为admin。添加用户：在用户名称中输入要添加用户的名，原始密码为12345，可以修改，之后点添加。完毕。如果系统已经添加的该用户，系统自动提示，重新添加。删除用户：选中要删除的用户，直接点删除、系统有提示是否真的删除，点是，就删除了此用户。如图4-13。 4-13关于截图4.2仓储管理软件安全性的设计 仓库管理系统的安全性设计可以分为数据库级安全设计和应用软件级安全设计两个级别。数据库级安全设计对数据库级安全通过赋予操作员不同的操作权限，控制操作员对数据库的访问，对操作员进行存取控制；另外并发控制、完

32、整性约束以及数据的备份和恢复策略等等，这些安全性都可以充分利用数据库管理系统（DBMS）本身具有的功能来实现。应用软件级安全设计可以在系统平台上根据不同的登陆身份和权限，给出不同的操作界面，允许不同的操作。本系统的登录模块、用户管理模块配合，就是完成这样的功能。5系统测试测试的目的就是为了能以最少的人力和发现潜在的各种错误和缺陷。系统测试是保证系统质量和可靠性的关键步骤，是对系统开发过程的系统分析，系统设计和系统实施的最后检查。测试表格显示此功能模块通过测试，也证明了本功能模块与其他模块的独立性十分强，从而在以后维护软件的过程中，能够更多的更有效的使用各个功能模块。5.1测试项： 整个系统5.

33、2测试条件：在其他测试项目都通过了单元测试，组合测试，确认测试。下面针对整个系统进行测试：系统测试是将已经确认的软件，计算机硬件等其他因素组合在一起，进行信息系统的各种组装和确认测试，其目的是通过和系统的需求相比较，发现所开发的系统与用户需求不符或矛盾的地方。常见的系统测试有恢复测试，安全性测试，强度测试，性能测试，可靠性测试，安装测试。在本系统中我们对整个源代码进行测试，发现系统没有出现什么问题,在将系统打包后可能会出现的问题就是有些机器上没有微软公司的一些ActiveXObject控件或者是某些组件。因此导致系统不能加载某写对象，为了解决这个问题我在对ActiveXObject控件进行了打

34、包做成压缩包，只要复制到相应的文件夹中即可。通过对整个系统的测试，我发现整个系统的功能还是比较稳定，虽然在某些地方还不尽如人意，但是我们开发的目的还是达到了，作为第一次完整的开发软件，第一次做毕业设计，我们从中还是学到了不少的知识，通过这次开发，我们为以后进入汽车4S店售后行业做管理工作积累了一定的经验。在开发本系统时，为了使系统能够稳定运行，对本系统进行了有针对性的全面测试，采取的方式是：1、菜单项测试：为了保证每一项下拉菜单能够正确实现系统设计的功能，我设计了一些测试数据，基本上全部输入到本系统中，并对每一个菜单项逐一进行了增加、删除、修改等操作，从而保证了菜单没级功能的正确实现。2、数据

35、测试：完成队菜单项测试后，我又对系统内的每一个数据进行了测试。例如：例如对配件编号，我首先在配件信息模块中对某个配件信息进行设定，然后在其他模块进行数据操作，随时观察这两个数值之间是否有冲突产生，经过多次设置并进行验证，说明该功能没有问题。3、综合测试：在以上测试的基础上对系统功能进行了整体的测试，依次来检验系统功能是否符合系统设计的要求。6.结论于以前对VB6.0和Access2003只是了解并不能够灵活运用，所以在毕设期间进行了一番研究，终于可以基本掌握了常用控件的用法和语句编程。数据库的建设和使用，虽然SQL数据库的安全性和普及性很高，但我们在日常中还是接触得比较少，所以这自然又是一番努

36、力的学习，就拿安装配置以及连接数据库方面来说就不那么容易。会用了两种软件，如何把它们连接在一起还真是一件困难的事：选择连接的方法就很重要，通过各方面的比较，我选择了ADO，通过ADO对象与数据库中各表进行连接，同时也用到少数编程实现VB和数据库的连接。在开发过程中我遇到了许许多多的问题，很多地方都不明白，经常有打退堂鼓的想法，我经常的请教同学和老师，最后的成果虽然不很完美，但我尽力了，并有所收获。 总结与体会在开发过程中我遇到了许许多多的问题，很多地方都不明白，经常有打退堂鼓的想法，我经常的请教同学和老师，最后的成果虽然不很完美，但我尽力了，并有所收获。通过毕业设计的锻炼，对于以前所学的的基本

37、知识进行了一次比较系统的复习和巩固。对我们非计算机专业的学生来说设计一个软件还是有一定难度的，自己通过查阅大量的书籍以及以前所做软件的经验总结，还是比较顺利的完成了毕业设计的要求。特别是对VB6.0和Access2003有了更深层次的理解，在开发过程中我遇到了许许多多的问题，很多地方都不明白，经常有打退堂鼓的想法，我经常的请教同学和老师，最后的成果虽然不很完美，但我尽力了，并有所收获。致 谢这次的毕业设计已经进入尾声，在这里我要真诚地感谢帮助我的老师和同学，有了他们的帮助我才能顺利的完成这次毕业设计。从选择毕业设计题目开始，到毕业设计规划，查找相关资料，设计模型，具体实施，结束论文，整个大致的

38、流程中，我的导师都给予了我耐心的指导和非常到位的指点，设计时间之长，其间遇到了不少问题，也承蒙了老师的照顾，真的想对老师说一声：老师，辛苦了，谢谢您。除此之外，我还要致谢我的几位同学的得力相助，我希望我能向他们学习，发扬那种百折不挠、孜孜不倦的对知识求索精神，那种至高无上的敬业精神，马上我就要走向工作单位了，我相信我会时刻用他们的平凡而不简单来鞭策自已。再次衷心地感谢帮助我的老师和同学。 【参考文献】1 塞奎春. VB6工程应用与项目实践M.北京：机械工业出版社，2005.2 萨师煊，王珊.数据库系统概论M.北京：高等教育出版社，2004.3 黄明.信息系统设计与开发实例M.北京：机械工业出版

39、社，2005.4 张海藩.软件工程导论M.北京：清华大学出版社，1998.5 申莉莉. SQLSERVER数据库应用教程M.北京：机械工业出版社，20056 李建中.数据库系统原理M.西安：电子工业出版社，1998.7 刘瑞新.VB6.0数据库开发毕业设计指导及实例M.北京：机械工业出版社，2005.8 刘军.汽车4S店管理全程指导. 北京：化学工业出版社, 2011.9 宓亚光. 汽车特约销售服务站经营与管理丛书. 北京：机械工业出版社,2011.10 王丰，张剑芳，卢宝亮.仓库安全管理与技术（第2版）.北京：中国物资出版社,2008.附 录4S店汽车零配件仓储管理系统代码：Private

40、Sub CARPP_Click()strTableName = 汽车品牌frmZiDian.Show 1End SubPrivate Sub CGLK_Click()strTableName = 采购入库信息frmlk.Show 1End SubPrivate Sub ChangeUser_Click() isLogin = FalseUnload MefrmLogin.ShowEnd SubPrivate Sub Exit_Click()EndEnd SubPrivate Sub DATAtj_Click()frmtj.Show 1End SubPrivate Sub ExitSyss_Cl

41、ick()EndEnd SubPrivate Sub FindCG_Click()strTableName = 采购入库信息frmFind.Show 1End SubPrivate Sub FindKC_Click()strTableName = 配件信息frmFind.Show 1End SubPrivate Sub FindXX_Click()strTableName = 销售出库信息frmFind.Show 1End SubPrivate Sub FJFX_Click()strTableName = 配件分类frmZiDian.Show 1End SubPrivate Sub Form_

42、Load()Me.Caption = 汽车4S店零配件仓储管理系统 -操作员: & UserIDCall PrivssubisLogin = TrueEnd SubSub Privssub()If IsUserMode = 2 Then sysManager.Visible = False BASEDATA.Visible = FalseEnd IfEnd SubPrivate Sub Form_Resize()On Error GoTo Err 改变控件位置代码Picture1.Top = 0Picture1.Left = 0Picture1.Height = Me.ScaleHeight

43、- StatusBar1.HeightPicture1.Width = Me.ScaleWidthStatusBar1.Panels(1).Text = 欢迎使用 & Me.Caption加载背景代码Image1.Picture = LoadPicture(App.Path & 1.jpg)Picture1.RefreshPicture1.PaintPicture Image1.Picture, Picture1.ScaleTop, Picture1.ScaleLeft, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Image1.Width

44、, Image1.HeightErr:End SubPrivate Sub HelpFiles_Click() 帮助文件On Error GoTo Errfrmhelp.Show 1Exit SubErr:MsgBox Err.DescriptionEnd SubPrivate Sub InfoPJ_Click()frmPJ.Show 1End SubPrivate Sub KCxxinfo_Click()frmKcInfo.Show 1 详细库存End SubPrivate Sub SysAbout_Click() 关于frmAbout.Show 1End SubPrivate Sub sy

45、sManager_Click()frmUser.Show 1End SubPrivate Sub Userpasword_Click() 用户密码frmpsd.Show 1End SubPrivate Sub XSCK_Click()frmck.Show 1 销售出End Sub采购入库管理界面代码：Private Sub Command1_Click() 查询Dim rst As New ADODB.RecordsetDim i As IntegerDim strSQL As StringIf Trim(Text1.Text) = Then strSQL = select * from 采购

46、入库信息 order by 入库单号 descElse For i = 0 To 3 If Option1(i).Value = True Then strSQL = select * from 采购入库信息 where & Option1(i).Caption & like % & Trim(Text1.Text) & % order by 入库单号 desc Exit For End If Next iEnd IfIf rst.State Then rst.Closerst.Open strSQL, CN, adOpenStatic, adLockOptimisticWith MSHFle

47、xGrid1 .Clear .Rows = 2 .Cols = rst.Fields.Count For i = 0 To rst.Fields.Count - 1 .TextMatrix(0, i) = rst.Fields(i).Name Next i If rst.RecordCount 0 Then .Rows = rst.RecordCount + 1 Label1.Caption = 查询到 & rst.RecordCount & 条记录 Else Label1.Caption = 查询到0条记录 MsgBox 没有查询记录信息!, , 提示 Exit Sub End If Dim

48、 k As Integer k = 1 While Not rst.EOF For i = 0 To rst.Fields.Count - 1 If Not IsNull(rst.Fields(i) Then If rst.Fields(i).Type = adCurrency Then .TextMatrix(k, i) = Format(rst.Fields(i), 0.00) Else .TextMatrix(k, i) = Trim(rst.Fields(i) End If End If Next i k = k + 1 rst.MoveNext WendEnd WithEnd Sub

49、Public Sub Command3_Click() 添加frmlkAdd.strDZId = frmlkAdd.Show 1End SubPrivate Sub Command4_Click()With MSHFlexGrid1 If Trim(.TextMatrix(.Row, 0) = Then MsgBox 请选择采购入库信息, , 提示 Exit Sub End If frmlkAdd.strDZId = Trim(.TextMatrix(.Row, 0) frmlkAdd.Show 1 frmlkAdd.strDZId = End WithEnd SubPrivate Sub C

50、ommand5_Click() 删除With MSHFlexGrid1 If Trim(.TextMatrix(.Row, 0) = Then MsgBox 请选择采购入库信息, , 提示 Exit Sub End If If MsgBox(真的删除编号为: & Trim(.TextMatrix(.Row, 0) & 的信息吗?不可恢复!, vbExclamation + vbYesNo, 提示) = vbYes Then CN.Execute delete from 采购入库信息 where 入库单号= & Trim(.TextMatrix(.Row, 0) & CN.Execute upd

51、ate 配件信息 set 库存量= & Getkc(Trim(.TextMatrix(.Row, 2) & where 配件编号= & Trim(.TextMatrix(.Row, 2) & If .Rows = 2 Then For i = 0 To .Cols - 1 .TextMatrix(1, i) = Next i Else .RemoveItem .Row End If End IfEnd WithEnd SubPrivate Sub Command6_Click()Unload MeEnd SubPublic Sub Form_Load()On Error GoTo ErrDim

52、 rst As New ADODB.RecordsetIf rst.State Then rst.Closerst.Open select * from 采购入库信息 order by 入库单号 desc, CN, adOpenStatic, adLockOptimisticWith MSHFlexGrid1 .Clear .Rows = 2 .Cols = rst.Fields.Count For i = 0 To rst.Fields.Count - 1 .TextMatrix(0, i) = rst.Fields(i).Name Next i If rst.RecordCount = 1

53、 Then .Rows = rst.RecordCount + 1 Dim k As Integer k = 1 While Not rst.EOF For i = 0 To rst.Fields.Count - 1 If Not IsNull(rst.Fields(i) Then If rst.Fields(i).Type = adCurrency Then .TextMatrix(k, i) = Format(rst.Fields(i), 0.00) Else .TextMatrix(k, i) = Trim(rst.Fields(i) End If End If Next i k = k + 1 rst.MoveNext WendEnd WithExit SubErr:MsgBox Err.DescriptionEnd SubPrivate Sub MSHFlexGrid1_DblClick() Call Command4_ClickEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall Command1_ClickEnd IfEnd Sub第 40 页 共 40 页