请问如何将发货单上的数据从库存数据中扣除？(100分)

潇

潇洒公子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-24

• #1

发货单数据为：
品名 单价 数量 金额
钢笔 5.50 10 55.00
铅笔 1.20 20 24.00

库存数据为：
品名 单价 数量 金额
钢笔 5.50 80 440.00
铅笔 1.20 50 60.00
练习本 2.00 50 100.00

请问如何在发货后，把发出的货从库存数据中扣除？具体应怎样操作？多谢？

 

Z

zhangkan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-24

• #2

Oracle中:
update 库存表 set 数量=(select 库存表.数量-出货表.数量 from 出货表 where 品名=库存表.品名),金额=(select 库存表.金额-出货表.金额 from 出货表 where 品名=库存表.品名) where exists(select 1 from 出货表 where 品名=库存表.品名);
ACCESS中很简单:
update 库存表 a,出货表 b set a.数量=a.数量-b.数量,a.金额=a.金额-b.金额 where a.编号=b.编号 and a.品名=b.品名;

 

Z

zhcg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #3

请问使用query控件应如何操作呢?

 

F

flysand

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #4

query.sql.clear;
query.sql.add('update....');
query.execute;

[^]

 

白

白海森

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #5

或者用低级的办法：
fhdTable 发货单
kcTable 库存

fhdTable.first;
while Not fhdTable.Eof do
begin
kcTalbe.locate('品名',fhdTable.Fieldbyname('品名').Asstring,[]);
kcTable.Edit;
kcTable.FieldValues['数量'] := kcTable.FieldValues['数量'] - fhbTable.FieldValues['数量'] ;
kcTable.FieldValues['金额'] ：= kcTable.FieldValues['金额'] - fhbTable.FieldValues['金额'] ;
kcTable.Post;
fhdTable.Next;
end;

但zhangkan的方法是最简捷有效的。

 

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #6

try
AdoConnection.BeginTrans;
......
AdoQuery1.Sql.Add('insert into 发货单表')
......
AdoQuery2.Sql.Add('update 库存表');
......
AdoConnection.Commit;
except
AdoConnection.RollBack;
end;

 

沙

沙隆巴斯的主人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-25

• #7

数据库的一致性与完整性最好在数据库级来保障，应该过触发器

 

潇

潇洒公子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-09

• #8

多人接受答案了。