组织机构参数的调用方法有两种-优快云博客

本文介绍了一种在程序中获取当前操作者详细信息的方法，包括部门ID、部门名称、机构ID、机构名称、操作者ID、操作者姓名、岗位成员编号、岗位成员显示名称、人员成员编号及人员成员显示名称。

在程序中，获得当前操作者相关信息
procedure TMainForm.Button1Click(Sender: TObject);
var
lContextCurrent: Business.Model.TContextCurrent;
begin
lContextCurrent := Business.Model.TContextCurrent.Create(Self.Context);
try
    Memo.Lines.Add(lContextCurrent.Dept.ID +
      '(当前操作者部门ID)');
    Memo.Lines.Add(lContextCurrent.Dept.DisplayName +
      '(当前操作者部门DisplayName)');
    Memo.Lines.Add(lContextCurrent.Organ.ID +
      '(当前操作者机构ID)');
    Memo.Lines.Add(lContextCurrent.Organ.DisplayName +
      '(当前操作者机构DisplayName)');
    Memo.Lines.Add(lContextCurrent.Operator.ID +
      '(当前操作者ID)');
    Memo.Lines.Add(lContextCurrent.Operator.Person.DisplayName +
      '(当前操作者Name)');
    Memo.Lines.Add(lContextCurrent.PositionMember.ID +
      '(当前操作者岗位成员编号)');
    Memo.Lines.Add(lContextCurrent.PositionMember.DisplayName +
      '(当前操作者岗位成员显示名称)');
    Memo.Lines.Add(lContextCurrent.PersonMember.ID +
      '(当前操作者人员成员编号)');
    Memo.Lines.Add(lContextCurrent.PersonMember.DisplayName +
      '(当前操作者人员成员显示名称)');
finally
    lContextCurrent.Free;
end;
end;

转载于:https://www.cnblogs.com/crazywen/archive/2008/08/03/1259135.html