FoxPro/Visual FoxPro - Leer un Textbox en un Formulario

 
Vista:

Leer un Textbox en un Formulario

Publicado por Rafael (12 intervenciones) el 09/07/2007 18:34:14
Hola, estoy empezando a realizar programacion por medio de formularios, el formulario que estoy haciendo es uno sencillo de ingreso de clave de usuario y password; lo que necesito es una instruccion que me permita si por ejemplo estoy en el textbox3 y se metio mal la informacion, poder regresar a leer el textbox1 automaticamente.

Ademas de esto, como hacer que el formulario no lea un textbox, ?

Por su ayuda gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:Leer un Textbox en un Formulario

Publicado por Ernesto Hernandez (4623 intervenciones) el 09/07/2007 18:56:58
Ademas de esto, como hacer que el formulario no lea un textbox, ?

a que te refieres ? cheka la propiedad ReadOnly y Enabled quizas eso t pueda servir
Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Leer un Textbox en un Formulario

Publicado por neo (1604 intervenciones) el 09/07/2007 18:58:11
Dos dudas:

1.- A qué te refieres con mala información??, es decir, sobré qué el textbox va a validar si de verdad es mala información??

2.- Qué quieres decir específicamente con "No leer un Textbox"??

Nota:
Esto con el fin de apoyarte en una posible solución mas concreta.

Suerte►
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Leer un Textbox en un Formulario

Publicado por Rafael (12 intervenciones) el 09/07/2007 19:17:53
Con la primera duda me refiero a que supongamos, hay 3 usuarios, cada uno con un numero de usuario, 1,2,3, supongamos, si meto el 4, pues no deberia dejar pasar, y seguir leyendo, hasta que meta uno correcto.

Otra cosa podria ser, que si el password no es el correcto, pues tambien no dejar pasar.

Con la segunda duda pasa lo siguiente:

Yo tengo incluidos 3 textbox

textbox1 = Ingreso de Codigo de Usuario
textbox2 = Nombre del Usuario (previamente buscado en una base de datos)
textbox3 = clave del usuario

Yo lo que quiero es que cuando meta el codigo del usuario, no vaya a leer o pasar el cursor al textbox del nombre del usuario.

Espero que con esto me puedan ayudar .... muchas gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Leer un Textbox en un Formulario

Publicado por neo (1604 intervenciones) el 09/07/2007 19:26:48
Select Usuarios

Locate For codigo=Thisform.text1.value
If Found() then
else
Messagebox("El Código no existe, intente de nuevo",0+48,"Error Codigo")
Return 0
endif

Y con el segundo punto:
Solo cambia la propiedad "Enabled=.f. los textbox 2 y 3, si el codigo es incorrecto, es decir:

(digamos que ya cambiaste a Enabled=.f. los textbox 2 y 3, y te posicionas en text1, entonces sería asi:)

Evento Valid del Text1:
Select Usuarios

Locate For codigo=Thisform.text1.value
If Found() then
Thisform.text2.Enabled=.t.
Thisform.text3.Enabled=.t.
else
Messagebox("El Código no existe, intente de nuevo",0+48,"Error Codigo")
Return 0
endif

Note;
Te recomiendo que hagas la validación en el password del usuario tambien

Suerte►
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Leer un Textbox en un Formulario

Publicado por neo (1604 intervenciones) el 09/07/2007 19:26:52
Select Usuarios

Locate For codigo=Thisform.text1.value
If Found() then
else
Messagebox("El Código no existe, intente de nuevo",0+48,"Error Codigo")
Return 0
endif

Y con el segundo punto:
Solo cambia la propiedad "Enabled=.f. los textbox 2 y 3, si el codigo es incorrecto, es decir:

(digamos que ya cambiaste a Enabled=.f. los textbox 2 y 3, y te posicionas en text1, entonces sería asi:)

Evento Valid del Text1:
Select Usuarios

Locate For codigo=Thisform.text1.value
If Found() then
Thisform.text2.Enabled=.t.
Thisform.text3.Enabled=.t.
else
Messagebox("El Código no existe, intente de nuevo",0+48,"Error Codigo")
Return 0
endif

Note;
Te recomiendo que hagas la validación en el password del usuario tambien

Suerte►
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar