我做的系统也经常是你的架构。
首先你做一个主程序:
main.prg
read event
do form 封面
在封面表单中
Thisform.release
do form 主表单

在主表单的每一个按钮上都要有
Thisform.release
do form 子表单
在每个子表单最后都是
THisform.release
do form 主表单
在主表单中加一个退出按钮
Thisform.release
clear events

牛，版主就是版主，问题解决了，谢谢了，也感谢大家啊

呵,感觉有点乱,

版主的办法很正确，从根本上解决问题。系统退出时，尽量从主表单的退出按钮中退出，而不使用右上角的关闭按钮