FoxPro/Visual FoxPro - Acceso de usuarios

   
Vista:

Acceso de usuarios

Publicado por Sebastian (2 intervenciones) el 04/11/2009 13:20:32
Buenos dias les escribo para hacerles una consulta. Estoy tratando de hacer en foxpro 9, un acceso de usuarios registrado pero no logro que funciones. El formulario cuenta con dos casilla de texto una para usuario y otra para pasword y con dos botones un aceptar para ingresar al sistema y un salir
La tabla solo tiene dos campos Usuario y Pasword, este es el codigo que incluyo en el botos aceptar:

Public contrase
contrase=thisform.text2.Value
select * from prueba where Usuario=thisform.Text1.value INTO CURSOR accesos
if accesos.Pasword=contrase then
messagebox ("Usuario Aceptado")
else
messagebox ("Intente Otra Vez")
thisform.release()
endif

Pero siempre me dice Intente Otra Vez. Desde ya agradeceria su ayuda.
Saludos
Sebastian
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
Imágen de perfil de Mauricio

Acceso de usuarios

Publicado por Mauricio (1367 intervenciones) el 04/11/2009 13:50:27
La tabla acceso, puedes crear una clave normal al campo usuario, algo asi:
ALL(UPPER(usuario))
Puedes probar algo de esto
*--- En el VALID de usuario
vusuario = ALLT(UPPER(thisform.text1.value))
IF SEEK(vusuario)
messagebox ("Usuario Aceptado")
ELSE
messagebox ("Intente Otra Vez")
ENDIF
*----
*--- En el VALID de password
IF thisform.text2.value = usuario.password
messagebox ("Clave Aceptado")
ELSE
messagebox ("Intente Otra Vez")
ENDIF
*---
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:Acceso de usuarios

Publicado por sebastian (2 intervenciones) el 04/11/2009 14:43:50
Mauricio / Chucho, de ambas formas anda perfecto, muchisimas gracias.
Saludos
Sebastian
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:Acceso de usuarios

Publicado por Chucho (66 intervenciones) el 04/11/2009 13:57:39
Hola Seba:
Probá usando Upper en las condiciones.

select * from prueba where Upper(Usuario)=Upper(thisform.Text1.value) INTO CURSOR accesos

if Upper(accesos.Pasword)=Upper(contrase)

Saludos
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