一个SQL统计语句
str1:='select iif(isnull(sum(enterwh.入库数量)),0,sum(enterwh.入库数量)) as 存量1 from enterwh where 编码="'+Trim(edit1.Text)+'"';
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add(str1);
ADOQuery2.Open;
if ADOQuery2.RecordCount>0 then
s1:=ADOQuery2.fieldbyname('存量1').asString;
str2:='select iif(isnull(sum(outwh.出库数量)),0,sum(outwh.出库数量)) as 存量2 from outwh where 编码="'+Trim(edit1.Text)+'"';
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add(str2);
ADOQuery2.Open;
if ADOQuery2.RecordCount>0 then
s2:=ADOQuery2.fieldbyname('存量2').asString;
str3:='select 编码,名称,规格型号,数量 as 库存量 from stock where 编码="'+Trim(edit1.Text)+'"';
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add(str3);
ADOQuery2.Open;
if ADOQuery2.RecordCount>0 then
begin
temp:=ADOQuery2.fieldbyname('库存量').asString;
Edit5.Text:=IntToStr(StrToInt(temp)+StrToInt(s1)-StrToInt(s2));
end;