如何根据选择的字段进行动态报表?

zbk 2000-01-06 01:52:00
e_mail:zhangbingku@sina.com
...全文
187 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
GetWay 2000-01-06
  • 打赏
  • 举报
回复
先创建一个报表窗体:repform,放好QuickRep和band.然后
Procedure TMainForm.AddLab(NewField:TColumn;var x,y:Integer);
var
QText:TQRLabel;
QDBText:TQRDBText;
Begin

QText:=TQRlabel.create(self);
QText.caption:=NewField.title.Caption;
QText.parent:=repform.columnband;

QDBText:=TQRDBText.create(self);
QDBText.parent:=repform.detailband;
QDBText.dataset:=mainform.gridtb;
QDbText.datafield:=newfield.FieldName ;

QText.left:=x;
QDbText.left:=x;
x:=x+newfield.width;
//repform.
End;

procedure Tmainform.Button1Click(Sender: TObject);
var
I:Integer;
QTop,Qleft:Integer;
begin
Qleft:=0;
Qtop:=0;
for i:=0 to MyDBgrid.columns.count-1 do
Begin
AddLab(MyDbgrid.columns[i],QTop,QLeft);
End;
repform.QuickRep.preview;
end;
kxy 2000-01-06
  • 打赏
  • 举报
回复
在报表的Form中动态创建Qr的QRDBText,QrLabel 等
QrLabel := TQrLabel.Create(Self);
QrLabel.Parent := 某个Band
...
...

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧