oracle 问题 请进

begin
query2.close;
query2.SQL.clear;
query2.SQL.Add('select * from (select pzm,jgdw,ksph,zzph,gzlhm,fzxs,decode(szgx,''WAF'',''芯片库'',szgx) szgx,sl,lrsj,zt,xpmc,bz1,bz2 from (select pzm,jgdw,ksph,zzph,gzlhm,fzxs,szgx,sl,lrsj,zt,xpmc,BZ1,BZ2 from VIEW_ICSC_ZCP_ALL where szgx=:ppgx union all ');
query2.SQL.Add('select pzm||''小计'' pzm,null,null,null,null,null,szgx,sum(sl) sl,max(lrsj),null,null,null,null from VIEW_ICSC_ZCP_ALL where szgx=:ppgx group by pzm,szgx) ');
query2.SQL.Add('order by lrsj,pzm,szgx,zzph) union all');
query2.SQL.Add('select ''总计'',null,null,null,null,null,null,sum(sl) sl,null,null,null,null,null from VIEW_ICSC_ZCP_ALL where szgx=:ppgx ');
if RzComboBox1.Text='芯片库' then
query2.ParamByName('ppgx').AsString :='WAF'
else
query2.ParamByName('ppgx').AsString :=RzComboBox1.T

Oracle入门问题，请进 oracle问题 Oracle问题 ORACLE问题 oracle高手请进 oracle一个查询，高手请进 oracle游标问题Oracle高手来 关于oracle的问题 Oracle的问题 oracle 的安装问题