在ＱＣ中如何控制权限

fly

本人在项目测试的过程中，有几个子系统，不同的子系统由于不同的测试组进行测试；想在ＴＥＳＴＰＬＡＮ中创建几个属于几个子项目的文件夹，这个文件夹只有属于本组的成员才能操作，我在ＱＣ中设置了几个不同的组，在脚本中添加了一段代码：
Sub TestPlan_MoveToSubject(Subject)
  On Error Resume Next
  if Subject="Ａ"and User.IsInGroup("ＡＴＥＳＴＥＲ")   then
  TestPlan_MoveToSubject=true
  else
    TestPlanMoveToSubject=false
    end if
  On Error GoTo 0
End Sub
但发现没有起到控制权限的作用．大家有没遇到类似的问题，谢谢！

apple528008

试了一下，在site adminitrator 中可以增加不同用户，然后分别用这些用户登录后创建文件夹，互相之间可以看到脚本，但是却只能打开自己创建目录下的脚本，不知道是不是你想要的权限控制

fly

你是通过隐藏字段来控制的么?

astro-dragon

2 楼的这个应该是可以通过设置用户组的data-hiding filter 来实现的吧。可以将designer 设定为current user。 不过感觉这个方面简单但是不够方便，如果能通过类似1楼 的方法实现就好了。
     有的时候有这种需要，比如将某个项目按模块划分给某个用户或用户组，另这个用户组或用户只能操作自己的相关模块。
     顶。求解决办法。

[ 本帖最后由 astro-dragon 于 2007-8-15 09:50 编辑 ]

fly

我先前是以2楼的方法做的,但这不是我的目的,只是看不到了,但实现上还是有操作权限的,可能会造成垃圾数据之类的,可通过脚本目前还在解决中:(