我在这个BUTTON上把数量存进了表二里面，然后怎样去冲表一的数量..

Question

我做了两个表
表一：主表：
货物编号，货物名称，货物库存量
表二：出入库表
货物编号，出入库标志，数量，日期
------------------------------------
我在出货摸块上放了四个EDIT和一个BUTTON
EDIT1------货物编号
EDIT2-------货物名称
EDIT3----数量
EDIT4-------日期
我在这个BUTTON上把数量存进了表二里面，然后怎样去冲表一的数量
请提供代码

Answer 1

1. 假设你用table1控件连的表1
   //定位记录
   Table1.Locate('货物编号;货物名称',varArrayof([Edit1.text,Edit2.text]),[]);
   //得到旧库存量
   Kcl:=Table1.FieldByName('货物库存量').asInteger;//假设是整型
   //修改记录
   Table1.Edit;
   Table1.FieldByName('货物库存量').asInteger:=Kcl-StrToInt(Edit3.text);
   Table1.post;
2. //得到旧库存量
   Query1.close;
   Query1.sql.clear;
   Query1.sql.add('select 货物库存量 from 表1 where 货物编号='''+Edit1.text+''' and 货物名称='''+Edit2.text+'''');
   Query1.open;
   Kcl:=Query1.FieldByName('货物库存量').asInteger;
   //修改记录
   Kcl:=Kcl-StrToInt(Edit3.text);
   Query1.close;
   Query1.sql.clear;
   Query1.sql.add('update 表1 set 货物库存量='+IntToStr(Kcl)+' where 货物编号='''+Edit1.text+''' and 货物名称='''+Edit2.text+'''');
   Query1.execSql;
3. 以上两种方法，不保证代码无错误