车辆维修管理系统论文-学位论文.doc

人才培养模式改革和开放教育试点理工类毕业设计（论文）

毕业设计(论文)

分校名称 合 肥 分 校
教学点名称
年级名称 05春计算机
专业名称 计算机应用
课题名称 车辆维修管理系统
学生姓名
指导教师

年 月 日

摘要

本文以现代汽车修理厂的业务运营模式作为基本框架，将汽车修理的业务接待报修、维修派工、汽配材料领用、车辆结算出厂作为开发的主线，论述了车辆维修管理系统的整体结构及流程化设计的基本方法。全文共分前言、系统分析、系统设计、系统实施、开发总结共五章。重点阐述了可视化编程技术、数据库管理技术。该系统通过Visual Basic 6.0中文版的开发工具进行桌面开发，主要介绍了软件开发的基本过程、部分常用控件的使用方法、数据库连接与数据集的调用与数据处理等方面；选择可视化的RDBMS工具MS Access2000作为后端数据库，在该数据库中数据以表的形式存储，介绍了表的创建及存储过程。通过该系统基本实现了汽车维修企业维修业务流程的信息化、自动化、程序化，规范了车辆维修企业的管理工作。

关键字：汽车修理 流程化 信息管理 VB

Abstract

This text fix the conduct and actions basic frame of the business luck camp mode of factory by modern car and receive the business that the car fix a report to fix, maintain parties work, vapor to go together with material to get to use and the vehicle settle accounts a factory as the main line of development and whole structure and process which discussed vehicle to maintain to manage system turn the basic method of design.The full text is totally divided into the implement, development of the design, system of the analysis, system of the foreword, system to tally up total 5.The point elaborates and can see to turn a plait distance technique, database management a technique.That system passes Visual Basic the development tool of 6.0 Chinese versions to carry on a table's top development and mainly introduced the basic process, part of software development in common use control operation method, database conjunction and data of piece to gather of adjust to use to handle with data etc.;The choice can see to turn of the MS Access2000 of the RDBMS tool be behind to carry a database, data in that database with the form of form saving, introduced establish of form and saving process.Pass that system basic carried out a car maintenance business enterprise to maintain business process of information-based, the automation, procedure turn, norm the vehicle maintain the management work of business enterprise.
Keywords：Autorepair Process InformationManagement VB

目 录
第1章 绪论………………………………………………………………………1
第2章 系统需求分析……………………………………………………………2
2.1 汽车修理厂工作的初步调查……………………………………2
2.1.1 业务接待………………………………………………………2
2.1.2 维修派工………………………………………………………2
2.1.3 材料领用………………………………………………………2
2.1.4 出厂结算………………………………………………………2
2.1.5 相关查询………………………………………………………2
2.2 车辆维修管理系统的需求………………………………………2
第3章 车辆维修管理系统可行性分析…………………………………………3
第4章 车辆维修管理系统设计…………………………………………………4
4.1 系统对计算机软硬件的运行要求和设计开发环境介绍…………4
4.1.1 系统对计算机软硬件的运行要求………………………………4
4.1.2系统设计开发环境介绍……………………………………………4
4.2 系统功能分析与设计………………………………………………4
4.3 数据库设计…………………………………………………………5
4.4 系统主要窗体及关键技术介绍……………………………………8
4.4.1 登录窗体介绍……………………………………………………8
4.4.2 维修系统主界面窗体介绍………………………………………9
4.4.3 业务接待功能介绍……………………………………………12
4.4.4 维修派工功能介绍……………………………………………13
4.4.5 材料领用功能介绍……………………………………………16
4.4.6 出厂结算窗体介绍……………………………………………18
4.4.7 维修档案查询窗体介绍………………………………………20
4.4.8 维修单据查询窗体介绍………………………………………22
第5章 系统实现…………………………………………………………………25
致谢………………………………………………………………………………26
参考文献……………………………………………………………………………27

第1章 绪论
当今社会已进入信息化时代。信息化正以其巨大的现实作用，引起人们前所未有的广泛关注。对企业来说，用信息化规范企业的管理，为顾客提供标准化、规范化的服务，减少企业的管理成本，提高企业竞争能力，是企业长远发展的必由之路。
汽车修理企业的信息化管理工作，主要是指车辆维修流程的计算机管理，通过修理企业的信息管理系统，将车辆维修的进厂接待、报修、派工、领料、结算出厂等方面以流程化的方式，把各个环节串连起来，为顾客提供计算机信息管理一体化的服务，达到提高企业管理水平的目的。
本人开发的这一车辆维修管理系统，以汽车修理企业的业务流程主线作为系统设计的基本思路，将维修企业的主要业务以模块化方式集成在系统中，规范了维修企业工作的业务过程，提高了工作效率，方便了维修企业的管理，能够满足车辆维修工作中的需要。

第2章 系统需求分析
2.1 汽车修理厂工作的初步调查
经调查发现，汽车修理厂的工作流程主要包括以下几个方面：
2.1.1 业务接待
待修车辆进厂后，首先修理厂要安排工作人员接待车主，登记车辆的相关资料，听取车主的反映，并记录下报修项目，以待于下一步工作安排。
2.1.2 维修派工
根据业务接待时登记的报修项目，安排修理人员对车辆进行维修。在此过程中，若发现有新的维修作业项目，要能随时添加作业项目。在维修过程中，要详细记录下维修项目、维修人员、检验员等资料，以备以后查验。
2.1.3 材料领用
在维修过程中，若需要更换汽车配件材料，由配件库提供。汽配材料领用时，要记录下汽配材料的名称、规格、型号、领用数量、价格等资料，以备查验和结算需要。
2.1.4 出厂结算
根据车辆维修和领用材料时产生的相关费用，对竣工出厂车辆进行结算。结算时应注明各项费用产生的依据，让车主明白放心，同时做好出厂时车辆里程表显示公里数的登记，这也是维修质量保证期的需要。
2.1.5 相关查询
主要包括车辆维修档案的查询和各维修单据的查询。
2.2 车辆维修管理系统的需求
根据对汽车修理厂工作流程的初步调查，车辆维修管理系统的功能应尽量满足汽车修理厂日常工作的需要，减少汽车修理工作中维修任务安排和材料领用的随意性，要做到人员安排一目了然，材料领用前后承接。对在修车辆的维修情况应能具体体现，以利于随时调整和安排。考虑到维修项目繁杂，汽配材料种类众多，要有较方便的检索方式和灵活的处理办法，以应对维修中出现的突发情况。

第3章 车辆维修管理系统可行性分析
汽车修理是一个服务性的行业。如何更好地为顾客提供满意的服务，是汽车修理企业追求的目标。服务的好坏由服务的质量直接体现出来。将相关的工作过程规范化，改变现今众多修理企业散、乱、差的局面，为客户提供高质量的服务，显然是汽车修理企业发展的一个方向。
通过对汽车修理维修业务的调查与分析，根据各业务流程方面的需求，车辆维修管理系统从进厂接待报修、派工、领料、结算这一全过程进行跟踪服务，既满足了客户对修理企业规范化服务的需求，也对汽车修理企业自身的标准化建设提供了必要的帮助，基本上能够满足大多数汽车维修企业的信息化管理需求。

第4章 车辆维修管理系统设计
4.1 系统对计算机软硬件的运行要求和设计开发环境介绍
4.1.1 系统对计算机软硬件的运行要求
本系统运行时对软硬件要求不高，操作系统为Windows 2000以上即可，可选装数据库系统软件Access 2000以方便对系统数据库的操作。硬件为Intel PⅢ以上处理器、64M以上内存、100M以上硬盘空间即可。
4.1.2系统设计开发环境介绍
本系统设计开发选用了功能较为强大的软件开发工具Visual Basic6.0中文版。选择该语言主要原因是它是一种强有力的数据库应用程序开发工具， 提供了众多的数据库组件，并能够访问种类繁多的数据库，具有丰富的数据库应用功能。数据库产品选择Access2000。
4.2 系统功能分析与设计
车辆维修管理系统要实现的功能主要有以下几点：
（1）、对车辆（包括车辆所属单位）的相关资料进行登记；
（2）、对进厂车辆报修项目进行登记；
（3）、安排人员维修车辆；
（4）、维修项目要能够方便快捷地查询；
（5）、在修车辆可以正常领用汽车配件材料；
（6）、配件材料要能够方便快捷查询；
（7）、对维修工时费和材料费进行结算；
（8）、对竣工出厂车辆有详细登记，可以查询相关信息；
（9）、对各项维修单据能够直观查询。
要实现以上功能的系统结构图如下所示：

车辆维修管理系统

维修单据查询
单车档案查询
车辆维修业务流程

业务接待
维修派工
材料领用
结算出厂
接待单查询
派工单查询
领料单查询
维修记录查询
客户资料查询
车辆资料查询
二级维护查询

相应的车辆维修管理系统的实体关系E-R图如下所示：
1
n
n
1
1
n
n
1
1
进厂车辆
业务接待
材料领用
接待单
维修派工
派工单
领料单
结算单
结算出厂

4.3 数据库设计
根据系统需求，建立车辆维修管理系统数据库（clgl.mdb），包括以下各表项：
1、kh表，客户相关资料，表结构如下：
字段名称
类型
说明
ID
自动编号
kh表主键
khmc
文本
客户名称
khdz
文本
客户地址
khdh
文本
客户电话
khcz
文本
客户传真
lxr
文本
联系人
2、cl表，车辆相关资料，表结构如下：
字段名称
类型
说明
ID
自动编号
cl表主健
khID
数字
关系至kh表主健ID
cph
文本
车牌号
clxh
文本
车辆型号
fdjhm
文本
发动机号码
dph
文本
底盘号码
fyjs
文本
费用结算方式（包月/非包月维修）
sccj
文本
车辆生产厂家
bz
文本
关于车辆的一些情况说明
3、jd表，业务接待的相关资料，表结构如下：
字段名称
类型
说明
ID
自动编号
jd表主健
clID
数字
关系至cl表主健ID
jcsj
日期/时间
进厂时间
ydccsj
日期/时间
预计出厂时间（保留）
sjccsj
日期/时间
实际出厂时间（保留）
bxxm
文本
报修项目
jddlsh
数字
接待单流水号
sxr
文本
送修人
jcr
文本
接车人（保留）
zt
是/否
维修状态，即是否属于在修状态
4、wx表，维修派工的相关资料，表结构如下：
字段名称
类型
说明
ID
自动编号
wx表主健
jdID
数字
关系至jd表jddlsh
wxlb
文本
维修类别
wxjg
文本
维修结果
wxfy
数字
维修费用
sffx
是/否
是否返修（保留）
wxry
文本
维修人员
jyr
文本
检验员
pgdh
数字
派工单号
yc
是/否
此单是否已删除
5、hj表，维修时更换配件材料的相关资料，表结构如下：
字段名称
类型
说明
ID
自动编号
hj表主健
jdID
数字
关系至jd表jddlsh
pjmc
文本
配件名称
sl
数字
数量
jg
数字
价格
pjxh
文本
配件型号
gg
文本
配件规格
bz
文本
配件使用说明
llr
文本
领料人（保留）
flr
文本
发料人（保留）
clfy
数字
材料费用
dw
文本
配件单位
yc
是否
此记录是否已删除
6、js表，车辆维修竣工结算的相关资料，表结构如下：
字段名称
类型
说明
ID
自动编号
js表主健
cphm
文本
车牌号码
jcrq
日期/时间
进厂日期
jddh
数字
关系至jd表jddlsh
wxxm
文本
维修项目
wxfy
数字
维修费用
clmcsl
文本
使用的材料名称及数量
clfy
数字
材料费用
qtfy
数字
其它费用
zfy
数字
总费用
wxry
文本
维修人员
jyy
文本
检验员
ccrq
日期/时间
出厂日期
lcb
数字
里程表指示值
jcr
文本
接车人
7、cz表，系统使用人员的相关资料，表结构如下：
字段名称
类型
说明
ID
自动编号
cz表主健
xm
文本
操作人员姓名
mm
文本
密码
8、gs表，车辆维修项目的工时的相关资料，表结构如下：
字段名称
类型
说明
ID
自动编号
gs表主健
wxxm
文本
维修项目名称
xmpym
文本
维修项目拼音码（保留）
zd
文本
主要针对车型（保留）
jg
数字
维修价格
bx
文本
是否属于合同维修范围
jb
文本
级别（便于分类）
bh
文本
编号（便于分类）
9、pj表，汽车配件材料的相关资料，表结构如下：
字段名称
类型
说明
ID
自动编号
pj表主健
pjmc
文本
配件名称
pjpym
文本
配件拼音码
pjxh
文本
配件型号
pjdw
文本
配件单位
sl
数字
配件数量（保留）
zy
文本
配件主用车型
ty
文本
配件通用车型
pjgg
文本
配件规格
xsjg
数字
配件销售价格
sysm
文本
配件使用说明
10、ry表，维修人员及所属班组的相关资料，表结构如下：
字段名称
类型
说明
ID
自动编号
ry表主健
jb
文本
级别（便于分类）
bh
文本
编号（便于分类）
mc
名称
维修人员姓名或班组名
11、jyr表，汽车维修检验人员的相关资料，表结构如下：
字段名称
类型
说明
ID
自动编号
pj表主健
xm
文本
检验员姓名
4.4 系统主要窗体及关键技术介绍
4.4.1 登录窗体介绍
系统操作人员打开软件后，首先显示的是操作人员登录界面。窗体通过调用VB函数year、month、day和week，取得系统当前日期，以提醒操作人员当前日期是否有误，以免打开主界面后产生不正确的代码。同时，窗体加载时利用连接字符串连接系统数据库，打开表cz，取得cz表中所有操作人员名称，显示在列表框中供操作人员选择。操作人员选择属于自己的用户名，键入密码后登录主界面即可。窗体加载的源码如下：
Label2.Caption = Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日" & " 星期" & Weekday(Date)
'数据库连接
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb;"
Set Cnn = New ADODB.Connection
Cnn.Open strCnn
SQL = "select * from cz"
Cnn.Execute SQL
Set rs = New ADODB.Recordset
rs.Open SQL, Cnn, adOpenDynamic, adLockBatchOptimistic
rs.MoveFirst
Do While Not rs.EOF
Combo1.AddItem rs.Fields(1): rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Cnn.Close
Set Cnn = Nothing
Combo1.ListIndex = 0
窗体预览效果如下：

4.4.2 维修系统主界面窗体介绍
维修系统主界面是子窗体。本系统在设计时将相关窗体全部作为子窗体看待，母窗体除了起个容器的作用外，没有其它的功能和作用。主界面显示系统主要操作的所有内容，包括业务接待、维修派工、领用材料、结算出厂、单车档案、单据查询等方面。
维修主界面窗体加载了三个DateGrid控件，分别显示主界面窗体的当前在修车辆情况、维修派工明细、材料领用明细三个方面内容。DateGrid控件与Adodc控件记录集绑定，采用SQL语句对需显示的记录和字段进行筛选。对在修车辆情况、维修派工明细、材料领用明细三部分控件内容分别在公共模块中定义公共函数LD、PG、LL，加载DateGrid控件时采取调用公共函数的方法。在模块中定义这三个函数，是为了方便以后对这三个控件数据记录集重新加载时，不需要再编写这些重复代码。
系统主窗体定义了加载在修车辆情况DateGrid控件的RowColChange事件，这个事件是在当前操作记录发生改变时发生的事件，主要是为了保证维修派工明细和材料领用明细这两个DateGrid控件与其的同步变化。
退出软件使用的方法是调用窗体的QueryUnload事件。这个事件是在窗体卸载前发生的事件，经弹出确认窗体确认退出后，关闭主界面和母窗体界面。
在模块中定义的三个公共函数LD、PG、LL的源代码如下：
Public Sub LD()
On Error GoTo err1
Form2.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb;"
Form2.Adodc1.RecordSource = "select jddlsh,cph,khmc,jcsj,bxxm,ydccsj,sxr,jcr,clxh,fyjs ,jd.id from kh,cl,jd where kh.id=cl.khid and cl.id=jd.clid and jd.zt=" & True & " order by jddlsh"
Form2.Adodc1.Refresh
Set Form2.DataGrid1.DataSource = Form2.Adodc1
Form2.DataGrid1.Caption = "在修车辆一览表"
Form2.DataGrid1.Columns(0).Caption = "报修单流水号"
Form2.DataGrid1.Columns(1).Caption = "车牌号码"
Form2.DataGrid1.Columns(2).Caption = "车属单位"
Form2.DataGrid1.Columns(3).Caption = "进厂时间"
Form2.DataGrid1.Columns(4).Caption = "报修项目"
Form2.DataGrid1.Columns(5).Caption = "预计出厂时间"
Form2.DataGrid1.Columns(6).Caption = "送修人"
Form2.DataGrid1.Columns(7).Caption = "接车人"
Form2.DataGrid1.Columns(8).Caption = "车辆型号"
Form2.DataGrid1.Columns(9).Caption = "费用结算方式"
Form2.DataGrid1.Columns(10).Caption = "接待表主键"
Form2.DataGrid1.Columns(10).Width = 0
Form2.Label2.Caption = Form2.DataGrid1.Columns(1).text
pglsh = Form2.DataGrid1.Columns(10).text
jdwx = Form2.DataGrid1.Columns(0).text
For u = 0 To 10
Form2.DataGrid1.Columns(u).Locked = True
Next u
Exit Sub
err1:
jdwx = 0
On Error Resume Next
End Sub

Public Sub PG()
On Error Resume Next
Form2.Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb;"
Form2.Adodc3.RecordSource = "select pgdh,wxlb,wxjg,wxfy,wxry,jyr,yc from wx where jdid=" & jdwx & " and yc=" & False & " order by pgdh"
Form2.Adodc3.Refresh
Set Form2.DataGrid3.DataSource = Form2.Adodc3
Form2.DataGrid3.Columns(0).Caption = "派工单号"
Form2.DataGrid3.Columns(1).Caption = "维修类别"
Form2.DataGrid3.Columns(2).Caption = "维修项目"
Form2.DataGrid3.Columns(3).Caption = "维修费用"
Form2.DataGrid3.Columns(4).Caption = "维修人员"
Form2.DataGrid3.Columns(5).Caption = "检验员"
Form2.DataGrid3.Columns(6).Width = 0
For u = 0 To 6
Form2.DataGrid3.Columns(u).Locked = True
Next u
End Sub

Public Sub LL()
On Error Resume Next
Form2.Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb;"
Form2.Adodc2.RecordSource = "select pjmc,pjxh,gg,dw,sl,jg,clfy,yc from hj where jdid=" & jdwx & " and yc=" & False
Form2.Adodc2.Refresh
Set Form2.DataGrid2.DataSource = Form2.Adodc2
Form2.DataGrid2.Columns(0).Caption = "配件名称"
Form2.DataGrid2.Columns(1).Caption = "配件型号"
Form2.DataGrid2.Columns(2).Caption = "配件规格"
Form2.DataGrid2.Columns(3).Caption = "单位"
Form2.DataGrid2.Columns(4).Caption = "数量"
Form2.DataGrid2.Columns(5).Caption = "价格"
Form2.DataGrid2.Columns(6).Caption = "材料费用"
Form2.DataGrid2.Columns(7).Width = 0
For u = 0 To 7
Form2.DataGrid2.Columns(u).Locked = True
Next u
End Sub
维修主界面窗体的预览效果如下：

4.4.3 业务接待功能介绍
业务接待是车辆进厂的第一项工作。操作员打开“业务接待单”界面后，登记车主和车辆的相关资料，并记录下车主的报修项目，接待功能完成。业务接待单能根据当前日期和今日业务接待数量，自动产生一个顺序化的流水号。流水号使用8位整数显示，第一位显示当前年份的最后一个数字，第二位到第五位分别显示月份（两位数格式）和日期（两位数格式），第六位和第八位显示的是当前接待的顺序号。单日最大接待量达999台次，能够满足绝大多数修理厂的最大业务接待能力。当接待完成后，点击确认按钮，将接待报修的情况写入数据库中的jd表，同时调用LD函数，使用接待的车辆显示在主界面窗体的在修车辆情况一览表中。
业务接待窗体预览如下：

4.4.4 维修派工功能介绍
车辆经过报修接待后，在主窗体界面的在修车辆情况一览表中选取后，就可以安排人员维修了。在点击维修派工按钮后，打开维修派工界面。维修派工窗体加载时，采用字符串连接数据库wx表的方法，提取当前接待报修流水号下的派工单数量，根据该车已派工单的数量自动产生派工单号，产生的派工单号为该车业务接待流水号后连接派工单数量加1的这个数值。这个数值就是同业务接待流水号下的派工单总数量。在本系统中设置这个数值为个位数，最大数值为9，最小数值为1，即最大派工量为8。当超过最大派工量时，调用msgbox语句，提醒派工已超过最大数，不能再安排维修派工了。这是因为大多数车辆维修时不会产生8次以上的派工，正常情况下1～3次即可派工完毕，所以最大派工量为8次是完全可以满足正常维修需求的。特殊情况下若维修特别复杂，也可以重新安排报修，产生新的一个业务接待流水号，重新安排维修派工，也是一个变通的办法。
在维修派工的维修项目添加和维修人员的添加上，系统在设计时采用既可以直接输入的方法，也可以调用维修项目选择窗体和维修人员选择窗体的方法。
采用维修项目选择窗体时，窗体使用TreeView控件自动从系统数据库gs表中加载所有的维修项目名称，同时根据维修种类的不同，分类显示出各相应的工时项目名称和价格，供操作人员选择。在操作人员选择相应的维修项目后，系统将对应的维修项目名称和维修价格赋予派工单上相应项目。特别设计了使用不同颜色（红、绿）的图标，分别代表是否属于协议维修内的维修项目，即此维修项目是否收费，以提醒操作人员注意。
维修人员选择窗体的设计大体上与维修项目选择窗体的设计相似，在此不再赘述。
派工单的检修员的选择采用下拉列表的形式，采用字符串连接的方式，从数据库中提取所有的检验人员的名称，供操作员选择安排。
派工单的界面预览如下：

维修项目添加窗体的加载源码如下：
Dim key, text, bh As String
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb;"
Set Cnn = New ADODB.Connection
Cnn.Open strCnn
SQL = "select * from gs order by bh"
Cnn.Execute SQL
Set rs = New ADODB.Recordset
rs.Open SQL, Cnn, adOpenKeyset, adLockOptimistic, adCmdText
If rs.RecordCount > 0 Then
rs.MoveFirst
Do While Not rs.EOF
If Len(Trim(rs.Fields(7))) = 2 Then
key = Trim(CStr(rs.Fields(1)))
text = "(" & Trim(rs.Fields(1)) & ")"
Set node1 = TreeView1.Nodes.Add(, , key, text, 1)
End If
If Len(Trim(rs.Fields(7))) = 5 Then
key = Trim(CStr(rs.Fields(1)))
text = Trim(rs.Fields(4)) & "元(" & Trim(rs.Fields(1)) & ")"
If rs.Fields(5) = "非合同" Then j = 2
If rs.Fields(5) = "合同" Then j = 3
Set node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, key, text, j)
End If
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Cnn.Close
Set Cnn = Nothing
维修项目添加窗体的界面预览如下：

维修人员添加窗体的加载源码与维修项目添加窗体的加载源码相似，这里不再提供，其界面预览如下：

4.4.5 材料领用功能介绍
点击材料领用按钮后，打开材料领用窗体。因汽车配件材料众多且繁杂，材料领用窗体中的材料名称、型号、价格等可以直接输入，也可以从数据库pj表中选择。点击“查找”按钮后即可打开材料查找窗体。
材料查找窗体使用了一个Dategrid控件，绑定一个Adodc记录集。此记录集的SQL语句是根据在窗体中填写的拼音码来筛选相关记录的，即只查找包含有指定拼音码的材料记录，这样可以方便操作员对配件的查找，减轻工作量。当不指定拼音码时，显示的是所有配件的信息。此筛选使用了SQL语句中的“like”关键字。
在材料查找窗体中选定指定材料后，即可将该材料的相关信息加载到材料领用窗体中，包括材料名称、型号、单位、价格等信息。如果需要改变领用的数量，可直接在材料领用窗体中输入。当领用数量发生改变时，自动改变相应的材料费用金额。这是调用了Text控件的Change事件，以达到相应的目的。
当点击“领用”按钮后，系统即采用字符串连接的方式，调用系统数据库hj表，将领用材料的相关信息添加进hj表中，并提醒操作员是否继续领料。其按钮Click事件源代码如下：
Dim msg As Integer
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb;"
Set Cnn = New ADODB.Connection
Cnn.Open strCnn
SQL = "select * from hj "
Cnn.Execute SQL
Set rs = New ADODB.Recordset
rs.Open SQL, Cnn, adOpenKeyset, adLockOptimistic, adCmdText
rs.AddNew
rs.Fields(1) = Text1.text
rs.Fields(2) = Text5.text
rs.Fields(3) = Text12.text
rs.Fields(4) = Text10.text
rs.Fields(5) = Text3.text
rs.Fields(6) = Text9.text
rs.Fields(10) = Text13.text
rs.Fields(11) = Text11.text
rs.Update
msg = MsgBox("领料成功,是