este es un codigo de ejemplo:
if lastkey()=13 and !empty(m.clave)
m.claveus=usuarios.claveus
if alltrim(m.clave)=alltrim(m.claveus)
thisform.aceptar.enabled=.T.
m.usuario=usuarios.codigous
m.nivel=usuarios.nivelus
thisform.refresh
else
suma=suma+1
if suma=3
wait window ' Acceso Denegado , pulse una tecla '
release thisform
clear events
quit
endif
endif
else
if lastkey()=5 or lastkey()=24 or lastkey()=15
thisform.usuario.enabled=.T.
endif
endif
_________
Algo mas o menos asi ...
Como ves se usa un contador (suma) que al llegar a un numero en este caso 3 , te cierra la aplicacion .... evidentemente las claves estas dentro de una tabla (y ademas encriptadas , aunque en este codigo no se vea) ...y el textbox de la clave tiene el passwordchar * , para que no se vea lo que escribes ...
Espero te sirva...