yuebaopreview.pas

本系统为演示Delphi的功能而开发设计

unit YueBaoPreview;

interface

uses Messages, Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ComCtrls, ExtCtrls, Grids, DBGrids, Spin, Db, DBTables, Qrctrls,
  QuickRpt, QRPrntr, Printers, QRExport, QRPrev, Dialogs;

type
  TFormYueBaoPreview = class(TForm)
    ButtonClose: TButton;
    QRPreviewYueBao: TQRPreview;
    ButtonNext: TButton;
    ButtonForward: TButton;
    ButtonPrint: TButton;
    ButtonBig: TButton;
    ButtonSmall: TButton;
    ButtonSave: TButton;
    ButtonLoad: TButton;
    OpenDialogRpt: TOpenDialog;
    SaveDialogRpt: TSaveDialog;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ButtonCloseClick(Sender: TObject);
    procedure ButtonForwardClick(Sender: TObject);
    procedure ButtonNextClick(Sender: TObject);
    procedure ButtonPrintClick(Sender: TObject);
    procedure YueBaoRepPreview(Sender: TObject);
    procedure ButtonBigClick(Sender: TObject);
    procedure ButtonSmallClick(Sender: TObject);
    procedure ButtonSaveClick(Sender: TObject);
    procedure ButtonLoadClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);

  private

    { Private declarations }
  public
  CurRep:TQuickRep;
    { Public declarations }
  end;

var
  FormYueBaoPreview: TFormYueBaoPreview;
  year,month,yea,mon:string;

implementation
uses huaxia;


{$R *.DFM}


procedure TFormYueBaoPreview.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    HuaxiaData.QueryYueBao.Active:=False;
    HuaxiaData.QueryYueBaoHuiZong.Active:=False;
end;

procedure TFormYueBaoPreview.ButtonCloseClick(Sender: TObject);
begin
QRPreviewYueBao.QRPrinter:=Nil;
Close;
end;

procedure TFormYueBaoPreview.ButtonForwardClick(Sender: TObject);
begin
QRPreviewYueBao.PageNumber:=QRPreviewYueBao.PageNumber-1;
end;

procedure TFormYueBaoPreview.ButtonNextClick(Sender: TObject);
begin
QRPreviewYueBao.PageNumber:=QRPreviewYueBao.PageNumber+1;
end;

procedure TFormYueBaoPreview.ButtonPrintClick(Sender: TObject);
begin
QRPreviewYueBao.QRPrinter.print;
end;

procedure TFormYueBaoPreview.YueBaoRepPreview(Sender: TObject);
begin
QRPreviewYueBao.QRPrinter:=TQRPrinter(Sender);
Show;
end;

procedure TFormYueBaoPreview.ButtonBigClick(Sender: TObject);
begin
If QRPreviewYueBao.Zoom<400 Then
   QRPreviewYueBao.Zoom:=QRPreviewYueBao.Zoom+20;
end;

procedure TFormYueBaoPreview.ButtonSmallClick(Sender: TObject);
begin
If QRPreviewYueBao.Zoom>40 Then
   QRPreviewYueBao.Zoom:=QRPreviewYueBao.Zoom-20;
end;

procedure TFormYueBaoPreview.ButtonSaveClick(Sender: TObject);
begin
if SaveDialogRpt.Execute then
    begin
     if (SaveDialogRpt.FIlterIndex <>1)and(CurRep = nil)then
        Exit
     Else
        QRPreviewYueBao.QRPrinter.Save(SaveDialogRpt.FileName);
    End;
end;

procedure TFormYueBaoPreview.ButtonLoadClick(Sender: TObject);
begin
QRPreviewYueBao.QRPrinter.CleanUp;
if OpenDialogRpt.Execute then
   CurRep.QRPrinter.Load(OpenDialogRpt.FileName);
QRPreviewYueBao.QRPrinter:=CurRep.QRPrinter;
end;

procedure TFormYueBaoPreview.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 End;
end;

end.