ayuda con nivel de acceso
Publicado por jose (7 intervenciones) el 29/04/2010 06:01:46
hola a todos: ayuda con un script de acceso que me bota error clave incorrecta no doy con el erro aver si me pueden ayudar
SCRIPT BOTON ACEPTAR
integer n
string busca,claveusu,nombre
datausu= create datastore
busca="nombre='" + ddlb_usuarios.text+"'"
n=datausu.find(busca,1,datausu.rowcount())
if n=0 then
messagebox("Acceso Denegado","Seleccione un usuario",stopsign!)
ddlb_usuarios.setfocus( )
else
claveusu=datausu.getitemString(n,"Clave")
if upper(claveusu)=upper(sle_clave.text) then
xusuario=datausu.getitemstring( n,"Login")
xnivel=datausu.getitemstring( n,"Nivel")
open(w_principal)
close(w_acceso)
else
messagebox("Acceso Denegado","Clave Incorrecta",stopsign!)
opc=opc+1
if opc=3 then halt close
end if
end if
SCRIPT BOTON ACEPTAR
integer n
string busca,claveusu,nombre
datausu= create datastore
busca="nombre='" + ddlb_usuarios.text+"'"
n=datausu.find(busca,1,datausu.rowcount())
if n=0 then
messagebox("Acceso Denegado","Seleccione un usuario",stopsign!)
ddlb_usuarios.setfocus( )
else
claveusu=datausu.getitemString(n,"Clave")
if upper(claveusu)=upper(sle_clave.text) then
xusuario=datausu.getitemstring( n,"Login")
xnivel=datausu.getitemstring( n,"Nivel")
open(w_principal)
close(w_acceso)
else
messagebox("Acceso Denegado","Clave Incorrecta",stopsign!)
opc=opc+1
if opc=3 then halt close
end if
end if
Valora esta pregunta


0