如何让用户自己设置报表格式

Question

我的程序中涉及到用户自定义报表格式的问题，请问那位高手有这方面的模块？

Answer 1

强烈建议用FASTREPORT2.5第三方控件，可以用户设置！

Answer 2

fastreport2.4中文开发指南 :
http://www.8860.net/delphicode/dispdoc.asp?id=82

Answer 3

1.用fastreport2.4可以。
2.用delphi7的rave可以。
3.改造quickreport可以。
4.自己写控件。：）

Answer 4

还有reportmachine，不过fastreport最好用了

Answer 5

自己用QrPreview作preview Form,一个QrPreview，几个按钮就行了。
在你的QuickRep Preview中加入
procedure Trepform1.QuickRep1Preview(Sender: TObject);
begin
zoomform1.QRPreview1.qrprinter:=TQRPrinter(Sender);
zoomform1.show;
end;
调用报表Preview就显示自己作的Preview表单。
Preview Form中就一个QrPreview和几个你自己想要的功能按钮。
给你写几个简单的。界面作PP点，想要什么功能，自己加。
procedure Tzoomform1.SpeedButton9Click(Sender: TObject);
begin  //关闭
close;
end;procedure Tzoomform1.SpeedButton1Click(Sender: TObject);
begin  //还原
QRPreview1.zoom:=100;
end;procedure Tzoomform1.SpeedButton2Click(Sender: TObject);
begin  //放大
if QRPreview1.zoom<390 then
 QRPreview1.zoom:=QRPreview1.zoom+10
else showmessage('已放大到最大');
end;procedure Tzoomform1.SpeedButton3Click(Sender: TObject);
begin  //缩小
if QRPreview1.zoom>10 then
 QRPreview1.zoom:=QRPreview1.zoom-10
else showmessage('已缩小到最小');
end;procedure Tzoomform1.SpeedButton4Click(Sender: TObject);
begin //打印设置
QRPreview1.QRPrinter.PrintSetup;
end;procedure Tzoomform1.SpeedButton8Click(Sender: TObject);
begin //下一页
with Qrpreview1 do
begin
 if pagenumber=Qrprinter.pagecount
 then showmessage('已到最后一页')
 else pagenumber:=pagenumber+1;
end;
end;procedure Tzoomform1.SpeedButton7Click(Sender: TObject);
begin  //上一页
with Qrpreview1 do
begin
 if pagenumber=1
 then showmessage('已到第一页')
 else pagenumber:=pagenumber-1;
end;
end;  

Answer 6

用FASTREPORT吧
或者你把数据导入到Excel中这样的话用户如果十分熟悉Excel的话就非常好办了

Answer 7

用fastreport,早日脱离报表苦海!