Question

delphi7 如何把一个表中的数据累加后写入另一个表

提问：delphi7 我是两个表，一个表是chukulishi和starcommodity，我要累计chukulishi表中本月正常出库商品后写入starcommodity表中，然后按本月总出库数量排序。
procedure Tchangxiaoshangpin.BitBtn1Click(Sender: TObject);
var
Y,M,D:String;
begin
if RadioButton1.Checked then begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from chukulishi'+
'and outtime >=:A and outtime <=:B '+
'and outreason=:C');
ADOQuery1.Parameters.ParamByName('A').Value:=Y+'-'+M+'-01'+' 00:00:00';
ADOQuery1.Parameters.ParamByName('B').Value:=Y+'-'+M+'-'+MaxDate(Y,M)+' 23:59:59';
ADOQuery1.Parameters.ParamByName('c').Value:='正常出库';
ADOQuery1.Open;
if adoquery1.RecordCount>0 then
begin
adoquery1.SQL.Add('update starcommodity select commodityid,commodityname,sum(number)sellnumber
from chukulishi
group by sellnumber');
end;
if ADOQuery1.RecordCount=0 then
ShowMessage('当月还没有正常出库商品~~!');
// QRLabel10.Caption:='全月出库明细表　统计时间:'+FormatdateTime('yyyy-mm-dd hh:mm:ss', Now);
end;
end;

function Tchangxiaoshangpin.MaxDate(Y, M: String): String;
begin
if StrToInt(M)+1>12 then begin
Y:=IntToStr(StrToInt(Y)+1);
M:='1';
end else
M:=IntToStr(StrToInt(M)+1);
result:=FormatdateTime('dd',EncodeDate(StrToInt(Y),StrToInt(M),1)-1)
end;
我不知道累加代码怎么弄
还有Query open后，累加前还要不要筛选

若以下回答无法解决问题，邀请你更新回答

Answer 1

表结构列出来，然后说清楚需求

追问

我是有两个表，一个表是畅销商品表starcommodity（commodityid,commodityname,sellnumber)，另一个表是出库历史表chukulishi(id,commodityid,commodityname,number,outreason,outtime)；
是根据出库历史表写入畅销商品表，先筛选时间段，然后该时间段内将相同商品的出库数量相加，按出库总量的大小排序，显示。
不知道可不可以留个联系方式，方便快速交流，谢啦...

追答

select a.commodityid,a.commodityname,a.sellnumber,(select sum(b.number) from chukulishi b where (b.outtime between 开始时间 and 结束时间)and(a.Commodityid=b.commodityid))as ChuKuSum from starcommodity a

Answer 2

说的不是很清楚的，是要将数据库中的一部分数据提取出来保存到另一个表中还是，只对某一个字段进行查询出来后进行累加，还是什么其他的。

追问

我是有两个表，一个表是畅销商品表starcommodity（commodityid,commodityname,sellnumber)，另一个表是出库历史表chukulishi(id,commodityid,commodityname,number,outreason,outtime)；
是根据出库历史表写入畅销商品表，先筛选时间段，然后该时间段内将相同商品的出库数量相加，按出库总量的大小排序，显示。不知道可不可以留个联系方式，方便快速交流，谢啦...