pfm_yskcl.pas

POS收银系统

unit pfm_yskcl;

interface

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

type
  Tfm_yfkcl = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    Query1id: TIntegerField;
    Query1fkcause: TStringField;
    Query1lsh: TIntegerField;
    Query1fkje: TFloatField;
    Query1fkfs: TStringField;
    Query1djhm: TStringField;
    Query1jsrm: TStringField;
    Query1shrm: TStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Query2: TQuery;
    DataSource2: TDataSource;
    Query2lsh: TIntegerField;
    Query2ckmc: TStringField;
    Query2SPMC: TStringField;
    Query2sptxm: TStringField;
    Query2spbm: TStringField;
    Query2jhnum: TIntegerField;
    Query2jhdj: TFloatField;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label9: TLabel;
    Query2total: TFloatField;
    Label10: TLabel;
    Edit1: TEdit;
    Label11: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    BBtn_OK: TBitBtn;
    BBtn_Cancel: TBitBtn;
    StProc1: TStoredProc;
    Query1fkrq: TDateTimeField;
    procedure Query2CalcFields(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure BBtn_OKClick(Sender: TObject);
    procedure BBtn_CancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_yfkcl: Tfm_yfkcl;

implementation

{$R *.DFM}

procedure Tfm_yfkcl.Query2CalcFields(DataSet: TDataSet);
begin
        query2.FieldByName('total').asfloat:=query2.fieldbyname('jhnum').asinteger * query2.fieldbyname('jhdj').asfloat;
end;

procedure Tfm_yfkcl.FormShow(Sender: TObject);
begin
        try
                query1.Prepare;
                query1.Params[0].asinteger:=strtoint(edit1.text);
                query1.Open;
                query1.Insert;
                dbedit2.text:=edit1.text;
                dbedit1.text:='进货付款';
                query2.Prepare;
                query2.Params[0].asinteger:=strtoint(edit1.text);
                query2.open;
                stProc1.Prepare;
                stproc1.ParamByName('@lsh').asinteger:=strtoint(edit1.text);
                stproc1.ExecProc;
                edit3.text:=floattostr(stproc1.parambyname('@yfje').asfloat);
        except
                query1.UnPrepare;
                query2.UnPrepare;
                close;
        end;
end;

procedure Tfm_yfkcl.BBtn_OKClick(Sender: TObject);
begin
        if strtofloat(dbedit3.text)>strtofloat(edit3.text) then
        begin
                showmessage('付款金额不能大于总计金额！');
                exit;
        end;
        query1.post;
        modalResult:=mrOK;
end;

procedure Tfm_yfkcl.BBtn_CancelClick(Sender: TObject);
begin
       query1.cancel;
       modalResult:=mrCancel;
end;

end.