FoxPro/Visual FoxPro - programar contraseña

Amigos del Web.

Ahora tengo un problema con la programación del control de la contraseña para ingresar al sistema, segun la política de seguridad, debe tener 10 caracteres, no contener espacios en blanco, debe empezar con una letra y contener por lo menos 2 digitos.
Ya intenté varias cosas pero no se en cual de los controles del text verificar si se estan cumpliendo con estas reglas a medida que el usuario está ingresando la contraseña

Por su ayuda gracias

Shirley

Estás usando la Propiedad PasswordChart del Text..

Yo intentaría en el evento valid del text controlarlo mediante las funciones:

LEN()
ISALPHA()
SUBSTR()

Si no te sale, avisa.
Suerte.
Ángel.

Amigos:
Gracias por sus consejos, pero requiero que la validación sea al momento de la escritura no al final, por que no se como impedir que ingresen espacios en blanco, por favor si tienen alguna sugerencia se los agradeceré

Sirley

*este código en el evento click de un command te dirá lo que es cada símbolo de la contraseña: caracter, blanco, número, especial (-*.,). espero te sirva o aclare algo.

***********************
LOCAL x as Character
LOCAL i,contalpha,contnumber,contblank,contespecial as Number
contalpha=0&&contador de letras
contnumber=0&&contador de numeros
contblank=0&&contador de espacios en blanco
contespecial=0&&contador de demás símbolos
*****
x=RTRIM(thisform.pass.value)&&le sacamos espacios por la derecha
*
IF NOT ISALPHA(SUBSTR(x,1,1))&&el primero debe ser alfabetico
MESSAGEBOX("Error: la contraseña debe empezar por letra.","Aviso")
thisform.pass.SetFocus
ELSE
MESSAGEBOX("la posición 1 es la letra: "+SUBSTR(x,1,1))
contalpha=contalpha+1
FOR i=2 TO LEN(x)&&montamos bucle para recorrer contraseña
IF ISBLANK(SUBSTR(x,i,1))
contblank=contblank+1
MESSAGEBOX("la posición "+ALLTRIM(STR(i))+" es un blanco: ")
ELSE
IF ISALPHA(SUBSTR(x,i,1))
contalpha=contalpha+1
MESSAGEBOX("la posición "+ALLTRIM(STR(i))+" es la letra: "+SUBSTR(x,i,1))
ELSE
IF SUBSTR(x,i,1)="1" OR ;
SUBSTR(x,i,1)="2" OR ;
SUBSTR(x,i,1)="3" OR ;
SUBSTR(x,i,1)="4" OR ;
SUBSTR(x,i,1)="5" OR ;
SUBSTR(x,i,1)="6" OR ;
SUBSTR(x,i,1)="7" OR ;
SUBSTR(x,i,1)="8" OR ;
SUBSTR(x,i,1)="9" OR ;
SUBSTR(x,i,1)="0"
contnumber=contnumber+1
MESSAGEBOX("la posición "+ALLTRIM(STR(i))+" es el número: "+SUBSTR(x,i,1))
ELSE
contespecial=contespecial+1
MESSAGEBOX("la posición "+ALLTRIM(STR(i))+" es el caracter especial: "+SUBSTR(x,i,1))
ENDIF
ENDIF
ENDIF
ENDFOR
ENDIF
*
MESSAGEBOX("Total letras: "+STR(contalpha)+CHR(13)+;
"Total numeros: "+STR(contnumber)+CHR(13)+;
"Total blancos: "+STR(contblank)+CHR(13)+;
"Total especiales: "+STR(contespecial))
*
thisform.pass.SetFocus

Este código lo puedes incluir en el evento InteractiveChangeEvent del txtbox para que te vaya avisando según vas tecleando. Le tendrías que hacer unas modificaciones para que no sea tan pesado avisando de todo...

Suerte.
Ángel.

Como lo menciona angel, solo tienes que meter el codigo de validacion en el InteractiveChange de la caja de texto y al momento de que el usuario vaya tecleando ira validando, Suerte.

Amiga Sirley :
Si lo que deseas es establecer la longitud maxima a 10 caracter entonces puedes utilizar la siguiente propiedad :
MAXLEN = 10

Las demas validaciones lo puedes implementar con los otros comandos que indica el otro colega

Cualquier consulta me la haces saber a mi correo estoy para ayudarte...

Saludos,

GABRIEL

En el builder del text puedes cambiar el tipo de dato y el largo por ejemplo si fuese alfanumerico utilizas la letra A 10 veces y te lo autovalida!

Amigos:

Gracias por su ayuda lo intentaré todo

Saludos desde Boliviaaaaaaaaaaaa

Shirley