【结贴】如何程序实现给组织机构中的成员分配指定功能。**

lyc

给某个人员成员,岗位成员,分配指定的功能.
比如已知10个人员成员,想把指定的功能分配给他们，用程序如何实现?

jiahaiming

组织单元的功能权限存储在其Module.RunFuncAlloc属性中。
对组织单元分配权限，就是在操作这个属性。楼主可以参考一下组织机构管理器中的代码：
Static function TASSIGNMANAGEFUNC.AssignA(AContext: TContext; AParent: TBizURL; AOrgFuncKind: TOrgFuncKind; ADeptManager: TDeptManager): Boolean;
var
  I: Integer;
  lOrigin, lOrg: TOrgUnit;
  lItems: TOrgFuncAllocItems;
begin
  lOrg := TOrgUnit.Create(AParent);
  with TAssignManageFunc.Create(AContext) do
  try
    FDeptManager := ADeptManager;
    Caption := StrUtils.IfThen(AOrgFuncKind = TOrgFuncKind.ofkManage, '分配管理功能', '分配运行功能');
    FParentModule := lOrg.Module;
    if AOrgFuncKind = TOrgFuncKind.ofkManage then
      FItems := FParentModule.ManageFuncAlloc
    else
      FItems := FParentModule.RunFuncAlloc;

    FOrgFuncKind := AOrgFuncKind;
    InitUI;
    Result := ShowModal = Business.Forms.Controls.mrOK;
    if Result then
    begin
      Forms.Screen.Cursor := Business.Forms.Controls.crHourGlass;
      try
        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);
        TCommonFunc.OrgChanged;
      finally
        Forms.Screen.Cursor := Business.Forms.Controls.crDefault;
      end;
    end;
  finally
    Free;
    lOrg.Free;
  end;
end;

lixy

长时间未回馈，结贴了