建立一个窗体权限表吧 表的字段大概如下(比如等于则没有任何权限访问) FormName Permission frmMain 1 frmSell 2 frmProduce 0然后在一个全局函数中进行那个: (比如你想对frmSell进行权限判断) Dim intPermission As Integer intPermission = GetPermission(strSellFormName) If intPermission > 0 Then frmSell.Show End If不过我现在还没有好的“动态”方法 不知道大家有吗?
我要求是动态的方法来达到动态调用: 比如说: 我有FrmShell窗体,当有语句: dim RsP as adodb.recordset set rsp=cn.execute("select * from 权限表名") if 用户有这个权限值 then forms("FrmShell").show'这句是不能使用的 end if 好像这样不太明白,但就是要用动态的如: forms("FrmShell").show'这句是不能使用的 来实现.
表的字段大概如下(比如等于则没有任何权限访问)
FormName Permission
frmMain 1
frmSell 2
frmProduce 0然后在一个全局函数中进行那个:
(比如你想对frmSell进行权限判断)
Dim intPermission As Integer
intPermission = GetPermission(strSellFormName)
If intPermission > 0 Then
frmSell.Show
End If不过我现在还没有好的“动态”方法
不知道大家有吗?
比如说:
我有FrmShell窗体,当有语句:
dim RsP as adodb.recordset
set rsp=cn.execute("select * from 权限表名")
if 用户有这个权限值 then
forms("FrmShell").show'这句是不能使用的
end if
好像这样不太明白,但就是要用动态的如:
forms("FrmShell").show'这句是不能使用的
来实现.