【结贴】我新建的继承专业窗体的主窗体运行过程中出现错误**

sgmx

如下图所示，我在运行主窗体之前怎么先调用登陆窗体再调用主窗体阿，直接运行主窗体的时候提示如下图所示错误：

sgmx

在如下所示的代码处停顿，我想是不是要获取登陆用户的名字获取不了造成的！

lixy

楼主是要做自己的界面吗？请参考相关帖子做。

sgmx

我就是参考的论坛的帖子作的，在运行的过程中出现了如上面所示的问题！
你帮忙看一下错误提示然后给出出现错误的原因吧！

lixy

调用登陆窗体是在系统接口里面完成的。您是参考的哪个帖子？  
还有，是不是您是f9运行的，而不是初始化运行的？

alang

如果取当前用户，请用SystemCore.TsystemCore.Operator，不要用CurrentUser

sgmx

我参考的第11章系统运行平台11.8.1节。
取当前用户不是我要取，是系统初始化运行的时候自己运行到2楼所示的那个地方停住了提示错误造成的。是你们系统已有的代码。
我是初始化运行的。
我建个空白窗体当主界面是没有问题的，只是我继承了专业窗体才出现上述的问题。

sgmx

还有这个：http://bbs.justep.com/forum.php?mod=viewthread&tid=975&

jiahaiming

是在studio中运行吗？

如果是，楼主可以把“工具-选项”中的调试帐号删除，这样在调试运行时就会要出现登录对话框了

alang

请参考 系统空间\默认用户界面（兼容性保留）\界面库\系统接口
function TSYSTEMINTERFACE.CreateMainForm(AContext: TContext): TForm;
var
  lPostions: array of TOperatorPosition;
begin
  TCommonComponentLibrary.UserSystem.CurrentUser := TSystemCore.Operator;

  if not Opr.IsSystemManager(TSystemCore.Operator.ID) then
    if TSystemLoginDialog.GetPersonMember = nil then
      TCommonComponentLibrary.UserSystem.CurrentPosition := TOperatorPosition(TSystemCore.Operator.Positions[0])
    else
    begin
      with TSystemLoginDialog.GetPersonMember do
        if TSystemCore.Operator.FindPosition(Parent.Parent.ID, Parent.ID, ID, lPostions) then
          TCommonComponentLibrary.UserSystem.CurrentPosition := lPostions[0]
        else
          raise Exception.CreateFmt('找不到岗位');
    end;

  Result := TProfessional.Create(AContext);
end;