pfm_yskcl0.pas

POS收银系统

unit pfm_yskcl0;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Mask, DBCtrls, Grids, DBGrids, QuickRpt, ExtCtrls,
  Buttons, ComCtrls, ADODB,ado_dm,pvar_lib;

type
  Tfm_yskcl0 = class(TForm)
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    Label9: TLabel;
    Edit1: TEdit;
    Label11: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    StProc1: TStoredProc;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DTPicker1: TDateTimePicker;
    GroupBox3: TGroupBox;
    DBGrid1: TDBGrid;
    Label12: TLabel;
    Label13: TLabel;
    Edit4: TEdit;
    BBtn_OK: TBitBtn;
    BBtnAdd: TBitBtn;
    ADOQuery1: TADOQuery;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    BBtnshr: TBitBtn;
    ADOQuery2: TADOQuery;
    Edit10: TEdit;
    Label1: TLabel;
    ADOQuery1skcause: TStringField;
    ADOQuery1lsh: TIntegerField;
    ADOQuery1skje: TBCDField;
    ADOQuery1skrq: TDateTimeField;
    ADOQuery1skfs: TStringField;
    ADOQuery1djhm: TStringField;
    ADOQuery1jsrm: TStringField;
    ADOQuery1shrm: TStringField;
    procedure FormShow(Sender: TObject);
    procedure BBtn_OKClick(Sender: TObject);
    procedure BBtnshrClick(Sender: TObject);
    procedure BBtnAddClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    skcause:string;//收款原因－退货，批发
  end;

var
  fm_yskcl0: Tfm_yskcl0;

implementation

uses pfm_selyuangong;

{$R *.DFM}
var
strColName:TStringList;
procedure Tfm_yskcl0.FormShow(Sender: TObject);
var
i:integer;
begin
        strColName:=TstringList.Create;
    strColName.add('skcause=收款原因');
    strColName.add('lsh=流水号');
    strColName.add('skje=已付金额');
    strColName.add('skrq=收款日期');
    strColName.add('skfs=收款方式');
    strColName.add('djhm=单据号码');
    strColName.add('jsrm=经手人');
    strColName.add('shrm=审核人');
    adoquery1.Active:=false;
    adoquery1.sql.clear;
    adoquery1.sql.add('select * from tb_yskcl where lsh='+edit10.text+' and skcause='''+skcause+'''');
    adoquery1.Active:=true;
        for i:=0 to dbgrid1.Columns.count-1 do
        begin
            dbgrid1.columns[i].Title.Caption:=strColname.Values[dbgrid1.Columns[i].FieldName];
        end;
        dtpicker1.datetime:=now();
        edit9.text:=mUsername;
end;

procedure Tfm_yskcl0.BBtn_OKClick(Sender: TObject);
begin
        modalResult:=mrOK;
end;

procedure Tfm_yskcl0.BBtnshrClick(Sender: TObject);
begin
    Application.CreateForm(Tfm_selyuangong, fm_selyuangong);
    fm_selyuangong.showmodal;
    edit6.text:=fm_selyuangong.ygbm;
    fm_selyuangong.free;
end;

procedure Tfm_yskcl0.BBtnAddClick(Sender: TObject);
var
skjenum:single;
skje,djhm,skrq,shrm,jbrm,skfs,lsh:string;
i:integer;
begin
    try
        skjenum:=strtofloat(edit7.text);
    except
        on EConvertError do
        begin
            showmessage('输入的收款金额必须是数字');
            edit7.SetFocus;
            exit;
        end;
    end;
    if strtofloat(edit4.text)<skjenum then
    begin
        showmessage('收款金额不能大于未收金额!');
        edit7.SetFocus;
        exit;
    end;
    if skjenum<=0 then
    begin
        showmessage('收款金额不能等于<=0!');
        edit7.SetFocus;
        exit;
    end;
    lsh:=edit10.text;
    skrq:=datetimetostr(dtpicker1.datetime);
    shrm:=edit6.text;
    djhm:=edit5.text;
    jbrm:=edit9.text;
    skfs:=edit8.text;
    skje:=edit7.text;
    adoquery1.Active:=false;
    adoquery2.SQL.Clear;
    adoquery2.sql.add('insert into tb_yskcl(skcause,lsh,skje,skrq,skfs,djhm,jsrm,shrm) values('''+
    skcause+''','+lsh+','+skje+','''+skrq+''','''+skfs+''','''+djhm+''','''+jbrm+''','''+shrm+''')');
    adoquery2.ExecSQL;
    edit2.text:=floattostr(strtofloat(edit2.text)+skjenum);
    edit4.text:=floattostr(strtofloat(edit3.text)-strtofloat(edit2.text));

    adoquery1.Active:=true;
    for i:=0 to dbgrid1.Columns.count-1 do
    begin
          dbgrid1.columns[i].Title.Caption:=strColname.Values[dbgrid1.Columns[i].FieldName];
    end;
    dtpicker1.datetime:=now();
    edit9.text:=mUsername;
end;

procedure Tfm_yskcl0.FormClose(Sender: TObject; var Action: TCloseAction);
begin
strColName.free;
end;

end.