在同一个窗体里不同用户的权限

北妹78222

请问，在同一个窗体里，如何控制不同的用户名可以看到同一个窗体里不同的内容。比如说，用户1在同一个窗体里，全部内容对它来说可是可见的。但是对于用户2，在同一个窗体里，有一部分内容却是不可见的。因为它没有这部分的权限。请问，有这个方法吗？

竹笛

用visable,例如：
if A用户 then
内容.visable=false
else
内容.visable=true
end if

举一反三。

cnwang

建表：用户表、功能表、前二者对应表。

　　　然后在窗体LOAD事件中调用模块进行设置。

luckywjl

好！

yangruilai

cnwang:希望做个示例

luckywjl

如果不同的用户，能修改不同的数据，请问如何处理？

sz1437

我也想知道

sz1437

要是那位高手搞个专题就感激不尽

Roadbeg

举一个权限例子:
其中 TOPBILL,BILL,SUBBILL,Gsys_Read,Gsys_Edit 为自定义常量

private sub form_load()
    If Not (GetPur(TOPBILL, Gsys_Read) And GetPur(Bill, Gsys_Read) And GetPur(SUBBILL, Gsys_Read)) Then
        Gerr = 16                               '没有当前单据的读取权限,程序结束
        ShowErr
        DoCmd.Close
        End
    End If
end sub
'该按钮对应'编辑'功能
private sub cmdEdit_click()
    If Not (GetPur(SUBBILL, Gsys_Read) And GetPur(SUBBILL, Gsys_Edit)) Then
        Gerr = 15                               '没有足够的权限执行此操作
        ShowErr '显示错误信息
        exit sub
    End If
end sub

Roadbeg

函数 GetPur 返回 当前用户对指定表格的指定操作的权限

必须设 用户表,及权限表以记录用户的权限设置,以供 GetPur 读取

只要在每一个需要限制的操作中加入以上代码就行了
你也可以用 GetPur 来判断用户是否可以查看(用 Visible 属性)或编辑(用 Locked 属性)
某些字段.

( 当然,你得编写适应自己系统的 GetPur 函数)

[此贴子已经被作者于2003-2-14 18:58:14编辑过]