custompreview.~pas

对fastreport进行封装成dll,只需传一个query即可显示报表内容,显示的列可以自定义,对学习fastreport可以参考一下

unit CustomPreview;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, FR_View, Buttons;

type
  TfrmCustomPreview = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    frPreview1: TfrPreview;
    Panel4: TPanel;
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCustomPreview: TfrmCustomPreview;

implementation

{$R *.dfm}

procedure TfrmCustomPreview.SpeedButton10Click(Sender: TObject);
begin
    close;
end;

procedure TfrmCustomPreview.SpeedButton12Click(Sender: TObject);
begin
   
   frPreview1.Zoom := 100;
end;

procedure TfrmCustomPreview.SpeedButton11Click(Sender: TObject);
begin

   frPreview1.OnePage;
end;

procedure TfrmCustomPreview.SpeedButton1Click(Sender: TObject);
begin

   frPreview1.PageWidth;
end;

procedure TfrmCustomPreview.SpeedButton2Click(Sender: TObject);
begin
    frPreview1.First;
end;

procedure TfrmCustomPreview.SpeedButton3Click(Sender: TObject);
begin
     frPreview1.Prev;
end;

procedure TfrmCustomPreview.SpeedButton4Click(Sender: TObject);
begin
    frPreview1.Next;
end;

procedure TfrmCustomPreview.SpeedButton5Click(Sender: TObject);
begin
    frPreview1.Last;
end;

procedure TfrmCustomPreview.SpeedButton6Click(Sender: TObject);
begin
    frPreview1.LoadFromFile;
end;

procedure TfrmCustomPreview.SpeedButton7Click(Sender: TObject);
begin
    frPreview1.SaveToFile;
end;

procedure TfrmCustomPreview.SpeedButton8Click(Sender: TObject);
begin
    frPreview1.PageSetupDlg;
end;

procedure TfrmCustomPreview.SpeedButton9Click(Sender: TObject);
begin
    frPreview1.Print;
end;

end.