Debes crear una función y en ella crear un cursor
Pasar a la función la identificación del usuario loguado ej: l_usu
Ej: del cursor para cargar la ddlb
String s_materia
s_materia=""
setpointer(Hourglass!)
DECLARE T_Cursor CURSOR FOR
Select descripción from Materias where id_usuario= :l_usu;
OPEN T_Cursor ;
if SQLCA.SQLCode = -1 then
messagebox("SQL Error",String(SQLCA.SQLDBCode) + " : " + SQLCA.SQLErrText)
else
s_materia = ""
Do
if s_materia <> "" then ddlb_1.Additem(s_materia)
FETCH T_Cursor INTO :s_nmateria;
loop while SQLCA.SQLCode = 0
if SQLCA.SQLCode = -1 then
messagebox("SQL Error",String(SQLCA.SQLDBCode) + " : " + SQLCA.SQLErrText)
end if
end if
setpointer(arrow!)
CLOSE T_Cursor;