关于作者域的问题

fish5678

我给表单添加了作者域，通过计算来得到。

我写得的计算公式的意思是 当一个用户访问文档时根据他的角色和用户的层次结构来确定该用户是否是合法的作者，如果是就把这个用户的用户名添加到作者域。

可是：作者域算出来了，用户还是不能更改文档。

不知道我说明白没有。总结一下就是可不可以在显示时根据当前用户来计算作者域。

谢谢！

vicky_1

作者域的计算是滞后的，显示时计算不修改后端文档的值，作者域和读者域都不改是显示时计算。

fish5678

谢谢你了，明白了为什么不好用！
可怎么解决呢？愁死了

vicky_1

只要将作者域事先计算好就可以了，比如作者域中有“[author]”角色，将有权限的用户增加[author]的角色就可以了

fish5678

如果都为每个单位添加角色，应该有60多个角色。
我想通过用户的层次结构来判断是否可以访问，这样只需要根据层次设置三个角色就可以了。所以就产生了如上的问题。
我再说明白一点：
就是我有很多单位，但是分为三个层次，我想使每个单位的管理员只可以访问和修改自己单位的文档，而且管理员可能发生变化，不是一个id。
再次表示感谢！

vicky_1

那这样我建议你使用表单的  Querymodechange 事件，这个事件是在文档的模式变化以前发生的。即一般来说可以写一些代码，当模式变化为“编辑”以前监测权限。
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
       
   If  判断条件不成立 Then

     Messagebox "本文档年没有权限编辑",MB_OK
     Continue = False       
   End If
       
End Sub

vicky_1

也可以使用 Queryopen 事件，文档打开以前发生。
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)

   If  判断条件不成立 Then

     Messagebox "本文当您没有权限打开",MB_OK
     Continue = False
   End If

End Sub

fish5678

多些了！非常感谢！
我现在暂时用用户名写入作者域了，如果发生角色变化，用代理来更改用户名。很麻烦。
你说的办法我试一下！
再次表示感谢。
这个问题我在别的论坛发了好久，都没人回。这里真不错！

vicky_1

不客气~~~~