Login de Usuarios con Zeos

[Ñuño Martínez]

Supongo que no es un programa de red, sino uno de escritorio. En cualquier caso te recomiendo que crees un objeto "Usuario" que te permita gestionar mejor sus estados. La clase podría ser más o menos así (de memoria):

Código Delphi [-]
(* Clase para facilitar la gestión de sesiones de usuario. *)
  TUsuario = CLASS (TObject)
  PRIVATE
  (* Para saber si está identificado. *)
    fIdentificado: BOOLEAN;
  PUBLIC
  (* Busca el usuario y comprueba la clave. *)
    FUNCTION Identificar (Nombre, Clave: STRING): BOOLEAN;
  (* Cierra la sesión, es decir, pone fIdentificado a FALSE. *)
    PROCEDURE CierraSesion;
  (* Para saber si el usuario está identificado. *)
    PROPERTY Identificado: BOOLEAN READ fIdentificado;
  END;

Puedes añadir métodos y propiedades al gusto, por ejemplo para obtener el nombre del usuario, el nivel de seguridad, permisos de acceso, etc.

La implementación de "CierraSesion" es sencilla, pero la de "Identificar" puede ser más complicada. Un problema que veo a tu código es que parece que guardas la clave tal cual, sin ningún tipo de protección. Esto puede ser un problema muy, muy grave, porque si alguien consigue acceso a la base de datos puede comprometer mucha información. Te recomiendo que leas este artículo y que sigas sus enlaces.

Al final, Identificar sería más o menos así (de nuevo de memoria):

Código Delphi [-]
  FUNCTION TUsuario.Identifica (Nombre, Clave: STRING): BOOLEAN;
  VAR
    Registro: ...; { es que no conozco Zeos... }
  BEGIN
    Identifica := FALSE;
  { Como digo, no conozco Zeos, pero aquí debería crear el "Registro", etc.
     Por ejemplo: }
    Registro := AdoConnection.GetTable ('usuarios');
    TRY
      Registro.Parameters.ParamByName('nombre').Value:= Nombre;
      Registro.Active:= True;
      IF Registro.RecordCount = 1 THEN
        Identifica := (ObtieneHash (Nombre, Clave) = Registro.Values ('clave').asString);
    { En otro caso, "Identifica" es FALSE... }
    FINALLY
      Registro.Free;
    END;
  END;

"ObtieneHash" sería la función que devuelve el hash, tal como se explica en los artículos enlazados.