如何将人员和部门选择局限在本机构？

john

procedure TMainForm.RestrictCurrentOrgin(AOrginUrl:string);
var
  lBizNode: TBizNode;
  lBizURL: TBizURL;
begin
  OrgComboBox1.BizTreeView.StartWithNodes.Clear;  { 清空根节点 }

  lBizURL := TBizURL.Create;
  try
    lBizURL.URL := AOrginUrl;  { 传机构节点的 URL }
    lBizNode := BizTree.BizTreeStructure.FindNodeByBizURL(lBizURL); {找到用于表现用的节点}
    if lBizNode <> nil then
      OrgComboBox1.BizTreeView.StartWithNodes.AddObject(lBizNode.GUID, lBizNode); {添加根节点}
  finally
    lBizURL.Free;
  end;
end;