Ayuda DataStore en power builder
Saludos cordiales expertos, tengo el siguiente código que quiero que me ayude a validar el inicio de sesión del botón aceptar
Integer N, op
String Busca,Clave, Nivel
Busca="Nombre=' "+ddlb_1.text+" ’ "
// aquí arriba es comilla apostrofé comillas, lo he separado para que pueda diferenciarse.
// busca en la tabla al usuario seleccionado.
N=usuarios.Find(Busca,1,Usuarios.RowCount())
If N=0 Then
MessageBox("Acceso Denegado","El Usuario no Existe",StopSign!)
Ddlb_1.Setfocus()
Return
Else
Clave=Usuarios.GetItemString(N,"Clave")
//pregunta si la clave del usuario es igual ala ingresada en Sle_usuario
If Upper(Clave)=Upper(Sle_usuario.text) then
//Almacena en variables el nombre y el nivel del usuario.
Usuarios=Usuarios.GetItemString(N,"Nombre")
Nivel=Usuarios.GetItemString(N,"Nivel")
//Activa el menú principal y cierra la ventana de acceso
Open(w_principal)
Close(w_sesion)
Else
MessageBox("Acceso Denegado", "La Clave es Incorrecta",StopSign!)
Op=Op+1
// pregunta si se ha equivocado 3 veces máximo
If Op=3 then Halt Close
end if
end if
Aparte de ellos tengo e siguiente código también que esta en el evnto open de la ventana donde esta el diseño de los botonones ACepter y Cancelar:
integer N, T
String Nombre
datastore usuarios
// crea un objeto DataStore llamado Usuarios
Usuarios=Create DataStore
//se conecta al objeto DataWindow creado con el nombre odw_usuarios
Usuarios.DataObject="odw_usuarios"
Usuarios.SetTransobject(sqlca)
Usuarios.Retrieve()
//Ordena los usuarios por nombre
Usuarios.SetSort("Nombre")
Usuarios.Sort()
//Muestra los nombres de los usuarios en Ddlb_1
N=Usuarios.RowCount()
ddlb_1.Reset()
For T=1 to N
Nombre=Usuarios.GetItemString(T,"Nombre")
Ddlb_1.AddItem(Nombre)
next
Muchas gracias por su ayuda