findbigsmallrpfrm.~pas

基于Interbase的图书管理系统

unit FindBigSmallRpFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QuickRpt, ExtCtrls, QRCtrls;

type
  TFindBigSmallRPForm = class(TForm)
    QuickRep1: TQuickRep;
    PageFooterBand1: TQRBand;
    PageHeaderBand1: TQRBand;
    ColumnHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    QRLbName: TQRLabel;
    QRSysData1: TQRSysData;
    QRSysData2: TQRSysData;
    QRShape1: TQRShape;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLbSmalltypeNo: TQRLabel;
    QRLbSmallTypeName: TQRLabel;
    QRLbBigTypeNo: TQRLabel;
    QRLbDate: TQRLabel;
    QRLabel4: TQRLabel;
    procedure QRSysData1Print(sender: TObject; var Value: String);
    procedure QRSysData2Print(sender: TObject; var Value: String);
    procedure FormCreate(Sender: TObject);
    procedure DetailBand1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


  procedure ShowFindBigSmallRPForm(AisPrint:Boolean;Acaption,AStatisticDate:string);
implementation

{$R *.dfm}
uses dmFrm;
procedure ShowFindBigSmallRPForm(AisPrint:Boolean;Acaption,AStatisticDate:string);
var
  FindBigSmallRPForm: TFindBigSmallRPForm;
begin
    FindBigSmallRPForm:=TFindBigSmallRPForm.Create(application);
  try
     FindBigSmallRPForm.QRLbName.Caption:=Acaption;
     FindBigSmallRPForm.QRLbDate.Caption:=AStatisticDate;
     case AisPrint of
       false : FindBigSmallRPForm.QuickRep1.Preview;
       true  : FindBigSmallRPForm.QuickRep1.Print;
     end;
  finally
     FindBigSmallRPForm.Free;
     FindBigSmallRPForm:=nil;
  end;
end;

procedure TFindBigSmallRPForm.QRSysData1Print(sender: TObject;
  var Value: String);
begin
  Value:='第'+Value+'页';
end;

procedure TFindBigSmallRPForm.QRSysData2Print(sender: TObject;
  var Value: String);
begin
   Value:='赐昌图书室于'+Value+'打印';
end;

procedure TFindBigSmallRPForm.FormCreate(Sender: TObject);
begin
   dmbook.QryStatisticBook.First;
end;

procedure TFindBigSmallRPForm.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  PrintBand:=false;
  QRLbSmalltypeno.Caption:=dmbook.QryStatisticBook.fieldbyname('book_type').asstring;
  QRLbsmalltypeName.Caption:=dmbook.QryStatisticBook.fieldbyname('book_smallname').asstring;
  QRLbBigtypeno.Caption:=dmbook.QryStatisticBook.fieldbyname('book_bigtype').asstring;
  PrintBand:=true;
end;

end.