数据表  设计如下：
   admin_id   user    pass    qx  
    001       admin   admin    system
    002     ldy      ldy       putong
其中admin_id 为管理员编号   user 为用户名     Pass为密码   qx为权限
表名为gl
基本窗体两个  frm_login(登陆窗体）    frm_main（系统主窗体）
要实现的效果，系统登陆成功后 判断如果是普通用户权限 则不能使用   
frm_main  上的xiugai  和shanchu  按钮
应该怎么写啊，没个思路啊，翻了基本书也没找到合适的例子，最好哪位大哥能给个例子看下，我看看自己练习下就会了，先谢谢了

谢谢大家，能否给份源码看一下啊，这样凭空说看得一头雾水的

[ 本帖最后由 coffecat1119 于 2011-11-15 08:44 编辑 ]

大哥你好：你这种方法应该是要同时交叉查询两个数据表的吧，交叉表查询对于我们新手来说难了点儿，大哥你能否给份简单点儿的案例源码学习一下啊，谢谢你了
另外请教下能否把权限传递给某一变量，然后随时一句话简单调用啊，就像ASP中用SESSION 或者cookies传递变量那样的

[ 本帖最后由 coffecat1119 于 2011-11-15 08:48 编辑 ]

谢谢大哥

我找到个传递变量的，也把代码分享给大家一下吧


Public Function QuanXian(blnDJ As Boolean)
  If blnDJ = True Then
     MDIForm1.mnuAddNew = True
     MDIForm1.mnuIn = True
     MDIForm1.mnuOut = True
  Else
     MDIForm1.mnuAddNew = False
     MDIForm1.mnuIn = False
     MDIForm1.mnuOut = False
  End If
End Function





rs2.Open "Select 权限 From 系统 Where 用户名='" & Combo1.Text & "' ", _
             cn, adOpenKeyset, adLockOptimistic
      If rs2.Fields(0) = "System" Then blnDJ = True
      If rs2.Fields(0) = "Guest" Then blnDJ = False







Private Sub MDIForm_Load()
     Call QuanXian(blnDJ)
End Sub

向你请教一下你所说的方法