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

目录 摘要5关键字51前言52 需求分析62.1 问题采集62.2 分析问题73系统总体设计93.1 系统功能模块图93.2 模块功能说明103.2.1 销售系统103.2.2 采购系统103.2.3 仓管系统113.2.4 工资系统113.2.5 生产系统113.3 数据流图123.3.1 顶层数据流图123.3.2 0层数据流图133.3.3 1层数据流图143.4 数据字典153.4.1基本资料153.4.2 销售表183.4.3 采购表193.4.4仓库表193.4.5工厂管理203.4.6工资管理203.5 ER图214详细设计224.1 基本资料设计224.2 系统登录设计234.3 销售管理设计234.4 采购管理设计244.5 仓库管理设计255编码实现265.1 登录界面的实现265.2 主窗口的实现275.3 销售开单的实现285.4 采购退单的实现305.5 仓库调拨的实现335.6 出货单的实现365.7 工资表的实现396 系统测试406.1 系统测试项目说明406.1.1 测试项目名称及测试内容406.1.2 测试用例416.2 系统测评426.2.1 系统优点426.2.2 系统缺点与不足427结束语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 allotting1前言当今时代是飞速发展的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。信息化不足，计算机使用率低，大量的日常工作皆是手工处理，数据处理手工操作，工作量大，出错率高，出错后不易更改。因此工作效率低落，企业内部沟通不良等等问题很难克服。要提升企业竞争力，企业内部信息化是不可缺少的一个步骤。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。实施先进的办公室自动化系统，实现企业内部信息管理、共享及交流，才能让企业在竞争激烈的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、因为图较复杂，没有画出各个实体及联系的属性。属于仓库属于存放存放支配客户成品原料存放供应商订购存放M1M1MM11M111M1生产M1员工采购员仓管销售人员订购图3.6 E-R实体联系图114详细设计本系统已满足厂家的需求，把生产、财务、销售、工程技术、采购等各个子系统集成为一个一体化的系统，能进行基本资料的操作，拥有进销存理，工厂管，员工工资发送的友好界面和强大的查询系统。以下是的系统核心功能的具体实现流程：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);beginif 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+ 的商品或原料存货量不足! +此类商品或原料的存货量为!); 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+ 的商品或原料 存货量已不足! +此类商品或原料的存货量为!); 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 begin showmessage(尚未有销售数据!); dbgrid2.SetFocus; exit; end else begin trc:=frmdata.ckdbdtrc.Value; dcc:=frmdata.ckdbddcc.Value; frmdata.ckkcb.Open;/查找相应商品的库存数量 frmdata.ckdbdmx.First; while not frmdata.ckdbdmx.Eof do begin sp:=frmdata.ckdbdmxspbh.Value; if frmdata.ckkcb.Locate(ckbh;hpbh,vararrayof(dcc,sp),) then begin if frmdata.ckkcbjykc.Value-frmdata.ckdbdmxsl.Value=0 then begin showmessage(frmdata.ckmc.value+ 中名为:+frmdata.ckdbdmxmc.value+ 的商品或原料存货量不足!+此类商品或原料的存货量为!);dbgrid2.SetFocus; exit; end; end else beginshowmessage(frmdata.ckmc.value+中没有名为:+frmdata.ckdbdmxmc.value+的商品或原料!); dbgrid2.SetFocus; exit; end; frmdata.ckdbdmx.Next; end;/减存相应记录及调整库存量 frmdata.ckdbdmx.First; while not frmdata.ckdbdmx.Eof do begin sp:=frmdata.ckdbdmxspbh.Value; if frmdata.ckkcb.Locate(ckbh;hpbh,vararrayof(dcc,sp),) then begin with frmdata.aq1 do begin sql.Clear; sql.Add(insert into ckkcb (ckbh,hpbh,jykc) values (+trc+,+sp+,+inttostr(frmdata.ckdbdmxsl.Value)+); execsql; end; frmdata.ckkcb.Edit; frmdata.ckkcbjykc.Value:=frmdata.ckkcbjykc.Value-frmdata.ckdbdmxsl.Value; frmdata.ckkcb.post; frmdata.ckdbdmx.Next; end; end; if frmdata.ckdbd.State in dseditmodes then frmdata.ckdbd.post; issaved:=1;close;end;end; 图5.5 仓库调拨窗口5.6 出货单的实现var ck:string; sp:string;begin/对库存进行操作 if DBLookupComboBox3.Text= then begin showmessage(请输入经手人!); DBLookupComboBox3.SetFocus; exit; end; if DBLookupComboBox1.Text= then begin showmessage(请输入进入仓!); DBLookupComboBox1.SetFocus; exit; end;frmdata.chdmx.First;if frmdata.chdmx.Eof then begin showmessage(尚未有采购数据!); dbgrid2.SetFocus; exit; end; ck:=frmdata.chdckbh.Value; frmdata.ckkcb.Open;/查找相应商品的库存数量 frmdata.chdmx.First; while not frmdata.chdmx.Eof do begin sp:=frmdata.chdmxspbh.Value; if frmdata.ckkcb.Locate(ckbh;hpbh,vararrayof(ck,sp),) then begin frmdata.ckkcb.Edit; frmdata.ckkcbjykc.Value:=frmdata.ckkcbjykc.Value+frmdata.chdmxsl.Value; frmdata.ckkcb.Post; end else with frmdata.aq1 do begin sql.Clear; sql.Add(insert into ckkcb (ckbh,hpbh,jykc) values (+ck+,+sp+,+inttostr(frmdata.chdmxsl.AsInteger)+); execsql; end;/对员工工资表进行操作 frmdata.gzb.Close; frmdata.gzb.open; if frmda