rppos1f.pas

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

unit RPPOS1F;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Buttons, ComCtrls, ToolWin, JLOOKUP, StdCtrls, JEdit,
  ExtCtrls, SELOOKUP;

type
  TRMPOS1F = class(TForm)
    GroupBox1: TGroupBox;
    LB_CON1: TLabel;
    Label7: TLabel;
    QPOS1F: TQuery;
    LB11: TJEdit;
    LB12: TJEdit;
    Label1: TLabel;
    LB21: JLOOKUPBOX;
    LB41: TJEdit;
    Label2: TLabel;
    Label3: TLabel;
    LB42: TJEdit;
    Label4: TLabel;
    Panel1: TPanel;
    BTNPRN: TSpeedButton;
    BTNPRE: TSpeedButton;
    BTNQUT: TSpeedButton;
    LB31: SELOOKUPBOX;
    QPOS1FPAENO: TStringField;
    QPOS1FPAIDE: TStringField;
    QPOS1FBMENO: TStringField;
    QPOS1FBNENO: TStringField;
    QPOS1FPAIPN: TBooleanField;
    QPOS1FPAIVO: TStringField;
    QPOS1FPACIV: TStringField;
    QPOS1FPADAT: TDateTimeField;
    QPOS1FPATME: TStringField;
    QPOS1FPACNT: TFloatField;
    QPOS1FPACOT: TFloatField;
    QPOS1FPACOG: TFloatField;
    QPOS1FPACNO: TStringField;
    QPOS1FPACDT: TDateTimeField;
    QPOS1FPACNA: TFloatField;
    QPOS1FPACKD: TStringField;
    QPOS1FPGCOS: TFloatField;
    QPOS1FPABCK: TBooleanField;
    QPOS1FPABCN: TBooleanField;
    QPOS1FPACPD: TBooleanField;
    QPOS1FPAWEK: TStringField;
    QPOS1FPAENO_1: TStringField;
    QPOS1FPBENO: TStringField;
    QPOS1FBGQTN: TFloatField;
    QPOS1FBGENO: TStringField;
    QPOS1FBGCNT: TFloatField;
    QPOS1FBGCOS: TFloatField;
    QPOS1FBGCOT: TFloatField;
    QPOS1FBGENO_1: TStringField;
    QPOS1FBGNAM: TStringField;
    QPOS1FBGKIN: TStringField;
    QPOS1FBGPST: TFloatField;
    QPOS1FBGPVP: TFloatField;
    QPOS1FBGPMM: TFloatField;
    QPOS1FBGCST: TFloatField;
    QPOS1FBGOTH: TFloatField;
    QPOS1FBGQTS: TFloatField;
    QPOS1FBGQTN_1: TFloatField;
    QPOS1FBGCOS_1: TFloatField;
    QPOS1FBSENO: TStringField;
    QPOS1FBGCNA: TStringField;
    QPOS1FBGSUM: TStringField;
    QPOS1FBGSIN: TStringField;
    QPOS1FBGRUL: TStringField;
    QPOS1FBGGAU: TStringField;
    QPOS1FBGUNS: TStringField;
    QPOS1FBGUNP: TStringField;
    QPOS1FBGCLR: TStringField;
    QPOS1FBGCLH: TStringField;
    QPOS1FBGCLW: TFloatField;
    QPOS1FBGUNW: TStringField;
    QPOS1FBGUSE: TStringField;
    QPOS1FBGCSS: TFloatField;
    QPOS1FBGQTE: TFloatField;
    QPOS1FBGDTC: TDateTimeField;
    QPOS1FBGDAT: TDateTimeField;
    QPOS1FBGMRK: TMemoField;
    QPOS1FBGBSA: TStringField;
    QPOS1FBGBSB: TStringField;
    QPOS1FBGBSC: TStringField;
    QPOS1FBGBIA: TFloatField;
    QPOS1FBGBIB: TFloatField;
    QPOS1FBGBIC: TFloatField;
    procedure BTNQUTClick(Sender: TObject);
    procedure BTNPREClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RMPOS1F: TRMPOS1F;

implementation

uses sysini, fm_utl, un_utl, RPPOS1P, MAINU;

{$R *.DFM}

procedure TRMPOS1F.FormCreate(Sender: TObject);
begin
IF FormExists('RMPOS1P')=FALSE THEN Application.CreateForm(TRMPOS1P, RMPOS1P );

//按钮图形加载
BTNPRN.Glyph := PRN_TB;
BTNPRE.Glyph := PRE_TB;
BTNQUT.Glyph := QUT_TB;

//预设日期
LB11.Text := REGISTER_LOAD_OBJECT_STR('\MICROPOS\RPPOS1F\LB11',LB11.TEXT);
LB12.Text := REGISTER_LOAD_OBJECT_STR('\MICROPOS\RPPOS1F\LB12',LB12.TEXT);

IF (TRIM(LB11.Text) = '') AND (TRIM(LB12.Text) = '') THEN LB11.Text := EDATE_TO_CDATE(DATETOSTR(DATE));
end;

procedure TRMPOS1F.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//日期存盘
REGISTER_SAVE_OBJECT_STR('\MICROPOS\RPPOS1F\LB11',LB11.Text);
REGISTER_SAVE_OBJECT_STR('\MICROPOS\RPPOS1F\LB12',LB12.Text);

RMPOS1F.Release;
RMPOS1P.Release;
end;

procedure TRMPOS1F.FormShow(Sender: TObject);
begin
LB11.SETFOCUS;
end;

procedure TRMPOS1F.BTNQUTClick(Sender: TObject);
begin
CLOSE;
end;

procedure TRMPOS1F.BTNPREClick(Sender: TObject);
begin
//检查日期
IF CHECK_CDATE(LB11.Text,TRUE) = FALSE THEN LB11.SetFocus;
//IF CHECK_CDATE(LB12.Text,TRUE) = FALSE THEN LB12.SetFocus;
IF CHECK_CDATE(LB11.Text,FALSE) = FALSE THEN EXIT;
//IF CHECK_CDATE(LB12.Text,FALSE) = FALSE THEN EXIT;


  WITH QPOS1F DO
  BEGIN
    CLOSE;
    SQL.CLEAR;
    SQL.ADD('SELECT * FROM POSA, POSB, BGDS');
    SQL.ADD('WHERE POSA.PAENO IS NOT NULL');
    SQL.ADD('  AND POSA.PAENO = POSB.PAENO');
    SQL.ADD('  AND POSB.BGENO = BGDS.BGENO');

    //ACCESS " DATE " WHERE KEY  ======================
    SQL.ADD(FINDFORM_WHEREKEY_DATE('POSA.PADAT',LB11.Text,LB12.Text));

    //字符串查询
    SQL.ADD(FINDFORM_WHEREKEY_STRING('POSB.BGENO',LB21.Text,''));
    SQL.ADD(FINDFORM_WHEREKEY_STRING('BGDS.BGKIN',LB31.Text,''));
    SQL.ADD(FINDFORM_WHEREKEY_INTEGER('POSB.BGCOT',LB41.Text,LB42.Text));

    //查询 排序    //ORDER BYE=======================================
//    SQL.ADD(FINDFORM_ORDERBY3(F_NAME[1],F_NAME[2],F_NAME[3],WHEREKEY1.ItemIndex,WHEREKEY2.ItemIndex,WHEREKEY3.ItemIndex));
    SQL.ADD('ORDER BY POSA.PAENO');

//    SHOWMESSAGE(SQL.TEXT);
    OPEN;
  END;




  // 报表数据
  WITH RMPOS1P DO
  BEGIN
  LBTITLE.Caption     := RMPOS1F.Caption;
  LB_USER_CORP_RBPST.Caption := _USER_CORP_RBPST ;
  LB_USER_CORP_NAME .Caption := _USER_CORP_NAME  ;
  LB_USER_CORP_NO   .Caption := _USER_CORP_NO    ;
  LB_USER_CORP_TEL  .Caption := _USER_CORP_TEL   ;
  LB_USER_CORP_FAX  .Caption := _USER_CORP_FAX   ;
  LB_USER_CORP_ADDR .Caption := _USER_CORP_ADDR  ;

  ED_DAT1.Caption := LB11.TEXT;
  ED_DAT2.Caption := LB12.TEXT;


  IF QPOS1F.EOF = TRUE THEN
    BEGIN
    SHOWMESSAGE('没有此资料');
    LB11.SETFOCUS;
    END ELSE BEGIN
    IF SENDER = BTNPRE THEN RMPOS1P.QuickRep.Preview;
    IF SENDER = BTNPRN THEN RMPOS1P.QuickRep.Print;
    END;

  END;




end;





end.