PBPL5.24说明.docVIP

--------------- 2003年4月5日晚更新（DuSDong）--------------- 一、nvo_outlookdriver_navigate控件的of_show_buttons事件中在68行为IF mod(li_loop ,li_buttons_perline)=0 THEN ，当li_buttons_perline = 0 时，会出现错误（我碰见过），因此加入下一行进行判断：if li_buttons_perline = 0 then exit 二、nvo_rightsmanager中函数of_getrights()第3行开始改为：select run,ins,upd,del,prn,qry,hiddencols,filtersql into :lus_rights.run,:lus_rights.add,:lus_rights.upd,:lus_rights.del,:lus_rights.prn,:lus_rights.qry,:lus_rights.hiddencols,:lus_rights.filtersql from smduser where sysid = :g_app.sysid and userid = :as_userid and progid= :as_progid using sqlnew ; 三、w_comman_sdi_pattern事件ue_set_rights第11行为ls_progid = left(this.title,7)，使用窗口title传递窗口的progid值。因此窗口的Title必须同该窗口的name（如：w_dmm0010）相同，否则窗口打开后无法取得用户对该窗口的权利。改变为使用变量来传递，这样窗口的Title可以随便命名了。㈠ nvo_app声明Instance Variables：string NewlyWindow㈡ nvo_app事件ue_app_runprogram第9行插入脚本： NewlyWindow = progid㈢ w_comman_sdi_pattern事件ue_set_rights第11行脚本改为： ls_progid = g_app.NewlyWindow 四、假如用户无权打开窗口的话，nvo_app事件ue_app_runprogram中第11行执行脚本winmanager.of_register_win(w_win,progid,w_win.title)会出现错误，在11行前插入脚本：if not isvalid(w_win) then return 五、nvo_rightsmanager中函数当使用ref any参数时，有时会出现莫名的错误，改为return any实现：㈠ 函数of_getsubsys(string as_userid, string as_sysid, ref any as_subsysids) return none  改为of_getsubsys(string as_userid, string as_sysid) return any函数关联的脚本：① nvo_outlookdriver_navigate中函数of_gen_invbuttons() 第12行改为： la_ret = g_rightsmanager.of_getsubsys(g_user.userid,as_subsysid)② w_outlook_driver_win中事件ue_gen_navigate第17行改为 la_ret = g_rightsmanager.of_getsubsys(g_user.userid,ls_subsysid2)③ w_tree_driver_win中事件ue_gen_navigate第51行改为 la_ret = g_rightsmanager.of_getsubsys(g_user.userid,ls_subsysid2)㈡ 函数of_getsubprogram(string as_userid, string as_subsysid, ref any as_subsysids) return none 改为of_getsubprogram(string as_userid, string as_subsysid) return any函数关联的脚本：① nvo_outlookdriber_navigate中函数of_gen_invbuttons() 第26行改为： la_ret = g_rightsmanager.of_getsubprogram(g_user.userid,as_subsysid)㈢ 函数o