[请求]如何通过代码更改人员的LoginId**

bnv78

如何通过代码实现更改人员的LoginId。

zfang

procedure TMainForm.Button4Click(Sender: TObject);
var
  lPerson: Org.TPerson;
  Server: TFileSystemCacheServer;
begin
  lPerson := Org.OrgSys.OrgSystem.GetPerson(edtID.Text);
  If Assigned(lPerson) then
  begin
    lPerson.LoginID := edtID.Text+'11111';  //修改人员登录ID
    Org.OrgSys.OrgSystem.SaveUnit(lPerson);
    //刷新组织机构缓存
    Server := TFileSystemCacheServer.Create;
    try
      Server.AddURLs(';', Business.Data.SysSrv.SysService.ServerURL);
      Server.EnsureOrgSystem(BizSys.BizSystem.ClientAccount);
    finally
      Server.Free;
    end;
    Dialogs.ShowMessage('LoginID修改成功，新LoginID为：' + lPerson.LoginID);
  end;
end;

其中edtID.Text是一个人员id