用游标如何实现对结果集逐条取值!!

1、在pb中做一个窗口w_m1
2、在窗口w_m1上放置5个staticText控件(sle_1.text,sle_2.text,sle_3.text,sle_4.text,sle_1.text)
3、在窗口w_m1上放置1个command button控件，注明“下一个”



请问如何在w_m1中实现，单击控件“下一个”，可以浏览到结果集ybb中的下一条数据？？




我在控件“下一个”的中试着编写了一段脚本，不能实现跳转到下一条，请教大家此段程序经过修改后，可不可以实现，现跳转到下一条，？

string xmmc,zcsj
int bh,jb,zj



declare ybb cursor for

select 项目编号,项目名称,级别,注册时间,所需资金

from abc_k;


open ybb;

fetch ybb  into:bh,:xmmc,:jb,:zcsj,:zj;


sle_1.text=string(bh)

sle_2.text=xmmc

sle_3.text=string(jb)

sle_4.text=zcsj

sle_5.text=string(zj)