以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]新版目录树授权,shouquan内部函数修改和调用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68168)

--  作者:99473593
--  发布时间:2015/5/11 16:33:00
--  [求助]新版目录树授权,shouquan内部函数修改和调用


图片点击可在新窗口打开查看此主题相关图片如下:授权.jpg
图片点击可在新窗口打开查看

求助 (1) 内部函数 shouquan 和窗口“销售单”中的 AfterLoad 事件中调用内部函数 shouquan 的代码该怎么改

 

(2)再追加个问题,如何实现,在点击左侧目录树的第一,第二节点时,自动禁用右侧ListView的复选框,只有在点击第三节点时,才能操作ListView的复选框!

 

用张三  登录 密码:888


 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新版目录树授权.rar

[此贴子已经被作者于2015/5/11 17:12:52编辑过]

--  作者:大红袍
--  发布时间:2015/5/11 17:43:00
--  
    
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新版目录树授权.table


--  作者:99473593
--  发布时间:2015/5/11 19:53:00
--  

谢谢,我想在点击左侧目录树的第一,第二节点时,自动禁用右侧ListView的复选框,只有在点击第三节点时,才能操作ListView的复选框,能实现吗!

还有我想通过判断“销售单-新增”权限,来决定是否禁用菜单中的“新增”按钮,好像一直不生效,请问下问题在哪呢

 

 

If Functions.Execute("ShouQuan","销售单-新增")  Then
    RibbonTabs("XSD").Groups("功能组1").Items("新增").Enabled = True
Else
    RibbonTabs("XSD").Groups("功能组1").Items("新增").Enabled = False
End If


--  作者:大红袍
--  发布时间:2015/5/11 20:03:00
--  

回复3楼,你要不能用开发者身份登录,你切换到普通用户才行。

 

2楼已经限制了勾选了啊


--  作者:99473593
--  发布时间:2015/5/11 22:02:00
--  
以下是引用99473593在2015/5/11 19:53:00的发言:

谢谢,我想在点击左侧目录树的第一,第二节点时,自动禁用右侧ListView的复选框,只有在点击第三节点时,才能操作ListView的复选框,能实现吗!

还有我想通过判断“销售单-新增”权限,来决定是否禁用菜单中的“新增”按钮,好像一直不生效,请问下问题在哪呢

 

 

If Functions.Execute("ShouQuan","销售单-新增")  Then
    RibbonTabs("XSD").Groups("功能组1").Items("新增").Enabled = True
Else
    RibbonTabs("XSD").Groups("功能组1").Items("新增").Enabled = False
End If


我测试了几遍,好像有无授权都会被禁用,不知问题在哪


--  作者:大红袍
--  发布时间:2015/5/11 22:24:00
--  

 你去到 ShouQuan,弹出find函数的条件看一下就知道了,肯定是某个变量没赋值。


--  作者:99473593
--  发布时间:2015/5/12 11:15:00
--  
以下是引用大红袍在2015/5/11 22:24:00的发言:

 你去到 ShouQuan,弹出find函数的条件看一下就知道了,肯定是某个变量没赋值。


图片点击可在新窗口打开查看此主题相关图片如下:00009.jpg
图片点击可在新窗口打开查看

 


 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新版目录树授权1.rar

[此贴子已经被作者于2015/5/12 11:21:04编辑过]

--  作者:大红袍
--  发布时间:2015/5/12 11:20:00
--  
 2楼项目没有任何问题。
--  作者:99473593
--  发布时间:2015/5/12 12:00:00
--  

晕死了,发现问题了,好像权限判断代码要写在项目事件 AfterOpenProject 中才有效

写在 LoadUserSetting 无效


--  作者:大红袍
--  发布时间:2015/5/12 12:02:00
--  

 你什么时候需要判断,就写到什么事件去。

 

 你可以直接写到登陆窗口也行啊