pb常用操作技巧.doc

文档介绍：这是刚毕业时在某一“大”,虽然好久没有也许以后也不会再使用pb开发程序了,但这算是我使用过的唯一一个前端专业开发工具,把笔记记录下来,权当作纪念吧,^_^
//PB中标准调用sql语句
ls_sql = "select road_name from bb_data_wide_bus_temp_t where 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 <> 0 then
                  messagebox('操作信息','提取失败!',exclamation!)
          end if
close cur_get;
//PB中标准循环调用sql语句
DECLARE cur_sql DYNAMIC CURSOR FOR SQLSA;
PREPARE SQLSA FROM :ls_sql;
OPEN DYNAMIC cur_sql;
do while = 0
          FETCH cur_sql INTO :ls_register_number,:plete_note;
          ll_sqlcode =
          if ll_sqlcode < 0 then
                  CLOSE cur_sql;
                  af_disconnect()
                  messagebox('错误提示','检索受理编号错误!',StopSign!)
                  return
          elseif ll_sqlcode = 100 then
                  exit
          end if
          (trim(ls_register_number + '|' + plete_note))
loop
CLOSE cur_sql;
//窗口open事件通用脚本
//置窗口居中
af_center_window(this)
//连接数据库
af_connect()
//定义变量
dataWindowChild dwc
//获取城市代码下拉列表并取值
('city_code',dwc)
(sqlca)
(gs_citycode,gi_citylevel)
(sqlca)
()
(1,'city_code',(1,'city_code'))
is_city_code = ((),'city_code')
//获取业务类型下拉列表并取值
('service_kind',dwc)
(sqlca)
()
(sqlca)
()
(1,'service_kind',10)
ii_service_kind = ((),'service_kind')
//获取申请事项下拉列表并取值
('apply_event',dwc)
d
(sqlca)
(ii_service_kind)