Restablecimiento de contraseña en power builder
Publicado por Cindy Trujillo (1 intervención) el 02/07/2013 23:14:51
Espero por favor puedan ayudarme :)
Estoy realizando un software q tiene un logeo para ingresar y mi codigo es el siguiente:
//iniciar
string usuario, u_contraseña
// Profile TH
SQLCA.DBMS = "OLE DB"
SQLCA.AutoCommit = False
SQLCA.DBParm = "PROVIDER='SQLNCLI',DATASOURCE='YU-PC',PROVIDERSTRING='database=sise',PERSISTSENSITIVE='True',INTEGRATEDSECURITY='sspi'"
if sqlca.sqlcode <> 0 then
messagebox("Error en Conexión a Base de Datos",sqlca.sqlerrtext)
halt
end if
select idusuario, contr_usu into :usuario, :u_contraseña from usuario;
if(sle_usuario.Text =usuario and sle_contraseña.Text = u_contraseña) then
messagebox("Bien!!", "Contraseña correcta")
open(w_sise)
w_login.Visible = FALSE
else
messagebox("Lo sentimos", "Datos incorrectos")
end if
Me corre perfectamente, pero a apartir de esto, necesito realizar otra ventana para restablecer la contraseña del usuario cuando este lo requiera.. ¿Cómo hacerlo? Espero puedan ayudarme..
Estoy realizando un software q tiene un logeo para ingresar y mi codigo es el siguiente:
//iniciar
string usuario, u_contraseña
// Profile TH
SQLCA.DBMS = "OLE DB"
SQLCA.AutoCommit = False
SQLCA.DBParm = "PROVIDER='SQLNCLI',DATASOURCE='YU-PC',PROVIDERSTRING='database=sise',PERSISTSENSITIVE='True',INTEGRATEDSECURITY='sspi'"
if sqlca.sqlcode <> 0 then
messagebox("Error en Conexión a Base de Datos",sqlca.sqlerrtext)
halt
end if
select idusuario, contr_usu into :usuario, :u_contraseña from usuario;
if(sle_usuario.Text =usuario and sle_contraseña.Text = u_contraseña) then
messagebox("Bien!!", "Contraseña correcta")
open(w_sise)
w_login.Visible = FALSE
else
messagebox("Lo sentimos", "Datos incorrectos")
end if
Me corre perfectamente, pero a apartir de esto, necesito realizar otra ventana para restablecer la contraseña del usuario cuando este lo requiera.. ¿Cómo hacerlo? Espero puedan ayudarme..
Valora esta pregunta
0