PB用户登录模块代码

count=0
declare user cursor for select username from sysuser;
open user;
string name
ddlb_1.reset()
fetch user into :name;
do while sqlca.sqlcode=0
 ddlb_1.additem(name)
 fetch user into :name; 
loop
close user;