PB函数应用经验

《PB函数应用经验》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1PB函数中游标的使用列：stringls_bjflddlb_1.reset()//清空下拉列表框内容DECLAREcur_typeCURSORFOR//定义游标selectNEIRONGfromxt_gycs//表wherename='****'//条件usingsqlca;//使用默认数据对象OPENcur_type;//打开游标FETCHcur_typeINTO:ls_bjfl;//将游标的值赋给变量dowhilesqlca.sqlcode=0//判断游标执行是否成功（循环的意义是取完游标中的值）ddlb_1.additem(ls_bjfl);//如果成功，那么将值增加到下拉列表框中

2、FETCHcur_typeINTO:ls_bjfl;//继续取游标值loopclosecur_type;//关闭游标在使用游标的时候注意每次从游标中只能取一个值赋给变量，游标中的值是一个数组型的即游标里可能存在多个不同的值。2PB中提交数据的两种方式和判断方式1>删除时候直接用：deletefrom表whereguid（行）=:ls_guidk（变量）usingsqlca;那么提交的时候的判断用：ifsqlca.sqlcode=0thencommitusingsqlca;//提交数据elsemessagebox("提示！","数据库更新失败！失败原因："+gtrans_w.sqlerrte

3、xt)rollbackusingsqlca;returnendif2>用datawindow删除：dw_name.deleterow(row)//row=0删除当前行(删除成功返回1，错误-1,为空返回null)提交的时候的判断用：ifdw_name.update()=1thencommitusingsqlca;//提交数据elsemessagebox("提示！","数据库更新失败！失败原因："+gtrans_w.sqlerrtext)rollbackusingsqlca;returnendif总结：只要是对数据库直接操作的时候就用sqlca(事务对象).sqlcode=0来进行判断提交，

4、如：delete,insert,update等都是。只要是对数据窗口进行的操作都用dw_name.update()=1来进行提交，如：deleterow(),insertrow(),setitem()等都是。3trim删除字符串首部和尾部的空格eg：ls_name=trim(sle_1.text)4拆分字符串操作lenw返回字符总个数，posw返回某字符在ls_guid（变量）中的第一次出现的位置（返回值是long型数字），leftw(字符，返回左边N个字符（返回值是一个字符串）)rightw(字符，返回右边N个字符)列ABCDEPOSW(ABCDE,'CD')=4下面举得这个列子是个很有

5、用的拆字符串的方法：stringls_newstr[]//定义数组intli_log,li_i,li_lenli_len=lenw('*')//返回字符的个数（在此返回1）li_log=posw(ls_guid,'*')//返回’*’在字符串ls_guid中的位置（long型数值）li_i=1//数组取值从1开始ifli_log<=0then//假如字符串ls_guid中含有字符’*’那么li_log的值大于0，在此小于零即字符串中不含有’*’这个字符，所以返回原字符串ls_newstr[li_i]=ls_guidendifdowhileli_log>0//条件为true执行下面代码ls_

6、newstr[li_i]=leftw(ls_guid,li_log-li_len)ls_guid=rightw(ls_guid,lenw(ls_guid)-li_log)li_i++li_log=posw(ls_guid,'*')ifli_log<=0thenls_newstr[li_i]=ls_guidendifloop//将数组中的值赋给变量ls_sjsjguid=ls_newstr[1]ls_mlflguid=ls_newstr[2]5.在ORACLE中直接提取用户登陆时间代码Dateld_dateSelectsysdateinto:ld_datefromxt_userUsingsq

7、lca;Xt_user表是一张登陆表，存储用户的登陆信息(注意数据库中用SYSDATE)6用string将日期格式化Ls_date=string(sle_1,’yyyy-mm-dd’)7在数据窗口中存入和提取数据获得当前行的行号：longll_iLl_i=dw_name.getrow()存：Dw_name.object.字段[行号]=ls_guid（变量）取：sle_name.text=string(dw_name.ob