mypreview_unit.~pas

很不错的软件请使用

unit mypreview_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TFlatSpeedButtonUnit, TFlatProgressBarUnit, ExtCtrls,
  TFlatPanelUnit, ToolWin,Quickrpt,ComCtrls, QRPrntr, ImgList,
  XPMenu, Buttons,mshtml;

type
  Tmypreview = class(Tform)
    QRPreview1: TQRPreview;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton3: TToolButton;
    FlatSpeedButton1: TFlatSpeedButton;
    FlatSpeedButton2: TFlatSpeedButton;
    FlatSpeedButton3: TFlatSpeedButton;
    FlatSpeedButton4: TFlatSpeedButton;
    FlatSpeedButton5: TFlatSpeedButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    FlatSpeedButton6: TFlatSpeedButton;
    FlatSpeedButton7: TFlatSpeedButton;
    FlatSpeedButton8: TFlatSpeedButton;
    sf: TFlatSpeedButton;
    ToolButton7: TToolButton;
    FlatSpeedButton9: TFlatSpeedButton;
    SaveDlg1: TSaveDialog;
    OpenDlg1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure sfClick(Sender: TObject);
    procedure FlatSpeedButton3Click(Sender: TObject);
    procedure FlatSpeedButton2Click(Sender: TObject);
    procedure FlatSpeedButton4Click(Sender: TObject);
    procedure FlatSpeedButton5Click(Sender: TObject);
    procedure onavai(Sender: TObject; PageNum: Integer);
    procedure FlatSpeedButton8Click(Sender: TObject);
    procedure FlatSpeedButton6Click(Sender: TObject);
    procedure FlatSpeedButton1Click(Sender: TObject);
    procedure FlatSpeedButton7Click(Sender: TObject);
    procedure FlatSpeedButton9Click(Sender: TObject);
    procedure onclose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    FPageCount : integer; //生成报表的总页数
      public
    { Public declarations }
    CurRep : TQuickRep;    //所预览的报表
  procedure UpdatePanelShow;
  end;

var
  mypreview: Tmypreview;
  zom:integer=0;
implementation

uses mainformunit;

{$R *.dfm}
procedure Tmypreview.UpdatePanelShow;
begin
mainform.StatusBar1.Panels[3].Text:='目前是第 '+inttostr(QRPreview1.PageNumber)+
   '页  共有 '+inttostr(FPageCount)+' 页';
end;

procedure Tmypreview.FormCreate(Sender: TObject);
begin
inherited;
mainform.StatusBar1.Panels[3].Text:='目前是第 '+inttostr(QRPreview1.PageNumber)+
   '页  共有 '+inttostr(FPageCount)+' 页';
end;

procedure Tmypreview.sfClick(Sender: TObject);
begin
inherited;
if zom=0 then QRPreview1.ZoomToFit;   //ZoomToFit  缩 放 至 全 屏
if zom=1 then QRPreview1.Zoom:=100;   //ZoomTo100%  缩 放 至 实 际 大 小
if zom=2 then QRPreview1.ZoomToWidth; //ZoomToWidth  缩 放 至 页 宽
zom:=zom+1;
if zom>2 then zom:=0;
end;

procedure Tmypreview.FlatSpeedButton3Click(Sender: TObject);
begin
  inherited;
QRPreview1.PageNumber := 1;
     UpdatePanelShow;
end;

procedure Tmypreview.FlatSpeedButton2Click(Sender: TObject);
begin
inherited;
QRPreview1.PageNumber := QRPreview1.PageNumber+1;
     UpdatePanelShow;

end;

procedure Tmypreview.FlatSpeedButton4Click(Sender: TObject);
begin
  inherited;
  QRPreview1.PageNumber := QRPreview1.PageNumber-1;
  if QRPreview1.PageNumber =0 then
     QRPreview1.PageNumber:=1;
     UpdatePanelShow;
end;

procedure Tmypreview.FlatSpeedButton5Click(Sender: TObject);
begin
  inherited;
  QRPreview1.PageNumber := FPageCount;
  UpdatePanelShow;
end;

procedure Tmypreview.onavai(Sender: TObject; PageNum: Integer);
begin
  inherited;
  FPageCount := PageNum ;
  UpdatePanelShow;
end;

procedure Tmypreview.FlatSpeedButton8Click(Sender: TObject);
begin
  inherited;
  mainform.StatusBar1.Panels[3].Text:='';
  close;
end;

procedure Tmypreview.FlatSpeedButton6Click(Sender: TObject);
begin
inherited;
QRPreview1.QRPrinter.PrintSetup;
end;

procedure Tmypreview.FlatSpeedButton1Click(Sender: TObject);
begin
inherited;
QRPreview1.QRPrinter.Print;
end;

procedure Tmypreview.FlatSpeedButton7Click(Sender: TObject);
begin
inherited;
if SaveDlg1.Execute then
begin
QRPreview1.QRPrinter.Save(SaveDlg1.FileName+'.QR');
end;
end;

procedure Tmypreview.FlatSpeedButton9Click(Sender: TObject);
begin
  inherited;
if OpenDlg1.Execute then
   QRPreview1.QRPrinter.Load(OpenDlg1.FileName);
end;

procedure Tmypreview.onclose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;

end.