谁有 ScreenReport的开发版?谁知道如何动态实现quickrep?(50分)

  • 主题发起人 主题发起人 Serena
  • 开始时间 开始时间
S

Serena

Unregistered / Unconfirmed
GUEST, unregistred user!
ScreenReport的打印结果有水印,谁有正式版?!!!!!
哪位能告诉我如何动态地在quickrep中实现报表?比如,
用程序实现在band中加一个qrlabel,或在detailband中
加几个qrdbtext等等.
因为我的库中有je1,je2,je3,je4...个字段,当sum(je1)
等于0 时,je1这一列就不显示;同样对于je2,je3....也一样;
所以必须动态的创建报表.
试来试去,不知道用什么命令?如何实现?
如果能直接把dbgrid 的内容写到quickrep中就太好了.可惜....
 
动态创建报表可用以下办法:
var myQRDBText:TQRDBText;
... ...
myQRDBText:=TQRDBText.Create(Self);

myQRDBText.Parent:=Form2.QuickRep1.Bands.DetailBand;
myQRDBText.Left:=70;

myQRDBText.Top:=10;

myQRDBText.Width:=100;

myQRDBText.DataSet:=Form2.Table1;
myQRDBText.DataField:='je1';
或者:
with QuickRep1do
begin
with TQRDBText(Bands.DetailBand.AddPrintable(TQRDBText))do
begin
Left:=70;

Top:=10;

Width:=100;

DataSet:=Form2.Table1;
DataField:='je1';
end;
end;

理论上说,可以通过动态生成报表的办法将DBGrid的内容全部打印出来,可我没试过;
至于水印,应该也可以,下午找台打印机试试再说吧!
 
接受答案了.
 
后退
顶部