LOCAL opc
IF thisform.texto1.value= "daniel" OR thisform.texto1.value= "DANIEL"
MESSAGEBOX("usuario correcto",64,"control acceso")
ELSE
nveces=nveces+1
IF nveces=3
MESSAGEBOX("USTED NO ES USUARIO",16,"control acceso")
thisform.release
ELSE
opc=MESSAGEBOX("usuario incorrecto",5+16,"control acceso")
IF opc=4
thisform.texto1.value=""
thisform.texto1.setfocus
ENDIF
ENDIF
ENDIF