uaddroomtypefrm.pas

很不错的客房管理软件.第9次改版正式开通.每日更新.

unit UAddRoomTypeFrm;

interface

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

type
  TAddRoomTypeFrm = class(TForm)
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    procedure BitBtn1Click(Sender: TObject);
  private
    FDWMCh: string;
    { Private declarations }
  public
    { Public declarations }
  end;

  function EditRoomType(var AName, ADesc: string; var APrice: Double): Integer;

var
  AddRoomTypeFrm: TAddRoomTypeFrm;

implementation

uses ItsLibrary;

{$R *.dfm}

function EditRoomType(var AName, ADesc: string; var APrice: Double): Integer;
begin
  Result:=mrCancel;
  with TAddRoomTypeFrm.Create(nil) do begin
    try
      Edit1.Text:=AName;
      Edit2.Text:=FloatToStr(APrice);
      Edit3.Text:=ADesc;
      Caption:=Format(Frm4Str, [FDWMCh]);
      if ShowModal=mrOK then begin
        AName:=Edit1.Text;
        APrice:=StrToFloat(Edit2.Text);
        ADesc:=Edit3.Text;
        Result:=mrOK;
      end;
    finally
      Free;
    end;
  end;
end;

procedure TAddRoomTypeFrm.BitBtn1Click(Sender: TObject);
var
  S, S1: string;
  D: Double;
begin
  ModalResult:=mrNone;
  S:=Trim(Edit1.Text);
  if S='' then begin
    MsgBoxI('类别名称不能为空');
    Edit1.SetFocus;
    Exit;
  end;
  S1:=Edit2.Text;
  if not TextToFloat(PChar(S1), D, fvExtended) then
  begin
    MsgBoxI('录入错误：价格不正确');
    Edit2.SetFocus;
    Exit;
  end;
  ModalResult:=mrOK;
end;

end.