组织机构功能树中如何设置从哪个节点开始显示以及显示到部门哪个级别

atiger

在使用OrgTreeView组件表现组织机构的时候，通常需要将要显示的组织机构树局限在一个范围内，这样即可以避免看到不属于权限范围内的组织机构，也可以很方便的查找到自己要选择的组织单元。
实现这样的功能需要对OrgTreeView组件的StartWithNodes属性（即根节点）和设置ShowOptions（显示类型） 进行设置，下面的示例是设置OrgTreeView组件显示的指定的组织单元。

procedure TMainForm.Button3Click(Sender: TObject);
var
  lBizNode: TBizNode;
  lBizURL: TBizURL;
begin
  { 清除OrgTreeView1 }
  OrgTreeView.StartWithNodes.Clear;
  lBizURL := TBizURL.Create;
  try
    {从那个节点开始显示}
    lBizURL.URL := 'Org:\ROOT\YGJT.OGN\CGB.dpt';
    lBizNode := BizTree.BizTreeStructure.FindNodeByBizURL(lBizURL);
    if lBizNode <> nil then
      OrgTreeView.StartWithNodes.AddObject(lBizNode.GUID, lBizNode);
    { 不显示岗位成员和人员成员组织单元 }
    OrgTreeView.ShowOptions := OrgTreeView.ShowOptions -
      [TBizObjectKind.boPositionMember, TBizObjectKind.boPersonMember];
    OrgTreeView.ReloadTree;
  finally
    lBizURL.Free;
  end;
end;