2024年3月17日发(作者：)

这是刚毕业时在某一“大”公司使用PB6.5开发联通营帐系统时的笔记，虽然好久没

有也许以后也不会再使用pb开发程序了，但这算是我使用过的唯一一个前端专业开发工

具，把笔记记录下来，权当作纪念吧，^_^

//PB中标准调用sql语句

ls_sql = "select road_name from bb_data_wide_bus_temp_t

register_number = '" + ls_register_number + "'"

declare cur_get dynamic cursor for sqlsa ;

prepare sqlsa from :ls_sql ;

open dynamic cur_get;

fetch cur_get into :ls_value;

if e <> 0 then

messagebox('操作信息','提取失败!',exclamation!)

end if

close cur_get;

//PB中标准循环调用sql语句

where

DECLARE cur_sql DYNAMIC CURSOR FOR SQLSA;

PREPARE SQLSA FROM :ls_sql;

OPEN DYNAMIC cur_sql;

do while e = 0

FETCH cur_sql INTO :ls_register_number,:ls_complete_note;

ll_sqlcode = e

if ll_sqlcode < 0 then

CLOSE cur_sql;

af_disconnect()

messagebox('错误提示','检索受理编号错误!',StopSign!)

return

elseif ll_sqlcode = 100 then

exit