pfm_tjd.pas

POS收银系统

unit pfm_tjd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  pfm_wizard2, Db, DBTables, Grids, DBGrids, StdCtrls, Mask, DBCtrls,
  Buttons, ComCtrls;

type
  Tfm_tjd = class(Tfm_wizard2)
    Query1lsh: TIntegerField;
    Query1spbm: TStringField;
    Query1sptxm: TStringField;
    Query1tjqdj: TFloatField;
    Query1tjhdj: TFloatField;
    Query1tjrq: TDateTimeField;
    Query1shbz: TStringField;
    Query1shrm: TStringField;
    Query1czym: TStringField;
    Query1remark: TStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    DBEdit6: TDBEdit;
    Label6: TLabel;
    DBEdit7: TDBEdit;
    Label7: TLabel;
    DBEdit8: TDBEdit;
    Label8: TLabel;
    DBEdit9: TDBEdit;
    Label9: TLabel;
    DBEdit10: TDBEdit;
    Label10: TLabel;
    DBEdit11: TDBEdit;
    Label11: TLabel;
    DBMemo1: TDBMemo;
    procedure DBEdit3Change(Sender: TObject);
    procedure DBEdit2Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_tjd: Tfm_tjd;

implementation

{$R *.DFM}

procedure Tfm_tjd.DBEdit3Change(Sender: TObject);
begin
  inherited;
     if length(DBEdit3.text)=13 then
  begin

        query3.active:=false;
       // query3.SQL.clear;
       // query3.SQL.Add('select * from t_spxx where (sptxm=:sptxm    and len(:sptxm)=13)or (spbm=:spbm and len(:sptxm)<13)

        query3.ParamByName('sptxm').asstring:=dbedit3.text;
        query3.ParamByName('spbm').asstring:=dbedit2.text;
        query3.active:=true;
  end;
end;

procedure Tfm_tjd.DBEdit2Change(Sender: TObject);
begin
  inherited;
   if length(DBEdit2.text)=6 then
  begin

        query3.active:=false;
       // query3.SQL.clear;
       // query3.SQL.Add('select * from t_spxx where (sptxm=:sptxm    and len(:sptxm)=13)or (spbm=:spbm and len(:sptxm)<13)

        query3.ParamByName('sptxm').asstring:=dbedit3.text;
        query3.ParamByName('spbm').asstring:=dbedit2.text;
        query3.active:=true;
  end;
end;

procedure Tfm_tjd.FormCreate(Sender: TObject);
begin
  sDbTable:='tb_tjd';
  strFCnName:=TStringList.Create;
  strFcnname.Add('lsh=流水号');
  inherited;
end;
end.