rpposdp.pas

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

unit RPPOSDP;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  QuickRpt, Qrctrls, ExtCtrls, Db, DBTables;

type
  TRMPOSDP = class(TForm)
    QuickRep: TQuickRep;
    QRB_POSA: TQRBand;
    QRDBText2: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBText10: TQRDBText;
    QRDBText11: TQRDBText;
    BNNAM: TQRLabel;
    ED_PABCK: TQRLabel;
    BMNAM: TQRLabel;
    QRShape2: TQRShape;
    ED_CARD: TQRLabel;
    QRShape6: TQRShape;
    ED_GIFT: TQRLabel;
    ED_PAIPN: TQRLabel;
    QRDBText9: TQRDBText;
    QRB_POS: TQRBand;
    QRShape1: TQRShape;
    QRLabel1: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel28: TQRLabel;
    QRLabel29: TQRLabel;
    QRLabel30: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel31: TQRLabel;
    QRBand2: TQRBand;
    LBTITLE: TQRLabel;
    QRLabel15: TQRLabel;
    ED_DAT1: TQRLabel;
    QRLabel21: TQRLabel;
    ED_DAT2: TQRLabel;
    QRB_POSB: TQRSubDetail;
    QRDBText4: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText1: TQRDBText;
    QRDBText8: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText12: TQRDBText;
    QRDBText13: TQRDBText;
    QRDBText14: TQRDBText;
    QRDBText15: TQRDBText;
    QRDBText16: TQRDBText;
    QRDBText17: TQRDBText;
    QRBand4: TQRBand;
    QRShape27: TQRShape;
    ED_PACOT: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel22: TQRLabel;
    QRLabel23: TQRLabel;
    QRLabel25: TQRLabel;
    QRLabel32: TQRLabel;
    ED_TO_PAIPN: TQRLabel;
    ED_TO_PABCK: TQRLabel;
    ED_TO_CARD: TQRLabel;
    ED_TO_GIFT: TQRLabel;
    ED_TOTAL_PABCK: TQRLabel;
    ED_TOTAL_CARD: TQRLabel;
    ED_TOTAL_GIFT: TQRLabel;
    ED_TOTAL_PAIPN: TQRLabel;
    QRLabel38: TQRLabel;
    QRLabel45: TQRLabel;
    QRLabel46: TQRLabel;
    QRLabel49: TQRLabel;
    QRLabel50: TQRLabel;
    QRLabel51: TQRLabel;
    QRB_POSG: TQRSubDetail;
    QRDBText20: TQRDBText;
    QRDBText22: TQRDBText;
    QRDBText28: TQRDBText;
    QRDBText18: TQRDBText;
    QRDBText19: TQRDBText;
    QRLabel27: TQRLabel;
    QRLabel34: TQRLabel;
    QRLabel35: TQRLabel;
    QRLabel47: TQRLabel;
    QRDBText21: TQRDBText;
    QRLabel11: TQRLabel;
    QRDBText23: TQRDBText;
    QRLabel52: TQRLabel;
    QRDBText24: TQRDBText;
    QRLabel57: TQRLabel;
    QRDBText25: TQRDBText;
    QRB_POSB_HEADER: TQRBand;
    QRLabel2: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRLabel40: TQRLabel;
    QRLabel41: TQRLabel;
    QRLabel42: TQRLabel;
    QRLabel43: TQRLabel;
    QRLabel44: TQRLabel;
    QRLabel19: TQRLabel;
    QPOSB: TQuery;
    QPOSBPAENO: TStringField;
    QPOSBPBENO: TStringField;
    QPOSBBGQTN: TFloatField;
    QPOSBBGENO: TStringField;
    QPOSBBGCNT: TFloatField;
    QPOSBBGCOS: TFloatField;
    QPOSBBGCOT: TFloatField;
    QPOSBBGENO_1: TStringField;
    QPOSBBGNAM: TStringField;
    QPOSBBGKIN: TStringField;
    QPOSBBGPST: TFloatField;
    QPOSBBGPVP: TFloatField;
    QPOSBBGPMM: TFloatField;
    QPOSBBGCST: TFloatField;
    QPOSBBGOTH: TFloatField;
    QPOSBBGQTS: TFloatField;
    QPOSBBGQTN_1: TFloatField;
    QPOSBBGCOS_1: TFloatField;
    QPOSBBSENO: TStringField;
    QPOSBBGCNA: TStringField;
    QPOSBBGSUM: TStringField;
    QPOSBBGSIN: TStringField;
    QPOSBBGRUL: TStringField;
    QPOSBBGGAU: TStringField;
    QPOSBBGUNS: TStringField;
    QPOSBBGUNP: TStringField;
    QPOSBBGCLR: TStringField;
    QPOSBBGCLH: TStringField;
    QPOSBBGCLW: TFloatField;
    QPOSBBGUNW: TStringField;
    QPOSBBGUSE: TStringField;
    QPOSBBGCSS: TFloatField;
    QPOSBBGQTE: TFloatField;
    QPOSBBGDTC: TDateTimeField;
    QPOSBBGDAT: TDateTimeField;
    QPOSBBGMRK: TMemoField;
    QPOSBBGBSA: TStringField;
    QPOSBBGBSB: TStringField;
    QPOSBBGBSC: TStringField;
    QPOSBBGBIA: TFloatField;
    QPOSBBGBIB: TFloatField;
    QPOSBBGBIC: TFloatField;
    QPOSG: TQuery;
    QPOSGPAENO: TStringField;
    QPOSGPGITM: TStringField;
    QPOSGPGENO: TStringField;
    QPOSGPGDAT: TDateTimeField;
    QPOSGPGCOS: TFloatField;
    QPOSGPGKND: TStringField;
    QRLabel24: TQRLabel;
    QRLabel26: TQRLabel;
    QRLabel20: TQRLabel;
    QRLabel33: TQRLabel;
    QRLabel36: TQRLabel;
    QRLabel37: TQRLabel;
    ED_PACOG: TQRLabel;
    ED_PACNT: TQRLabel;
    procedure QRB_POSABeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure QuickRepBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
  private
    { Private declarations }
    TO_PAIPN :INTEGER;
    TO_PABCK :INTEGER;
    TO_CARD  :INTEGER;
    TO_GIFT  :INTEGER;
    TOTAL_PAIPN:INTEGER;
    TOTAL_PABCK:INTEGER;
    TOTAL_CARD :INTEGER;
    TOTAL_GIFT :INTEGER;

    TOTAL_PACOT:INTEGER;
    TOTAL_PACOG:INTEGER;
    TOTAL_PACNT:INTEGER;
  public
    { Public declarations }
  end;

var
  RMPOSDP: TRMPOSDP;

implementation

USES RPPOSDF;

{$R *.DFM}

procedure TRMPOSDP.QuickRepBeforePrint(Sender: TCustomQuickRep;  var PrintReport: Boolean);
begin
    TO_PAIPN := 0;
    TO_PABCK := 0;
    TO_CARD  := 0;
    TO_GIFT  := 0;

    TOTAL_PAIPN := 0;
    TOTAL_PABCK := 0;
    TOTAL_CARD  := 0;
    TOTAL_GIFT  := 0;

    TOTAL_PACOT := 0;
    TOTAL_PACOG := 0;
    TOTAL_PACNT := 0;
end;

procedure TRMPOSDP.QRB_POSABeforePrint(Sender: TQRCustomBand;  var PrintBand: Boolean);
begin

IF RMPOSDF.ED_SHOWPOSB.Checked = TRUE THEN
  BEGIN
  QPOSB.SQL.CLEAR;
  QPOSB.SQL.ADD('SELECT * FROM POSB, BGDS');
  QPOSB.SQL.ADD('WHERE POSB.PAENO IS NOT NULL');
  QPOSB.SQL.ADD('  AND POSB.BGENO = BGDS.BGENO');
  QPOSB.SQL.ADD('  AND POSB.PAENO = '''+RMPOSDF.QPOSA.FieldByName('PAENO').AsString+'''');
  QPOSB.SQL.ADD('ORDER BY POSB.PBENO');
  //SHOWMESSAGE(SQL.TEXT);
  QPOSB.CLOSE;  QPOSB.OPEN;
  END;

IF RMPOSDF.ED_SHOWGIFT.Checked = TRUE THEN
  BEGIN
  QPOSG.SQL.CLEAR;
  QPOSG.SQL.ADD('SELECT * FROM POSG');
  QPOSG.SQL.ADD('WHERE PAENO IS NOT NULL');
  QPOSG.SQL.ADD('  AND PAENO = '''+RMPOSDF.QPOSA.FieldByName('PAENO').AsString+'''');
  QPOSG.SQL.ADD('ORDER BY PGITM');
  //SHOWMESSAGE(SQL.TEXT);
  QPOSG.CLOSE;  QPOSG.OPEN;
  END;


  ED_PAIPN.Caption := '';
  ED_PABCK.Caption := '';
  ED_CARD .Caption := '';
  ED_GIFT .Caption := '';
  IF RMPOSDF.QPOSA.FieldByName('PAIPN').AsBOOLEAN = TRUE THEN
     BEGIN
     ED_PAIPN.Caption := '发';
     INC(TO_PAIPN);
     TOTAL_PAIPN := TOTAL_PAIPN + RMPOSDF.QPOSA.FieldByName('PACOT').AsINTEGER;
     END;
  IF RMPOSDF.QPOSA.FieldByName('PABCK').AsBOOLEAN = TRUE THEN
     BEGIN
     ED_PABCK.Caption := '废';
     INC(TO_PABCK);
     TOTAL_PABCK := TOTAL_PABCK + RMPOSDF.QPOSA.FieldByName('PACOT').AsINTEGER;
     END;
  IF RMPOSDF.QPOSA.FieldByName('PACNA').AsINTEGER > 0    THEN
     BEGIN
     ED_CARD .Caption := '信';
     INC(TO_CARD );
     TOTAL_CARD  := TOTAL_CARD  + RMPOSDF.QPOSA.FieldByName('PACNA').AsINTEGER;
     END;
  IF RMPOSDF.QPOSA.FieldByName('PGCOS').AsINTEGER > 0    THEN
     BEGIN
     ED_GIFT .Caption := '礼';
     INC(TO_GIFT );
     TOTAL_GIFT  := TOTAL_GIFT  + RMPOSDF.QPOSA.FieldByName('PGCOS').AsINTEGER;
     END;


  ED_TO_PAIPN.Caption := INTTOSTR(TO_PAIPN);
  ED_TO_PABCK.Caption := INTTOSTR(TO_PABCK);
  ED_TO_CARD .Caption := INTTOSTR(TO_CARD );
  ED_TO_GIFT .Caption := INTTOSTR(TO_GIFT );
  ED_TOTAL_PAIPN.Caption := INTTOSTR(TOTAL_PAIPN);
  ED_TOTAL_PABCK.Caption := INTTOSTR(TOTAL_PABCK);
  ED_TOTAL_CARD .Caption := INTTOSTR(TOTAL_CARD );
  ED_TOTAL_GIFT .Caption := INTTOSTR(TOTAL_GIFT );


  TOTAL_PACOT := TOTAL_PACOT + RMPOSDF.QPOSA.FieldByName('PACOT').AsINTEGER;
  TOTAL_PACOG := TOTAL_PACOG + RMPOSDF.QPOSA.FieldByName('PACOG').AsINTEGER;
  TOTAL_PACNT := TOTAL_PACNT + RMPOSDF.QPOSA.FieldByName('PACNT').AsINTEGER;
  ED_PACOT .Caption := INTTOSTR(TOTAL_PACOT );
  ED_PACOG .Caption := INTTOSTR(TOTAL_PACOG );
  ED_PACNT .Caption := INTTOSTR(TOTAL_PACNT );




end;


end.