reptslostu.pas

来自「小型库存管理,希望有帮助,小型库存管理,希望有帮助」· PAS 代码 · 共 72 行

unit RepTsLostU;

interface

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

type
  TRepTsLost = class(TfrmRepForm)
    QRGroup_head: TQRGroup;
    QRSubDetail1: TQRSubDetail;
    QRLabel1: TQRLabel;
    GroupFooter_Band: TQRBand;
    QRLabel3: TQRLabel;
    QRDBText4: TQRDBText;
    QRLabel5: TQRLabel;
    QRDBText6: TQRDBText;
    QRLabel6: TQRLabel;
    QRDBText7: TQRDBText;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    QRDBText10: TQRDBText;
    QRDBText11: TQRDBText;
    QRShape1: TQRShape;
    cdsRepfBillId: TSmallintField;
    cdsRepfBillNo: TWideStringField;
    cdsRepfAccDate: TDateTimeField;
    cdsRepfCreUser: TWideStringField;
    cdsRepfMemo: TWideStringField;
    cdsRepfState: TSmallintField;
    cdsRepfFFU: TWideStringField;
    cdsRepfProductId: TSmallintField;
    cdsRepfqty: TFloatField;
    cdsRepfProductNo: TWideStringField;
    cdsRepfProductName: TWideStringField;
    cdsRepfSpec: TWideStringField;
    cdsRepfSaleUnit: TWideStringField;
    cdsRepfBuyPrice: TFloatField;
    cdsRepfusername: TWideStringField;
    procedure QRGroup_headBeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RepTsLost: TRepTsLost;

implementation

{$R *.dfm}

procedure TRepTsLost.QRGroup_headBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  inherited;
  Sender.height :=0;
end;

end.