我现在要设计操作员权限模块,还没有头绪,怎么样让一个操作员以他的密码进去后,某些菜单进不去?
想问一下主要的思路:?
想问一下主要的思路:?
解决方案 »
- 100分求 李维 的《Inside VCL(深入核心——VCL架构剖析)》的电子版!
- 我用delphi7.0做了一个控件,但PB调用后退出报错,怎么回事
- 如果设置stringGrid中cell的格式? sorry.没多少分了
- 请问哪里有Delphi COM 深度探索一书下呀
- 100分求助,窗体入坞技术
- 200分提问!!!----DELPHI程序调试求救
- 请问高手:InterBase Guardian 的数据库默认的用户名和密码是什么?
- Dos文件系统何Windows的文件系统的区别?
- 菜鸟问题:如何拦截Windows消息?
- 找一个能看WORD2000文档的控件
- 请问Delphi里面的jpeg Error #53错误是什么?
- 用什么控件(按钮)标注(开、关)两种状态最方便。
var
i:integer;
TreeList: TStringList;
TempIndex: integer;
begin
TreeList:= TStringList.Create; Vmenu:TComponent;
for i:=0 to self.ComponentCount -1 do
begin
Vmenu:=self.Components[i];
if (Vmenu.Tag<>0)and(Vmenu is TMenuItem) then
begin
Treelist.AddObject(inttostr(Vmenu.tag),Vmenu);
if Vmenu.Tag in Digits then continue;
TMenuItem(Vmenu).Visible:=false;
end;
end; Treelist.Sort;
while not(dataSet.Eof) do
begin
if Treelist.Find(dataSet.fieldbyname('qxid').AsString,TempIndex) then
begin
TMenuItem(TreeList.Objects[TempIndex]).Visible:=true;
end;
dataSet.Next;
end;
当用某个用户名登陆后;先去找到该用户名下的所有记录;
遍历之;判断有无权限;又则另该菜单的enabled为true;
反之则为false;
可以防止使用某些软件把Disable的项目变成Enable,
有软件可以做到的,自己Hook编程都能实现