frm_print.pas

基于ACESS数据库的小型进销存管理软件。

unit Frm_Print;

interface

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

type
  TFormPrint = class(TForm)
    Panel1: TPanel;
    frSpeedButton1: TfrSpeedButton;
    frSpeedButton2: TfrSpeedButton;
    frSpeedButton3: TfrSpeedButton;
    frSpeedButton4: TfrSpeedButton;
    frSpeedButton5: TfrSpeedButton;
    frSpeedButton6: TfrSpeedButton;
    frSpeedButton7: TfrSpeedButton;
    frSpeedButton8: TfrSpeedButton;
    frSpeedButton9: TfrSpeedButton;
    frSpeedButton10: TfrSpeedButton;
    frSpeedButton11: TfrSpeedButton;
    frPreview1: TfrPreview;
    procedure frSpeedButton2Click(Sender: TObject);
    procedure frSpeedButton1Click(Sender: TObject);
    procedure frSpeedButton3Click(Sender: TObject);
    procedure frSpeedButton4Click(Sender: TObject);
    procedure frSpeedButton5Click(Sender: TObject);
    procedure frSpeedButton6Click(Sender: TObject);
    procedure frSpeedButton7Click(Sender: TObject);
    procedure frSpeedButton8Click(Sender: TObject);
    procedure frSpeedButton9Click(Sender: TObject);
    procedure frSpeedButton10Click(Sender: TObject);
    procedure frSpeedButton11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormPrint: TFormPrint;

implementation

{$R *.dfm}

procedure TFormPrint.frSpeedButton2Click(Sender: TObject);
begin
frPreview1.Zoom := 100;
end;

procedure TFormPrint.frSpeedButton1Click(Sender: TObject);
begin
frPreview1.OnePage;
end;

procedure TFormPrint.frSpeedButton3Click(Sender: TObject);
begin
frPreview1.PageWidth;
end;

procedure TFormPrint.frSpeedButton4Click(Sender: TObject);
begin
frPreview1.First;
end;

procedure TFormPrint.frSpeedButton5Click(Sender: TObject);
begin
frPreview1.Prev;
end;

procedure TFormPrint.frSpeedButton6Click(Sender: TObject);
begin
frPreview1.Next;
end;

procedure TFormPrint.frSpeedButton7Click(Sender: TObject);
begin
frPreview1.Last;
end;

procedure TFormPrint.frSpeedButton8Click(Sender: TObject);
begin
frPreview1.LoadFromFile;
end;

procedure TFormPrint.frSpeedButton9Click(Sender: TObject);
begin
frPreview1.SaveToFile;
end;

procedure TFormPrint.frSpeedButton10Click(Sender: TObject);
begin
frPreview1.Print;
end;

procedure TFormPrint.frSpeedButton11Click(Sender: TObject);
begin
ModalResult := mrOk;
end;

end.