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

在程序中，获得当前操作者相关信息

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;