Ventana de Pasword
Publicado por Blanca (231 intervenciones) el 01/10/2014 19:24:38
Queridos expertos buenas horas, acudo a ustedes por que deseo que me ayuden con este problema al momento de que acceden a la base de datos, mediante 2 ventanas la de usuarios y la de el administrador.
En la ventana de administrador no importa pero si en la ventana de los usuarios (w_seguridad_usu), en la que se accede por los campos de una tabla llamada Seguridad que tiene 4 campos y son:
UNIDAD USUARIO CONTRASEÑA INDEX
ICA CHAVEZ 121210 1
LIMA PAZ 201211 2
PUNO CHANDUCA 302588 3
.....
como se pudiera hacer para que cuando el usuario no de la Ciudad correspondiente a la que le pertenece con su nombre de usuario y contraseña entonces mande un mensaje de error y no deje acceder a la base de datos.
Con este código si logra acceder a pesar de no estar en la UNIDAD correcta.
Aquí mi código:
Integer li_valor
ls_usuario=sle_user.text
ls_dirter=ddlb_1.text ////Aquí he puesto todas las ciudades comprometidas
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 contraseña Into:ls_clave From Seguridad
Where usuario=:ls_usuario;
If ls_clave<>sle_contraseña.text then
MessageBox("Aviso","La clave es incorrecta", Exclamation!, OK!)
sle_contraseña.text=""
sle_contraseña.setFocus()
MessageBox("Bienvenido Sr. Usuario","proceda Ud., a realizar los registros que estime por conveniente", Exclamation!, OK!)
return
End If
Open(w_usuarios)
close(w_seguridad_usu)
Espero haber sido clara amigos
Lo necesito
En la ventana de administrador no importa pero si en la ventana de los usuarios (w_seguridad_usu), en la que se accede por los campos de una tabla llamada Seguridad que tiene 4 campos y son:
UNIDAD USUARIO CONTRASEÑA INDEX
ICA CHAVEZ 121210 1
LIMA PAZ 201211 2
PUNO CHANDUCA 302588 3
.....
como se pudiera hacer para que cuando el usuario no de la Ciudad correspondiente a la que le pertenece con su nombre de usuario y contraseña entonces mande un mensaje de error y no deje acceder a la base de datos.
Con este código si logra acceder a pesar de no estar en la UNIDAD correcta.
Aquí mi código:
Integer li_valor
ls_usuario=sle_user.text
ls_dirter=ddlb_1.text ////Aquí he puesto todas las ciudades comprometidas
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 contraseña Into:ls_clave From Seguridad
Where usuario=:ls_usuario;
If ls_clave<>sle_contraseña.text then
MessageBox("Aviso","La clave es incorrecta", Exclamation!, OK!)
sle_contraseña.text=""
sle_contraseña.setFocus()
MessageBox("Bienvenido Sr. Usuario","proceda Ud., a realizar los registros que estime por conveniente", Exclamation!, OK!)
return
End If
Open(w_usuarios)
close(w_seguridad_usu)
Espero haber sido clara amigos
Lo necesito
Valora esta pregunta
0