unit11.pas

用delphi实现的一个酒店管理系统框架

unit Unit11;

interface

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

type
  Tymsz = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ymL: TEdit;
    ymT: TEdit;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1Change(Sender: TObject);
    procedure ymLChange(Sender: TObject);
  private
    { Private declarations }
  public
   m2i,i2m:boolean; { Public declarations }
  end;

var
  ymsz: Tymsz;

implementation

uses Unit3, Unit4;

{$R *.dfm}

procedure Tymsz.BitBtn2Click(Sender: TObject);
Var v1,v2:single;
begin
try
v1:=strtofloat(ymL.Text);
v2:=strtofloat(ymT.Text);
except
showmessage('不是有效的数值');
exit;
end;
DM.ymLeft:=v1;
DM.ymTop:=v2;
close;
end;

procedure Tymsz.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure Tymsz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;ymsz:=nil;
end;

procedure Tymsz.Edit1Change(Sender: TObject);
Var v1,v2:single;
begin
if i2m then exit;
try
v1:=strtofloat(Edit1.Text)/25.4;
v2:=strtofloat(Edit2.Text)/25.4;
except
showmessage('不是有效的数值');
exit;
end;
m2i:=true;
ymL.Text:=format('%-6.3f',[v1]);
ymT.Text:=format('%-6.3f',[v2]);
m2i:=false;
end;

procedure Tymsz.ymLChange(Sender: TObject);
Var v1,v2:single;
begin
if m2i then exit;
try
v1:=strtofloat(ymL.Text)*25.4;
v2:=strtofloat(ymT.Text)*25.4;
except
showmessage('不是有效的数值');
exit;
end;
i2m:=true;
Edit1.Text:=format('%-6.1f',[v1]);
Edit2.Text:=format('%-6.1f',[v2]);
i2m:=false;
end;

end.