没有环境的情况下怎么取操作者的登录岗位**

tyl123

没有环境的情况下怎么取操作者的登录岗位

SystemCore.TSystemCore.Operator.DefaultPosition.Position.ID
取的是默认的岗位

http://bbs.justep.com/forum.php? ... 7%D5%DF%B8%DA%CE%BB
上面这个倒是提供很多，但是一个都不适合

lixy

抱歉，取不到

tyl123

回答真干脆

lixy

这个是我记录过的，当然干脆。我的资料如下：
1、通过当前环境来获取，要求当前环境链中必须要有人员信息
var
lContextCurrent: Business.Model.TContextCurrent;
begin
  lContextCurrent := Business.Model.TContextCurrent.Create(Self.Context);
  try
    cPersonID := lContextCurrent.Operator.ID;           //当前操作者ID
    cGW       := lContextCurrent.PositionMember.ID;  //当前操作者岗位ID
    cDeptID   := lContextCurrent.Dept.ID;               //当前操作者部门ID
  finally
    lContextCurrent.Free;

      以上方法在系统中很多地方都用到，例如：表达式编辑器中用来作表达式参数的组织机构函数等，都是通过环境来取人员相关信息的。

2、使用系统函数
   在“ 业务模型\系统空间\系统运行库\系统核心库”中
   TSystemCore.Operator
      在主界面中需要获取用户信息时，由于还没有环境信息，所以必须使用此种方法。
  TSystemCore.Operator.Positions[0].PersonMember.ID  //当前操作者ID
    TSystemCore.Operator.Positions[0].PositionMember.ID  //当前操作者岗位ID
    TSystemCore.Operator.Positions[0].PositionMember.Parent.ID  //当前操作者部门ID
  TSystemCore.Operator.Positions[0].PositionMember.Parent.Parent.ID //当前操作者机构ID


1楼中，TSystemCore.Operator.Positions[0]取的是当前人员所有身份中的第一个

tyl123

我现在有这个登录到的岗位

我选择一个进去，我能取出他的岗位吗？
这样子的

tyl123

还有就是环境我们可以创建吗？

lixy

如果在登录时选择了岗位，在主界面中可以通过FDefaultPosition来获取当前登录的岗位。
如果用自动方式登录，FDefaultPosition是空值nil

tyl123

SystemCore.TSystemCore.Operator.DefaultPosition.PositionMember.ID
是这样子写吗

tyl123

这样子写，得到的还是 默认的岗位啊

lixy

FDefaultPosition  是标准窗体里面的一个变量
业务模型\系统空间\简洁风格\界面库\窗体库\标准风格主窗体

你可以搜一下，看看他是怎么取的岗位。