VB and SQLserver做系统 判定用户权限问题 CSDN大神多

Question

在数据库中，建立了一张表，成员为职工号，权限（权限设置为1,2,3,4,5,6,）。
现在想在FORM1(登录页面)判定用户的权限，然后在Form2(菜单)，按照权限的不同，使某些 command.enabled = false  
登录界面添加了一个ADO控件，然后可以在Text3 中 显示出权限。进而判断此权限在菜单中哪些command 可用。
判断权限代码：if text3.text= "6" then
command1.enabled = false  
command2.enabled = ture  
"
"
"
 
elseif text3.text="5" then  
""end if 下面就不写了，不知道问题出在哪，希望大家能够帮帮忙。
或者帮忙看下这个架构怎么样，按照上面的描述
引用楼主 的回复:
在数据库中，建立了一张表，成员为职工号，权限（权限设置为1,2,3,4,5,6,）。
现在想在FORM1(登录页面)判定用户的权限，然后在Form2(菜单)，按照权限的不同，使某些 command.enabled = false 
登录界面添加了一个ADO控件，然后可以在Text3 中 显示出权限。进而判断此权限在菜单中哪些command 可用。
判断权限代码：if text3.te……
这样的代码这么写累不累啊》？set rs=........
权限=rs("权限")select case 权限
case 1case 2case 3case 4case 5case 6end select
这段架构还需要ADO控件么？（注：有一张单独的权限表  只有2个列名  职工号   权限）

Answer 1

你可以把员工表跟权限表先连接查询，在直接判断权限:select a.*,b.权限名称 from 员工表 a inner join 权限表 b
on a.权限ID=b.权限ID这样你可以得到权限名，再通过名字判断，是否会好点？

Answer 2

 If Text3.Text = "6" Then
    Form20.Command1.Enabled = True
    Form20.Command2.Enabled = True
    Form20.Command3.Enabled = True
    Form20.Command4.Enabled = True
    Form20.Command5.Enabled = True
    Form20.Command6.Enabled = True
    
ElseIf Text3.Text = "5" Then
    Form20.Command1.Enabled = True
    Form20.Command2.Enabled = True
    Form20.Command3.Enabled = False
    Form20.Command4.Enabled = True
    Form20.Command5.Enabled = True
    Form20.Command6.Enabled = True
ElseIf Text3.Text = "4" Then
    Form20.Command1.Enabled = True
    Form20.Command2.Enabled = False
    Form20.Command3.Enabled = False
    Form20.Command4.Enabled = False
    Form20.Command5.Enabled = False
    Form20.Command6.Enabled = True
 ElseIf Text3.Text = "3 " Then
    Form20.Command1.Enabled = True
    Form20.Command2.Enabled = False
    Form20.Command3.Enabled = False
    Form20.Command4.Enabled = False
    Form20.Command5.Enabled = True
    Form20.Command6.Enabled = False
  ElseIf Text3.Text = "2" Then
    Form20.Command1.Enabled = True
    Form20.Command2.Enabled = False
    Form20.Command3.Enabled = False
    Form20.Command4.Enabled = True
    Form20.Command5.Enabled = False
    Form20.Command6.Enabled = False
  ElseIf Text3.Text = "2" Then
    Form20.Command1.Enabled = True
    Form20.Command2.Enabled = False
    Form20.Command3.Enabled = False
    Form20.Command4.Enabled = False
    Form20.Command5.Enabled = False
    Form20.Command6.Enabled = False
 End If
 Unload Me
MsgBox "登录成功"
Form20.Show
End If  
这个是我写在 登录按钮click时间里的部分代码   大家帮我看下哪有问题   不好用啊啊啊啊

Answer 3

主要现在是判断语句整不明白。判断应该是判断了，但是按钮不会变成 endabled =false .这个是不是需要什么前提条件的迷糊啊。