findtypebookfrm.pas

基于Interbase的图书管理系统

unit FindTypeBookFrm;

interface

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

type
  TFindTypeBookRPForm = class(TForm)
    QuickRep1: TQuickRep;
    PageFooterBand1: TQRBand;
    QRSysData1: TQRSysData;
    QRSysData2: TQRSysData;
    PageHeaderBand1: TQRBand;
    QRLbName: TQRLabel;
    QRLbDate: TQRLabel;
    QRLabel4: TQRLabel;
    ColumnHeaderBand1: TQRBand;
    QRShape1: TQRShape;
    QRShape2: TQRShape;
    DetailBand1: TQRBand;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRShape7: TQRShape;
    QRShape8: TQRShape;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLb1: TQRLabel;
    QRLb2: TQRLabel;
    QRLb3: TQRLabel;
    QRLb4: TQRLabel;
    QRLb5: TQRLabel;
    QRLb6: TQRLabel;
    QRLb7: TQRLabel;
    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 ShowFindTypeBookRPForm(AisPrint:Boolean;Acaption,AStatisticDate:string);

implementation

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

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

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

procedure TFindTypeBookRPForm.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  PrintBand:=false;
  QRLb1.Caption:=dmbook.QryStatisticBook.fieldbyname('book_id').asstring;
  QRLb2.Caption:=dmbook.QryStatisticBook.fieldbyname('book_name').asstring;
  QRLb3.Caption:=dmbook.QryStatisticBook.fieldbyname('book_publish').asstring;
  QRLb4.Caption:=dmbook.QryStatisticBook.fieldbyname('book_pubdate').asstring;
  QRLb5.Caption:=dmbook.QryStatisticBook.fieldbyname('book_number').asstring;
  QRLb6.Caption:=dmbook.QryStatisticBook.fieldbyname('book_price').asstring;
  QRLb7.Caption:=dmbook.QryStatisticBook.fieldbyname('book_date').asstring;
  PrintBand:=true;
end;

end.