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;
with TADOQuery.Create(Self) do
begin
Connection := Modulo.Connection; 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
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