用vb＋sql来做权限设置？？

Question

先登陆系统
再考虑权限问题
如果权限喺‘1’就可以打开全部窗口，如果权限喺‘2’某些窗口打不开想了两个星期了～！还是想不出～！

Answer 1

按1F的说法做,肯定可以的,新建2个表:表1名:用户表
字 段:用户名  权限级别
   如:user1   2表2名:权限操作表
字 段:权限级别  操作项目    能否操作(sfcz)
   如:2        数据修改     True登录后在表1中判断用户的权限级别,然后根据表1中的权限级别到表2中查找对应的 操作项目的 能否操作 标志,将菜单或按钮Enable值=表2!sfcz,具体代码自己写!

Answer 2

代码如下：
Private Sub 考勤修改_Click(Index As Integer)
If Cnn.Execute = "select 权限 from where 权限=2" Then
kaoqin3.Enabled
End If
If Cnn.Execute = "select 权限 from where 权限=1" Then
kaoqin3.Show
End IfEnd Sub出错～救命啊～
5识写代码啊～！

Answer 3

建个用户表 USE_ID,USE_PWD,USE_QX 权限在第3行 1代表管理员
 建你个模块  还有部分代码没给出 是连接数据库的自己完善
 Public Shared Function(ByVal xingxi As String) as  Boolean
  Dim SqlString As String = "select * from  where [USE_ID]='" & xingxi & "'"
      Try
            If val(ExecuteDataSet(SqlString).Tables(0).Rows(3)) = 1 Then
                Return True
            Else
                Return False
            End If
      end try
  end  Function
  这是你所给的事件
Private   Sub   考勤修改_Click(Index   As   Integer) 
     if aa(..)then
       kaoqin3.Show 
    else
       kaoqin3.Enabled 
     end if
end sub
             

Answer 4

ByVal   xingxi   As   String这是什么意思？