PB常用程序汇总1

//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 sqlca.sqlcode <> 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 sqlca.sqlcode = 0
FETCH cur_sql INTO :ls_register_number,:ls_complete_note;
ll_sqlcode = sqlca.sqlcode
if ll_sqlcode < 0 then
CLOSE cur_sql;
af_disconnect()
messagebox('错误提示','检索受理编号错误!',StopSign!)
return
elseif ll_sqlcode = 100 then
exit
end if
ddlb_register_number.additem(trim(ls_register_number + '|' + ls_complete_note))
loop
CLOSE cur_sql;

//窗口open事件通用脚本
//置窗口居中
af_center_window(this)
//连接数据库
af_connect()
//定义变量
dataWindowChild dwc
//获取城市代码下拉列表并取值
dw_city_code.getChild('city_code',dwc)
dwc.setTransObject(sqlca)
dwc.Retrieve(gs_citycode,gi_citylevel)
dw_city_code.setTransObject(sqlca)
dw_city_code.Retrieve()
dw_city_code.setItem(1,'city_code',dwc.getItemString(1,'city_code'))
is_city_code = dw_city_code.getItemString(dw_city_code.getRow(),'city_code')
//获取业务类型下拉列表并取值
dw_service_kind.getChild('service_kind',dwc)
dwc.setTransObject(sqlca)
dwc.Retrieve()
dw_service_kind.setTransObject(sqlca)
dw_service_kind.Retrieve()
dw_service_kind.setItem(1,'service_kind',10)
ii_service_kind = dw_service_kind.getItemNumber(dw_service_kind.getRow(),'service_kind')
//获取申请事项下拉列表并取值
dw_apply_event.getChild('apply_event',dwc)
dwc.setTransObject(sqlca)
dwc.Retrieve(ii_service_kind)
dw_apply_event.setTransObject(sqlca)
dw_apply_event.Retrieve()
dw_apply_event.setItem(1,'apply_event',dwc.getItemNumber(1,'apply_event'))
ii_apply_event = dw_apply_event.getItemNumber(dw_apply_event.getRow(),'apply_event')
//激发查询事件
cb_query.TriggerEvent(clicked!)
//断开数据库
af_disconnect()

//查询按钮通用脚本
//连接数据库
af_connect()
//定义变量
dataWindowChild dwc
//dw_1检索数据
dw_1.setTransObject(sqlca)
dw_1.Retrieve(ii_service_kind)
//dw_2检索数据
int li_row,li_row_temp
dw_2.getChild('action',dwc)
dwc.setTransObject(sqlca)
dwc.Retrieve(ii_service_kind)
dw_2.setRowFocusIndicator(hand!)
dw_2.setTransObject(sqlca)
li_row_temp = dw_2.Retrieve(ii_apply_event,ii_service_kind,is_city_code)
dw_2.scrollToRow(li_row_temp)
//如果未检索到数据插入一空行,有数据就过滤
string ls_filter
int li_action
if li_row_temp = 0 then
dw_2.insertRow(0)
else
for li_row = 1 to dw_2.rowCount()
li_action = dw_2.getItemNumber(li_row,'action')
ls_filter = ' action <> ' + string(li_action)
dw_1.setFilter(ls_filter)
dw_1.filter()
next
end if
//断开数据库
af_disconnect()

//增加按钮通用脚本
//变量定义
int li_step,li_action,li_auto_status,li_row
//确认选择要增加的记录
if dw_1.getSelectedRow(0) = 0 then
MessageBox('提示信息','请选择要添加的记录!',exclamation!)
return
end if
//取出要增加的信息
li_step = dw_2.getItemNumber(dw_2.getRow(),'step')
li_action = dw_1.getItemNumber(dw_1.getSelectedRow(0),'action')
li_auto_status = dw_1.getItemNumber(dw_1.getSelectedRow(0),'auto_status')
//添加信息
li_row = dw_2.insertRow(0)
dw_2.setItem(li_row,'step',li_step)
dw_2.setItem(li_row,'action',li_action)
dw_2.setItem(li_row,'auto_status',li_auto_status)
dw_2.scrollToRow(li_row)

//删除按钮通用脚本
//删除前先确认
IF dw_2.GetRow() = 0 THEN
MessageBox('提示信息','请选择要删除的记录!',exclamation!)
Return
ELSE
IF MessageBox("提示信息","确实要删除指定的记录?",Question!,YesNo!,2) = 2 THEN Return
dw_2.DeleteRow(dw_2.getRow())
END IF

//保存按钮通用脚本
//连接数据库
af_connect()
//定义变量
string ls_city_code,ls_error
int li_service_kind,li_apply_event,li_row,li_step
dataWindowChild dwc
//检测数据是否发生变化
dw_2.AcceptText()
IF dw_2.ModifiedCount() + dw_2.DeletedCount() = 0 THEN
MessageBox("操作提示","数据未发生变化,无需保存!",exclamation!)
return
END IF
//检测是否为空或零
dw_2.setSort('step a')
dw_2.sort()
FOR li_row = 1 TO dw_2.RowCount()
li_step = dw_2.GetItemNumber(li_row,'step')
IF IsNull(li_step) OR li_step = 0 THEN
MessageBox('操作提示','步骤不能为空或零,请重新输入!',exclamation!)
dw_2.setRow(li_row)
Return
END IF
NEXT
//保存
dw_2.SetTransObject(sqlca)
if dw_2.update() = 1 then
commit;
messagebox("提示信息","保存成功!")
dw_2.ScrollToRow(dw_2.RowCount())
else
ls_error = sqlca.sqlErrText
rollback;
messagebox("提示信息","保存失败!" + char(13) + ls_error,stopSign!)
return
end if
//断开数据库
af_disconnect()

//打印按钮通用脚本
if dw_1.rowCount() > 0 then
if PrintSetup() = -1 then
messagebox('提示信息','打印机设置出错!',Exclamation!)
return
else
if dw_1.print(true) = 1 then //显示可以取消打印的对话框
Messagebox('提示信息',"打印成功!")
else
Messagebox('提示信息',"打印失败!",stopSign!)
end if
end if
else
Messagebox('提示信息',"没有数据可以打印,请先查询数据!",exclamation!)
return
end if

//导出按钮通用脚本
if dw_1.rowcount() <= 0 then
messageBox('提示信息','没有数据可以导出,请先查询!',exclamation!)
return
end if
if dw_1.SaveAS('',text!,true) = 1 then
messageBox('提示信息','导出成功!')
end if

//导入按钮通用脚本
//变量定义
string ls_pathfile,ls_file,ls_title,ls_ext,ls_filter
int li_pos,li_fileid
long ll_buffer
//变量赋值
ls_title = "请选择数据文件"
ls_ext = "txt"
ls_filter = "文本文件(*.txt),*.txt,全部文件(*.*),*.*"
li_fileid = GetFileOpenName(ls_title,ls_pathfile,ls_file,ls_ext,ls_filter)
if(li_fileid = 0 or ls_file = "") then
return
end if
sle_file_name.text = ls_pathfile
cb_ok.enabled = true

//退出按钮通用脚本
close(parent) 或 closeWithReturn(parent,returnvalue)