maintainform.pas

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

unit MaintainForm;

interface

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

type
  TfrmMaintain = class(TForm)
    Panel1: TPanel;
    bbnOk: TBitBtn;
    bbnCancel: TBitBtn;
    edtBalance: TEdit;
    edtMaintain: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure bbnOkClick(Sender: TObject);
    procedure bbnCancelClick(Sender: TObject);
  private
    { Private declarations }

    FBalance,FMaintain: Double;
    function CheckValid(): integer;
  public
    { Public declarations }
    procedure FillFrm(ABalance,AMaintain: Double);
    function GetMaintain(): Double;
  end;

var
  frmMaintain: TfrmMaintain;

implementation

{$R *.DFM}

procedure TfrmMaintain.bbnOkClick(Sender: TObject);
begin
    if CheckValid() < 0 then
    begin
        ShowMessage('数据错误，请重新输入！');
        Exit;
    end;
    //Close;
end;

procedure TfrmMaintain.bbnCancelClick(Sender: TObject);
begin
    //Close;
end;



procedure TfrmMaintain.FillFrm(ABalance, AMaintain: Double);
begin
    FBalance := ABalance;
    FMaintain := AMaintain;
    edtBalance.Text := FloatToStr(FBalance);
    edtMaintain.Text := FloatToStr(FMaintain);
end;

function TfrmMaintain.GetMaintain: Double;
begin
    Result := FMaintain;
end;

function TfrmMaintain.CheckValid: integer;
begin
    Result := -1;
    try
        if FBalance >= StrToFloat(edtMaintain.Text) then
        begin
            FMaintain := StrToFloat(edtMaintain.Text);
            Result := 1;
        end;
    except
        Result := -1;
    end;
end;

end.