prinprevpas.~pas

来自「本软件是一套功能完整成熟的固定资产管理系统,具有固定资产管理系统的相应全部功能」· ~PAS 代码 · 共 187 行

unit prinprevpas;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, QuickRpt, ToolWin, ComCtrls, Buttons, ImgList,
  QRPrntr;

type
  Tprevform = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ImageList1: TImageList;
    ToolButton4: TToolButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton10: TSpeedButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    QRPreview1: TQRPreview;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    ProgressBar1: TProgressBar;
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure QRPreview1PageAvailable(Sender: TObject; PageNum: Integer);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure QRPreview1ProgressUpdate(Sender: TObject; Progress: Integer);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
  FPageCount : integer;  
    { Private declarations }
  public
  CurRep : TQuickRep;    // 所预览的报表
  procedure UpdatePanelShow;  //更新显示
      { Public declarations }
  end;

var
  prevform: Tprevform;

implementation

{$R *.DFM}

procedure Tprevform.UpdatePanelShow;
begin
StatusBar1.Panels[0].text :=' 第 '+inttostr(QRPreview1.PageNumber)+' 页';
StatusBar1.Panels[1].text :='   总 '+inttostr(fPageCount)+' 页';
end;

procedure Tprevform.ToolButton2Click(Sender: TObject);
begin
QRPreview1.Zoom:=100;

end;

procedure Tprevform.ToolButton3Click(Sender: TObject);
begin
QRPreview1.ZoomToWidth;

end;

procedure Tprevform.ToolButton1Click(Sender: TObject);
begin
QRPreview1.ZoomToFit;
end;

procedure Tprevform.SpeedButton1Click(Sender: TObject);
begin
QRPreview1.PageNumber := 1;
  UpdatePanelShow;

end;

procedure Tprevform.QRPreview1PageAvailable(Sender: TObject;
  PageNum: Integer);
begin
FPageCount := PageNum ;
  UpdatePanelShow ;


end;

procedure Tprevform.SpeedButton2Click(Sender: TObject);
begin
  QRPreview1.PageNumber := QRPreview1.PageNumber-1;
  if QRPreview1.PageNumber =0 then 
  QRPreview1.PageNumber:=1;
  UpdatePanelShow;

end;

procedure Tprevform.SpeedButton3Click(Sender: TObject);
begin
QRPreview1.PageNumber := QRPreview1.PageNumber+1;
  UpdatePanelShow;
end;

procedure Tprevform.SpeedButton4Click(Sender: TObject);
begin
QRPreview1.PageNumber := FPageCount;
  UpdatePanelShow;
end;

procedure Tprevform.SpeedButton5Click(Sender: TObject);
begin
QRPreview1.QRPrinter.PrintSetup;


end;

procedure Tprevform.SpeedButton6Click(Sender: TObject);
begin
QRPreview1.QRPrinter.Print; 


end;

procedure Tprevform.SpeedButton8Click(Sender: TObject);
begin
Close;

end;

procedure Tprevform.SpeedButton10Click(Sender: TObject);
begin
if SaveDialog1.Execute then 
    begin 
      if (SaveDialog1.FIlterIndex <>1) and (CurRep = nil) then Exit; 
      //--*.QR 
      QRPreview1.QRPrinter.Save(SaveDialog1.FileName); 
    end;

end;

procedure Tprevform.SpeedButton7Click(Sender: TObject);
begin
if OpenDialog1.Execute then 
    QRPreview1.QRPrinter.Load(OpenDialog1.FileName); 
end; 




procedure Tprevform.QRPreview1ProgressUpdate(Sender: TObject;
  Progress: Integer);
begin
ProgressBar1.Position := Progress; 
end;

procedure Tprevform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CurRep := nil; 
     Action := caFree; 

end;

procedure Tprevform.FormCreate(Sender: TObject);
begin
toolbutton3.down:=true;
end;

end.