main_dyylform.~pas

校园综合管理系统

unit main_dyylform;

interface

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

type
  Tmain_dyyl = class(TForm)
    Panel1: TPanel;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    ToolButton1: TToolButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    ToolButton2: TToolButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    ToolButton3: TToolButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    ToolButton4: TToolButton;
    SpeedButton10: TSpeedButton;
    QRPreview1: TQRPreview;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    ProgressBar1: TProgressBar;
    Panel2: TPanel;
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure QRPreview1PageAvailable(Sender: TObject; PageNum: Integer);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure QRPreview1ProgressUpdate(Sender: TObject; Progress: Integer);
    procedure SaveDialog1TypeChange(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
  private
    { Private declarations }
    fpagecount:integer;
  public
    { Public declarations }
    //currep:tquickrep;
    procedure updatepp;
  end;

var
  main_dyyl: Tmain_dyyl;

implementation



{$R *.DFM}

procedure Tmain_dyyl.SpeedButton10Click(Sender: TObject);
begin
   close;
end;

procedure Tmain_dyyl.SpeedButton1Click(Sender: TObject);
begin
    qrpreview1.ZoomToFit;
end;

procedure Tmain_dyyl.SpeedButton2Click(Sender: TObject);
begin
  qrpreview1.zoom:=100;
end;

procedure Tmain_dyyl.SpeedButton3Click(Sender: TObject);
begin
  qrpreview1.ZoomToWidth;
end;

procedure Tmain_dyyl.SpeedButton4Click(Sender: TObject);
begin
  qrpreview1.PageNumber:=1;
    updatepp;
end;


procedure Tmain_dyyl.SpeedButton5Click(Sender: TObject);
begin
  qrpreview1.PageNumber:=qrpreview1.PageNumber+1;
  updatepp;
end;

procedure Tmain_dyyl.SpeedButton6Click(Sender: TObject);
begin
  qrpreview1.PageNumber:=qrpreview1.PageNumber-1;
  if qrpreview1.PageNumber=0 then
    qrpreview1.PageNumber:=1;
    updatepp;
end;

procedure Tmain_dyyl.SpeedButton7Click(Sender: TObject);
begin
  qrpreview1.PageNumber:=fpagecount;
  updatepp;
end;

procedure Tmain_dyyl.QRPreview1PageAvailable(Sender: TObject; PageNum: Integer);
begin
   fpagecount:=pagenum;
   updatepp;
end;

procedure Tmain_dyyl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  qrpreview1.QRPrinter:=nil;
   action:=cafree;
end;

procedure Tmain_dyyl.SpeedButton8Click(Sender: TObject);
begin
  qrpreview1.QRPrinter.PrintSetup;
end;

procedure Tmain_dyyl.SpeedButton9Click(Sender: TObject);
begin
  qrpreview1.QRPrinter.Print;
end;

procedure Tmain_dyyl.SpeedButton12Click(Sender: TObject);
begin
   if opendialog1.Execute then
   begin
     qrpreview1.QRPrinter.Load(opendialog1.FileName);
    end; 
end;

procedure Tmain_dyyl.QRPreview1ProgressUpdate(Sender: TObject;
  Progress: Integer);
begin
  progressbar1.Position:=progress;
  if progressbar1.Position=100 then
     progressbar1.Visible:=false;
end;

procedure Tmain_dyyl.SaveDialog1TypeChange(Sender: TObject);
begin
//  with savedialog1 do
  // case filterindex of
    //0:defaultext:='.QR';
    //1:defaultext:='TXT';
    //2:defaultext:='.HTM';
    //3:defaultext:='.CSV';
  //  end;

end;

procedure Tmain_dyyl.SpeedButton11Click(Sender: TObject);
begin
  if savedialog1.Execute then
      begin
         qrpreview1.QRPrinter.Save(savedialog1.filename);
  end;
   end;
procedure Tmain_dyyl.updatepp;
begin
  panel2.Caption:='第'+inttostr(qrpreview1.PageNumber)+'页  共'+inttostr(fpagecount)+'页';
end;

end.