让VFP表单卸载时显示确认对话框

 

在用Visual FoxPro（以下简称VFP）做系统开发时，我们有时希望表单在被关闭前能显示确认信息，给用户留有选择的余地。这在Windows程序中非常普遍，作用也是显而易见的。在VFP中要实现此功能，方法也很简单。
　　　　
　　　　首先，让我们来看一个VFP表单的卸载步骤：表单在卸载前，首先要询问表单的QueryUnload事件，然后再卸载表单。也就是说，QueryUnload事件是表单卸载时第一个被触发的事件。在 QueryUnload 事件过程中执行 NODEFAULT命令可以阻止表单卸载。这样我们通过在QueryUnload 事件中巧妙包含NODEFAULT，就能避免直接卸载表单。
　　　　
　　　　QueryUnload是怎样被触发的呢？当在代码中执行 CLEAR WINDOWS，RELEASE WINDOWS 或 QUIT 等命令时、或者当用户双击控制菜单框时、或者当用户从表单的控制菜单中选择执行“关闭”命令时，都会触发表单的 QueryUnload 事件。
　　　　先在表单的QueryUnload事件中包含下面代码：
　　　　
　　　　*-- 显示包含“是”、“否”两个按钮的对话框
　　　　nYesNo = MessageBox("确定要退出吗？",4+48+256,"提示")
　　　　
　　　　If nYesNo = 6 &&如果选取了“是”，则退出
　　　　 *-- 退出前要执行的代码写在这里，
　　　　 *-- 然后执行类似下面的退出代码
　　　　 ThisForm.Release
　　　　Else &&选取了“否”，不退出
　　　　 NODEFAULT
　　　　EndIf
　　　　
　　　　这样当有卸载表单的事件发生时，都会显示确认要退出的对话框：只有选取“是”，才能卸载表单。
　　　　
　　　　这样做是非常有用的，例如我们为了避免正在操作的数据没有保存就退出，可以在程序中使用这段代码，至于如何保存数据，不同的程序采取的方法不尽相同，这里我们不做详细讨论。
　　　　
　　　　需要说明的是，当在代码中直接执行 RELEASE 命令或直接调用表单的 Release 方法时，不会触发 QueryUnload 事件。因此，我们应尽量避免在代码中直接执行RELEASE 命令或调用表单的 Release 方法。取代的方法是，当要卸载表单时，转向调用表单的QueryUnload方法。
　　　　
　　　　例如，我们要在表单中放置一个标题为“退出”的命令按钮，用来退出这个表单，并希望在退出时能显示确认对话框，可以在这个命令按钮的Click事件代码中包含下面的命令：
　　　　ThisForm.QueryUnload