pfm_tuihuodmx.pas

POS收银系统

unit pfm_tuihuodmx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB, Mask, DBCtrls, Grids, DBGrids, ExtCtrls, StdCtrls;

type
  Tfm_tuihuodmx = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label5: TLabel;
    Label16: TLabel;
    Label11: TLabel;
    Label21: TLabel;
    Label20: TLabel;
    Label22: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    DBNavigator1: TDBNavigator;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery1lsh: TIntegerField;
    ADOQuery1spbm: TStringField;
    ADOQuery1sptxm: TStringField;
    ADOQuery1thdj: TBCDField;
    ADOQuery1thnum: TIntegerField;
    ADOQuery1djhm: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure ADOQuery1AfterInsert(DataSet: TDataSet);
    procedure ADOQuery1BeforePost(DataSet: TDataSet);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_tuihuodmx: Tfm_tuihuodmx;

implementation

uses pfm_tuihuodsel;

{$R *.DFM}
var
strFcnName:TStringList;
sDbTable:string;
procedure Tfm_tuihuodmx.FormCreate(Sender: TObject);
var
i:integer;
begin
  sDbTable:='tb_tuihuodmx';
  strFCnName:=TStringlist.create;
  strFcnname.Add('lsh=流水号');
  strFcnname.add('spbm=商品编码');
  strFcnName.Add('sptxm=商品条形码');
  strFcnName.Add('thdj=退货单价');
  strFcnName.Add('thnum=数量');
  strFcnName.Add('djhm=单据号码');
    try
          fm_tuihuodsel:=Tfm_tuihuodsel.create(self);
          if fm_tuihuodsel.showmodal<>IdOK then
          begin
              fm_tuihuodsel.free;
              close;
              exit;
          end;




    except
         fm_tuihuodsel.free;
           close;
           exit;

    end;
    edit2.text:=datetimetostr(fm_tuihuodsel.DateTime1);
    edit1.text:=inttostr(fm_tuihuodsel.Lsh);
    edit4.text:=fm_tuihuodsel.jsdw;
    edit3.text:=fm_tuihuodsel.Khmc;
    edit5.text:=fm_tuihuodsel.czym;
    edit6.text:=fm_tuihuodsel.Jbrm;
    edit7.text:=fm_tuihuodsel.Shrm;

    for i:=0 to dbgrid1.columns.count-1 do
    begin
        dbgrid1.columns[i].Title.caption:=strFcnname.values[dbgrid1.columns[i].Title.caption];
    end;



    fm_tuihuodsel.free;
    adoquery1.parameters.parambyname('lsh').value:=strtoint(edit1.text);
    adoquery1.open;
    adoquery1.append;
//    adoquery1.FieldByName('lsh').asinteger:=strtoint(edit1.text);


end;

procedure Tfm_tuihuodmx.ADOQuery1AfterInsert(DataSet: TDataSet);
begin
    ADOQuery1.FieldByName('lsh').asinteger:=strtoint(edit1.text);
end;

procedure Tfm_tuihuodmx.ADOQuery1BeforePost(DataSet: TDataSet);
begin
      if length(trim(ADOquery1.Fieldbyname('sptxm').asstring))<>13 then
        begin
                showmessage('商品条形码必须为13位');
                abort;
        end;
        if ADOquery1.Fieldbyname('thdj').asfloat<=0 then
        begin
                showmessage('商品退货单价必须>0');
                abort;
        end;
        if ADOquery1.Fieldbyname('thnum').asinteger<=0 then
        begin
                showmessage('退货数量必须>0');
                abort;
        end;
end;

procedure Tfm_tuihuodmx.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   action:=caFree;
end;

end.