报表制作(45分)

  • 主题发起人 主题发起人 juky_ma
  • 开始时间 开始时间
J

juky_ma

Unregistered / Unconfirmed
GUEST, unregistred user!
我已得到一些纪录,这些记录存放在一个StringList中,每一个字符都是一条纪录,
即tringList->Strings[0]是记录一,tringList->Strings[1]纪录二等。
而且每次纪录是动态的,数目不可知。
请问,我要用此纪录作为报表数据,怎样显示呢?
DBText->DataField,DBtext->DataSet该怎样设置?
 
可以将这些记录先写入一个临时表中,通过临时表产生报表
 
最好将记录数据放如DataSet,则有很多报表控件可以支持。
 
我现在无法使用数据集,有其他的办法吗?
 
在QuickRep2的DetailBand中放一个QRLabel5,然后写以下事件:
procedure TForm1.QuickRep2BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
yy :=-1;
end;

procedure TForm1.QuickRep2NeedData(Sender: TObject;
var MoreData: Boolean);
begin
inc(yy);
QRLabel5.Caption := StringList.strings[yy];
if yy>StringList.count-1 then
MoreData := false
else
MoreData := true;
end;
 
后退
顶部