pfm_yfkcl.pas

这是一个用DELPHI7开发的大型超市管理系统

unit pfm_yfkcl;

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_yfkcl = 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;
    ADOQuery1fkcause: TStringField;
    ADOQuery1lsh: TIntegerField;
    ADOQuery1fkje: TBCDField;
    ADOQuery1fkrq: TDateTimeField;
    ADOQuery1fkfs: TStringField;
    ADOQuery1djhm: TStringField;
    ADOQuery1jsrm: TStringField;
    ADOQuery1shrm: TStringField;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    BBtnshr: TBitBtn;
    ADOQuery2: TADOQuery;
    Edit10: TEdit;
    Label1: TLabel;
    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 }
  end;

var
  fm_yfkcl: Tfm_yfkcl;

implementation

uses pfm_selyuangong;

{$R *.DFM}
var
strColName:TStringList;
procedure Tfm_yfkcl.FormShow(Sender: TObject);
var
i:integer;
begin
        strColName:=TstringList.Create;
    strColName.add('fkcause=付款原因');
    strColName.add('lsh=流水号');
    strColName.add('fkje=已付金额');
    strColName.add('fkrq=付款日期');
    strColName.add('fkfs=付款方式');
    strColName.add('djhm=单据号码');
    strColName.add('jsrm=经手人');
    strColName.add('shrm=审核人');
    adoquery1.Active:=false;

    adoquery1.Parameters[0].Value:=edit10.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_yfkcl.BBtn_OKClick(Sender: TObject);
begin
        modalResult:=mrOK;
end;

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

procedure Tfm_yfkcl.BBtnAddClick(Sender: TObject);
var
fkjenum:single;
fkje,djhm,fkrq,shrm,jbrm,fkfs,lsh:string;
i:integer;
begin
    try
        fkjenum:=strtofloat(edit7.text);
    except
        on EConvertError do
        begin
            showmessage('输入的付款金额必须是数字');
            edit7.SetFocus;
            exit;
        end;
    end;
    if strtofloat(edit4.text)<fkjenum then
    begin
        showmessage('付款金额不能大于尚欠金额!');
        edit7.SetFocus;
        exit;
    end;
    lsh:=edit10.text;
    fkrq:=datetimetostr(dtpicker1.datetime);
    shrm:=edit6.text;
    djhm:=edit5.text;
    jbrm:=edit9.text;
    fkfs:=edit8.text;
    fkje:=edit7.text;
    adoquery1.Active:=false;
    adoquery2.SQL.Clear;
    adoquery2.sql.add('insert into tb_yfkcl(fkcause,lsh,fkje,fkrq,fkfs,djhm,jsrm,shrm) values('''+
    '进货'+''','+lsh+','+fkje+','''+fkrq+''','''+fkfs+''','''+djhm+''','''+jbrm+''','''+shrm+''')');
    adoquery2.ExecSQL;
    edit2.text:=floattostr(strtofloat(edit2.text)+fkjenum);
    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_yfkcl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
strColName.free;
end;

end.