如何给登陆用户设置权限！
比如系统管理员可以看到所有的操作
一般用户只能看到部分操作
谢谢

我写的代码不关什么权限都一样
If Trim(Adodc1.Recordset.Fields("权限")) = "A" Then
main.menu11.Enabled = False

所谓权限只是设置程序功能局部可用还全部可用
我举个简单的例子
一个程序有两个按钮
超级用户可以使用这两个按钮的功能
普通用户只能使用一个
我用假代码写个程序
那么有以下程序
if 权限="超级用户" then
commmand1.enabled=true
commmand2.enabled=true
else
commmand2.enabled=false
end if

哦，我没有写else后面的，难怪我不所有的权限都一样，一个是false
不管哪个级别的都是false
谢谢两位了！
以后多多指教