我想在VB中加个权限,只有一个用户登陆进来,菜单编辑器编辑出来的菜单好用

来源:百度知道 编辑:UC知道 时间:2024/06/13 22:44:47
Private Sub MDIForm_Load()
txtSQL = "select uright from login "
If uright = 0 Then
yonghu.Enabled = False
shuji.Enabled = False
End If
我在主窗体里加入的这个代码 可惜的是谁登录进来都好用 我想就管理员进来好用 谢谢了 我就知道这一个方法 请问谁有更好???

Private Sub MDIForm_Load()
'查询管理员名称
If rs("管理员名称")<>"当前登录管理员名称" Then
yonghu.Enabled = False
shuji.Enabled = False
End If

工程、添加窗体、登陆对话框

你的意思就是说 访问者登陆只能有你设定的功能能用别的不能用,而你管理员可以操作全部?

如果是这样的话,代码不是那么简单的。