如何获取当前登陆平台的帐号、口令等信息

john

可以通过TContextCurrent对象获取当前登录者对象，并访问对象的相关属性获取相关信息。

procedure TMainForm.btnContextCurrentClick(Sender: TObject);
var
  lContextCurrent: TContextCurrent;
begin
  lContextCurrent := TContextCurrent.Create(Self.Context);
  try
    MemoResult.Lines.Add('当前操作者部门ID：' + lContextCurrent.Dept.ID);
    MemoResult.Lines.Add('当前操作者部门显示名称：' + lContextCurrent.Dept.DisplayName);
    MemoResult.Lines.Add('当前操作者机构ID：' + lContextCurrent.Organ.ID);
    MemoResult.Lines.Add('当前操作者机构显示名称：' + lContextCurrent.Organ.DisplayName);
    MemoResult.Lines.Add('当前操作者ID：' + lContextCurrent.Operator.ID);
    MemoResult.Lines.Add('当前操作者显示名称：' + lContextCurrent.Operator.Person.DisplayName);
    MemoResult.Lines.Add('当前操作者口令：' + lContextCurrent.Operator.Person.Password);
    MemoResult.Lines.Add('当前操作者岗位成员编号：' + lContextCurrent.PositionMember.ID);
    MemoResult.Lines.Add('当前操作者岗位成员显示名称：' + lContextCurrent.PositionMember.DisplayName);
    MemoResult.Lines.Add('当前操作者人员成员编号：' + lContextCurrent.PersonMember.ID);
    MemoResult.Lines.Add('当前操作者人员成员显示名称：' + lContextCurrent.PersonMember.DisplayName);
  finally
    lContextCurrent.Free;
     end;
end;