with adoquery1 do
   begin
    close;
    sql.clear;
    sql.add('SELECT 批号, 当日入库, 当日出库, SUM(当日入库) as  累计入库, SUM(当日出库) AS 累计出库, SUM(当日入库) - SUM(当日出库) AS 结存 FROM');
    sql.Add('(SELECT ph AS 批号, SUM(hjzl) AS 当日入库, 0 AS 当日出库, 0 AS 累计入库, 0 AS 累计出库, 0 AS 结存 FROM hhclk WHERE rq=''2003-09-26'' GROUP BY ph');
    sql.Add('UNION SELECT pmph AS 批号, 0 AS 当日入库, SUM(y.zl) AS 当日出库, 0 AS 累计入库,0 AS 累计出库, 0 AS 结存 FROM ylgl.dbo.ylspjl y, hhclk h WHERE y.sprq ='2003-09-26' AND y.pmph = h.ph GROUP BY pmph');
    sql.Add('UNION SELECT h.ph AS 批号, 0 AS 当日入库, 0 AS 当日出库, SUM(h.hjzl) AS 累计入库,SUM(y.zl) AS 累计出库, SUM(h.hjzl) - SUM(y.zl) AS 结存 FROM hhclk h, ylgl.dbo.ylspjl y WHERE h.ph = y.pmph GROUP BY h.ph)')
GROUP BY 批号, 当日入库
open;
end;