组织机构参数的调用

ntcp

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

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

    代码中取参数的值
调用“思维加速 \ 公共资源 \ 公共单元”的GetParam，具体的调用方法，请参照这个文件第136-153行注释的代码。第一个参数是对象生存的环境（可以忽略，照写就可以），第二个参数是参数组的BizURL，有关BizURL的说明请参照，第三个参数是参数的 ID 组织机构的参数在“系统空间”的“参数 \ 组织机构参数”