UC知道vb如何实现access某个帐户权限判定
来源：百度知道 编辑：UC知道 时间：2024/05/29 04:36:01
access数据库中系统管理表 字段：用户名、密码、权限
一个登陆窗体 一个主窗体
想设定 登陆成功后开始判定权限
权限=admin时 让主窗体菜单中 删除用户项 可见 否则不可
权限=guest时 主窗体菜单中 添加用户项 删除用户项不能用
在线等 最好详细点
ACCESS里面user表中有个purview字段吗,这里面填admin和guest
在通用模块中写
public temppurview as string
''在主窗口中
''''temppurview的值是在用户登陆时赋值的
private sub form_load()
if temppurview=admin
菜单.visible=true
elseif tempurview=guest
菜单.visible=false
endif
end sub
赋值的代码怎么写
一个登陆窗体 一个主窗体
想设定 登陆成功后开始判定权限
权限=admin时 让主窗体菜单中 删除用户项 可见 否则不可
权限=guest时 主窗体菜单中 添加用户项 删除用户项不能用
在线等 最好详细点
ACCESS里面user表中有个purview字段吗,这里面填admin和guest
在通用模块中写
public temppurview as string
''在主窗口中
''''temppurview的值是在用户登陆时赋值的
private sub form_load()
if temppurview=admin
菜单.visible=true
elseif tempurview=guest
菜单.visible=false
endif
end sub
赋值的代码怎么写
权限字段最好是整型
在公共模块设置变量level
登陆成功后,设置它的值
主窗体load事件
if level = 0 then
删除用户项.visible = true
添加用户项.enable = true
删除用户项.enable = true
else
删除用户项.visible = false
添加用户项.enable = false
删除用户项.enable = false
end if
___________________
在登录框里写，你的登录框代码呢
问题不明确。
admin、guest是程序用户还是系统用户？
系统用户：
msgbox Environ("USERNAME")