动态给用户付功能权限,参考一下下面的代码:
lOrigin := OrgSys.OrgSystem.GetUnit(AParent);
if FOrgFuncKind = TOrgFuncKind.ofkManage then
lItems := lOrigin.Module.ManageFuncAlloc
else
lItems := lOrigin.Module.RunFuncAlloc;
lItems.Clear;
for I := 0 to FItems.Count - 1 do
lItems.AddItem(FItems[I].FuncURL);
OrgSys.OrgSystem.SaveUnit(lOrigin);