pfm_jhd.pas

POS收银系统

unit pfm_jhd;

interface

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

type
  Tfm_jhd = class(Tfm_wizard2)
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label16: TLabel;
    Label11: TLabel;
    Label21: TLabel;
    Label20: TLabel;
    Label22: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label15: TLabel;
    Label17: TLabel;
    Label14: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Query1lsh: TIntegerField;
    Query1spbm: TStringField;
    Query1sptxm: TStringField;
    Query1jhnum: TIntegerField;
    Query1jhdj: TFloatField;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    Label6: TLabel;
    DBEdit3: TDBEdit;
    Label8: TLabel;
    DBEdit7: TDBEdit;
    Label9: TLabel;
    DBEdit8: TDBEdit;
    BBtn_yskcl: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure DBEdit3Change(Sender: TObject);
    procedure DBEdit2Change(Sender: TObject);
    procedure BitBtn_addClick(Sender: TObject);
    procedure BBtn_yskclClick(Sender: TObject);
    procedure BitBtn_firstClick(Sender: TObject);
    procedure BitBtn_prevClick(Sender: TObject);
    procedure BitBtn_nextClick(Sender: TObject);
    procedure BitBtn_lastClick(Sender: TObject);
    procedure BitBtn_saveClick(Sender: TObject);
    procedure Query1AfterInsert(DataSet: TDataSet);
  private
    { Private declarations }
    function MyCheckData():boolean;
  public
    { Public declarations }
  end;

var
  fm_jhd: Tfm_jhd;

implementation

uses pfm_yfkcl;


{$R *.DFM}

procedure Tfm_jhd.FormCreate(Sender: TObject);

begin




  sDbTable:='tb_jhdmx';
  strFCnName:=TStringlist.create;
  strFcnname.Add('lsh=流水号');
  strFcnname.add('spbm=商品编码');
  strFcnName.Add('sptxm=商品条形码');
  strFcnName.Add('jhnum=进货数量');
  strFcnName.Add('jhdj=进货单价');

    try
          fm_jhdsel:=Tfm_jhdsel.create(self);
          if fm_jhdsel.showmodal<>IdOK then
          begin
              close;
              exit;
          end;




    except
         fm_jhdsel.free;
           close;
           exit;

    end;
   { edit3.text:=datetimetostr(fm_jhdsel.jhdDateTime);
    edit1.text:=inttostr(fm_jhdsel.jhdLsh);
    edit2.text:=fm_jhdsel.jhdCkmc;
    edit4.text:=fm_jhdsel.jhdGysmc;
    edit5.text:=fm_jhdsel.jhdDjhm;
    edit7.text:=fm_jhdsel.jhdHth;
    edit6.text:=fm_jhdsel.jhdFph;
    edit8.text:=fm_jhdsel.jhdJbrm;
    edit9.text:=fm_jhdsel.jhdShrm;
    edit10.text:=fm_jhdsel.jhdCzym;
   // query1.ParamByName('intlsh').asinteger:=strtoint(edit1.text);
  inherited;}
    fm_jhdsel.free;
    query1.filtered:=true;
    query1.filter:='lsh=' + edit1.text;
    query1.insert;
    query1.FieldByName('lsh').asinteger:=strtoint(edit1.text);
end;

procedure Tfm_jhd.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_jhd.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_jhd.BitBtn_addClick(Sender: TObject);
begin
    if MyCheckData()=false then
  begin
        exit;
  end;
  inherited;
  query1.FieldByName('lsh').asinteger:=strtoint(edit1.text);
end;

procedure Tfm_jhd.BBtn_yskclClick(Sender: TObject);
begin
  inherited;
  if application.MessageBox('是否进货明细单录入完成，#13填写应付款单','注意',MB_YESNO)=ID_NO then
  begin
      exit;
  end;

  fm_yfkcl:=tfm_yfkcl.create(application);
  fm_yfkcl.Edit1.Text:=edit1.text;
  fm_yfkcl.edit2.text:=edit2.text;
  fm_yfkcl.showmodal;
end;
function Tfm_jhd.MyCheckData():boolean;
begin
        if length(trim(dbedit3.text))<>13 then
        begin
                showmessage('商品条形码必须为13位');
                myCheckData:=false;
                exit;
        end;
        if strtoint(dbedit8.text)<0 then
        begin
                showmessage('进货单价必须>=0');
                myCheckData:=false;
                exit;
        end;
        if strtoint(dbedit7.text)<=0 then
        begin
                showmessage('进货数量必须>0');
                myCheckData:=false;
                exit;
        end;
        myCheckData:=true;
end;
procedure Tfm_jhd.BitBtn_firstClick(Sender: TObject);
begin
  if MyCheckData()=false then
  begin
        exit;
  end;
  inherited;

end;

procedure Tfm_jhd.BitBtn_prevClick(Sender: TObject);
begin
    if MyCheckData()=false then
  begin
        exit;
  end;
  inherited;

end;

procedure Tfm_jhd.BitBtn_nextClick(Sender: TObject);
begin
    if MyCheckData()=false then
  begin
        exit;
  end;
  inherited;

end;

procedure Tfm_jhd.BitBtn_lastClick(Sender: TObject);
begin
    if MyCheckData()=false then
  begin
        exit;
  end;
  inherited;

end;

procedure Tfm_jhd.BitBtn_saveClick(Sender: TObject);
begin
    if MyCheckData()=false then
  begin
        exit;
  end;
  inherited;

end;

procedure Tfm_jhd.Query1AfterInsert(DataSet: TDataSet);
begin
  query1.FieldByName('lsh').asinteger:=strtoint(edit1.text);
  inherited;

end;

end.