ug_preview.pas

恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001

unit ug_preview;

interface

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

type
  Tg_preview = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    zq: TToolButton;
    qy: TToolButton;
    xy: TToolButton;
    zh: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    D1: TMenuItem;
    E1: TMenuItem;
    N4: TMenuItem;
    S1: TMenuItem;
    P1: TMenuItem;
    N5: TMenuItem;
    X1: TMenuItem;
    H1: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    ComboBox1: TComboBox;
    SpinEdit1: TSpinEdit;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    QRPreview1: TQRPreview;
    procedure ToolButton3Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure zqClick(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure qyClick(Sender: TObject);
    procedure xyClick(Sender: TObject);
    procedure zhClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  g_preview: Tg_preview;

implementation

uses ugo_report;

{$R *.DFM}
procedure Tg_preview.ToolButton3Click(Sender: TObject);
begin
  close;
end;

procedure Tg_preview.ComboBox1Change(Sender: TObject);
begin
 QRPreview1.Zoom:=strtoint(copy(ComboBox1.text,1,length(ComboBox1.text)-1));
end;

procedure Tg_preview.SpinEdit1Change(Sender: TObject);
begin
 QRPreview1.Zoom:=SpinEdit1.Value;
end;

procedure Tg_preview.ToolButton1Click(Sender: TObject);
begin
 go_report.QuickRep1.PrinterSetup;
end;

procedure Tg_preview.zqClick(Sender: TObject);
begin
 QRPreview1.PageNumber:=1;
 zq.Enabled:=false;
 qy.Enabled:=false;
 xy.Enabled:=true;
 zh.Enabled:=true;
end;

procedure Tg_preview.ToolButton2Click(Sender: TObject);
begin
 QRPreview1.QRPrinter.Print;
end;

procedure Tg_preview.FormShow(Sender: TObject);
begin
 spinedit1.text:='100';
 combobox1.text:='100%';
 if QRPreview1.QRPrinter.Pagecount=1 then
   begin
    zq.Enabled:=false;
    qy.Enabled:=false;
    xy.Enabled:=false;
    zh.Enabled:=false;
   end
  else
   begin
    zq.Enabled:=false;
    qy.Enabled:=false;
    xy.Enabled:=true;
    zh.Enabled:=true;
   end; 
end;

procedure Tg_preview.qyClick(Sender: TObject);
begin
 if  QRPreview1.PageNumber<>1 then
   QRPreview1.PageNumber:=QRPreview1.PageNumber-1;
 if  QRPreview1.PageNumber<=1 then
   begin
    zq.Enabled:=false;
    qy.Enabled:=false;
    xy.Enabled:=true;
    zh.Enabled:=true;
   end
  else 
   begin
    zq.Enabled:=true;
    qy.Enabled:=true;
    xy.Enabled:=true;
    zh.Enabled:=true;
   end;
end;

procedure Tg_preview.xyClick(Sender: TObject);
begin
 if  QRPreview1.PageNumber<>QRPreview1.QRPrinter.Pagecount then
   QRPreview1.PageNumber:=QRPreview1.PageNumber+1;
 if  QRPreview1.PageNumber>=QRPreview1.QRPrinter.Pagecount then
   begin
    zq.Enabled:=true;
    qy.Enabled:=true;
    xy.Enabled:=false;
    zh.Enabled:=false;
   end
  else 
   begin
    zq.Enabled:=true;
    qy.Enabled:=true;
    xy.Enabled:=true;
    zh.Enabled:=true;
   end;
end;

procedure Tg_preview.zhClick(Sender: TObject);
begin
 QRPreview1.PageNumber:=QRPreview1.QRPrinter.Pagecount;
 zq.Enabled:=true;
 qy.Enabled:=true;
 xy.Enabled:=false;
 zh.Enabled:=false;
end;

end.