常青皮具管理信息系统.doc

目　录
摘要…………………………………………………………………………………5
关键字………………………………………………………………………………5
1前　言 5
2 需求分析 6
2.1 问题采集 6
2.2 分析问题 7
3系统总体设计 9
3.1 系统功能模块图 9
3.2 模块功能说明 10
3.2.1 销售系统 10
3.2.2 采购系统 10
3.2.3 仓管系统 11
3.2.4 工资系统 11
3.2.5 生产系统 11
3.3 数据流图 12
3.3.1 顶层数据流图 12
3.3.2 0层数据流图 13
3.3.3 1层数据流图 14
3.4 数据字典 15
3.4.1基本资料 15
3.4.2 销售表 18
3.4.3 采购表 19
3.4.4仓库表 19
3.4.5工厂管理 20
3.4.6工资管理 20
3.5 ER图 21
4详细设计 22
4.1 基本资料设计 22
4.2 系统登录设计 23
4.3 销售管理设计 23
4.4 采购管理设计 24
4.5 仓库管理设计 25
5编码实现 26
5.1 登录界面的实现 26
5.2 主窗口的实现 27
5.3 销售开单的实现 28
5.4 采购退单的实现 30
5.5 仓库调拨的实现 33
5.6 出货单的实现 36
5.7 工资表的实现 39
6 系统测试 40
6.1 系统测试项目说明 40
6.1.1 测试项目名称及测试内容 40
6.1.2 测试用例 41
6.2 系统测评 42
6.2.1 系统优点 42
6.2.2 系统缺点与不足 42
7结束语 43
参考文献 44
致谢 45

常青皮具管理信息系统

摘要： 本系统为常青皮具管理信息系统，它是遵照管理信息系统开发的基本步骤，采用Delphi为主要开发工具，结合Access数据库管理系统与NT操作系统。既考虑了系统的需求，又兼顾了运行的效率，以及今后系统的功能拓展等。其主要功能包括基本资料管理，销售管理，采购管理，仓库管理，工厂管理，工资管理，系统维护，数据处理等几个方面以实现对产品生产到销售的全程管理。用户可运用它更加方便的进行信息管理和提高运营效率。
关键字: 进销存; 采购; 存货; 仓库调拨

The management information system for the changqin cover
ABSTRACT: The management information system for the changqin cover,It is a basic step developed according to the management information system .Adopt Delphi as the main developing instrument ,Combine Access data base management system and NT operating system .Having not only consider the systematic demand but also given consideration to the efficiency operated, and the systematic function will be expanded etc. in the future. Its main function including basic materials is managed, sell and manage , purchase and manage, storehouse management, factory management , the salary is managed, the system is maintained, such several respects as data processing ,etc.managing in the whole journey by realizing arriving to production and selling .Users can use its more convenient carrying on the information management and improving the efficiency of running.
Key word ：Enter the round pin to store; Purchase;Stock ;The warehouse allotting

1前　言
当今时代是飞速发展的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。信息化不足，计算机使用率低，大量的日常工作皆是手工处理，数据处理手工操作，工作量大，出错率高，出错后不易更改。因此工作效率低落，企业内部沟通不良等等问题很难克服。要提升企业竞争力，企业内部信息化是不可缺少的一个步骤。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。实施先进的办公室自动化系统，实现企业内部信息管理、共享及交流，才能让企业在竞争激烈的21世纪取得先机。
在商品流通环节中，大中型批发商业处在商品制造商和商品零售商之间，对商品流通起着桥梁和纽带的作用。它对保障社会生产、人民日常生活等物资的正常供应对稳定物价都起着至关重要的作用。目前商业正处在一个高速发展的时期。市场价格的开放，促进了市场的繁荣。多种进销渠道使批发商业面临的竞争更加激烈。商品社会需求的多样化、商品的快速流转，对批发商业企业的管理提出了更高的要求。
本系统采用Delphi为主要开发工具，结合Access数据库管理系统与NT操作系统。既考虑了系统的需求，又兼顾了运行的效率，以及今后系统的功能拓展等。具有运行效率、开发周期短、扩展能力强、技术规范等特点。

2 需求分析
2.1 问题采集
常青皮具公司目前存在的问题是：信息化不足，计算机使用率低，大量的日常工作皆是手工处理，因此工作效率低落，企业内部沟通不良等等问题很难克服，仓库管理很不合理，不能及时根据需要调整库存。
公司希望解决的问题是：
缺少一个集成的信息平台和信息系统，快速查找到客户信息，订购信息，收付款资料，员工工资及时发送统计，仓库管理，节省大量劳力在查找资料上（即重复劳动）和共享是传统库存管理中资金占用过大的主要原因之一。
解决企业内部统一的物料管理，物流管理中的信息流通。库存积压与物料的配套问题。
生产管理，对车间作业进行管理，对员工通知罚单、预支款记录及随时查询统计。
销售方能根据预测信息、各仓库的库存信息和客户的要货情况作出货物的调拨计划和改制计划和收款记录。
随时了解供应商的供货（原材料）执行情况、制造车间的加工（合格、报废、返工等）执行情况及公司的各仓库库存情况，以便随时协调或采取合适的补救措施。
管理供应商，在供应到货的到期日前，主动与供应商联系，检查及时到货的可能性；同时在物流和信息流上允许供应商的部分零件直接发货到客户处。对供应商的考核从质量、交货及时程度和价格上给出统计数据。
计划过程不太理想，无物料清单，凭经验办事；对计划的执行率未作统计。
现有量、在制品、在库库存和历史记录等多方位查询需求。
库存信息与供应和生产等各部门的及时反馈和共享问题信息查询与决策，对公司的各种资源与信息进行查询，包括销售、采购、生产、人事、工资等信息数据进行查询、统计与分析，对根据信息作出快速合理的经营决策，增强应变反应能力。
2.2 分析问题
常青皮具公司是以产品制作，进料，销售，进货为依据进行生产的实业公司，公司的主要流程是：接到一张销售订单，由销售部门转化为内部订单，转给生产部门，生产部门根据订单上的产品、数量，配好的物料清单，及各车间半成品储存量，汇总材料需求，然后根据库存情况决定请购及预约情况，采购部门根据请购单下采购单，然后材料入库，在手工操作的条件下，由于数据的日积月累后，要想重繁多的资料中找出目标数据很困难，比如，当采购部下完销售订单之后，客户几年不见踪迹，顿时他出来订货，而当时你由于很久没见而忘了发货地址，这时你很难找出几年的资料了，可能早已损坏。有时候因为订单较多也有可能重复，而无法确定是哪一张采购单到货，哪一张没有到货，哪一张销售单收了多少回款，还有多少，什么时候出货的，当时由谁出的。再例如，销售部门下过内部订单之后，就容易了解到这个单子上的这批货物到底处于什么状态，是已发完，还是未发，生产是否完毕等，追款时间，等等，这一系列的问题迫待解决，随着经济的全球化以及中国经济改革的逐渐深化，制造业面临着越来越激烈的竞争，改善企业内部以及整个供应链各个环节的管理、调度及资源配置，迅速适应客户的新需求和市场新机遇的能力，是中国企业赢得竞争胜利的决定性因素，如何快速有效地实现跟单，如何有效的控制库存，这一切都是常青皮具管理系统所力求实现的功能。
从根本上说，企业就是一个利用资源（人、财、物、时间），为客户创造价值的组织，物资需求计划就是对这些资源进行计划、调度、控制、衡量、改进的管理技术和信息系统。现今的企业并不只是人力资源、资金和产品的组合，它还应该包括供应、销售、市场营销、客户服务、需求预测，以及其他更多的东西。如果一个物资需求计划系统真正想要最大限度地提高其生产能力，它必须能够非常融洽地和其他关键性的商务领域进行交流。

3系统总体设计
系统管理
基本资料
销售系统
来往客户
供应商
商品
原料
员工
……
用户
帮助
退出
查询
收款情况
销售开单
销售收款
销售退款
采购系统
查询
付款情况
采购开单
采购收款
采购退款
生产系统
生产
…
工资系统
工资表
预支表
奖罚表
查询
仓管系统
仓库调拨
查询
常青皮具管理系统
3.1 系统功能模块图

图3.1系统功能模快图
图2.1 系统功能模块图

3.2 模块功能说明
3.2.1 销售系统
产品报价，订单输入、货款跟踪（订单输入后收款跟踪分析，查询，每一订单可对应多条销售记录），销售退单，定期收款提醒：
A销售开单（一对多的单据采购，可同时采购原料及成品）。
B销售收款（收款处理及是否结账操作）
C销售退单（对产品的退货处理）
D查询（查询销售具体条目和历史开单项目）
3.2.2 采购系统
确定合理的定货量、优秀的供应商和保持最佳的安全储备。能够随时提供定购、验收的信息，具体有：
A采购开单（一对多的单据采购，可同时采购原料及成品）。
B采购付款（付款处理及是否结账操作）
C采购退单（对部份原料或成品的退货处理）
D查询（查询采购具体条目和历史开单项目）
3.2.3 仓管系统
用来控制存储物料的数量，以保证稳定的物流支持正常的生产，但又最小限度的占用资本。它是一种相关的、动态的、及真实的库存控制系统。具体有：
A仓库调拨（仓库货品中产品调货处理）
B仓库损失（记载产品在仓库中的损失情况）
C仓库盘点单（货品，原料盘点记录）
3.2.4 工资系统
A根据员工的产品出厂记录进行统计工资。
B完整的员工奖罚记录，预支记录
C 详细的员工工资查询系统。
3.2.5 生产系统
它是根据生产计划、自动汇总员工工资统计。

3.3 数据流图
3.3.1 顶层数据流图

常青皮具
MIS
供应商
操作人员
一般用户
客 户
采购订
单
材料入库单
各类报表
查询各类报表
销售订单
材料出库单

图3.2 顶层数据流图

3.3.2 0层数据流图
产品出仓
盘点报表
销售订单
出库单
图3.3 0层数据流图
表单系统
生产消耗文件
财务系统
生产系统
库存文件
原料领取单
原料文件
销售文件
出货单
采购单
采购系统
采购文件
采购单
材料入库单
仓管系统
销售系统

供应商
3.3.3 1层数据流图
工厂系统
销售系统
销售订单
出库单
客户
出货
调货
产品出仓
原料领取
仓管系统
图3.4 1层数据流图
工厂系统
产品出仓
原料消耗
进货
仓管系统
进库单
材料订单
采购系统
图2.5.1层数据流图

3.4 数据字典
数据流图描述了系统的分解，但没有对图中各成分进行说明，数据字典就是为了数据流图的每个数据流、文件、加工，以及组成数据流或文件的数据项作出说明，由于数据太多，这里只列出部代表：
3.4.1基本资料
地区资料
文件条目
文件名称：地区资料(dqzl)
简述： 保存系统的基本地区资料
组成： 编号，名称
(1) 客户资料
文件条目
文件名称：客户资料(khzl)
简述： 保存来往客户的基本地区资料
组成： 编号，简称，全称，地址，联系人，电话1，电话2，电话3，邮箱，开户银行，银行账号，欠款额，备注
(2) 供应商资料
文件条目
文件名称：供应商资料(gyszl)
简述： 保存来往货品，原料供应商的基本地区资料
组成： 编号，简称，全称，地址，联系人，电话1，电话2，电话3，邮箱，开户银行，银行账号，欠款额，备注
(3) 账户资料
文件条目
文件名称：账户资料(zhzl)
简述： 保存系统来往帐户资料
组成： 编号，名称，银行账号，余额
(4) 收付款方式
文件条目
文件名称：收付款方式(sfkfs)
简述： 保存收付款类型数据，如支票，挂帐等
组成： 编号，类型
(5) 用户
文件条目
文件名称：用户(yh)
简述： 保存系统用户数据
组成： 编号，名称，用户名，密码
(6) 仓库
文件条目
文件名称：用户(yh)
简述： 保存仓库信息
组成： 编号，名称，地址
(7) 商品
文件条目
文件名称：商品(sp)
简述： 保存商品信息
组成： 编号，名称，工价，单位，（成本）
(8) 原料
文件条目
文件名称：原料(yl)
简述： 保存原料信息
组成： 编号，名称，单位
(9) 支出费用类别
文件条目
文件名称：商品(sp)
简述： 保存支出费用类别售，如采购设备费用
组成： 编号，名称
(10) 收入费用类别
文件条目
文件名称：商品(sp)
简述： 保存收入费用类别信息，如出售二手设备费用
组成： 编号，名称
(11) 员工资料
文件条目
文件名称：员工资料ygzl
简述： 保存员工的具体资料
组成： 编号，名字，地址，联系电话1，联系电话2，身份证号码，工种，基本工资，结余工资
(12) 单位
文件名称：单位dw
简述： 保存货料中常用的计量单位信息
组成： 编号，名称
3.4.2 销售表
(1) 销售开单
数据流条目：
销售单 = 销售单号+日期+客户名称+ 制单人员+状态+出货库+收款方式+单据总金额
{销售订单号+品名 + 单位 + 数量 + 规格 + 单价+}
文件名称：销售开单xskd+销售开单详明细xskdmx
简述： 保存销售开单中的详细信息
组成： 开单(ID)，日期(中日期)，单号，客户ID，经手人ID，发货地址，送货仓ID，收付款方式ID，总金额 ，已收金额，是否结帐
销售开单（ID），商品编号，名称，单位，数量，单价，金额
(2) 销售退单
数据流条目：
销售单 =退单（ID）+日期+单号+退入仓+经手人+客户+总金额
{销售退单号+品名 + 单位 + 数量 + 规格 + 单价+}
文件名称：销售退单xstd+销售退单明细xstdmx
简述： 保存销售开单中的详细信息
组成： 退单（ID），日期，单号，退入仓，经手人，客户，总金额
销售退单（ID），商品编号，名称，单位，数量，单价，金额

(3) 销售收款单
数据流条目：
销售收款单=收款（ID）+日期+单号+总金额
{销售收款单（ID），客户，销售单号，总金额，已收金额，未收金额，本次收款，是否结帐}
文件名称：销售收款单xsskd+销售收款单明细xsskdmx
简述： 保存销售收款中的详细信息
组成： 收款（ID），日期，单号，总金额
销售收款单（ID），客户，销售单号，总金额，已收金额，未收金额，本次收款，是否结帐
3.4.3 采购表
(1) 采购开单cgkd
数据流条目：
采购开单 =开单(ID) +日期(中日期) +单号+经销商ID+经手人ID+进货仓ID，付款方式ID+总金额+已收金额+是否结帐
{采购开单（ID），原料编号，名称，单位，数量，单价，金额}
文件名称：采购开单cgkd+采购开单cgkdmx
简述： 保存采购单中的详细信息
组成： 开单(ID)，日期(中日期)，单号，经销商ID，经手人ID，进货仓ID，付款方式ID，总金额，已收金额，是否结帐
采购开单（ID），原料编号，名称，单位，数量，单价，金额
3.4.4仓库表
仓库调拨单ckdbd
数据流条目：
仓库调拨单 = ID，日期，单号，仓库编号
{仓库调拨单ID，商品编号，名称，单位，数量}
文件名称：仓库调拨单ckdbd+仓库调拨单明细ckdbdmx
简述： 保存仓库货品或原料掉拨时的详细信息
组成： ID，日期，单号，仓库编号
仓库调拨单ID，商品编号，名称，单位，数量
3.4.5工厂管理
数据流条目：
出货单 = ID，日期，单号，经办人，仓库编号
{出货单ID，日期，商品编号，名称，员工编号，名字，单价，数量，金额}
文件名称：出货单chd +出货单明细chdmx
简述： 保存产品出仓进的详细信息
组成： ID，日期，单号，经办人，仓库编号
出货单ID，日期，商品编号，名称，员工编号，名字，单价，数量，金额
3.4.6工资管理
数据流条目：
工资表 = 工编号，名字，月份，计件金额，预支金额，奖罚金额，最终金额
文件名称：工资表gzb
简述： 记录员工工资的详细信息
组成： 员工编号，名字，月份，计件金额，预支金额，奖罚金额，最终金额

3.5 ER图
说明：
1、用户：这里把每个部门使用群体当成一个整体。（如销售部门的使用者是一个群体，只当成是一个销售用户）
2、因为图较复杂，没有画出各个实体及联系的属性。
属于
仓库
属于
存放
存放
支配
客户
成品
原料
存放
供应商
订购
存放
M
1
M
1
M
M
1
1
M
1
1
1
M
1
生产
M
1
员工
采购员
仓管
销售人员
订购
图3.6 E-R实体联系图
1
1

4详细设计
本系统已满足厂家的需求，把生产、财务、销售、工程技术、采购等各个子系统集成为一个一体化的系统，能进行基本资料的操作，拥有进销存理，工厂管，员工工资发送的友好界面和强大的查询系统。以下是的系统核心功能的具体实现流程：
4.1 基本资料设计
基本资料是系统基本资料的管理地方，因此有效的基本资料管理方式对整个系统的运作来说，它是重中之基，基本资料的操作设计流程如下（本章程序设计
输入查找数据*
基本资料管理
显示查找记录*
选择资料○
显示资料○
编辑资料*
退出○
退出编辑
方法采用JACKSON结构程序设方法）：

图4.1 销售管理

系统登录
4.2 系统登录设计

退出○
输入用户数据*

查找匹配记录

退出
进入系统

图4.2 系统登录设计

销售开单
4.3 销售管理设计

程序体
输入销售单条目○
输入销售单数据○
退出○

处理销售单条目数据

销售条目编辑*
库存不足报警*
分析数据

保存定单○
删除定单○

删除定单条目○
减库存相应记录

退出
退出

图4.3 销售管理设计

4.4 采购管理设计

采购开单

程序体
输入采购单条目○
输入采购数据○
退出○

处理采购单条目数据

采购条目编辑*
库存无记录*
分析数据

增加库存记录

保存单据○
删除定单○

图4.4 采购管理设计
退出
退出
增加库存相应记录
删除定单条目○

4.5 仓库管理设计
仓库管理

程序体

处理仓库数据

物料调拨○

库存调拨○
查询○
数据查询○
分析数据
退出

调入调出库数据处理○
原料库存查询○
商品库存查询○
退出○

图4.5 仓库管理设计

5编码实现
由于系统源码太大，在这只选择系统中有代表性的核心源码介绍。
5.1 登录界面的实现
procedure TfrmLogin.btnOkClick(Sender: TObject);
begin
if uid.Text='' then
begin
Application.Messagebox('请选择用户名称!', '系统登录', MB_OK+MB_ICONERROR);
uid.setfocus;
exit;
end;
frmdata.yh.close;
frmdata.yh.Open;
//查找相关用户数据，采用LOCATE定位函数的返回值决定查询是否成功
if frmdata.yh.Locate('mc;password',vararrayof([uid.Text,pwd.Text]),[]) then
begin
self.btnok.ModalResult := mrOK;
close;
end else
begin
Application.Messagebox('无效的用户代码,请重新输入!', '系统登录', MB_OK+MB_ICONERROR);
//记录登录次数
if ( uid.Tag > 1 ) Then
begin
Application.Messagebox('你已输错三次,请稍候进入本系统!', '系统登录', MB_OK+MB_ICONERROR);
Close;
end;
uid.Tag := uid.Tag + 1;
pwd.SetFocus;
end;

图5.1 登录界面

5.2 主窗口的实现
图5.2 主窗口界面

图5.2 主窗口界面
//没有窗口打开便建立窗口对像，并打开窗口中联系到的数据库文件，显示窗口
if frmxskd = nil then
frmxskd := Tfrmxskd.Create(self);
frmdata.xskd.Open;
frmdata.xskdmx.Open;
frmdata.xskd.Append;
frmxskd.ShowModal;
5.3 销售开单的实现

图5.3销售开单界面

图5.3 销售开单界面
//对库存进行操作
IF CompanyCombo.Text='' THEN
begin
showmessage('请输入客户名称!!!');
CompanyCombo.SetFocus;
exit;
end;
IF DBLookupComboBox1.Text='' THEN
begin
showmessage('请输入送货库!!!');
DBLookupComboBox1.SetFocus;
exit;
end;
frmdata.xskdmx.First;
if frmdata.xskdmx.Eof then
begin
showmessage('尚未有销售数据!');
dbgrid2.SetFocus;
exit;
end else
begin
ck:=frmdata.xskdshcid.Value;
frmdata.ckkcb.Open;
//查找相应商品的库存数量
frmdata.xskdmx.First;
while not frmdata.xskdmx.Eof do
begin
sp:=frmdata.xskdmxspbh.Value;
if frmdata.ckkcb.Locate('ckbh;hpbh',vararrayof([ck,sp]),[]) then
begin
if frmdata.ckkcbjykc.Value-frmdata.xskdmxsl.Value>=0 then
begin
//空处理
end else
begin
showmessage(frmdata.ckmc.val中名为:'+frmdata.xskdmxmc.value+' 的商品或原料存货量不足!!!!! '+'此类商品或原料的存货量为<'+inttostr(frmdata.ckkcbjykc.Value)+'>!!!!!');
dbgrid2.SetFocus;
exit;
end;
end else
begin
showmessage(frmdata.ckmc.value+' 中没有名为:'+frmdata.xskdmxmc.value+' 的商品或原料!!!!');
dbgrid2.SetFocus;
exit;
end;
frmdata.xskdmx.Next;
end;
//减存相应记录
frmdata.xskdmx.First;
while not frmdata.xskdmx.Eof do
begin
sp:=frmdata.xskdmxspbh.Value;
if frmdata.ckkcb.Locate('ckbh;hpbh',vararrayof([ck,sp]),[]) then
begin
frmdata.ckkcb.Edit;
frmdata.ckkcbjykc.Value:=frmdata.ckkcbjykc.Value-frmdata.xskdmxsl.Value;
frmdata.ckkcb.post;
frmdata.xskdmx.Next;
end;
end;
if frmdata.xskd.State in dseditmodes then
begin
frmdata.xskd.post;
end;
//增加客户欠款额
frmdata.khzl.Edit;
frmdata.khzlqke.Value:=frmdata.khzlqke.Value+frmdata.xskdzje.Value;
frmdata.khzl.post;
//修改保存标记
issaved:='1';
close;
end;
5.4 采购退单的实现
procedure Tfrmcgtd.saveClick(Sender: TObject);
var
ck:string;
sp:string;
begin
//对库存进行操作
IF CompanyCombo.Text='' THEN
begin
showmessage('请输入供应商名称!!!');
CompanyCombo.SetFocus;
exit;
end;
IF DBLookupComboBox1.Text='' THEN
begin
showmessage('请输入退货仓!!!');
DBLookupComboBox1.SetFocus;
exit;
end;
frmdata.cgtdmx.First;
if frmdata.cgtdmx.Eof then
begin
showmessage('尚未有销售数据!');
dbgrid2.SetFocus;
exit;
end else
begin
ck:=frmdata.cgtdtrqbh.Value;
frmdata.ckkcb.Open;
//查找相应商品的库存数量
frmdata.cgtdmx.First;
while not frmdata.cgtdmx.Eof do
begin
//if issp=1 then
sp:=frmdata.cgtdmxylbh.Value;
if frmdata.ckkcb.Locate('ckbh;hpbh',vararrayof([ck,sp]),[]) then
begin
if frmdata.ckkcbjykc.Value-frmdata.cgtdmxsl.Value>=0 then
begin
end else
begin
showmessage(frmdata.ckmc.value+' 中名为:'+frmdata.cgtdmxmc.value+' 的商品或原料 存货量已不足!!!!! '+'此类商品或原料的存货量为<'+inttostr(frmdata.ckkcbjykc.Value)+'>!!!!!');
dbgrid2.SetFocus;
exit;
end;
end else
begin
showmessage(frmdata.ckmc.value+' 中没有名为:'+frmdata.cgtdmxmc.value+' 的商品或原料记录!!!!');
dbgrid2.SetFocus;
exit;
end;
frmdata.cgtdmx.Next;
end;
//减存相应记录
frmdata.cgtdmx.First;
while not frmdata.cgtdmx.Eof do
begin
sp:=frmdata.cgtdmxylbh.Value;
if frmdata.ckkcb.Locate('ckbh;hpbh',vararrayof([ck,sp]),[]) then
begin
frmdata.ckkcb.Edit;
frmdata.ckkcbjykc.Value:=frmdata.ckkcbjykc.Value-frmdata.cgtdmxsl.Value;
frmdata.ckkcb.post;
frmdata.cgtdmx.Next;
end;
end;
if frmdata.cgtd.State in dseditmodes then
begin
frmdata.cgtd.post;
end;
//减供应商欠款额
frmdata.gyszl.Edit;
frmdata.gyszlqke.Value:=frmdata.gyszlqke.Value-frmdata.cgtdzje.Value;
frmdata.gyszl.post;
issaved:='1';
close;
end;
end;

图5.4 采购界面

5.5 仓库调拨的实现
procedure Tfrmckdbd.saveClick(Sender: TObject);
var
trc:string;
dcc:string;
sp:string;
begin
//对库存进行操作
IF DBLookupComboBox1.Text='' THEN
begin
showmessage('请输入调入库!!!');
DBLookupComboBox1.SetFocus;
exit;
end;
IF DBLookupComboBox2.Text='' THEN
begin
showmessage('请输入调出库!!!');
DBLookupComboBox2.SetFocus;
exit;
end;
IF DBLookupComboBox2.Text=DBLookupComboBox1.Text THEN
begin
showmessage('调出库与调入库不能相同!!!');
DBLookupComboBox2.SetFocus;
exit;
end;

frmdata.ckdbdmx.First;
if frmdata.ckdbdmx.Eof then
begi