【结贴】如何根据部门的代码取得该部门下面所有的人员**

bzlhfh213

现在的情况是这样，我现在从一张表里取得一个部门字段（在数据库对应该部门代码），现在我想通过过该部门代码，取得该部门在组织机构中的ID，然后通过部门ID找到其下岗位ID，再根据岗位ID取得其下所有的人员。

现在问题是该怎么通过部门名称（数据库中为代码），找到该部门再组织结构的中对象呢，还有取岗位下所有人员该如何实现？

lisb

use处需要加上Business.Model.org

procedure TMainForm.Button2Click(Sender: TObject);
var
  lOrUnit: TorgUnit;
  lBizNode: TBizNode;
  lList: TStringList;
  I: integer;
begin
  lList := TStringList.Create;
  try
    lOrUnit := org.OrgSys.OrgSystem.GetUnit('ZJB','','');  //通过三个ID的方式得到组织单元
    lBizNode := BizTree.BizTreeStructure.FindNodeByBizURL(lOrUnit.BizURL);   //得到组织单元在组织树中的节点
    BizTree.BizTreeStructure.GetChildren(lBizNode.GUID, lList, False);  //取子
    for I := 0 to lList.Count - 1 do
    begin
      jsDialogs.ShowMsg(
        (lList.Objects[I] as TBizNode).BizURL.ID,
        '');
    end;
  finally
    lList.Free;
  end;
end;

lisb

由于长时间没有回复，先结贴了，有问题请开新帖。