booktypeqpfrm.pas

基于Interbase的图书管理系统

unit booktypeqpfrm;

interface

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

type
  TbooktypeqpForm = class(TForm)
    QRbooktype: TQuickRep;
    QRBand8: TQRBand;
    QRShape23: TQRShape;
    QRShape24: TQRShape;
    QRShape25: TQRShape;
    QRLabel29: TQRLabel;
    QRLabel30: TQRLabel;
    QRLabel31: TQRLabel;
    QRLabel32: TQRLabel;
    QRLabel38: TQRLabel;
    QRLabel39: TQRLabel;
    QRShape27: TQRShape;
    QRBand5: TQRBand;
    QRShape28: TQRShape;
    QRDBText10: TQRDBText;
    QRDBText11: TQRDBText;
    QRLabel26: TQRLabel;
    QRDBText15: TQRDBText;
    QRShape32: TQRShape;
    TitleBand1: TQRBand;
    QRLabel36: TQRLabel;
    QRBand7: TQRBand;
    QRLabel27: TQRLabel;
    QRSysData5: TQRSysData;
    QRSysData6: TQRSysData;
    QRSysData1: TQRSysData;
    QRShape1: TQRShape;
    ChildBand1: TQRChildBand;
    QRShape3: TQRShape;
    QRShape4: TQRShape;
    QRDBText1: TQRDBText;
    QRShape5: TQRShape;
    QRDBText2: TQRDBText;
    QRShape6: TQRShape;
    QRShape2: TQRShape;
    procedure QRBand5BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure QRSysData1Print(sender: TObject; var Value: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  booktypeqpForm: TbooktypeqpForm;

implementation
uses dmfrm;
{$R *.dfm}
var
 typestring:string;
procedure TbooktypeqpForm.QRBand5BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
 if typestring<>dmbook.Qrytypemaster['book_bigtype'] then
 begin
 typestring:=dmbook.Qrytypemaster['book_bigtype'];
 PrintBand:=true;
 end
 else PrintBand:=false;
end;

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

end.