小弟要做一个用户,权限管理的东东

ladofwind 中国国际金融有限公司 研发部经理  2004-10-15 05:18:30
有 role,roleuser,user三表,具体怎么做呢/?有没有点思路 ?
...全文
124 点赞 收藏 7
写回复
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
GGL123 2004-10-18
UP
回复
ladofwind 2004-10-18
up
回复
ladofwind 2004-10-15
?
回复
soupeven 2004-10-15
不好意思,有乱码!@
见下

Public strUserName As String

Private Sub Form_Load()
strUserName = strLonginUserName
If strUserName = "admin" Then
cmdAdd.Enabled = False
cmdDelete.Enabled = False
Else
cmdAdd.Enabled = True
cmdDelete.Enabled = True
End If
End Sub
回复
soupeven 2004-10-15
可以使用一个全局变量存储用户登录时的用户名,过入系统后再进行检查
类似代码:


Public strUserName As String 'È«¾Ö±äÁ¿
Public strLonginUserName As String '¼ÙÉèstrLonginUserNameÖд洢ÁËÓû§µÇ¼µÄÓû§Ãû

Private Sub Form_Load()
strUserName = strLonginUserName
If strUserName = "admin" Then
cmdAdd.Enabled = False
cmdDelete.Enabled = False
Else
cmdAdd.Enabled = True
cmdDelete.Enabled = True
End If
End Sub

为了安全起见,建议把验证的代码写成一个DLL组件,在客户端进行调用
回复
wwqna 2004-10-15
在role和,和user中设置一权限字段,用1和0表示权限,在程序中控制该模块所处的位置,然后再在权限字段中读取。
回复
fxyfx 2004-10-15
user表内,user_id,user_name
role表内,role_id,role_name
roleuser表内,user_id,role_id

当一个用户登录
select role_name from roleuser where user_id=用户id
增加权限
insert into roleuser values(user_id,role_id)
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告