clsuser.pas

用delphi写的界面代码和功能代码分离程序

unit clsUser;

interface
uses SysUtils,Dialogs;

type
  TUser = class
  private
    FID: Integer;
    FUserName: string;
    FSex: string;
    FAge: Integer;
    procedure SetID(const Value: Integer);
    procedure SetUserName(const Value: string);
    procedure SetSex(const Value: string);
    procedure SetAge(const Value: Integer);
  public
    property ID: Integer read FID write SetID;
    property UserName: string read FUserName write SetUserName;
    property Sex: string read FSex write SetSex;
    property Age: Integer read FAge write SetAge;
    function ValidData:Boolean;
  end;


implementation

function TUser.ValidData:Boolean;
begin
  Result := True;
  if Length(FSex)>2 then
  begin
    ShowMessage('姓别的长度不能超过2个字符');
    Result := False;
  end;
end;

procedure TUser.SetID(const Value: Integer);
begin
  FID := Value;
end;

procedure TUser.SetUserName(const Value: string);
begin
  FUserName := Value;
end;

procedure TUser.SetSex(const Value: string);
begin
  FSex := Value;
end;

procedure TUser.SetAge(const Value: Integer);
begin
  FAge := Value;
end;


end.