一个简单的FastReport报表制作方法

一个简单的FastReport报表制作方法
本例子以FastReport自带的例子(\FastReport 4\Demos\PrintTable)进行说明
1：连接数据源
2：放一个Tfrxreport，双击进入报表编辑器。
3：放置一个Reporttitle,一个MasterData，一个TfrxCrossView；注意，\FastReport的Demos中，TfrxCrossView是放在MasterData下一级，但我使用时发现放在下一级没法显示数据，我是把它改成平级。
4：双击TfrxCrossView，进入，注意，有些不能进行统计的，否则会报错，如下操作一般不会报错：
   A：不要选中：column grand total,row grand total
   B:把Cell框中的格式改成None，默认为sum
5：为Tfrxreport写以下事件

 

procedure TForm1.frp1BeforePrint(Sender: TfrxReportComponent);
var
  Cross: TfrxCrossView;
  i, j: Integer;
begin
  if Sender is TfrxCrossView then
  begin
    Cross := TfrxCrossView(Sender);

    Table1.First;
    i := 0;
    while not Table1.Eof do
    begin
      for j := 0 to Table1.Fields.Count - 1 do
        Cross.AddValue([i], [Table1.Fields[j].DisplayLabel], [Table1.Fields[j].AsString]);

      Table1.Next;
      Inc(i);
    end;
  end;
end;

6：放一个Tbutton 在click事件中加入以下代码

 

procedure TForm1.Button1Click(Sender: TObject);
begin
  Table1.Open;
  frp1.ShowReport;
end;

 

7:运行,OK^_^