FoxPro/Visual FoxPro - Buenos dias nuevamente..

Disculpen tengo otra consulta, yo cree mi modulo de seguridad, y tengo este codigo:

use usuario
go top
locate for thisform.combo1.value=usuario.and.thisform.text1.value=clave
if found()
messagebox ("Bienvenido "+usuario)
do c:\vsilva\menú1.mpr
do form form9
else
messagebox("Error, Por Favor Intente Nuevamente",0+48,"Error")
a=a+1
endif

if a=3 then
messagebox("El Sistema se cerrará, consulte con su administrador")
release thisform
endif

ok, bueno la persona o usuario yo le puse 5 digitos pero este me agarra como 7 iempre y cuando empiezen por los mismos numeros, me explico, la clave es 15065, bueno el me pasa con ella y si yo le pongo 15065632 tambien ahora si solo le coloco 1 me dice que esa clave no es la correcta, porque puede pasar esto?? porque ??, por fa si pueden ayudenme please!!!

Si te entiendo bien, el problema está en que al TextBox donde ingresas la clave, debes de colocarle una mascara de entrada para que acepte unicamente los caracteres que vas a validar, por ejemplo si quieres que sean cinco númereos, en la propiedad InputMask del TextBox ingresa 99999.

Si por ejemplo tu tienes lo siguiente

x = '15065'

Y = '15065632'

y haces esta comparacion

si comparas

x = y te da falso

pero si comparas

y = x te da verdadero

una forma seria activar

SET EXACT ON : de esta forma la comparacion se hace exacta y no te daria problemas
eso suele suceder cuando son variables tipo caracter.....

otra forma seria hacer la comparacion NO con = sino con == ... tiene el mismo efecto... compara las cadenas completas

un saludo

Carlos

Si por ejemplo tu tienes lo siguiente

x = '15065'

Y = '15065632'

y haces esta comparacion

si comparas

x = y te da falso

pero si comparas

y = x te da verdadero

una forma seria activar

SET EXACT ON : de esta forma la comparacion se hace exacta y no te daria problemas
eso suele suceder cuando son variables tipo caracter.....

otra forma seria hacer la comparacion NO con = sino con == ... tiene el mismo efecto... compara las cadenas completas

un saludo

Carlos

Prueba esto

DO form HOME(2)+"solution\forms\logform"

Suerte