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;
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;
解决方案 »
- 如何对STRINGGRID表格中输入的数字格式进行规范?
- DELPHI如何判断一个字段的值是否重复的问题
- 用delphi6开发,用fastreport哪个版本合适?没分!
- 关于p2p中,穿透nat的不稳定性问题
- 做了一個以StringGrid為基類的組件,出現這樣的問題?求助高手~!
- 怎样用程序修改winXp的外观?
- Borland Delphi v8.0 Architect Edition 好像已经出现
- 大家请进来谈谈一般用些什么方法做数据备份。欢迎!!!!
- Memo或DBRichText中文本格式问题
- c#代码,能有人给译成delphi代码不?
- 请教:如何把SQL SERVER中的某个数据库的所有表都清空?
- 欲够新手机,请大伙提供参考线索
即应为y.sprq =''2003-09-26''
因'为delphi保留的作为字符控制的标志,故应多加个'以进行转意.