如何利用组织机构树选取机构、部门、岗位或人员

john

procedure TMainForm.OrgTreeView1Change(Sender: TObject; Node: TTreeNode);
var
  lBuf: string;
  lID: string;
  lName: string;
  lKind: string;
  lBizURL: TBizURL;
  lOrgUnit: TOrgUnit;
begin

  lBizURL := TBizURL.Create;
  lBizURL.URL := TOrgNode(OrgTreeView1.Selected.Data).ObjectID;

  lOrgUnit := OrgSys.OrgSystem.GetUnit(lBizURL);
  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 := '(未知:' + TOrgNode(OrgTreeView1.Selected.Data).ObjectKind + ')';
  end;

  lBizURL.Free;

  lBuf := lKind + #13 + #10 + lID + #13 + #10 + lName;
  memo1.SetTextBuf(lBuf);

end;