Question

fastreport怎么在win7用

Answer 1

方法有很多，具体方法如下： 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;