rpposdp_today.pas

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

unit RPPOSDP_TODAY;

interface

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

type
  TRMPOSDP_TODAY = class(TForm)
    QuickRep: TQuickRep;
    QRB_POSA: TQRBand;
    QRDBText2: TQRDBText;
    ED_PAIDE: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel10: TQRLabel;
    BMCNT2: TQRLabel;
    BMCNT1: TQRLabel;
    CNT_CARD: TQRLabel;
    CNT_GIFT: TQRLabel;
    CNT_INV_Y: TQRLabel;
    CNT_INV_N: TQRLabel;
    CNT_INV_B: TQRLabel;
    CNT_TOTAL: TQRLabel;
    CNT_BMEM_Y: TQRLabel;
    CNT_BMEM_N: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText3: TQRDBText;
    BNNAM: TQRLabel;
    QRBand2: TQRBand;
    QRBand1: TQRBand;
    QRLabel16: TQRLabel;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel19: TQRLabel;
    ED_DAT1: TQRLabel;
    QRLabel22: TQRLabel;
    ED_DAT2: TQRLabel;
    QRShape27: TQRShape;
    QRLabel24: TQRLabel;
    QRLabel1: TQRLabel;
    ED_BNENO: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel31: TQRLabel;
    ED_PACOT: TQRLabel;
    ED_PACOG: TQRLabel;
    QRLabel21: TQRLabel;
    QRLabel23: TQRLabel;
    ED_PACNA: TQRLabel;
    QRLabel25: TQRLabel;
    QRLabel26: TQRLabel;
    ED_PGCOS: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel20: TQRLabel;
    QRLabel27: TQRLabel;
    QRLabel28: TQRLabel;
    QRLabel29: TQRLabel;
    QRLabel32: TQRLabel;
    QRLabel33: TQRLabel;
    QRLabel34: TQRLabel;
    COT_CARD: TQRLabel;
    COT_GIFT: TQRLabel;
    COT_INV_Y: TQRLabel;
    COT_INV_N: TQRLabel;
    COT_INV_B: TQRLabel;
    COT_TOTAL: TQRLabel;
    COT_BMEM_Y: TQRLabel;
    COT_BMEM_N: TQRLabel;
    QRLabel43: TQRLabel;
    QRLabel44: TQRLabel;
    QRLabel45: TQRLabel;
    QRLabel46: TQRLabel;
    QRLabel47: TQRLabel;
    QRLabel48: TQRLabel;
    QRLabel49: TQRLabel;
    QRLabel50: TQRLabel;
    QRShape1: TQRShape;
    procedure QRB_POSABeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RMPOSDP_TODAY: TRMPOSDP_TODAY;

implementation

USES UN_UTL, DB_UTL, RPPOSDF, MAIND;

{$R *.DFM}

procedure TRMPOSDP_TODAY.QRB_POSABeforePrint(Sender: TQRCustomBand;  var PrintBand: Boolean);
VAR T_PACOT, T_PACOG, T_PACNA, T_PGCOS  : INTEGER;
    T_CNT_TOTAL, T_COT_TOTAL : INTEGER;
    T_CNT_BMEM_Y, T_COT_BMEM_Y, T_CNT_BMEM_N, T_COT_BMEM_N : INTEGER;
    T_CNT_INV_Y, T_CNT_INV_N, T_CNT_INV_B, T_COT_INV_Y, T_COT_INV_N, T_COT_INV_B : INTEGER;
    T_CNT_CARD, T_COT_CARD, T_CNT_GIFT, T_COT_GIFT : INTEGER;
begin
ED_PAIDE.Caption := UNSETREAD('POSAPAIDE' ,RMPOSDF.QPOSD.FieldByName('PAIDE').AsString);
ED_BNENO.CAPTION := DB_QUERY_FIND_VALUE('BMAN','BNENO',RMPOSDF.QPOSD.FieldByName('BNENO').AsString,'BNNAM');



WITH RMPOSDF DO
 BEGIN
 QPOSA.CLOSE;
 QPOSA.SQL.CLEAR;
 QPOSA.SQL.ADD('SELECT * FROM POSA');
 QPOSA.SQL.ADD('WHERE PAENO IS NOT NULL');
 QPOSA.SQL.ADD('  AND BNENO = '''+QPOSD.FieldByName('BNENO').AsString+'''');
 QPOSA.SQL.ADD('  AND PAIDE = '''+QPOSD.FieldByName('PAIDE').AsString+'''');
 QPOSA.SQL.ADD('  AND PADAT = '+_DT+QPOSD.FieldByName('PADAT').AsString+_DT+'');
 QPOSA.SQL.ADD(ADD_LB_WHEREKEY);
 QPOSA.SQL.ADD('ORDER BY PADAT,PATME');
 QPOSA.OPEN;


 T_PACOT := 0;
 T_PACOG := 0;
 T_PACNA := 0;
 T_PGCOS := 0;

 T_CNT_TOTAL  := 0;
 T_COT_TOTAL  := 0;
 T_CNT_BMEM_Y := 0;
 T_COT_BMEM_Y := 0;
 T_CNT_BMEM_N := 0;
 T_COT_BMEM_N := 0;

 T_CNT_INV_Y  := 0;
 T_COT_INV_Y  := 0;
 T_CNT_INV_N  := 0;
 T_COT_INV_N  := 0;
 T_CNT_INV_B  := 0;
 T_COT_INV_B  := 0;

 T_CNT_CARD   := 0;
 T_COT_CARD   := 0;
 T_CNT_GIFT   := 0;
 T_COT_GIFT   := 0;


 QPOSA.FIRST;
 WHILE NOT QPOSA.Eof DO
   BEGIN
   T_PACOT := T_PACOT + QPOSA.FieldByName('PACOT').AsINTEGER;
   T_PACOG := T_PACOG + QPOSA.FieldByName('PACOG').AsINTEGER;
   T_PACNA := T_PACNA + QPOSA.FieldByName('PACNA').AsINTEGER;
   T_PGCOS := T_PGCOS + QPOSA.FieldByName('PGCOS').AsINTEGER;


   INC(T_CNT_TOTAL);
   T_COT_TOTAL := T_COT_TOTAL + QPOSA.FieldByName('PACOT').AsINTEGER;
   
   //检查会员
   IF TRIM(QPOSA.FieldByName('BMENO').AsSTRING) <> '' THEN
      BEGIN
      INC(T_CNT_BMEM_Y);
      T_COT_BMEM_Y := T_COT_BMEM_Y + QPOSA.FieldByName('PACOT').AsINTEGER;
      END ELSE BEGIN
      INC(T_CNT_BMEM_N);
      T_COT_BMEM_N := T_COT_BMEM_N + QPOSA.FieldByName('PACOT').AsINTEGER;
      END;


   //检查发票   
   IF QPOSA.FieldByName('PABCK').AsBOOLEAN = TRUE  THEN
      BEGIN
      INC(T_CNT_INV_B);
      T_COT_INV_B := T_COT_INV_B + QPOSA.FieldByName('PACOT').AsINTEGER;
      END;
   IF QPOSA.FieldByName('PAIPN').AsBOOLEAN = TRUE  THEN
      BEGIN
      INC(T_CNT_INV_Y);
      T_COT_INV_B := T_COT_INV_Y + QPOSA.FieldByName('PACOT').AsINTEGER;
      END ELSE BEGIN
      INC(T_CNT_INV_N);
      T_COT_INV_B := T_COT_INV_N + QPOSA.FieldByName('PACOT').AsINTEGER;
      END;


   IF QPOSA.FieldByName('PACNA').AsINTEGER > 0 THEN
      BEGIN
      INC(T_CNT_CARD);
      T_COT_CARD := T_COT_CARD + QPOSA.FieldByName('PACNA').AsINTEGER;
      END;

   IF QPOSA.FieldByName('PGCOS').AsINTEGER > 0 THEN
      BEGIN
      INC(T_CNT_GIFT);
      T_COT_GIFT := T_COT_GIFT + QPOSA.FieldByName('PGCOS').AsINTEGER;
      END;




    QPOSA.Next;
    END;





  ED_PACOT.Caption := INTTOSTR(T_PACOT);
  ED_PACOG.Caption := INTTOSTR(T_PACOG);
  ED_PACNA.Caption := INTTOSTR(T_PACNA);
  ED_PGCOS.Caption := INTTOSTR(T_PGCOS);

  CNT_TOTAL  .Caption := INTTOSTR(T_CNT_TOTAL );
  COT_TOTAL  .Caption := INTTOSTR(T_COT_TOTAL );
  CNT_BMEM_Y .Caption := INTTOSTR(T_CNT_BMEM_Y);
  COT_BMEM_Y .Caption := INTTOSTR(T_COT_BMEM_Y);
  CNT_BMEM_N .Caption := INTTOSTR(T_CNT_BMEM_N);
  COT_BMEM_N .Caption := INTTOSTR(T_COT_BMEM_N);

  CNT_INV_Y  .Caption := INTTOSTR(T_CNT_INV_Y );
  COT_INV_Y  .Caption := INTTOSTR(T_COT_INV_Y );
  CNT_INV_N  .Caption := INTTOSTR(T_CNT_INV_N );
  COT_INV_N  .Caption := INTTOSTR(T_COT_INV_N );
  CNT_INV_B  .Caption := INTTOSTR(T_CNT_INV_B );
  COT_INV_B  .Caption := INTTOSTR(T_COT_INV_B );

  CNT_CARD   .Caption := INTTOSTR(T_CNT_CARD  );
  COT_CARD   .Caption := INTTOSTR(T_COT_CARD  );
  CNT_GIFT   .Caption := INTTOSTR(T_CNT_GIFT  );
  COT_GIFT   .Caption := INTTOSTR(T_COT_GIFT  );













 
END;


end;

end.