组织机构参数的调用方法有两种

在程序中，获得当前操作者相关信息
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;