rppos2p.pas

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

unit RPPOS2P;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  quickrpt, ExtCtrls, Qrctrls, Thubar39;

type
  TRMPOS2P = class(TForm)
    QuickRep: TQuickRep;
    QRBand1: TQRBand;
    QRShape1: TQRShape;
    QRLabel1: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel30: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel31: TQRLabel;
    QRLabel53: TQRLabel;
    QRLabel26: TQRLabel;
    QRBand3: TQRBand;
    QRLabel27: TQRLabel;
    LB_PABCK: TQRLabel;
    LB_PAIPN: TQRLabel;
    QRBand2: TQRBand;
    QRLabel3: TQRLabel;
    ED_DAT1: TQRLabel;
    QRLabel22: TQRLabel;
    ED_DAT2: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel24: TQRLabel;
    QRLabel28: TQRLabel;
    QRLabel29: TQRLabel;
    QRLabel34: TQRLabel;
    LB_USER_CORP_TEL: TQRLabel;
    LB_USER_CORP_RBPST: TQRLabel;
    LB_USER_CORP_NO: TQRLabel;
    LB_USER_CORP_FAX: TQRLabel;
    LB_USER_CORP_ADDR: TQRLabel;
    LB_USER_CORP_NAME: TQRLabel;
    LBTITLE: TQRLabel;
    QRB_POSA: TQRBand;
    QRDBText2: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBText11: TQRDBText;
    BNNAM: TQRLabel;
    ED_PABCK: TQRLabel;
    ED_PAIPN: TQRLabel;
    QRDBText18: TQRDBText;
    QRDBText19: TQRDBText;
    QRDBText9: TQRDBText;
    QRDBText5: TQRDBText;
    PADAT: TQRLabel;
    QRShape2: TQRShape;
    ED_REC_CNT: TQRLabel;
    QRLabel2: TQRLabel;
    QRDBText1: TQRDBText;
    LB_PACOT: TQRLabel;
    LB_PACNA: TQRLabel;
    LB_PGCOS: TQRLabel;
    LB_PABCKT: TQRLabel;
    LB_PAIPNT: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    procedure QRB_POSABeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure QRB_POSBBeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure QuickRepBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
  private
    { Private declarations }
    T_PACOT, T_PACNA, T_PGCOS, T_PABCK, T_PAIPN, T_PABCKT, T_PAIPNT : INTEGER;

  public
    { Public declarations }
  end;

var
  RMPOS2P: TRMPOS2P;

implementation

USES RPPOS2F, DB_UTL, UN_UTL;

{$R *.DFM}












































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

WITH RMPOS2F.QPOSA DO
 BEGIN
 ED_PAIPN.Caption := '';
 ED_PABCK.Caption := '';
 IF FieldByName('PAIPN').AsBOOLEAN = TRUE THEN ED_PAIPN.Caption := '秨';
 IF FieldByName('PABCK').AsBOOLEAN = TRUE THEN ED_PABCK.Caption := '紀';

 PADAT.Caption := EDATE_TO_CDATE( FieldByName('PADAT').AsString );
 BNNAM.Caption := DB_QUERY_FIND_VALUE('BMAN','BNENO',FieldByName('BNENO').AsString,'BNNAM');

 //羆璸 ===============================================
 IF FieldByName('PAIPN').AsBOOLEAN = TRUE THEN INC(T_PAIPN );
 IF FieldByName('PABCK').AsBOOLEAN = TRUE THEN INC(T_PABCK );
 IF FieldByName('PAIPN').AsBOOLEAN = TRUE THEN T_PAIPNT := FieldByName('PACOT').AsINTEGER + T_PAIPNT;
 IF FieldByName('PABCK').AsBOOLEAN = TRUE THEN T_PABCKT := FieldByName('PACOT').AsINTEGER + T_PABCKT;
 IF FieldByName('PACOT').AsFLOAT   >=0    THEN T_PACOT  := FieldByName('PACOT').AsINTEGER + T_PACOT ;
 IF FieldByName('PACNA').AsFLOAT   >=0    THEN T_PACNA  := FieldByName('PACNA').AsINTEGER + T_PACNA ;
 IF FieldByName('PGCOS').AsFLOAT   >=0    THEN T_PGCOS  := FieldByName('PGCOS').AsINTEGER + T_PGCOS ;
 LB_PAIPN.Caption  := INTTOSTR(T_PAIPN );
 LB_PABCK.Caption  := INTTOSTR(T_PABCK );
 LB_PAIPNT.Caption := INTTOSTR(T_PAIPNT);
 LB_PABCKT.Caption := INTTOSTR(T_PABCKT);
 LB_PACOT.Caption  := INTTOSTR(T_PACOT );
 LB_PACNA.Caption  := INTTOSTR(T_PACNA );
 LB_PGCOS.Caption  := INTTOSTR(T_PGCOS );


 //羆璸 ===============================================

// POSA_PACNA := POSA_PACNA + STRTOINTDEF(FieldByName('PACNA').AsSTRING,0);
// TO_POSA_PACNA.Caption  := INTTOSTR(POSA_PACNA);

// TO_BGCOT      .Caption := INTTOSTR(POSA_BGCOT);
// TO_PACNA      .Caption := INTTOSTR(POSA_PACNA);
// TO_BGCOTPACNA .Caption := INTTOSTR(POSA_BGCOTX);

{ IF (FieldByName('PABCK').AsBOOLEAN = FALSE) AND
    (FieldByName('PACNO').AsSTRING  =  '' ) AND
    (FieldByName('PABCN').AsBOOLEAN = FALSE) THEN
    POSA_BGCOTX := POSA_BGCOTX + FieldByName('BGCOT').AsINTEGER;
 TO_POSA_BGCOTX.Caption := INTTOSTR(POSA_BGCOTX);
}
{
 IF (FieldByName('PABCK').AsBOOLEAN = TRUE) THEN
    BEGIN
    POSB_BK_BGCOT := POSB_BK_BGCOT + FieldByName('BGCOT').AsINTEGER;
    POSB_BK_PACNA := POSB_BK_PACNA + STRTOINTDEF(FieldByName('PACNA').AsSTRING,0);
    END;
 IF (FieldByName('PABCN').AsBOOLEAN = TRUE) THEN
    BEGIN
    POSB_BN_BGCOT := POSB_BN_BGCOT + FieldByName('BGCOT').AsINTEGER;
    POSB_BN_PACNA := POSB_BN_PACNA + STRTOINTDEF(FieldByName('PACNA').AsSTRING,0);
    END;
 IF (FieldByName('PACNO').AsSTRING <>''   ) AND
    (FieldByName('PACKD').AsSTRING <>'GFT') THEN
    BEGIN
    POSB_CN_BGCOT := POSB_CN_BGCOT + FieldByName('BGCOT').AsINTEGER;
    POSB_CN_PACNA := POSB_CN_PACNA + STRTOINTDEF(FieldByName('PACNA').AsSTRING,0);
    END;
 IF (FieldByName('PACNO').AsSTRING <> ''   ) AND
    (FieldByName('PACKD').AsSTRING = 'GFT') THEN
    BEGIN
    POSB_GF_BGCOT := POSB_GF_BGCOT + FieldByName('BGCOT').AsINTEGER;
    POSB_GF_PACNA := POSB_GF_PACNA + STRTOINTDEF(FieldByName('PACNA').AsSTRING,0);
    END;
 IF (FieldByName('PAIPN').AsBOOLEAN = TRUE) THEN
    BEGIN
    POSB_IP_BGCOT := POSB_IP_BGCOT + FieldByName('BGCOT').AsINTEGER;
    POSB_IP_PACNA := POSB_IP_PACNA + STRTOINTDEF(FieldByName('PACNA').AsSTRING,0);
    END;
}
// BK_PACNA.Caption := INTTOSTR(POSB_BK_PACNA);
// BK_BGCOT.Caption := INTTOSTR(POSB_BK_BGCOT);

// BN_PACNA.Caption := INTTOSTR(POSB_BN_PACNA);
// BN_BGCOT.Caption := INTTOSTR(POSB_BN_BGCOT);

// CN_PACNA.Caption := INTTOSTR(POSB_CN_PACNA);
// CN_BGCOT.Caption := INTTOSTR(POSB_CN_BGCOT);

// GF_PACNA.Caption := INTTOSTR(POSB_GF_PACNA);
// GF_BGCOT.Caption := INTTOSTR(POSB_GF_BGCOT);

// IP_PACNA.Caption := INTTOSTR(POSB_IP_PACNA);
// IP_BGCOT.Caption := INTTOSTR(POSB_IP_BGCOT);

// CA_SUM1 .Caption := TO_POSA_BGCOTX.Caption;
// CA_SUM2 .Caption := INTTOSTR(
// STRTOINTDEF(CN_PACNA.Caption,0)+
// STRTOINTDEF(GF_PACNA.Caption,0) );

// CA_SUM3 .Caption := INTTOSTR(
// STRTOINTDEF(CA_SUM1 .Caption,0)-
// STRTOINTDEF(CA_SUM2 .Caption,0) );

 END;




end;

procedure TRMPOS2P.QRB_POSBBeforePrint(Sender: TQRCustomBand;  var PrintBand: Boolean);
begin
//BGNAM.CAPTION := DB_QUERY_FIND_VALUE('BGDS','BGENO',RMPOSDF.QPOSB.FieldByName('BGENO').AsString,'BGNAM');
//BGKIN.CAPTION := DB_QUERY_FIND_VALUE('BGDS','BGENO',RMPOSDF.QPOSB.FieldByName('BGENO').AsString,'BGKIN');

 //羆璸 ===============================================
WITH RMPOS2F.QPOSB DO
 BEGIN
// POSB_BGCNT := POSB_BGCNT + FieldByName('BGCNT').AsINTEGER;
// POSB_BGCOS := POSB_BGCOS + FieldByName('BGCOS').AsINTEGER;
// POSB_BGCOT := POSB_BGCOT + FieldByName('BGCOT').AsINTEGER;
// ED_BGCNT.Caption := INTTOSTR(POSB_BGCNT);
// ED_BGCOS.Caption := INTTOSTR(POSB_BGCOS);
// ED_BGCOT.Caption := INTTOSTR(POSB_BGCOT);

 END;

end;

procedure TRMPOS2P.QuickRepBeforePrint(Sender: TCustomQuickRep;  var PrintReport: Boolean);
begin
T_PACOT  := 0;
T_PACNA  := 0;
T_PGCOS  := 0;
T_PABCK  := 0;
T_PAIPN  := 0;
T_PABCKT := 0;
T_PAIPNT := 0;











end;

end.