statisticreturnrpfrm.pas

基于Interbase的图书管理系统

unit StatisticReturnRPFrm;

interface

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

type
  TStatisticReturnRPForm = class(TForm)
    QuickRep1: TQuickRep;
    ColumnHeaderBand1: TQRBand;
    QRShape1: TQRShape;
    QRShape2: TQRShape;
    QRShape3: TQRShape;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    DetailBand1: TQRBand;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape4: TQRShape;
    QRLbBookNumber: TQRLabel;
    QRLbBookName: TQRLabel;
    QRLbBorrowDate: TQRLabel;
    PageFooterBand1: TQRBand;
    QRSysData1: TQRSysData;
    QRSysData2: TQRSysData;
    PageHeaderBand1: TQRBand;
    QRLbName: TQRLabel;
    QRLbDate: TQRLabel;
    procedure FormCreate(Sender: TObject);
    procedure QRSysData1Print(sender: TObject; var Value: String);
    procedure QRSysData2Print(sender: TObject; var Value: String);
    procedure DetailBand1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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

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

procedure TStatisticReturnRPForm.FormCreate(Sender: TObject);
begin
   DMbook.QryStatisticBorrow.First;
end;

procedure TStatisticReturnRPForm.QRSysData1Print(sender: TObject;
  var Value: String);
begin
  Value:='第'+Value+'页';//'共'+inttostr(QuickRep1.QRPrinter.PageCount)+'页';
end;

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

procedure TStatisticReturnRPForm.DetailBand1BeforePrint(
  Sender: TQRCustomBand; var PrintBand: Boolean);
begin
  PrintBand:=false;
  QRLbBookNumber.Caption:=dmbook.QryStatisticBorrow.fieldbyname('book_id').asstring;
  QRLbBookName.Caption:=dmbook.QryStatisticBorrow.fieldbyname('book_name').asstring;
  QRLbBorrowDate.Caption:=dmbook.QryStatisticBorrow.fieldbyname('return_date').asstring;
  PrintBand:=true;
end;

end.