Acceso Limitado

[Lorenzo07]

Hola a todos, cómo le hago para limitar mi ventana de acceso a una cantidad de veces determinadas por ejemplo si el usuario que accesara a la forma principal o menú ha ingresado su nombre de usuario y su clave de acceso 4 veces me despliegue un mensaje informadole que ha tenido 4 intentos fallidos y cierre la ventana?

Las gracias anticipadas...

[[eduarcol]]

Una variable que se puede llamar nIntentos y si cuando verificas el usuario nIntentos = 4 entonces cierras

[Lorenzo07]

Crees que podrias ponerme algún ejemplo de guía, no soy muy experto en delphi, me estoy iniciando...

[[eduarcol]]

Declaracion de variables

Código Delphi [-]
private
    { Private declarations }
    nIntentos: Integer;

Evento click del boton

Código Delphi [-]
begin
   if TablaUsuario.AsString = edusuario.Text then
      Abrir La Aplicacion
   else
   begin
      ShowMessage('Usuario no valido');
       Inc(nIntentos)
   end;
   if nIntentos = 4 then
   begin
      ShowMessage('Ha excedido el limite');
      Close;
   end;
end;

No lo he podido probar pero eso deberia funcionar

[jhonny]

Para colocar una variable global a la unidad, en este caso podríamos usar la sección de declaraciones privadas, asi:

Código Delphi [-]
  private
    nIntentos :Integer;

Y en el procedimiento (Evento de botón o como quieras llamarle), colocarías la otra parte... para efectos del ejemplo, me imagino que debe haber algo en tu aplicación que verifique, si es o no la contraseña correcta, a esa parte la llamare "ClaveCorrecta":

Código Delphi [-]
 
procedure TForm1.clave;
begin
  if not ClaveCorrecta then
  begin
    Inc(nIntentos);
  end;
  if (nIntentos = 4) then
  begin
    ShowMessage('Ha sobrepasado la cantidad de intentos permitidos');
    Application.Terminate; //El terminate no es muy recomendado, pero si te sirve un Close usalo...
  end;
end;

Y Listo , espero haberme explicado con claridad y que te sirva de algo.

[jhonny]

Y de nuevo yo, con mis lentitudes de la semana

[Lorenzo07]

Gracias a ambos por la ayuda... aún no he probado ya que estoy en el trabajo y no tengo delphi aquí, pero en cuanto llegue a casa os probaré...Gracias

[[eduarcol]]

Perdon a todos los que han leido este hilo pero me equivoque en el codigo enviado y ya lo he editado