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

目录
摘要 (3)
Abstract (3)
1 绪论 (4)
2 4S店汽车零配件仓库管理系统分析 (5)
2.1 汽车4S店业务流程分析 (5)
2.2关于数据库 (5)
2.3系统运行环境 (6)
3.管理软件设计 (9)
3.1功能设计 (9)
3.2模块结构设计 (9)
3.3程序流程图 (10)
3.4数据库设计 (12)
4.仓储管理软件的设计 (14)
4.1 界面的设计................................. 错误！未定义书签。

4.2仓储管理软件安全性的设计 (25)
5系统测试 (26)
5.1测试项 (26)
5.2测试条件 (26)
6.结论 (28)
总结与体会 (30)
致谢 (31)
参考文献......................................... 错误！未定义书签。

附录. (32)
4S店汽车零配件仓储管理系统
摘要
4S店汽车零配件仓储管理系统能够正确有效地完成仓库管理的日常工作，从而实现用户能够快速的进行汽车零配件仓储管理。

4S店汽车零配件仓储管理系统包括需求分析、系统功能、系统设计、程序设计、系统测试及存在问题等方面，详细地介绍了“4S店汽车零配件仓库管理系统”设计开发的整个过程。

4S店汽车零配件仓储管理系统采用Visual Basic作为开发工具，后台数据采用Access数据库设计，利用ADO数据库访问实现各种功能。

关键词：零部件管理；数据库；管理系统；Visual Basic。

4S Car’s Parts Storage Management System
Abstract
4S c ar’s parts storage management system can able to correctly and effectively accomplish the daily work of storage management, enabling users to quickly car’s parts storage management.4S c ar’s parts storage management system includes requirement analysis, system function, systems design, programming and the system tests and exists the aspects such as question etc, and systematically introduced the whole course of “4S c ar’s parts storage parts management system" subject development.
4S c ar’s parts storage management system using Visual Basic as a development tool, the background data using the Access database design, ADO database access to achieve the various functions.
Keywords：Parts management; Database; Management system; Visual Basic.
1 绪论
随着中国经济的快速增长，中国汽车的保有量逐年递增，对于汽车4S店的售后及仓库管理需要更加方便以及实用的管理软件。

在汽车4S店仓库管理中需要实时采集，并根据需要及时地向相关的各部门传送各类信息，这对零配件供应、销售服务、质量监控、成本核算等都有着重要的作用。

同时此数据对零配件的质量跟踪和售后服务有重要的意义。

由于零配件管理数据属于动态信息，不仅数据量大，而且内容庞杂，且由于此数据不仅用于售后服务及质量监控等方面，同时还具有对零配件质量跟踪等功能，因而必须保证数据准确。

符合行业的管理软件和计算机网络技术的应用为实现上述功能需求提供了可靠的保证，为用户提供更公开、更快捷、更规范和更优质的服务，是各家汽车4S店面临的共同挑战。

想要有效地解决上诉问题，就必须引入更加高效的管理手段，其中实行计算机化管理就是有效的方法之一。

2 4S店汽车零配件仓库管理系统分析
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系统开发工具选择
目前，在市场上这些众多的程序开发工具中，有些开发软件强调程序语言的执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的提高，各有各的优点和特色，也满足了不同用户的需求。

然而，语言的执行效率和工具的便利性是密切相连的，只有便利的工具，却程序语言的执行效率，许多特殊化的
处理必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程序语言的执行效率，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费毕业设计的宝贵时间。

而Visual Basic是著名的微软公司的可视化软件开发工具，其被称为最容易编程语言，它具有简单、高效、功能强大的特点。

它是一个非常理想的选择，是可视化的快速应用程序开发语言，它提供了可视化的集成开发环境，这一环境为应用程序设计人员提供了一系列灵活而先进的工具，可以广泛地用于许多种类应用程序设计。

Visual Basic的前身是QBASIC，语言基础是BASIC。

自从微软推出VB后，便成为了程序开发人员的首选工具之一。

跟据统计，仅在数据库系统开发领域中，VB就占了90％的份额。

VB是基于对象的可视化程序开发工具，它的优点在于能够快捷、简易地建立Windows应用程序。

1998年8月，微软推出了VB 6.0的版本，进一步加强了部件开发的功能。

以适用人员来分，可有以下三个版本：标准版针对一般程序设计人员,适合普通应用系统的开发。

专业版针对专业程序开发人员，它在标准版的基础上提供了对数据库和Internet的支持。

企业版适用于专为企业设计应用软件的程序开发人员。

2.3.2数据库的选择
建立一个数据库也有多种选择，现在市场上有各种各样的数据库，而且每一种数据库都有其自身的特点，不能说哪一种更好，只能在其中寻找一种能更好地适应系统需求、更好地满足用户的要求以及适应开发人员的习惯。

当然，要是一个完善的管理软件，必须要有后台的数据库。

而目前主流的数据库有以下几种：低级数据库最流行的是ACCESS；中级数据库，最流行的是SQL Server 2000，SQL Server 2005，Mysql；高端的三大数据库，DB2，ORACLE,SYBASE。

其中，我选择ACCESS2003做为系统的后台数据库。

ACCESS2003是美国微软公司开发的一款关系型数据库管理系统的产品，具有成本低，易上手，工具全等优点。

适用于大型或超大型数据库服务器端。

利用VB6.0卓越、快速、简便的界面开发平台，制作系统的客户端界面；再利用ACCESS2003，创建出具有合理的物理关系、逻辑关系的后台数据库；最后
运用VB语言来编写代码，实现人机交互，运用ADO的方法来建立与后台数据库的连接，包括数据的添加、查询、删除、修改等等；最后开发和测试系统。

2.3.3开发与运行环境
(1)硬件环境
处理器：Inter PentiumⅢ或更高。

内存：256MB以上
硬盘空间：40GB
显卡：集成显卡或更高
(2)软件环境
操作系统：Windows XP。

开发工具：VB6.0中文企业版。

数据库：Microsoft ACCESS 2003。

美化工具：Photoshop。

其他：Excel。

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

3.2模块结构设计
“4S店汽车零配件仓库管理系统”可分为几个主模块：系统管理、基本信息管理、查询管理、出入库管理、库存管理。

按照结构化的系统设计方法，将整个系统分解成相对独立的若干模块，通过对模块的设计和模块之间关系的协调来实现整个软件系统的功能，从而得到系统的功能模块结构图。

本系统的功能模块结构如图3-1所示。

图3-1 系统模块结构图
3.3程序流程图
汽车4S 店零配件仓储管理
用户管理 密码管理
切换用户
配件管理
配件分类
采购入库
库存查询
库存详细信息
采购查询 销售查询
库存管理
销售出库
查询管理
系统管理
基本信息管理
出入库管理
3.4数据库设计
有关数据结构的建立：在进行了数据基本结构的规范化重组后，还必须建立整体数据的关系结构。

这一步设计完成后数据库和数据结构设计工作基本完成，以后系统实现时将数据分析和数据库的内容代入到所设计的数据整体关系结构中，一个规范化数据库系统结构就建立起来了。

根据分析阶段得出的结论，结合本系统对有关数据的存储的需要，更加方便实现该管理系统的所有功能，现将本管理系统设计成如下几个数据库表，表的设计如下:
表3-1 用户信息表
表3-2 配件信息
表3-3采购入库信息
表3-4销售出库信息
其他表请参考数据库.
4.仓储管理软件的设计
4.1界面的设计
界面要求美观易懂、操作简单，使用户感觉愉快、操做方便，从而提高使用效率。

本系统基于Windows XP操作系统，因此在界面上遵循Windows XP的传统风格，由标题栏、菜单栏、快捷工具按钮、对话框等要素组成。

与Windows XP 操作系统一致的人机界面，使得用户只要具备Windows XP操作基础，就能很快适应本管理系统的操作使用，因此能够大大降低系统培训费用以及培训周期，提高系统的可推广性。

为了进一步美化界面，使得用户在操作中更加心情舒畅，我们选用Photoshop CS4图像处理软件，为系统设计了比较新颖的界面图。

总之对系统界面的整体风格，页面布局结构以及色彩搭配等进行了合理的规划和设计，在保证操作员实用性、方便性的前提下，创造更简单，更友好的系统界面。

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(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 用户名称= '" & txtUserName.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) 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.StatusBar1.Panels(1).Text = "操作员:" & UserId
Me.StatusBar1.Panels(2).Text = "★欢迎使用汽车4S店零配件仓库管理系统★"
Call PrivsSeting
End Sub
4.1.3用户管理界面设计
系统设置包括，用户，密码，数据库管理。

用户包括权限管理。

用户管理模块实现2个主要功能：增加新的操作人员、删除指定的操作人员。

密码是对当前用户进行密码修改，其中代码可以参考frmUsers。

如图4-3
如图4-3用户管理界面
4.1.4基本信息界面设计
汽车4S店零配件仓库管理系统基本信息包括对配件分析信息,配件信息的管理，包括添加，删除，修改等操作。

如图4-4是配件信息，添加，操作成功。

图4-4 配件信息截图其中主要代码如下:
Private Sub cmdRegAdd_Click() '''添加nModeSys = 2 ''添加操作
Dim IDmax As String
Dim i As Integer
For i = 1 To Val(Txt(0).Text)
If Lbl(i).Caption = "库存量" Then Txt(i).Text = 0
Else
Txt(i).Text = ""
End If
Next i
Txt(1).Text = GetmaxId(Lbl(1).Caption)
cmdRegSave.Enabled = True
4.1.5出入库界面设计
出入库管理包括采购入库和销售出库信息。

入库管理界面如图4-6所示。

本界面主要是对入库单信息进行添加删除修改保存等操作。

其中代码详情请参考frmlk文件。

图4-6 入库界面截图
点击添加按钮如图4-7可实现汽车零配件的添加。

配件编号是支持选择配件信息的,可以名称进行选择。

图4-7 添加界面截图
其中代码如下：
rst.Open "select * from 采购入库信息where 入库单号='" & Trim(Text1(0).Text) & "'", CN, adOpenStatic, adLockOptimistic
If Trim(strDZId) = "" Then '添加
rst.AddNew
For 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 If
4.1.6出库管理设计
出库管理设计和入库管理设计思想一样，并不做详细说明，其中出库管理界面图4-8，图4-9所示。

4-8销售出库界面截图
图4-9出库添加截图
4.1.7零配件库存管理设计
零配件库存管理包括汽车零配件详细库存信息和库存量查询。

可以统计零配件出入库数量及时间。

如图4-10。

其中的代码：
If rst.State Then rst.Close
rst.Open "select 配件编号,配件名称,型号,计量单位from 配件信息", CN, adOpenStatic, adLockOptimistic
Dim i As Integer
Dim j As Integer
Dim gridI As Integer
i = 0
If rsK.State Then rsK.Close
rsK.Open "select * from 盘点信息表where 年月='" & Combo1.Text & "-" & Combo2.Text & "'", CN, adOpenStatic, adLockOptimistic
If Not rsK.EOF Then
If MsgBox("本月份配件已统计,是否重新统计?", vbInformation + vbYesNo, "提示") = vbYes Then
CN.Execute " delete from 盘点信息表where 年月='" & Combo1.Text & "-" & 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(Combo4.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 = rs2
Else
MsgBox "请选择或输入数据!", , "系统提示"
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店汽车零配件仓储管理系统代码：Private Sub CARPP_Click() strTableName = "汽车品牌" frmZiDian.Show 1
End Sub
Private Sub CGLK_Click() strTableName = "采购入库信息"
frmlk.Show 1
End Sub
Private Sub ChangeUser_Click() '' isLogin = False
Unload Me
frmLogin.Show
End Sub
Private Sub Exit_Click()
End
End Sub
Private Sub DATAtj_Click()
frmtj.Show 1
End Sub
Private Sub ExitSyss_Click()
End
End Sub
Private Sub FindCG_Click() strTableName = "采购入库信息" frmFind.Show 1
End Sub
Private Sub FindKC_Click() strTableName = "配件信息"
frmFind.Show 1
End Sub
Private Sub FindXX_Click()
strTableName = "销售出库信息"
frmFind.Show 1
End Sub
Private Sub FJFX_Click()
strTableName = "配件分类"
frmZiDian.Show 1
End Sub
Private Sub Form_Load()
Me.Caption = "汽车4S店零配件仓储管理系统 ----操作员: " & UserID
Call Privssub
isLogin = True
End Sub
Sub Privssub()
If IsUserMode = 2 Then
sysManager.Visible = False
BASEDATA.Visible = False
End If
End Sub
Private Sub Form_Resize()
On Error GoTo Err '''改变控件位置代码
Picture1.Top = 0
Picture1.Left = 0
Picture1.Height = Me.ScaleHeight - StatusBar1.Height
Picture1.Width = Me.ScaleWidth
StatusBar1.Panels(1).Text = "欢迎使用" & Me.Caption
''加载背景代码
Image1.Picture = LoadPicture(App.Path & "\1.jpg")
Picture1.Refresh
Picture1.PaintPicture Image1.Picture, Picture1.ScaleTop, Picture1.ScaleLeft, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Image1.Width, Image1.Height
Err:
End Sub
Private Sub HelpFiles_Click() '''帮助文件
On Error GoTo Err
frmhelp.Show 1
Exit Sub。