RE:Como hago una ventana de login?
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