Power Builder - programacion en power builder

 
Vista:

programacion en power builder

Publicado por diana reyes (2 intervenciones) el 22/11/2013 06:23:12
hola amigo porfa necesito saber como bloquear un menu en pawer builder 11.5 quiero crear accesos a los usuarios porfa lo necesito con urgencia
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

programacion en power builder

Publicado por Frank P. (50 intervenciones) el 23/11/2013 16:02:55
Hola, que tal nosotros trabajamos en caso de accesos con una tabla en la BD, donde guardamos el código del usuario y el TAG del menú, donde todos los menúes los tenemos como Enable = False y al momento de acceder al sistema, ejecute una función que verifique dicha tabla según el codigo del usuario y convierta todos los menúes relacionados en Enable = true.

Cualquier cosa un correo.

Saludos,


Frank P.
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
Val: 37
Ha mantenido su posición en Power Builder (en relación al último mes)
Gráfica de Power Builder

programacion en power builder

Publicado por juan (231 intervenciones) el 04/01/2014 00:27:55
Hola mira crea una ventana para setear usuarios con usuario y contraseña:
luego crea un dw que muestre los usuarios registrados con sus contraseñas, este lo pegas en una parte donde no se vea de la ventana y colocas en el open de la ventana lo siguiente:
dw_clave.SettransObjecT(sqlca)
dw_clave.retrieve()
sle_user.SetFocus() ///el nombre del singlelineedit en donde pondrar el nombre de usuario

luego en el boton buscar pones:

//Definiendo variables
String ls_usuario, ls_clave
Integer li_valor
ls_usuario=sle_user.text

//Consultando si existe el usuario, la función Count(*) obtendrá el número
//de usuarios identificados como ls_usuario, asignando el número
//resultante a la variable 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
//Comprobando que el password ingresado es el correcto.
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()
return
End If

//Apertura de ventana principal o de la ventanas que tengan adjuntos los menús con sus respectivos permisos
Open(w_principal) ////o la que sea
close(w_seguridad) //cerrando la ventana pasword

eso es todo
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