pb笔记（一）

  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 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()