制作动态报表.txt

是一部详细介绍了DELPHI的经典著作

制作动态报表:
procedure ttitlefrm.printview(t:string);//自定义过程,t为报表的标题
var
dbtitle:Tqrlable;//动态列标题名
l,i:integer;//动态数据显示对象
s:string;//工作变量:l用来保存排列了列标题名的总长度
const interval=60;//列之间的间隔
begin
l:=10;//从最左边为10的地方开始放置列标题名
i:=0;//l用来指示生成的列个数
repallfrm:=Trepallfrm.create(application);//创建报表窗体
repallfrm.titlelab.caption:=t;//报表的名字
with repallfrm do 
//如果生成的列标题名总长大于报表可容纳的长度,或可用字段名已用完,则停止
dbtitle:=tqrlable.create(self);//创建列标题名
dbtitle.paret:=headband1;//父对象为headband1
dbtitle.font.color:=cowhite;//字体为白色,以便和蓝色的低相称
dbtitle.transparent:=true;//设置为透明显示
dbtitle.autosize:=true;//大小为自适应
dbtitle.left:=1;//设置位置值
dbtitle.top:=10;
s:=mainfrm.dbtrid1.colums.items[i].fieldname;
dbtitle.caption:=s;//显示主窗体中对象的字段名
dbtxt:Tqrdbtext.create(self);//父对象为qurband1
dbtxt.autosize:=true;
dbtxt.left:=1;
dbtxt.top:=10;
dbtxt.datase:=mainfrm.teble1;//数据集为主窗体中的table1
dbtxt.datafield:=s;//数据字段名
dbtxt.datafield:=s;//数据字段名
l:=l+dbtxt.width+interval;//记录已经安排的列标题总长度
i:=i+1;//计数器加1
end;
repallfrm.quivkrep1.preview;//进入报表预览窗口
end;