【结】代理，A代替B做事**

tyl123

代理，A代替B做事

是用A的帐号进去做B的事情，这实际上是怎样的原理？？？而且为什么B被代理之后，B的帐号就进不去了？？？？

zfang

原理就是如果A代理了B的所有职责，只要是发给B的任务都会发给A。
B被代理后，在没有收回他的职责前，B不能登录。（）（收回代理的操作B自己就可以做。）

tyl123

如果A有多个岗位，其中一个是代理的B的岗位，那我怎么判断A当前登录的是代理的B的那个岗位，还是A自己的岗位？？？

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=26723
我那个例子程序写了，用人员的id和人员成员id对比。不同的就是代理的别人的岗位。

tyl123

uses  添加SystemCore
项目引用系统核心库
....
var
i:integer;
begin

  for i := 0 to TSystemCore.Operator.PositionCount - 1 do
  begin
    if TSystemCore.Operator.ID<> TSystemCore.Operator.Positions.PersonID then
    begin
      edit1.Text:= TSystemCore.Operator.Positions.PositionID+'|'+ TSystemCore.Operator.Positions.PersonID;
    end;
  end;




那如果是代理多个人呢？
得到的不是最后一个被代理的人的信息？

lixy

你可以继续循环啊，我只是演示了一个原理。
哪一个都能获取到

tyl123

IF FORMLIBRARY.TSYSTEMLOGINDIALOG.GetPersonMember <> nil THEN
       for I := 0 to SystemCore.TSystemCore.Operator.PositionCount - 1  do
       begin
           IF SystemCore.TSystemCore.Operator.Positions[I].PersonMember = FORMLIBRARY.TSYSTEMLOGINDIALOG.GetPersonMember THEN
           BEGIN
               IF SystemCore.TSystemCore.Operator.ID <> SystemCore.TSystemCore.Operator.Positions.PersonID THEN
               BEGIN
                  sPost_ID := SystemCore.TSystemCore.Operator.Positions.PositionID;
                  sPost_ID1 := SystemCore.TSystemCore.Operator.Positions.PersonID;
                  sPost_ID2 := SystemCore.TSystemCore.Operator.Positions.PersonMember.DisplayName;
                  Break;
               END
               ELSE
               BEGIN
                   FDefaultPosition := SystemCore.TSystemCore.Operator.Positions[I];
                   sPost_ID := FDefaultPosition.PositionID;
                   sPost_ID1 := FDefaultPosition.PersonID;
                   sPost_ID2 :=  FDefaultPosition.PersonMember.DisplayName;
                   Break;
               END;
           END;
       end;


貌似是这样子，结贴吧