LoadPersonMembers**

007

想知道 Opr.OperatorLoader.LoadPersonMembers是怎么取得对应ID的所有人员成员的？

zfang

给楼主贴个代码，具体自己去测试吧。
下面是已知人员ID 得到所有对应的人员成员的例子：
procedure TMainForm.Button2Click(Sender: TObject);
var
  lPersonMembers: TList;
  lOrgUnit: TOrgUnit;
  lPersonMember: TOrgUnit;
  li: integer;
begin
  lPersonMembers := TList.Create;   //所有的人员成员
  try
    OrgSys.OrgSystem.GetPersonMembers('ry1', lPersonMembers);  // 已知用户的ID :ry1
    for li := 0 to lPersonMembers.count-1 do
    begin
      lPersonMember := TOrgUnit(lPersonMembers.Items[li]);
      Dialogs.ShowMessage(lPersonMember.Parent.ID);  //  岗位
      Dialogs.ShowMessage(lPersonMember.Parent.Parent.ID); //部门
      Dialogs.ShowMessage(lPersonMember.Parent.Parent.Parent.ID); //机构
    end;
  finally
    lPersonMembers.Free;
  end;
end;

007

谢谢，可是我的意思是：Opr.OperatorLoader.LoadPersonMembers 这个方法是怎么实现的?从那个表取数据，相关的SQL语句如何……？

shangxy

应该是torgsystem，
select * from torgsystem where (fkind='.psm') and (fid='ry1')