FastReport和ReportMachine如何直接引用Form的DataSet？

wanjunxiao 2010-07-16 04:45:03

FastReport2.x可以直接在报表设计器中引用Form里的DataSet,可是FastReport3之后的版本则一定要通过frxDBDataSet来引用，这样如果我在报表设计时要引用Form里的多个数据集，就必须每个数据集都通过对应的frxDBDataSet才能引用。改用ReportMachine也是一样的。
由于我的程序是允许用户在运行期间设计报表的，所以必须要能让用户在运行期间可以在报表里引用当前Form的不同的数据集，而不用通过修改程序再增加或更新frxDBDataSet。有高手可以告诉我如何实现吗？

顺便感慨一下，FastReport功能越来越强大，可以开发也越来越复杂了，有些很简单的应用也搞得很复杂才能实现。。。

...全文

178 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

fenshm 2010-08-03

打赏
举报

试试就知道了~

kye_jufei 2010-08-03

打赏
举报

[Quote=引用 10 楼 iamduo 的回复:]
高手没有。
给你一段参考。
function ShowFastReportManageForBpl(AOwner:TForm):Boolean;
var i,iCount:Integer;ds:TfrxDBDataset;
begin
Result:=false;
if not FileExists(AppPrintIniFileName) then
begin
S……
[/Quote]

這個方法是可行的。。。

ouyanghaiwa 2010-07-20

打赏
举报

三楼的说的对

ntjrr 2010-07-20

打赏
举报

那可能你得动态创建，写出更复杂的代码来解决了。本身放多个数据集能否改一下，也就是在窗口本身的设计思路上改改？

wanjunxiao 2010-07-19

打赏
举报

顶一下，盼高手出现

iamduo 2010-07-19

打赏
举报

高手没有。
给你一段参考。
function ShowFastReportManageForBpl(AOwner:TForm):Boolean;
var i,iCount:Integer;ds:TfrxDBDataset;
begin
Result:=false;
if not FileExists(AppPrintIniFileName) then
begin
ShowMessage('配置文件不存在'+#13#10+AppPrintIniFileName);
exit;
// raise Exception.Create('configuration file not found(配置文件丢失)');
end;
with TfrmFastReportManage.Create(AOwner) do
try
// 先建立Fast的DataSet
frxReport1.DataSets.Clear;
iCount:=0;
for i:=0 to AOwner.ComponentCount-1 do
begin
if AOwner.Components[i] is TDataSource then
begin
Inc(iCount);
ds:=TfrxDBDataset.Create(This);
ds.DataSource:=TDataSource(AOwner.Components[i]); // TDataSource(AOwner.Components[i]);//DLL中用as会失败，原因似乎是FR在DLL中与DataSet不合。
ds.UserName:=TDataSource(AOwner.Components[i]).Name; // 还是不要修改名字看得清楚点 'FastDataSet'+IntToStr(iCount);
// frxReport1.DataSets.Add(ds); //好像加不加都一样存在
end;
end;
if iCount=0 then ShowMessage('当前模块不支持打印') else Result:=true;
ShowModal;
finally
Free;
end;
end;