modifyfeeform.~pas

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

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.