Power Builder - Como hago una ventana de login?

 
Vista:

Como hago una ventana de login?

Publicado por Isaac (38 intervenciones) el 19/10/2005 23:30:18
Como hago una ventana de login usando el objeto conexion que hace el wizard de Builder 9?

Es decir, tengo usuario y password. Imagino que debe haber alguna forma de pasar esos parametros al objeto n_connectservice que crea el wizard de conexiones de builder. No he podido configurarlo correctamente!

Agradezco sus respuestas!
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

RE:Como hago una ventana de login?

Publicado por wend (95 intervenciones) el 20/10/2005 04:35:32
Para utilizar el mismo objeto, puedes hacer los siguiente:

* Creas una nueva función con dos parametros de tipo string ( ejem: of_init(String as_user, String as_password) ) que no retorna nada.

* Cortas el código del evento constructor y lo pegas en esta función.

* Cambia las propiedades del SQLCA (LogID y LogPass) por los argumentos
SQLCA.LogID = as_user
SQLCA.LogPass = as_password

* A la funcion of_connectdb() agrégale dos parámetros de tipo string (ejem : as_user y as_password )

* A la función of_connectdb agrégale el siguiente código antes de la conexión
of_init(as_user,as_password)
Connect using SQLCA;
..........

* En la función of_getconnectioninfo las variables as_logid y as_logpass deben estar así:
as_logid = ""
as_logpass = ""

* El evento open de la aplicación debe quedar así:
this.ToolBarFrameTitle = "MDI Application Toolbar"
this.ToolBarSheetTitle = "MDI Application Toolbar"
Open ( w_login )
// el resto del código pasa a la ventana w_login

* Creas una ventana de tipo Response (ejem: w_login) con los siguientes objetos:
sle_user
sle_password
cb_ok
cb_cancel

* En el boton cb_ok debe esta el siguiente código:
n_genapp_connectservice lnv_connectserv
lnv_connectserv = Create using "n_genapp_connectservice"

If lnv_connectserv.of_ConnectDB (sle_user.text,sle_password.text ) = 0 Then
/* Open MDI frame window */
Open ( w_genapp_frame )
Close(Parent)
End if
Destroy lnv_connectserv
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