【结】如何根据组织机构中的ID得到BizUrl**

loworth

RT
怎么根据Id获得Bizurl

通过 TBizUrl可以指定 filename然后得到ID。但是ID是只读的，不能通过ID得到filename了

zfang

procedure TMAINFORM.Button1Click(Sender: TObject);
var
  lTemp : TStrings;
  lpos, lcon, lOrgExpr : String;
  i : Integer;
begin
  MemoResult.Clear;
  lpos := '''BM1''';
  lcon := '''*.psm''';
  lOrgExpr := SysUtils.Format('OrgChildren(OrgKey(%s, '''', ''''), OrgCondition(%s, '''', ''''), True, False)', [lpos, lcon]);
  lTemp := TStringList.Create;
  try
    OrgSys.OrgSystem.GetBizURLsByOrgExpr(lOrgExpr, lTemp);
    MemoResult.Clear;
    MemoResult.Lines.AddStrings(lTemp);
  finally
    lTemp.Free;
  end;
end;

MemoResult是一个memo控件

zfang

仅供参考。

loworth

这个什么运行什么也没有
算了 还是不加这个功能了
结贴吧 谢谢

huangx

参考

zfang

怎么会呢，楼主。
我上面的例子是通过部门id来取他的子的（人员成员）。

看图

loworth

要取的是BizUrl

zfang

上面不就是取得人员成员的bizurl吗？
你只要改一下那个组织机构表达式就可以了。

或者你这样，用下面的方式
var
  lOrgUnit : TOrgUnit;
begin
  lOrgUnit := OrgSys.OrgSystem.FindUnit('BM1','','');
  Dialogs.ShowMessage(lOrgUnit.BizURL.URL);
end;

loworth

好的 谢谢

zfang

那就结贴了。