statisticborrowrpfrm.~pas

基于Interbase的图书管理系统

unit StatisticBorrowRpFrm;

interface

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

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

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

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

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

procedure TStatisticBorrowRPForm.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('borrow_date').asstring;
  QRLbBorrowDay.Caption:=dmbook.QryStatisticBorrow.fieldbyname('borrow_day').asstring;
  PrintBand:=true;
end;

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

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

end.