【搞定】[请求]关于通过聊天工具登陆平台的问题**

李凯

我们在系统中限定了人员一定必须用某个岗位身份登陆的。可是通过X3平台登陆的用户是不带岗位身份的，这造成了部分程序因为缺少岗位成员而报错。现在能不能提供一个方法解决聊天工具登陆的时候默认选择一个岗位登陆的功能？

alang

在人员上可以设置每一个人的缺省岗位
在 系统空间\简洁风格\界面库\窗体库\标准风格主窗体 上
有一个private的变量FDefaultPosition，你只要在这个窗体的OnCreate事件中，判断如果这个变量为空，就用缺省岗位对这个变量赋值就可以了

李凯

老兄，从聊天工具打开x3平台的时候，FDefaultPosition不为空的吧！我这边按照你的方法测试了一下，好像达不到效果！

李凯

哦，我搞错了，FDefaultPosition是为空，用默认岗位赋值以后FDefaultPosition是有数据了，可是在界面下方的信息栏那里，还是只显示用户姓名

alang

看看主窗体上的代码吧
FDefaultPosition是为空只显示姓名
FDefaultPosition是不为空，显示这个岗位的部门和岗位、姓名
procedure TSTANDARDSTYLEMAINFORM.InitStatusBar;
var
  S: string;
  L: Integer;
begin
  L := 0;
  if FDefaultPosition = nil then
    S := TSystemCore.Operator.DisplayName
  else
    S := GetOrgUnitDisplayName(FDefaultPosition.PersonMember, ' | ');
  CreateStatusBarText(L, ccStatusBar, S, False);

{取消  FStatusBarHintText := CreateStatusBarText(L, ccStatusBar, '', True);
  FStatusBarHintText.Align := TAlign.alClient;}
end;

李凯

OK,解决了！是这个问题，我在窗体Create的事件中，InitStatusBar之前，将FDefaultPosition设置成默认值就OK了！