insertmoney.pas

DELPHI应用一则

unit insertmoney;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, dxEdLib, dxCntner, dxEditor, dxExEdtr,
  ExtCtrls;

type
  Tfrminsertmoney = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    edcom: TEdit;
    Edsx: TEdit;
    dxCurrencyEdit1: TdxCurrencyEdit;
    dxCurrencyEdit2: TdxCurrencyEdit;
    dxRQ: TdxEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure dxCurrencyEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxCurrencyEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frminsertmoney: Tfrminsertmoney;

implementation
uses UDM;
{$R *.dfm}

procedure Tfrminsertmoney.BitBtn1Click(Sender: TObject);
begin
{ if DM.ADOda.RecordCount>0 THEN
 begin
   try
    dm.ADOMONEY.Append;
    dm.ADOMONEYzhid.Value:=dm.hzhid;
    dm.ADOMONEYNoName.Value:=dm.ADOda.fieldbyname('NoName').AsString;
    DM.ADOMONEYcompuname.Value:=dm.ADOda.fieldbyname('compuname').AsString;
    dm.ADOMONEYpresonnumber.Value:=dxCurrencyEdit1.Value;
    dm.ADOMONEYjine.Value:=50*dxCurrencyEdit2.Value*dxCurrencyEdit1.Value;
    dm.ADOMONEYRQ.Value:=dm.ADOda.fieldbyname('rq').AsString;
    dm.ADOMONEY.Post;
    close;
    except
    DM.ADOMONEY.CancelUpdates;
   end;
 end
 else
 MessageBox(Handle,'公司档案未空，请定以后在输入','系统提示',MB_ICONINFORMATION);
 Exit;
       }

end;

procedure Tfrminsertmoney.dxCurrencyEdit1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
 if Key=$0D THEN
 dxCurrencyEdit2.SetFocus;
end;

procedure Tfrminsertmoney.dxCurrencyEdit2KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
 if Key=13 then
 BitBtn1Click(Sender);
end;

end.