首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > PB >

请讲解下这段程序,该怎么处理

2012-03-25 
请讲解下这段程序dw_1.settransobject(sqlca)string ls_itemcode, ls_pass, ls_itemnamels_passmessage.s

请讲解下这段程序
dw_1.settransobject(sqlca)
string ls_itemcode, ls_pass, ls_itemname
ls_pass=message.stringparm
long ll_start
ll_start=pos(ls_pass,'/')
ls_itemcode=left(ls_pass,ll_start - 1)
ls_itemname=ls_pass
this.title=ls_itemname+"------参加人员录入窗口"
long ll_rows
ll_rows=dw_1.retrieve(ls_itemcode)
if ll_rows=0 then
  cb_add.triggerevent(clicked!)
end if

[解决办法]
dw_1.settransobject(sqlca) //设置事务连接对象sqlca
string ls_itemcode, ls_pass, ls_itemname //定义string型 变量
ls_pass=message.stringparm //接收从别的窗口传递过来的存在message对象里的参数
long ll_start //定义long型 变量
ll_start=pos(ls_pass,'/') //判断字符串变量ls_pass代表的字符串中,'/'的位置,返回ll_strat
ls_itemcode=left(ls_pass,ll_start - 1) //根据'/'的位置从左边取字符串,赋值给ls_itemname
ls_itemname=ls_pass //给变量赋值
this.title=ls_itemname+"------参加人员录入窗口" //给当前窗口定义窗口名
long ll_rows //定义long型变量
ll_rows=dw_1.retrieve(ls_itemcode) //让dw_1根据ls_itemcode这个参数检索数据
if ll_rows=0 then //如果检索到的数据的行数是0,那么就触发cb_add这个按钮的点击事件
cb_add.triggerevent(clicked!)
end if

其实这段代码写的不规范,因为所有的变量的定义应该定义在整段程序的开头部分。尽量不要在程序段的中间定义。
[解决办法]
其实这段代码写的不规范,因为所有的变量的定义应该定义在整段程序的开头部分。尽量不要在程序段的中间定义?

这不一定,主要看个人习惯,只要一致就好

热点排行