首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > PB >

请教“下一条”“上一条”代码怎么写?

2013-01-01 
请问“上一条”“下一条”代码如何写??数据库里有有一个编号、名称、示意图三个字段。由于自己考虑到数据窗口里只

请问“上一条”“下一条”代码如何写??
数据库里有有一个编号、名称、示意图三个字段。
由于自己考虑到数据窗口里只能显示编号和名称的字段,因此设计了一个窗口(数据输入兼修改功能):里面有两个“单行编辑框”控件用来直接从数据库中读取编号和名称字段,另有一个“图片”控件用来显示“示意图”字段,另外有一个“上一条”和"下一条"命令按钮,可是我不知如何写其中的代码,想实现的功能为:
(为了实现自己设计的这个窗口与数据窗口相对应)当点击“下一条”按钮时,读取数据窗口中当前记录的下一条记录;点击“上一条”按钮时,则读取数据窗口中当前记录的上一条记录,请问这个“上一条”“下一条”按钮的代码如何写??
[解决办法]
//上一条
long ll_row
integer li_i
li_i=dw_1.ScrollPriorRow() 
if li_i=1 then
   ll_row=dw_1.getrow()
   sle_bh.text=dw_1.object.bh[ll_row] //编号
   sle_name.text=dw_1.object.name[ll_row] //名称
   wf_getbmp(dw_1.object.bh[ll_row])

end if

//下一条
long ll_row
integer li_i
li_i=dw_1.ScrollNextRow()
if li_i=1 then
   ll_row=dw_1.getrow()
   sle_bh.text=dw_1.object.bh[ll_row] //编号
   sle_name.text=dw_1.object.name[ll_row] //名称
   wf_getbmp(dw_1.object.bh[ll_row])
end if

//创建一个窗口函数wf_getbmp(string as_bh)
blob lbl_data
selectblob bmp into lbl_data from table where bh=as_bh;
if sqlca.sqlcode=0 then
   p_1.SetPicture(lbl_data)
   p_1.visible=true
else
   p_1.visible=false
end if

热点排行