请问我想实现以下功能怎么样做:
我用mainmenup这个组件来实现动态菜单实现不同用户登录时他所看到的菜单是不一样的,比如说管理员他可以看到所有的,一般用户是根据管理员给他分配的帐号实现不同的功能,菜单上这时也仅显示这些功能.请各位高手指点一下,希望能给个例子给小弟参考.
我用mainmenup这个组件来实现动态菜单实现不同用户登录时他所看到的菜单是不一样的,比如说管理员他可以看到所有的,一般用户是根据管理员给他分配的帐号实现不同的功能,菜单上这时也仅显示这些功能.请各位高手指点一下,希望能给个例子给小弟参考.
请说清楚一点,能否给小弟一个例子啊.
with dm_main.Query_Temp do
begin
Close;
Sql.Clear;
Sql.Add('select * from 权限表');
Open;
end; for I:=0 to frmMainForm.ComponentCount -1 do
begin
if frmMainForm.Components[i] is Taction then
begin
{tag>0的说明有权限,先把权限都禁止}
if (frmMainForm.Components[i] as taction).tag>0 then
(fMainForm.Components[i] as taction).enabled:=false; if dm_main.Query_Temp.Locate('reny_dm;per_id',VarArrayOf([UserID,inttostr((frmMainForm.Components[i] as taction).tag)]), []) then
(frmMainForm.Components[i] as taction).enabled:=true;
end;
end;