programacion en power builder
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