我用delphi7.0+BDE+paradox,大家看这段代码为什么不能执行?顺贺各位富翁新年快乐!(100分)

procedure Ttj3.BitBtn1Click(Sender: TObject);
var p:string;
begin
with table1 do
begin
close;
emptytable;
end;
p:='insert into bcpbbk(bbz,cpmc,zpzl,cpl,cpll,yjp,yjl,hgs,hgl,b01,l1,b02,l2,b03,';
p:=p+'l3,b04,l4,b05,l5,b06,l6,b07,l7,b08,l8,b09,l9,b10,l10,b11,l11,b12,l12,b13,l13,b14,l14,';
p:=p+'b15,l15,b16,l16,b17,l17,b18,l18,b19,l19,hj,l20) ';
p:=p+' select bbz,cpmc,sum(zpzl),sum(cpl),';
p:=p+'sum(cpl)*100/sum(zpzl),sum(yjp),sum(yjp)*100/sum(zpzl),';
p:=p+'sum(zpzl-a01*0.3-b03*0.7-b04*0.8-b05-b06-b07-a03*0.3-b12*0.5-b13*0.5-d02-b02-b17-b09-b10-a02*0.3-a04-b11-b14-b15),';
p:=p+'sum(zpzl-a01*0.3-b03*0.7-b04*0.8-b05-b06-b07-a03*0.3-b12*0.5-b13*0.5-d02-b02-b17-b09-b10-a02*0.3-a04-b11-b14-b15)*100/sum(zpzl),';
p:=p+'sum(a01*0.3),sum(a01*0.3)*100/sum(zpzl),';
p:=p+'sum(b02),sum(b02)*100/sum(zpzl),';
p:=p+'sum(b03*0.7),sum(b03*0.7)*100/sum(zpzl),';
p:=p+'sum(b04*0.8),sum(b04*0.8)*100/sum(zpzl),';
p:=p+'sum(b05),sum(b05)*100/sum(zpzl),';
p:=p+'sum(b06),sum(b06)*100/sum(zpzl),';
p:=p+'sum(b07),sum(b07)*100/sum(zpzl),';
p:=p+'sum(a03*0.3),sum(a03*0.3)*100/sum(zpzl),';
p:=p+'sum(b09),sum(b09)*100/sum(zpzl),';
p:=p+'sum(b10),sum(b10)*100/sum(zpzl),';
p:=p+'sum(b11),sum(b11)*100/sum(zpzl),';
p:=p+'sum(b12*0.5),sum(b12*0.5)*100/sum(zpzl),';
p:=p+'sum(b13*0.5),sum(b13*0.5)*100/sum(zpzl),';
p:=p+'sum(b14),sum(b14)*100/sum(zpzl),';
p:=p+'sum(b15),sum(b15)*100/sum(zpzl),';
p:=p+'sum(a04),sum(a04)*100/sum(zpzl),';
p:=p+'sum(b17),sum(b17)*100/sum(zpzl),';
p:=p+'sum(a02*0.3),sum(a02*0.3)*100/sum(zpzl),';
p:=p+'sum(d02),sum(d02)*100/sum(zpzl),';
p:=p+'sum(a01*0.3+b03*0.7+b04*0.8+b05+b06+b07+a03*0.3+b12*0.5+b13*0.5+d02+b02+b17+b09+b10+a02*0.3+a04+b11+b14+b15),';
p:=p+'sum(a01*0.3+b03*0.7+b04*0.8+b05+b06+b07+a03*0.3+b12*0.5+b13*0.5+d02+b02+b17+b09+b10+a02*0.3+a04+b11+b14+b15)*100/sum(zpzl)';
p:=p+' from cpk0 where (rq between :rq1 and :rq2) group by bbz,cpmc';
query4.close;
query4.sql.Clear;
query4.sql.add(p);
query4.parambyname('rq1').asdate:=datetimepicker1.date;
query4.parambyname('rq2').asdate:=datetimepicker2.date;
query4.execsql;
end;

>>query4.sql.add(p);
把sql语句分割成一下用多个add赋给query试试，好像一行最长255字符

是什么错误信息呢？

你最好先确保你后面那一串SELECT的语句没问题先

query4.sql.add(p)

p太长了，最多255字符。

多人接受答案了。