VB+access设置登陆权限问题

2025-02-24 07:08:11

推荐回答（4个）

回答1：

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

回答2：

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

回答3：

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

回答4：

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