//取岗位下的人员的示例代码
procedure TMainForm.Button1Click(Sender: TObject);
var
Os:Business.Model.Org.TOrgSystem;
olist:Business.Model.Org.TOrgURLs;
i:integer;
begin
olist:= Business.Model.Org.TOrgURLs.Create;
os:= Business.Model.Org.TOrgSystem.Create;
os.GetOrgURLsByOrgExpr('OrgChildren(OrgSelect(orgcondition(''gw1.ptm'', '''', '''')), '''', False, False)',olist);
for i:=0 to olist.Count-1 do
begin
memo1.Lines.add(olist.BizURL.URL);
end;
os.free;
olist.free;
end; |