Delphi XE3多层应用：无数据库连接下动态添加FastReports查询

当然可以实现！不过因为客户端没有数据库连接，咱们不能用常规的TFrxQuery直接连接数据库，得换个思路——基于内存数据或者已有的TClientDataSet来动态给TFrxReport添加可用的数据源，这样就能满足终端用户运行时选择明细项的需求。

核心思路 #

FastReport支持直接绑定内存数据集或者TClientDataSet，我们可以通过动态创建TFrxDataSource（关联已有的数据集）或者TFrxMemTable（加载明细数据），再把这些数据源添加到报表的DataSources集合中，就能在报表的Data Tab里看到并使用它们。

具体实现方法 #

方法1：直接关联已有的TClientDataSet

如果你的明细数据已经通过多层架构获取到客户端的TClientDataSet里，直接把它注册为FastReport的数据源即可：

var
  LDataSource: TFrxDataSource;
begin
  // 创建FastReport数据源组件
  LDataSource := TFrxDataSource.Create(nil);
  // 关联到你的明细ClientDataSet
  LDataSource.DataSet := YourDetailClientDataSet;
  // 给数据源设置唯一名称，避免重复
  LDataSource.Name := 'DetailDS_' + IntToStr(FrxReport1.DataSources.Count);
  // 添加到报表的数据源集合
  FrxReport1.DataSources.Add(LDataSource);
  
  // 可选：如果需要动态绑定报表中的Band到这个数据源
  // 比如找到报表的明细Band，设置其DataSet属性
  // (TfrxDetailBand(FrxReport1.FindObject('DetailBand1'))).DataSet := LDataSource;
end;

方法2：使用TFrxMemTable加载明细数据

如果需要复制明细数据到独立的内存表中（避免原数据集被修改影响报表），可以用TFrxMemTable：

var
  LMemTable: TFrxMemTable;
  LDataSource: TFrxDataSource;
begin
  // 创建内存表组件
  LMemTable := TFrxMemTable.Create(nil);
  try
    // 从已有ClientDataSet复制结构和数据
    LMemTable.LoadFromDataSet(YourDetailClientDataSet);
    
    // 创建并关联FastReport数据源
    LDataSource := TFrxDataSource.Create(nil);
    LDataSource.DataSet := LMemTable;
    LDataSource.Name := 'DetailMemDS_' + IntToStr(FrxReport1.DataSources.Count);
    
    // 添加到报表数据源集合
    FrxReport1.DataSources.Add(LDataSource);
  finally
    // 注意：添加到FrxReport.DataSources的组件，报表会负责释放，无需手动销毁
    // 如果没有添加到集合，才需要手动Free
  end;
end;

关键注意事项 #

• 数据源名称唯一性：每次动态添加时要给数据源设置唯一名称，避免和已有的数据源冲突。
• 数据集生命周期：确保在报表运行期间，关联的TClientDataSet或TFrxMemTable处于活跃状态（没有被释放）。
• 多明细项支持：如果用户选择多个明细项，重复执行上述代码即可创建多个数据源，报表中可以分别引用这些数据源来展示不同的明细数据。
• 报表控件绑定：如果是动态创建的数据源，报表设计时可以先预留占位，或者运行时通过FrxReport.FindObject找到对应的控件/Band，动态设置其DataSet属性。

内容的提问来源于stack exchange，提问作者Erik Ferney Cubillos Garcia