设置权限?那位大侠指点一下(30分)

  • 主题发起人 主题发起人 hailang8
  • 开始时间 开始时间
H

hailang8

Unregistered / Unconfirmed
GUEST, unregistred user!
就是设置系统的权限,把每一用户的操作区分开来。
我现在想做一个能由系统管理员设置的权限
由系统管理员来给每一位用户授权
指点有分
好的再加分
 
把所有菜单放入数据库,然后为每个用户分配他所能操作的菜单!
 
但是還有比如說查,寫,刪又如何處理
 
如果是简单赋权,就把菜单放入数据库中就行;
复杂一点
先根据权限的级别把权限分类,
把功能编码放入一个授权表;然后在用户表中存放用户的权限编码(可以是多个权限的编码串);
使用时先取出用户的权限编码,判断用户是否有权限;我们的系统就是这样管理权限的。
不好意思说的不太清楚
 
设置数据表存放权限信息
可以由字符串组成
1表示有权限,0表示没有权限
每一位代表一个模块的权限
字符串长度由模块数量决定
 
把所有菜单项放入库中,用的是时候从库中提取权限
 
to lanbing1400
设计数据库表时,那字段应该怎设计比较好呢
 

怎么发相同的帖子?
 
不小心点多了
 
那位高手指点一下
急!急!
 
自己从Tmenu做一个class,多加一个属性表示权限,不同的用户可以设置不同的权限,加一两个对此属性操作的函数。
这样不用操作数据库了。
 
to shiwee
我着手delphi还没多久由许多都不懂
你能不能详细的解释
能带代码最好
谢谢了
 
type
TMyMenu = Class(TMenu)
private
FPri: Integer; //权限
public
procedure SetPri(pri: Integer); //设置权限
function GetPri(): Integer; //获得需要的权限值
end;

function CanAccess(Pri: Integer; menu: TMyMenu): Boolean; //比较大小,有权限访问就返回True.
我的思路大概是这样的,不一定好。供参考。
 
to shiwee
谢谢!
我次一下
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
875
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部