⒍系统错误提示窗口

软件有时会因为人为操作的原因或程序本身漏洞的原因或者其它原因出现错误，这时PB的提示信息是英文的，对于我们使用中文的人来说，这肯定会是件非常头痛的事件，而且会有损良好的人机交互界面……

所以接下来先制作一个系统出错时的提示窗口，这样在设计和调试程序时有许多错误可以通过提示窗口中文化信息看到。

①首先，先制作一个“数据窗口（DataWindow）”，在“新建窗口”中选择“DataWindow”项，选择“FreeForm”，点击“OK”按钮，在接下来的窗口中选择“External”,按“Next”，在下面这个窗口中，需要设计5个变量(如下图表：)

在下一个窗口中选择“Background Color”为“Button Face”，“Text”项的“Border”为“Raised”，点击“next”，然后点击“Finish”，进入数据窗口设计窗口中，调整相应的属性设置（如下图：）。

调整完成后保存为“d_system_error”。

②接下来可以制作“系统错误提示窗口”了。

新建一个窗口，设置如下的一些窗口属性：

    Title（标题）：系统错误提示

    WindowType(窗口类型)：Response!

然后在窗口上放置如下控件：

    ⑴1个GroupBox：清空其Text属性内容

    ⑵2个StaticText：st_1.Text = “警告：”；

                      St_2.Text = “   系统出现错误，请点击“显示信息”查看具体错误信息，并告知系统管理员！”

    ⑶1个DataWindow: name属性 = “dw_error”,dw_error.DataObject = “d_system_error”,调整高宽大小，放置位置在GroupBox组框中，不选Border属性框，并取消Visible选择框的选择。

    ⑷4个CommandButton:

a.     Name:cb_show  Text:“显示信息”

Clicked Event：

IF This.Text = '显示信息' THEN

dw_error.Visible = True

This.Text = '隐藏信息'

ELSE

dw_error.Visible = False

This.Text = '显示信息'

END IF  

b.     Name:cb_print Text:“打印信息”

Clicked Event：

//   打印错误信息

dw_error.print()

c.     Name:cb_continue Text:“继续执行”

Clicked Event：

//   关闭提示窗口

Close(Parent)

d.     Naem:cb_halt   Text:“终止系统”

Clicked Event：

//   终止程序执行

Halt Close;

各控件布局如下图所示：

评论