中国式主从报表的生成(200分)

[]
procedure TForm1.ppDBText1Print(Sender: TObject);
begin

if trim(ppDBText1.Text)='' then
begin

if trim(ppDBText5.Text)='' then
begin
ppLine6.Visible:=false;
ppLine7.Visible:=false;
end
else
begin
if trim(ppDBText5.Text)='t' then
begin
ppLine6.Visible:=true;
ppLine7.Visible:=false;
end
else
begin
ppLine6.Visible:=false;
ppLine7.Visible:=true;
end;
end;
end
else
begin
if trim(ppDBText5.Text)='' then
begin
ppLine6.Visible:=true;
ppLine7.Visible:=true;
ppDBText1.Visible:=true;
ppDBText6.Visible:=false;
end
else
begin
if trim(ppDBText5.Text)='z' then
begin
ppLine6.Visible:=false;
ppLine7.Visible:=false;
ppDBText1.Visible:=true;
ppDBText6.Visible:=false;
end
else
begin
if trim(ppDBText5.Text)='x' then
begin
ppLine6.Visible:=false;
ppLine7.Visible:=false;
ppDBText1.Visible:=false;
ppDBText6.Visible:=true;
end;
end;
end;
end;
end;

[8D]

to qzbob
请问你用的是什么报表工具，能否发个邮件！
longbin@gliet.edu.cn

TO glpttlb
邮件已发
或到如下网页瞧瞧
http://218.5.148.198/qzbob/repo.htm

to qzbob
你是用rb实现的，不管如何，多谢！给你分！
如有fastreport或rm方案，另给200分。

多人接受答案了。