报表设计器使用教程

方法有很多，具体方法如下：

1、首先准备多张报表格式，让用户根据自己的需要选择，将来打印时调用这张报表就可以了，这种方法很简单，容易实现，并且一单有新的用户要求，只要加一张报表格式就解决了。（推荐使用）

2、为用户提供报表设计器。fastreport自带的报表设计器（我们设计报表时用的就是），可以为用户设计功能很强的报表，并在发布时带上。

3、中和一下上述的两种方法，用户可以选择，也可以自定义报表。

以下FastReport动态生成报表例子:

procedure TForm1.Button1Click(Sender: TObject);

var

v: TfrView;

b: TfrBandView;

Page: TfrPage;

begin

frReport1.Pages.Clear;

frReport1.Pages.Add; // create page

Page := frReport1.Pages[0];

b := TfrBandView.Create; // create Title band

b.SetBounds(0, 20, 0, 20); // position and size in pixels

b.BandType := btReportTitle; // (only Top and Height are significant

Page.Objects.Add(b); // for the band)

v := TfrMemoView.Create; // create memo

v.SetBounds(20, 20, 200, 16);

v.BandAlign := baWidth;

v.Prop['Alignment'] := frtaCenter; // another way to access properties

v.Prop['Font.Style'] := 2;

v.Memo.Add('Your text is: [Edit1.Text]');

Page.Objects.Add(v);

b := TfrBandView.Create; // create MasterData band

b.SetBounds(0, 60, 0, 20);

b.BandType := btMasterData;

b.Dataset := 'frDBDataSet1'; // band's dataset

Page.Objects.Add(b);

v := TfrMemoView.Create; // create data field

v.SetBounds(20, 60, 200, 16);

v.Memo.Add('[Table1."Company"]');

Page.Objects.Add(v);

frReport1.Pages.Add; // create second page

Page := frReport1.Pages[1];

Page.PageType := ptDialog;

Page.Width := 200;

Page.Height := 170;

Page.Caption := 'Test';

v := TfrEditControl.Create; // create editbox

v.SetBounds(60, 50, 75, 21);

v.Name := 'Edit1';

Page.Objects.Add(v);

v := TfrButtonControl.Create; // create button

v.SetBounds(60, 100, 75, 25);

TfrButtonControl(v).Button.Caption := 'Test!';

TfrButtonControl(v).Button.ModalResult := mrOk;

Page.Objects.Add(v);

frReport1.ShowReport;

end;