如何获得组织机构树选中节点的相关信息

atiger

在使用OrgTreeView组件的时候，需要获得被选中节点的组织单元对象，获取其相关信息。下面的示例就是获得OrgTreeView组件被选中节点的组织单元对象的类型、ID和显示名称。

procedure TMainForm.OrgTreeViewChange(Sender: TObject; Node: TTreeNode);
var
  lOrgUnit: Org.TOrgUnit;
  lID, lName, lKind, lStr: String;
begin
try
    lStr := '';
    lOrgUnit := Org.OrgSys.OrgSystem.GetUnit(TBizNode(Node.Data).BizURL);
    if Assigned(lOrgUnit) then
    begin
      lID := lOrgUnit.ID;
      lName := lOrgUnit.DisplayName;
      case TBizObjectKind(lOrgUnit.OrgKind) of
        Business.Model.TBizObjectKind.boOrgRoot: lKind := '组织机构根';
        Business.Model.TBizObjectKind.boOrgan: lKind := '机构';
        Business.Model.TBizObjectKind.boDept: lKind := '部门';
        Business.Model.TBizObjectKind.boPositionMember: lKind := '岗位成员';
        Business.Model.TBizObjectKind.boPersonMember: lKind := '人员成员';
   else
        lKind := '未知';
      end;
      lStr := lKind + #13 + #10 + lID + #13 + #10 + lName;
    end;
except
    lStr := '无此组织单元';
  end;
  MemoResult.Text := lStr; //把选取的组织单元信息显示在Memo组件中
end;