.NET GUI 中的 OPENEdge 11 PROMPT-FOR
OPENEdge 11 PROMPT-FOR in .NET GUI
当我在编译过程中使用通常的 PROMPT-FOR 时,当 .Net GUI 环境中的 .r 为 运行 时,没有任何反应,程序结束时没有做任何事情或出现任何消息。当 运行 作为 .p 并请求作业编号时,它 运行 是正确的。
代码的相关部分是:
DEFINE VARIABLE lvJobNo AS CHARACTER FORMAT "X(10)".
DO WHILE TRUE:
PROMPT-FOR lvJobNo LABEL "Job Number for Job Costing Extract".
ASSIGN lvJobNo = INPUT lvJobNo.
IF lvJobNo = "" THEN
DO:
MESSAGE "Job No empty - finishing" VIEW-AS ALERT-BOX.
RETURN.
END.
. . .
END.
需要做什么才能使其在 .NET GUI 中运行?
PROMPT-FOR 不再是常用语句。 TTY 样式的输入阻塞语句(例如 UPDATE 和 PROMPT-FOR)在设计上与 .NET 的 GUI 存在兼容性问题。恕我直言,将此作为问题报告给 PSC 将收效甚微。
您需要将其更改为基于 ENABLE 和执行 ASSIGN 部分的事件处理程序的更多事件驱动的样式。
当我在编译过程中使用通常的 PROMPT-FOR 时,当 .Net GUI 环境中的 .r 为 运行 时,没有任何反应,程序结束时没有做任何事情或出现任何消息。当 运行 作为 .p 并请求作业编号时,它 运行 是正确的。
代码的相关部分是:
DEFINE VARIABLE lvJobNo AS CHARACTER FORMAT "X(10)".
DO WHILE TRUE:
PROMPT-FOR lvJobNo LABEL "Job Number for Job Costing Extract".
ASSIGN lvJobNo = INPUT lvJobNo.
IF lvJobNo = "" THEN
DO:
MESSAGE "Job No empty - finishing" VIEW-AS ALERT-BOX.
RETURN.
END.
. . .
END.
需要做什么才能使其在 .NET GUI 中运行?
PROMPT-FOR 不再是常用语句。 TTY 样式的输入阻塞语句(例如 UPDATE 和 PROMPT-FOR)在设计上与 .NET 的 GUI 存在兼容性问题。恕我直言,将此作为问题报告给 PSC 将收效甚微。
您需要将其更改为基于 ENABLE 和执行 ASSIGN 部分的事件处理程序的更多事件驱动的样式。