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

[becky_222]

先登陆系统
再考虑权限问题
如果权限喺‘1’就可以打开全部窗口，如果权限喺‘2’某些窗口打不开

想了两个星期了～！还是想不出～！

[大王派我去巡山]

??? 想不出你为什么想不出

数据库里给用户加个“权限”字段，根据用户名和密码登录后，如果该用户权限为2，则某些窗体不可见或者某些按钮不可用。

楼主说的不是这个吗？

[chyvlcy123]

1L说的不错

[砸死牛顿的苹果]

~~

[becky_222]

试过了～～～
不行，可能是代码写错～！不会具体的代码如何写～！！

[jieweibin]

按1F的说法做,肯定可以的,新建2个表:

表1名:用户表
字 段:用户名 权限级别
如:user1 2

表2名:权限操作表
字 段:权限级别 操作项目 能否操作(sfcz)
如:2 数据修改 True

登录后在表1中判断用户的权限级别,然后根据表1中的权限级别到表2中查找对应的 操作项目的 能否操作 标志,将菜单或按钮Enable值=表2!sfcz,具体代码自己写!

[becky_222]

讲得好详细～不过可惜我喺白痴～～
求你帮我写写个代码啦～～
这些我都明白～！不过就....

[becky_222]

代码如下：
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 If

End Sub

出错～救命啊～
5识写代码啊～！

[兜兜里哈是糖]

建个用户表 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

[becky_222]

ByVal xingxi As String

这是什么意思？