pfm_thd.pas

POS收银系统

unit pfm_thd;

interface

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

type
  Tfm_thd = class(Tfm_wizard2)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    DBEdit6: TDBEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit9: TDBEdit;
    Label9: TLabel;
    DBEdit10: TDBEdit;
    Label10: TLabel;
    DBEdit11: TDBEdit;
    Label11: TLabel;
    DBEdit14: TDBEdit;
    Label14: TLabel;
    DBEdit15: TDBEdit;
    Label15: TLabel;
    DBEdit16: TDBEdit;
    Label16: TLabel;
    DBMemo1: TDBMemo;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    Query2: TQuery;
    procedure DBEdit3Change(Sender: TObject);
    procedure DBEdit2Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_thd: Tfm_thd;

implementation

{$R *.DFM}

procedure Tfm_thd.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_thd.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_thd.FormCreate(Sender: TObject);
const SqlStr1='select %s from %s';
begin
  sDbTable:='tb_thd';
  strFCnName:=TStringList.Create;
  strFcnname.Add('lsh=流水号');
  inherited;
  //加入下拉仓库信息
  query2.close;
  query2.sql.clear;
  query2.SQL.Add(Format(SqlStr1,['ckmc','t_ckxx']));
  query2.open;
  while  not query2.Eof do
  begin
        dbcombobox1.items.Add(query2.fieldbyname('ckmc').asstring);
        query2.Next;
  end;
  query2.close;
  query2.sql.clear;
  query2.SQL.Add(Format(SqlStr1,['fdmc','t_fendianxx']));
  query2.open;
  while  not query2.Eof do
  begin
        dbcombobox2.items.Add(query2.fieldbyname('fdmc').asstring);
        query2.Next;
  end;

end;

end.