Ayuda En Login Y Pass Para Ingresar En un programa creado en Delphi

[servicomp]

Entiendo un poco tu preocupación pues en algún momento lo tuve.

Hace ya varios años escribi este codigo espero te sirva.

Macana

DContar : DataModulo donde esta la conexión de la tabla
TUsuario : Tabla donde se encuentra los datos de CODIGO y CLAVE
Edit1, Edit2 : son los Edit donde Recoges la información.


espero te sirva y si algun problema estamos para servirte


\\********************************************************

procedure TFClave.BitBtn1Click(Sender: TObject);
begin
With DContar.TUsuario do
Begin
Active:=True;
Open;
IndexName:='';
SetKey;
FieldByName('CODIGO').AsString:=FClave.Edit1.Text;
if Gotokey then
Begin
if (FieldByName('CLAVE').AsSTring = FClave.Edit2.Text) then
Begin
{close; }
FClave.Hide; {ocultamos la forma de clave}
FMenu.Show;
end
else Begin
Application.MessageBox('Clave Incorrecta','Mensaje de Advertencia',0);
FClave.Edit1.Text:='';
FClave.Edit2.Text:='';
FClave.Edit1.SetFocus;
End; {if que verifica la clave}
end
else begin
Application.MessageBox('Nombre de Usuario Incorrecto','Mensaje de Advertencia',0);
FClave.Edit1.Text:='';
FClave.Edit2.Text:='';
FClave.Edit1.SetFocus;
End; {if de busqueda del usuario}
close;
End; {Fin del with de Dcontar.TUsuario}
end;

procedure TFClave.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;