pb常用操作技巧.docx

1、pb常用操作技巧这是刚毕业时在某一“大”公司使用PB6.5开发联通营帐系统时的笔记，虽然好久没有也许以后也不会再使用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 dynami

2、c cur_get;fetch cur_get into :ls_value; if sqlca.sqlcode 0 then messagebox(操作信息,提取失败!,exclamation!) end ifclose 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_comple

3、te_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)loopCLOSE cur_sql;/窗口open事件通用脚本/置窗口居中af_center_wind

4、ow(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

5、_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.getItemNu

6、mber(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

7、_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_tempdw_2.getChild(action,dwc)dwc.se

8、tTransObject(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_filterint li_actionif li_row_temp = 0 then dw_2.insertRow(0)el

9、se 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() nextend if/断开数据库af_disconnect()/增加按钮通用脚本/变量定义int li_step,li_action,li_auto_status,li_row/确认选择要增加的记录if dw_1.getSelectedRow(0) = 0 then Mess

10、ageBox(提示信息,请选择要添加的记录!,exclamation!) returnend 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_st

11、ep)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!) ReturnELSE IF MessageBox(提示信息,确实要删除指定的记录?,Question!,YesNo!,2) = 2 THEN Return dw_2.DeleteRow(dw_2.getRow()

12、END IF/保存按钮通用脚本/连接数据库af_connect()/定义变量string ls_city_code,ls_errorint li_service_kind,li_apply_event,li_row,li_stepdataWindowChild dwc/检测数据是否发生变化dw_2.AcceptText()IF dw_2.ModifiedCount() + dw_2.DeletedCount() = 0 THEN MessageBox(操作提示,数据未发生变化,无需保存!,exclamation!) returnEND IF/检测是否为空或零dw_2.setSort(step

13、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 IFNEXT/保存dw_2.SetTransObject(sqlca)if dw_2.update() = 1 then commit; messagebox(提示信息,保存成功!) dw_

14、2.ScrollToRow(dw_2.RowCount()else ls_error = sqlca.sqlErrText rollback; messagebox(提示信息,保存失败! + char(13) + ls_error,stopSign!) returnend if/断开数据库af_disconnect()/打印按钮通用脚本if dw_1.rowCount() 0 then if PrintSetup() = -1 then messagebox(提示信息,打印机设置出错!,Exclamation!) return else if dw_1.print(true) = 1 then

15、 /显示可以取消打印的对话框 Messagebox(提示信息,打印成功!) else Messagebox(提示信息,打印失败!,stopSign!) end if end ifelse Messagebox(提示信息,没有数据可以打印,请先查询数据!,exclamation!) returnend if/导出按钮通用脚本if dw_1.rowcount() = 0 then messageBox(提示信息,没有数据可以导出,请先查询!,exclamation!) returnend ifif dw_1.SaveAS(,text!,true) = 1 then messageBox(提示信息,

16、导出成功!)end if/导入按钮通用脚本/变量定义string ls_pathfile,ls_file,ls_title,ls_ext,ls_filterint li_pos,li_fileidlong ll_buffer/变量赋值ls_title = 请选择数据文件ls_ext = txtls_filter = 文本文件(*.txt),*.txt,全部文件(*.*),*.*li_fileid = GetFileOpenName(ls_title,ls_pathfile,ls_file,ls_ext,ls_filter)if(li_fileid = 0 or ls_file = ) then

17、 returnend ifsle_file_name.text = ls_pathfilecb_ok.enabled = true/退出按钮通用脚本close(parent) 或 closeWithReturn(parent,returnvalue)/调用过程通用脚本if dw_wp.rowcount() = 0 then return /变量定义string ls_sql,ls_err_infostring ls_register_number,ls_accept_city,ls_department,ls_oper_personinteger li_err_code,li_apply_ev

18、ent/变量赋值ls_register_number = dw_wp.getitemstring(1,register_number)ls_accept_city = gs_citycodeli_apply_event = dw_wp.getitemnumber(1,apply_event)ls_department = gl_dealeridls_oper_person = gs_workerid/连接数据库af_connect()/调用配号撤单过程ls_sql = execute bb_pstn_assign_no_repeal_p(?,?,?,?,?)declare proc_assig

19、n_no_repeal dynamic cursor for sqlsa ;prepare sqlsa from :ls_sql ;open dynamic proc_assign_no_repeal using :ls_register_number,:ls_accept_city,:li_apply_event,:ls_department,:ls_oper_person;if sqlca.sqlcode = -1 then ls_err_info = sqlca.sqlErrText close proc_assign_no_repeal ; Rollback; Messagebox(错

20、误信息1,执行异常! + ls_err_info,stopSign!) af_disconnect() returnEnd iffetch proc_assign_no_repeal into :li_err_code,:ls_err_info;if li_err_code 程序-Sybase-Sql anywhere 5.0下面，在硬盘中的执行文件名是scview.exe)./不安装Oracle客户连接Oracle 8的方法请将以下文件拷贝到运行文件所在目录 一、ODBC动态库 :ctl3d32.dll msvcrt40.dll odbc16gt.dll odbc32.dll odbc32gt.dll odbccp32.dll odbccr32.dll odbcint.dll 二、建立EXTRA子目录，将MSVCRT.DLL文件拷贝到该子目录下EXTRAMSVCRT.DLL 三、ORACLE动态库及配置文件 Tnsnames.ora CORE35O.DLL NASNSNT.DLL NAUNTSNT.DLL NCRNT.DLL Nlnt.dll NLSRTL32.DLL Nnfdnt.dll NNFNNT.DLL NSNT.DLL NTNT.DLL NTTNT.