Longueo desde Tabla
Publicado por Esther M (231 intervenciones) el 22/08/2013 22:07:06
Hola, como estudiante novata, tengo un inconveniente cuando intento acceder a la aplicación por password.
Tengo una tabla que se llama (seguridad), en ella hay tres campos 2 tipo Varchar, en donde voy a guardar el usuario y la contraseña:
1campo = suario
2campo = clave
3campo = numeric ......
También tengo una ventana para ingresar el USUARIO y PASSWORD, en ella tengo Dos singlelineedit y se llaman asi:
sle_user = para el usuario
sle_pass = para la clave
Luego en un Botón llamado CD_acceder, he puesto el siguiente código para acceder a la aplicación:
String ls_usuario, ls_clave
Integer li_valor
Select Count(*) Into:li_valor From seguridad
Where usuario = : ls_usuario;
If li_valor= 0 then
MessageBox("Aviso", "El usuario no existe", Exclamation!, OK!)
return
End If
Select clave Into:ls_clave From Seguridad
Where clave = : ls_clave;
If ls_clave<>sle_pass.text then
MessageBox("Aviso","La clave es incorrecta", Exclamation!, OK!)
sle_pass.text=""
sle_pass.setFocus()
return
End If
Open(w_gral)
close(w_seguridad)
Ahora cuando corro la aplicación y pongo el USUARIO Y LA CONTRASEÑA o CLAVE, me dice que el USUARIO NO EXISTE y no me deja acceder a la aplicación, algo esta mal, y no me puedo dar cuenta, por lo que les ruego que me ayuden en este problemilla. Gracias a todos espero su valorada ayuda así como también espero ser clara.
Tengo una tabla que se llama (seguridad), en ella hay tres campos 2 tipo Varchar, en donde voy a guardar el usuario y la contraseña:
1campo = suario
2campo = clave
3campo = numeric ......
También tengo una ventana para ingresar el USUARIO y PASSWORD, en ella tengo Dos singlelineedit y se llaman asi:
sle_user = para el usuario
sle_pass = para la clave
Luego en un Botón llamado CD_acceder, he puesto el siguiente código para acceder a la aplicación:
String ls_usuario, ls_clave
Integer li_valor
Select Count(*) Into:li_valor From seguridad
Where usuario = : ls_usuario;
If li_valor= 0 then
MessageBox("Aviso", "El usuario no existe", Exclamation!, OK!)
return
End If
Select clave Into:ls_clave From Seguridad
Where clave = : ls_clave;
If ls_clave<>sle_pass.text then
MessageBox("Aviso","La clave es incorrecta", Exclamation!, OK!)
sle_pass.text=""
sle_pass.setFocus()
return
End If
Open(w_gral)
close(w_seguridad)
Ahora cuando corro la aplicación y pongo el USUARIO Y LA CONTRASEÑA o CLAVE, me dice que el USUARIO NO EXISTE y no me deja acceder a la aplicación, algo esta mal, y no me puedo dar cuenta, por lo que les ruego que me ayuden en este problemilla. Gracias a todos espero su valorada ayuda así como también espero ser clara.
Valora esta pregunta
0