当前位置: 代码迷 >> PB >> pb语法有关问题
  详细解决方案

pb语法有关问题

热度:81   发布时间:2016-04-29 09:13:36.0
pb语法问题
由于我刚学pb9.0,于是我就看了一段代码,看的头疼,谁能帮我解释一下下面代码的意思,非常接受详解。也可以指点一下如何快速入手pb。。。。。。谢谢。。。。。
w_jbcloth_hengpai是窗体名称,其他参数不知道。。。。。
IF fun_check_qx(con_user_id, 'w_jbcloth_hengpai', 'save') = 1 THEN
w_mdi_title.of_setenabled('tbi_save', TRUE)
w_mdi_title.of_setenabled('tbi_modify', TRUE)
ELSE
w_mdi_title.of_setenabled('tbi_save', FALSE)
fun_columnmodify(dw_free,'', 'dwreadonly')
fun_columnmodify(dw_crosstab, '', 'dwreadonly')
END IF

------解决方案--------------------
全是自定义函数

IF fun_check_qx(con_user_id, 'w_jbcloth_hengpai', 'save') = 1 THEN
//不知道,应该是一个校验函数,qx应该是权限的中文拼音,校验当前用户的权限

w_mdi_title.of_setenabled('tbi_save', TRUE)
w_mdi_title.of_setenabled('tbi_modify', TRUE)
ELSE
w_mdi_title.of_setenabled('tbi_save', FALSE)

 //of_setenabled,应该是用来设置控件的enabled值


fun_columnmodify(dw_free,'', 'dwreadonly')
fun_columnmodify(dw_crosstab, '', 'dwreadonly')

 //fun_columnmodify,应该是用来对datewindow属性的修改END IF
------解决方案--------------------
fun_check_qx
fun_columnmodify
可能是全局函数

of_setenabled是窗口w_mdi_title的自定义函数
------解决方案--------------------
w_jbcloth_hengpai是窗体名称,其他参数不知道。。。。。
IF fun_check_qx(con_user_id, 'w_jbcloth_hengpai', 'save') = 1 THEN
--fun_check_qx() 应该是一个检查权限的函数,判断当前用户con_user_id是否有保存权限,如果有保存权限
w_mdi_title.of_setenabled('tbi_save', TRUE) 
w_mdi_title.of_setenabled('tbi_modify', TRUE)
//父窗口通过事件Of_setenabled , 窗口控件 保存,编辑功能可用
ELSE
// 该用户没有保存权限时,窗口控件保存功能不能使用
//通过fun_columnmodify 函数 设置dw_free,dw_crosstab为只读状态
w_mdi_title.of_setenabled('tbi_save', FALSE)
fun_columnmodify(dw_free,'', 'dwreadonly')
fun_columnmodify(dw_crosstab, '', 'dwreadonly')
END IF
------解决方案--------------------
VB code
If fun_check_qx(con_user_id, 'w_jbcloth_hengpai', 'save') = 1 Then    w_mdi_title.of_setenabled('tbi_save', True)    w_mdi_title.of_setenabled('tbi_modify', True)Else    w_mdi_title.of_setenabled('tbi_save', False)    fun_columnmodify(dw_free,'', 'dwreadonly')    fun_columnmodify(dw_crosstab, '', 'dwreadonly')End If/*就字面上看 1. con_user_id 是用户的ID ,一般为当前用户登录ID2. fun_check_qx(con_user_id, 'w_jbcloth_hengpai', 'save') 是获取用户con_user_id   对窗口w_jbcloth_hengpai 是否有save(保存)权限 ,返回值1 是有,否则是没有3. 用户有保存权限时 设置按钮 tbi_save ,tbi_modify 是可以用的,也就是可以点4. 没有没有权限 ,设置按钮tbi_save不可用,然后设置 dw_free,dw_crosstab 都不可以进行编辑操作*/
  相关解决方案