modifyfeeform.pas

来自「***智能监视系统*** 程序运行时需要视频捕捉设备」· PAS 代码 · 共 53 行

unit ModifyFeeForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls;

type
  TfrmModifyFee = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    RealMoney:double;
  end;

var
  frmModifyFee: TfrmModifyFee;

implementation

{$R *.DFM}

procedure TfrmModifyFee.BitBtn1Click(Sender: TObject);
begin
    try
        RealMoney := StrToFloat(Edit2.Text);
        if RealMoney > StrToFloat(Edit1.Text) then
        begin
            ShowMessage('数据输入错误,实际消费超过误消费！');
            Edit2.SetFocus;
            Exit;
        end;
        ModalResult := mrOk;
    except
        //数据输入错误，数据转换错误
        ShowMessage('数据输入错误，请重新输入！');
        Edit2.SetFocus;
        Exit;
    end;
end;

end.