起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 185|回复: 1

[请求]权限的设置!!!**

[复制链接]
发表于 2007-2-7 15:26:01 | 显示全部楼层 |阅读模式
有实现修改权限的代码实例以供参考吗?
回复

使用道具 举报

发表于 2007-2-7 16:34:20 | 显示全部楼层
权限?什么权限?

下面的功能权限的例子:
static procedure THrLib.AssignPersonFunc(const  APersonID: string; const AFuncURL: string);
var
  lOrgUnit: TOrgUnit;
  lPersonMembers: TList;
  i : Integer;
begin
  if  BizSys.BizSystem.URLExists(AFuncURL) then
  begin
    lPersonMembers := TList.Create;
    lPersonMembers.Clear;
    try
      OrgSys.OrgSystem.GetPersonMembers(APersonID, lPersonMembers); //
      for i := 0 to lPersonMembers.count-1 do
      begin
        lOrgUnit := TOrgUnit(lPersonMembers.Items);
        if (lOrgUnit <> nil) and (lOrgUnit.Module.FuncURLs.IndexOf(AFuncURL) = -1) then
        begin
          lOrgUnit.Module.RunFuncAlloc.AddItem(AFuncURL);
          //lOrgUnit.Module.FuncURLs.Add(AFuncURL);
          OrgSys.OrgSystem.SaveUnit(lOrgUnit);
        end;
      end;
    finally
      lPersonMembers.Free;
    end;
  end;
end;
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2024-12-24 21:09 , Processed in 0.037237 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表