Hola
Paso a paso:
Código Delphi
[-]
procedure TFLogin.BtnOkClick(Sender: TObject); begin
ADLogin.Parameters.ParamByName('nom').Value:= EUsuario.Text;
ADLogin.Active:= True;
EUsuario.Text:= ADLogin.Fields[1].AsString;
If ADLogin.RecordCount < 1 then
Begin
MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
EUsuario.Text := '';
EClave.Text := '';
ADLogin.Active := False;
end
else
If ADLoginClave.AsString = EClave.Text then
Begin
ADLogin.Active := False;
FClientes:=TFClientes.Create(self);
try
FLogin.Visible:= False;
FClientes.ShowModal;
finally
FClientes.Free;
end;
Close;
end
else
Begin
end;
Ni la cara oculta de delphi
Saludos