求助，如何用fastreport做动态报表？急！急！急！

没用过那玩意。
qtreport也可以做成动态的。

谁能给我一个动态创建打印列（如用户选择的打印列为：1员工编号 2姓名 3性别 4生日）并根据用户选择的列名生成主数据项（query1）的例子啊~~~多谢了

我有,自己用BCB开发的,基于fastreport,打印dbgrideh,可以选择要打印列,以及设置报表标题和打印列数据居中等

楼上大哥，有程序或控件能发给小弟一份吗？万分感谢
[email protected]

方法是多种多样的，只能给你个提示，不知你的报表功底如何，参考一下把：
1。准备多张报表格式，让用户根据自己的需要选择，将来打印时调用这张报表就可以了，这种方法很简单，容易实现，并且一单有新的用户要求，只要加一张报表格式就解决了。（推荐使用）
2。为用户提供报表设计器。fastreport自带的报表设计器（我们设计报表时用的就是），可以为用户设计功能很强的报表，发布时带上不就万事大吉了？
3。中和一下上述的两种方法，用户可以选择，也可以自定义报表，很好嘛，对于常用的报表，可以收集一下逐步加强你的固定报表集（1中所讲的报表格式组合）。
各有优缺点：功能太强用户使用比较烦琐，不容易被用户接受，反之可能达不到用户的需求，权衡之。

这是一段我的报表程序，有部分是抄FReport的demo的，不一定能满足你的要求，仅供参考
先设计一个报表模板report.frf，报表的内容动态生成,我用的是ADOTable，不过query是一个道理的
       frreport1.LoadFromFile('report.frf');        b := TfrBandView.Create;
        b.SetBounds(0, 24, 757,71);
        b.BandType := btReportTitle;
        frreport1.Pages[0].Objects.Add(b);        DM.ADOTable1.TableName:=Combobox1.Items[combobox1.Itemindex];//选择表名
        RField:=combobox2.Items[combobox2.itemindex];　　　//选择字段
        DM.ADOTable1.Active:=true;
        RTitle:='我的+RField+'报表';        v := TfrMemoView.Create;             // create memo
        v.SetBounds(20, 40, 200, 30);
        v.BandAlign := baWidth;
        v.Prop['Font.Size']:=16;
        v.Prop['Font.Style']:=fsUnderline;
        v.Prop['Alignment'] :=2;         //水平居中
        v.Prop['Alignment'] :=+10;
        v.Memo.Add(RTitle);
        frreport1.Pages[0].Objects.Add(v);        b := TfrBandView.Create;             // 创建 MasterData band
        b.SetBounds(0, 117, 0, TableRow);
        b.BandType := btMasterData;
        b.Dataset := 'frDBDataSet1';         // band's dataset
        frreport1.Pages[0].Objects.Add(b);        v := TfrMemoView.Create;           // create data field
        v.SetBounds(51, 117, 71, TableRow);       //左，顶，宽，高
        v.Memo.Add('[DM.ADOTable1."学号"]');
        v.Prop['Alignment'] :=2;            //水平居中
        v.Prop['Alignment'] :=+10;         //垂直居中
        v.Prop['FrameTyp'] := 15;          //加边框
        frreport1.Pages[0].Objects.Add(v);        v := TfrMemoView.Create;             // create data field
        v.SetBounds(122, 117, 81,TableRow);
        v.Memo.Add('[DM.ADOTable1."姓名"]');
        v.Prop['Alignment'] :=2;
        v.Prop['Alignment'] :=+10;
        v.Prop['FrameTyp'] := 15;
        frreport1.Pages[0].Objects.Add(v);        s:='[DM.ADOTable1."'+RField+'"]';
        v := TfrMemoView.Create;             // create data field
        v.SetBounds(203, 117, 56, TableRow);
        v.Prop['Alignment'] :=2;
        v.Prop['Alignment'] :=+10;
        v.Prop['FrameTyp'] := 15;
        v.Memo.Add(s);
        frreport1.Pages[0].Objects.Add(v);        frreport1.PrepareReport;
        frreport1.Preview:=frpreview1;
        frpreview1.Zoom:=100;     //27
        frreport1.ShowPreparedReport;

其实fastreport\demos\runtime目录就是个例子。
我试过，很好用

其实可以使用EHLIB的自己做个函数显示自定义字段，然后就可以了

功能更加强劲，增加多行表头的功能，新增更多事件，加强了打印期间对报表样式
的控制，可随意改变打印内容。下载地址：http://www.csdn.net/cnshare/soft/15/15471.shtm
reprint
使用说明
本控件可打印 datasource,dbgrid,stringgrid.
一、控件属性：1、colstitle 设置报表的列标题属性  (1)   Print:boolean;是否打印
  (2)  Font:tfont;字体
  (3)   Rowsline:tpen;横线样式
  (4)   Colsline:tpen;竖线样式
  (5)   Alignment:talignment;对齐方式
  (6)   Rowspace:integer;行间距
  (7)   EveryPage:boolean;是否每页打印
  (8)   EveryRow:boolean;是否每行打印
  (9)   titlearray:tstrings;怎加标题组 (使用方法见附带demo)
  (10)   rows:integer;设置默认列标题打印行数
2、datasource 绑定 datasource
3、dbgrid 绑定 dbgrid
4、stringgrid 绑定 stringgrid
   PrintObject 选择打印的对象(datasource 、dbgrid、 stringgrid )
5、pagefooter 页脚 pageheader 页眉
   (1) Text:string;内容
   (2) Font:tfont;字体
   (3) Print:boolean;是否打印
   (4) Alignment:talignment;对齐方式
6、detail 设置要打印的明细数据属性
    (1)arrange 设置明细字段排列方向
      Horizontal 横向打印（默认的一般打印）
      Vertical 竖向打印（字段竖向排列适合打印字段内容较长的报表如“会议纪录”）
    (2)aotureturn 打印明细字段时，如果字段超过列的宽度是否允许自动换行
    (3)colsline 设置竖线属性引用tpen类
    (4)footer 设置明细尾（设置同pagefooter 页脚 pageheader 页眉）
    (5)frame 设置明细边框属性引用tpen类
    (6)head 设置明细头（设置同pagefooter 页脚 pageheader 页眉）
    (7)rowsline 设置横线属性引用tpen类
    (8)rowspace 设置明细行的高度
    (9)top 明细与标题的距离
    (10)Alignment对齐方式
7、page 设置纸张
   (1) leftmargin:real;左边距
   (2) rightmargin:real;右边距
   (3) topmargin:real;顶边距
   (4) bottommargin:real;底边距
   (5) pagesize:TPageSize;纸张类型
   (6) Height:real;高度
   (7) width:real;宽度
   (8) Orientation:TPrinterOrientation;打印方向
注意：设置纸张的宽度和高度需把pagesize设为Custom8、title 设置标题
  (1) Print:boolean; 是否打印
  (2) Text:tstrings; 内容可设置多行
  (3) Font:tfont;字体
  (4) Alignment:talignment;对齐方式
  (5) top:integer; 距纸张顶部距离
  (6) Rowspace:integer;行距
  (7) EveryPage:boolean;是否每页打印二、控件方法：
(1) preview 预览
(2) print    打印
(3) SaveToFile() 保存为报表文件
(4) SaveToStream() 保存为流（然后就可把整个报表存到数据库了很方便哦! ~_~）
(5) PrintFile() 打印报表文件
(6) PrintStream() 打印流（流的数据库存取就不用多说了吧）
(7) PreviewFile() 预览文件
(8) PreviewStream() 预览流
(9) OptionToStream() 报表的属性保存为流
(10) OptionFromStream() 从流中得到报表属性
(11) OptionPost()在打印期间改变了报表属性，要想立即生效调用此方法。
(12) PaintText(Text:string) 覆盖原有打印的字符，一般在能返回当前打印的内容的事件中使用。（见控件事件）三、控件事件：
(1)    AfterPrint 打印后
(2)    BeforePrint 打印前
(3)    OnPrintDetail(RecordNumber: Integer)在打印每一栏明细前触发此事件，
        返回参数：RecordNumber返回当前打印行数。
(4)    OnPrintDetailField(RecordNumber,FieldIndex: Integer; FieldText: String);
        在打印明细的每个字段都会触发此事件。
        返回参数：RecordNumber返回当前打印行数。
            FieldIndex 字段索引
            FieldText字段内容
(5)    OnPrintTitle(Row: Integer; Text: String)打印每行标题都会触发此事件。
        返回参数：row当前打印的行
               Text当前打印的内容
(6)    OnPrintColsTitleField(Row, FieldIndex: Integer;  FieldName: String);
        打印列标题字段时触发此事件
        返回参数：row当前打印的行
                  FieldIndex当前打印的字段索引
                  FieldName当前打印的字段名称
(7)  OnPrintColsTitle(Row: Integer)
      打印每行列标题时触发此事件
      返回参数：row当前打印的行


四、注意事项
(1) text 属性，输入“|#|”打印页码值，如果想打印页码可输入“第|#|页” 输入“|RecordCount|”打印     记录数
(2) 不同的打印机，打印和预览效果可能有一点点不同（保证数据打印完全正确一致）。本人用一台针式和一台激光打印机做测试，
     开始差别较大后经过调试基本一致，不知其他打印机如何。
(3) 纸张大小以及横向、竖向自动适应系统默认也可设置。
(4) 各列的宽度按比例，适应纸张宽度打印。

调试易

求助，如何用fastreport做动态报表？急！急！急！

解决方案 »