Question

VB+access设置登陆权限问题

就是说我做了一张表，里面包含了，用户名，密码和权限
用户名 密码 权限
admin 123 管理员
wang 321 员工
而权限是用中文字体表示“管理员”,"员工"
现在想做到用户登陆之后，如果是管理员就可以使用所有功能，而员工登陆有部分功能无法使用。
该怎么做，请帮忙，最好有代码
Private Sub Command1_Click()

If Text1.Text = "" Then
MsgBox "用户名不能为空"
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "密码不能为空"
Text2.SetFocus
Exit Sub
End If

Adodc1.RecordSource = "select * from 登陆 where 帐号='" & Text1.Text & "'"
Adodc1.Refresh

If Adodc1.Recordset.EOF Then
MsgBox "没有这个用户，请重新输入正确的用户名", , "错误提示"
Else
If Text2.Text = Adodc1.Recordset.Fields("密码") Then
Form2.Show
Form1.Hide
Else
MsgBox "你的密码错误,请输入正确的用户密码！", , "错误提示"
End If
End If
End Sub

Answer 1

在模块中定义一个全局变量，例如：QX，在登录时，将用户的权限存储在变量QX中，进入登录后的界面：
Private Sub Form_Load()
If QX = "管理员" Then
'使员工不能使用的功能为真的代码
'......................
ElseIf QX = "员工" Then
'使员工不能使用的功能为假的代码
'.......................
End If
End Sub

追问

If qx = "管理员" Then
Command3.Visible = ture
Command3.Enabled = ture

ElseIf qx = "员工" Then
Command3.Visible = False
Command3.Enabled = flase

End If
这样？请问怎样 将用户的权限存储在变量QX中

追答

添加一个模块，在模块中定义一个全局变量， Public QX As String
在登录界面：QX=RS!权限

追问

模块中添加了 Public QX As String，也在进入登录后的界面添加了代码，还是不行。。。

追答

在登录界面：登录成功后：QX=RS!权限（RS!权限 是读取数据库的权限字段的数据），如果你没有连接数据库，就不能这样。

另外：
If qx = "管理员" Then
Command3.Visible = ture
Command3.Enabled = ture
ElseIf qx = "员工" Then
Command3.Visible = False
Command3.Enabled = flase
End If
中用Command3.Visible = ture就不要再用Command3.Enabled = ture

追问

QX=RS!权限添加在登陆界面哪里？
添加在Private Sub Command1_Click()里面就显示要求对象
添加在FORM里面都显示要求对象

追答

在登录界面：登录成功后：QX=RS!权限（RS!权限 是读取数据库的权限字段的数据），如果你没有连接数据库，就不能这样。
“添加在Private Sub Command1_Click()里面就显示要求对象”估计你没有连接数据库，就你的登录的Private Sub Command1_Click()代码给我，帮你。

追问

我发在补充问题那里了，请看看

追答

If Adodc1.Recordset.EOF Then
MsgBox "没有这个用户，请重新输入正确的用户名", , "错误提示"
Else
If Text2.Text = Adodc1.Recordset.Fields("密码") Then
Form2.Show
Form1.Hide
QX = Adodc1.Recordset.Fields("权限") '这里将用户权限加在变量QX中
Else
MsgBox "你的密码错误,请输入正确的用户密码！", , "错误提示"
End If
End If

追问

qx = RS!权限 添加在Private Sub Command1_Click()里面显示要求对象
我原来是可以登陆进去的

追答

QX = Adodc1.Recordset.Fields("权限") '这里将用户权限加在变量QX中
这样修改，因为你链接的是Adodc1，不是RS记录集对象

追问

终于可以了。。权限那里改成1，0。。Public QX As integer
改成这样就可以了。。用中文就不行。。

Answer 2

做三个IF语句，打开不同的菜单，如管理员就可以让一些权限菜单为真，员工是就让这些菜单为假不可用，就行了，给分

追问

可以写出代码来吗？

追答

代码我又不知道你写的具体东西，这个你要自己写，

追问

那怎样读取权限？

追答

写成INI文件，或是直接写在语句里，
哦，你可以把用户名密码权限都写在一个数据库文件里，然后数据库加上迷

Answer 3

再在表中添加一项“权限”，判断权限，当权限为1时************，当权限为0时***********

追问

请问怎样判断权限

追答

读取表格中的“权限”一栏，如果为1，则是管理员，拥有*****权力
如果为0，则没有*******权力

追问

请问怎样读取权限，就是这里不会搞

追答

直接给你代码！
If Adodc1.Recordset.EOF Then
MsgBox "用户名不存在！", , "登录失败！" '未找到输入的账号
zh = "": zh.SetFocus: key = ""
ElseIf Val(key) Adodc1.Recordset.Fields("密码") Then
key = "": key.SetFocus: sycs = sycs - 1
MsgBox "密码不正确！" & "还可以登陆" & sycs & "次", , "登录失败！" '找到账号但是密码输入错误
Else
If Val(Adodc1.Recordset.Fields(6)) = 1 Then MsgBox "您的登录权限是管理员！", , "提醒！" '登录成功 这里是判断权限Fields(6)就是权限一栏
dl_level = Val(Adodc1.Recordset.Fields("权限等级")) '记录登录的账号的权限
login.Hide: manage.Show '管理窗口弹出
dl_name = Adodc1.Recordset.Fields("真实姓名") '记录登录账号的真实姓名
dl_key = Adodc1.Recordset.Fields("密码")
End If

追问

我的登陆代码发出来了，帮我看看那哪里加权限代码

追答

MsgBox "没有这个用户，请重新输入正确的用户名", , "错误提示"
Else
If Text2.Text = Adodc1.Recordset.Fields("密码") Then
Form2.Show
Form1.Hide
if Adodc1.Recordset.Fields("密码") =1 then ' *
msgbox"你是管理员",,"提示" '*
else '*
msgbox"你是会员",,"提示" '*
end if '*
Else
MsgBox "你的密码错误,请输入正确的用户密码！", , "错误提示"
End If
End If
End Sub
你的数据库要有“权限”这一字段哦

Answer 4

很简单，你只要在存放用户的表里加个字段为用户的等级，然后VB中有个隐藏的文本框，或单选，或多选按钮存放该值，默认为普通用户的级别，但通过管理员帐户可以设置为管理员帐户，数据库表中默认要添一个管理员帐户 4vbnm88244

追问

用户的表里怎样加个字段为用户的等级。。。
可以说一下详细步骤吗？