unbgdsp.pas

DELPHI编写的商场收银POS机源代码

unit UNBGDSP;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  quickrpt, ExtCtrls, Qrctrls, JLOOKUPD, StdCtrls, Mask, DBCtrls, JEdit;

type
  TFMBGDSP = class(TForm)
    QuickRep: TQuickRep;
    QRBand4: TQRBand;
    QRShape12: TQRShape;
    QRBand5: TQRBand;
    LB_RECORDCOUNT: TQRLabel;
    LBTITLE: TQRLabel;
    LBBGENO: TQRLabel;
    LBBGID1: TQRLabel;
    LBBSENO: TQRLabel;
    LBBGKIN: TQRLabel;
    LBBGNAM: TQRLabel;
    LBBGCOS: TQRLabel;
    LBBGPST: TQRLabel;
    LBBGPMM: TQRLabel;
    LBBGPVP: TQRLabel;
    QRShape3: TQRShape;
    LBBGMRK: TQRLabel;
    LBBGCNA: TQRLabel;
    LBBGSNA: TQRLabel;
    LBBGSCN: TQRLabel;
    QRBand1: TQRBand;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    QRDBText10: TQRDBText;
    QRDBText14: TQRDBText;
    QRDBText15: TQRDBText;
    QRDBText16: TQRDBText;
    QRDBText17: TQRDBText;
    ChildBand1: TQRChildBand;
    QRShape2: TQRShape;
    QRShape4: TQRShape;
    QRShape7: TQRShape;
    LBBGCSI: TQRLabel;
    LBBGQTE: TQRLabel;
    LBBGCLH: TQRLabel;
    LBBGCLW: TQRLabel;
    LBBGDTP: TQRLabel;
    LBBGDAT: TQRLabel;
    BGCSI: TQRDBText;
    BGQTE: TQRDBText;
    BGCLH: TQRDBText;
    BGCLW: TQRDBText;
    BGDTP: TQRDBText;
    BGDAT: TQRDBText;
    LBBGRUL: TQRLabel;
    LBBGGAU: TQRLabel;
    LBBGUNS: TQRLabel;
    LBBGUNP: TQRLabel;
    LBBGCLR: TQRLabel;
    LBBGUNW: TQRLabel;
    LBBGUSE: TQRLabel;
    BGRUL: TQRDBText;
    BGGAU: TQRDBText;
    BGUNS: TQRDBText;
    BGUNP: TQRDBText;
    BGUNW: TQRDBText;
    BGUSE: TQRDBText;
    BGCLR: TQRDBText;
    QRShape21: TQRShape;
    QRShape23: TQRShape;
    QRShape24: TQRShape;
    QRShape27: TQRShape;
    QRShape5: TQRShape;
    QRShape11: TQRShape;
    QRShape18: TQRShape;
    QRShape26: TQRShape;
    QRShape1: TQRShape;
    QRShape6: TQRShape;
    QRShape22: TQRShape;
    QRShape25: TQRShape;
    QRShape28: TQRShape;
    QRShape29: TQRShape;
    QRShape30: TQRShape;
    QRShape8: TQRShape;
    QRShape9: TQRShape;
    QRShape10: TQRShape;
    QRShape14: TQRShape;
    QRShape15: TQRShape;
    QRShape16: TQRShape;
    QRShape17: TQRShape;
    QRShape19: TQRShape;
    QRShape20: TQRShape;
    QRShape31: TQRShape;
    QRShape32: TQRShape;
    QRShape33: TQRShape;
    QRShape34: TQRShape;
    BSNAM: TQRLabel;
    procedure QRBand1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure QuickRepStartPage(Sender: TCustomQuickRep);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMBGDSP: TFMBGDSP;

implementation

USES DB_UTL, UNBGDSD;

{$R *.DFM}












































procedure TFMBGDSP.QuickRepStartPage(Sender: TCustomQuickRep);
begin
{IF FMBGDSF.PD_BGDSB.Checked = TRUE THEN
   BEGIN
   ChildBand1.Enabled := TRUE;
   END ELSE BEGIN
   ChildBand1.Enabled := FALSE;
   END;
   }
end;

procedure TFMBGDSP.QRBand1BeforePrint(Sender: TQRCustomBand;  var PrintBand: Boolean);
begin
BSNAM.CAPTION := DB_QUERY_FIND_VALUE('BSUP','BSENO',FMBGDSD.QBGDS.FieldByName('BSENO').AsString,'BSNAM');
end;


end.