大家好，感谢您查看此问题，
我有一个用户可以通过登录屏幕访问的程序。一旦在登录屏幕上验证了用户的凭据，就会调用主程序（从登录屏幕）并且登录屏幕消失。都好。但是，如果会话崩溃（或者我按下 CTRL-PAUSE），主程序就会终止，我最终会进入初始登录屏幕。我假设在会话崩溃后，Progress (11.4) 应该带我回到操作系统 (Windows Server 2012)，而不是回到初始屏幕。我尝试将 QUIT 放置在程序的不同区域，但 Progress 仍然让我回到初始屏幕，而我需要它完全退出。任何想法将不胜感激。谢谢！
【问题讨论】：
标签： openedge progress-4gl
在发生未处理的 STOP 条件后重新运行启动过程是 AVM 的默认行为。
你可以添加一个
ON STOP UNDO, RETURN "stopped" .
在“崩溃”发生的地方关闭 DO、FOR 或 REPEAT 块的选项。然后调用过程可以检查“停止”的返回值。
假设您使用的是最新版本 (OpenEdge 12.x)，您还可以将 CATCH 块用于 Progress.Lang.Stop：
CATCH stopcon AS Progress.Lang.Stop:
QUIT.
END CATCH.
【讨论】：
我认为您对“崩溃”一词的使用非常非常令人困惑。如果您的会话实际上在 _progres（或 prowin，如果这是 Windows）终止的通常意义上“崩溃”，那么您将不会保留任何锁定的记录。您还会有一个 protrace 文件，可以帮助您确定问题发生的位置。
顺便说一句，您可以在客户端启动时添加错误日志，以确定 QXtend 找不到的错误发生在哪里：
_progres dbname -p startup.p -clientlog logname.log
您没有共享任何代码，所以我只能猜测，但大概您正在通过 -p 启动参数运行您的登录程序。
如果我错了，请纠正我，但有以下几点：
_progres dbname -p startup.p
然后启动程序运行它运行的任何程序，让您登录并运行应用程序。也许是这样的：
/* startup.p
*/
message "(re)starting!".
pause.
run value( "login.p" ).
run value( "stuff.p" ).
message "all done".
pause.
quit.
还有：
/* login.p
*/
message "hello, logging in!".
pause.
return.
随着：
/* stuff.p
*/
message "hello, doing stuff!".
pause.
run value( "notthere.p" ).
message "hello, doing more stuff!".
pause.
return.
有时会发生错误（您似乎想将此称为“崩溃”）。当 stuff.p 尝试“运行 notthere.p”时，我已安排发生严重错误。因此，如果您运行我的示例，您将看到您所描述的行为 - 您的会话“崩溃”，启动过程重新运行，然后您再次进入登录屏幕。
要改变它并捕获错误，只需在 RUN 语句周围加上“DO ON STOP”。像这样：
/* startup.p
*/
message "(re)starting!".
pause.
do on error undo, leave
on endkey undo, leave
on stop undo, leave
on quit undo, leave: /* "leave", exits this block when one of the named conditions arises */
run value( "login.p" ).
run value( "stuff.p" ).
/* we just leave because we finished normally */
end.
message "all done".
pause.
quit.
您提到了 QXtend，所以我猜测 MFG/Pro 参与其中。如果您不能直接修改 MFG/Pro 启动过程（我记得那将是“-p mfg.p”），只需将上面的代码修改为从“DO ON STOP”中运行 mfg.p 的“垫片”。 .." 块。
【讨论】：
我相信我已经找到了一种方法，可以使用 ETIME 函数在会话崩溃导致初始登录屏幕出现时退出该屏幕。再次感谢 Mike 的回复。
【讨论】：