negociousuario.pas

来自「exemplo de classes em delphi」· PAS 代码 · 共 45 行

unit negocioUsuario;

interface
uses unitUsuario;

type
  NegocioUser = class
  private
    estado:boolean;
  public
    constructor create;
    function setEstado():boolean;
    function verificaDados(usuario:Usuario):string;

  protected
  published
end;

implementation

{ NegocioUsuario1 }

constructor NegocioUser.create;
begin

end;

function NegocioUser.setEstado: boolean;
begin

end;

function NegocioUser.verificaDados(usuario: Usuario): string;
begin
   if(usuario.getFsenha = '123')then
   begin
    result:='senha ok';
   end else
   begin
    result:='senha inv醠ida';
   end;
end;

end.