Crear Login (usuario y contraseña)

[[AgustinOrtu]]

Tenes que tener una tabla creada minimo con esto

Código SQL [-]
Tabla: Usuarios
Id           INT NOT NULL PK
Username        varchar(15)
Password         varchar(15)

Luego te creas un form con dos TEdit por ejemplo, edUser y edPasswd

Y haces algo como esto:

Código Delphi [-]
procedure TFLogin.BtnLogearClick(Sender: TObject);
var 
  User, Pass: string;
begin
   User := edUser.Text;
   Pass := edPasswd.Text;
    
   // en este ejemplo use ADO pero podria ser cualquier componente de acceso a datos
   with TADOQuery.Create(Self) do
   begin
     Connection := Modulo.Connection; // yo por costumbre siempre tengo un DataModule y alli el componente de conexion a BD
     SQL.Text := ' SELECT * FROM Usuarios WHERE Username = :Username AND Password = :Passwd ';
     with Parameters do
     begin
        ParamByName('Username ') := User;
        ParamByName('Passwd ') := Pass ;
     end;
     Open;
     if RecordCount = 1 then
     begin
       // el usuario inicio sesion correctamente, aca deberias ocultar el form de login y despleglar el principal
       Hide;
       if (FPrincipal = NIL) then
          Application.CreateForm(TFPrincipal, FPrincipal);
       FPrincipal.ShowModal;
      end else
         ShowMessage('Usuario y/o contraseña incorrectos');
   end;
end;

Esto es algo MUY basico pero deberia orientarte. No hay nada de contraseñas encriptadas, el acceso a datos esta muy hecho "a pelo", y otra cosa importante es que tu aplicacion "no sabe" quien es el usuario logeado.

Lo que yo hago en mis aplicaciones es crearme una clase TUsuario en la que mapeo los mismos campos de la tabla. Entonces si inicia sesion correctamente, le paso al form principal el objeto TUsuario con sus datos

Saludos