ufrmuser.pas

界面代码和功能代码分离示例 界面代码和功能代码分离示例

unit ufrmUser;

interface

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

type
  TfrmUser = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edtUserName: TEdit;
    edtSex: TEdit;
    edtAge: TEdit;
    Label4: TLabel;
    lblID: TLabel;
    btnOK: TBitBtn;
    btnCancel: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


function GetUser(AUser: TUser): TUser;

implementation

{$R *.dfm}
var
  PUser: TUser;

function GetUser(AUser: TUser): TUser;
var
  frmUser: TfrmUser;
begin
  try
    Result := nil;
    frmUser := TfrmUser.Create(nil);
    with frmUser do
    begin
      if AUser <> nil then
      begin
        lblID.Caption := IntToStr(AUser.ID);
        edtUserName.Text := AUser.UserName;
        edtSex.Text := AUser.Sex;
        edtAge.Text := IntToStr(AUser.Age);
      end;

      if ShowModal = mrOK then
      begin
        if AUser <> nil then
          PUser.ID := AUser.ID;
        Result := PUser;
      end;
    end;
  finally
    frmUser.Free;
  end;
end;


procedure TfrmUser.FormCreate(Sender: TObject);
begin
  PUser := TUser.Create;
end;

procedure TfrmUser.btnOKClick(Sender: TObject);
begin
  PUser.UserName := edtUserName.Text;
  PUser.Sex := edtSex.Text;
  PUser.Age := StrToInt(edtAge.Text);
  if PUser.ValidData then
    Self.ModalResult := mrOK;
end;

end.