初学者如何把sql查询出来的结果写入uf_addgroup中

菜鸟求助：怎么把sql查询出来的结果写入uf_addgroup中
string lsxm
select xm into :lsxm from ls_xm group by xm;
怎么样把查询出来的数据循环写入uo_1.uf_addgroup里
uo_1.uf_addgroup(lsxm)
这样写只会出现一条
谢谢啦

------解决方案--------------------

探讨

通过sql语句把查询出来的值通过循环实现跟下面一样的效果

// 添加组和项目
uo_1.uf_AddGroup("招生管理")
uo_1.uf_AddItem("招生管理", "招生录入", "pic\man1.jpg", 1 )
uo_1.uf_AddItem("招生管理", "新生确定", "pic\dept.jpg", 2 )
uo_1.uf_AddItem("招生管理", "项目设定", "pic\right.jpg", 3 )
uo_1.uf_AddItem("招生管理", "退出系统", "pic\exit.jpg", 4 )
uo_1.uf_AddGroup("信息查询")
uo_1.uf_AddItem("信息查询", "人员信息", "pic\man.jpg", 5 )
uo_1.uf_AddItem("信息查询", "部门信息", "pic\dept1.jpg", 6 )
uo_1.uf_AddGroup("信息查询")
uo_1.uf_AddGroup("系统帮助")
uo_1.uf_AddItem("系统管理", "操作员管理", "pic\dept1.jpg", 7 )
uo_1.uf_AddItem("系统管理", "操作员管理", "pic\dept1.jpg", 8 )
uo_1.uf_AddGroup("系统管理")
uo_1.uf_Paint()
谢谢