mc_dyylbrose.~pas

物业管理 1.建立一个WYGL数据库

unit MC_DYYLBrose;

interface

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

type
  TDYYLBrose = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    Panel2: TPanel;
    QRPreview1: TQRPreview;
    ImageList1: TImageList;
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure QRPreview1PageAvailable(Sender: TObject; PageNum: Integer);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure FormHide(Sender: TObject);
  private
    count_Print:integer;   
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DYYLBrose: TDYYLBrose;

implementation

{$R *.DFM}

procedure TDYYLBrose.BitBtn10Click(Sender: TObject);
begin
     Close;
end;

procedure TDYYLBrose.BitBtn1Click(Sender: TObject);
begin
     QRPreview1.PageNumber:=1;
end;

procedure TDYYLBrose.BitBtn2Click(Sender: TObject);
begin
     if QRPreview1.PageNumber<>1 then
        QRPreview1.PageNumber:=QRPreview1.PageNumber-1;
end;

procedure TDYYLBrose.BitBtn3Click(Sender: TObject);
begin
     if QRPreview1.PageNumber<>count_print then
        QRPreview1.PageNumber:=QRPreview1.PageNumber+1;
end;

procedure TDYYLBrose.BitBtn4Click(Sender: TObject);
begin
QRPreview1.PageNumber:=COunt_Print;
end;

procedure TDYYLBrose.QRPreview1PageAvailable(Sender: TObject;
  PageNum: Integer);
begin
    count_Print:=PageNum;
end;

procedure TDYYLBrose.BitBtn6Click(Sender: TObject);
begin
     QRPreview1.Zoom:=100;
end;

procedure TDYYLBrose.BitBtn7Click(Sender: TObject);
begin
     QRPreView1.ZoomToWidth;
end;

procedure TDYYLBrose.BitBtn5Click(Sender: TObject);
begin
     QRPreview1.ZoomToFit;
end;

procedure TDYYLBrose.BitBtn8Click(Sender: TObject);
begin
     QRPreview1.QRPrinter.PrintSetup;
end;

procedure TDYYLBrose.BitBtn9Click(Sender: TObject);
begin
     QRPreview1.QRPrinter.Print;
end;

procedure TDYYLBrose.FormHide(Sender: TObject);
begin
     //ANiMateWindow(Handle,300,AW_CENTER+AW_SLIDE+AW_HIDE);
     QrPreview1.QRPrinter:=nil;//短开欲览连接
end;

end.