在主程序加入一句
on shutdown do p_exit
注：
p_exit的形式可以是 p_exit.prg ，也可以是个自定义过程p_exit
p_exit的内容例如
if type('your_connection')='N'
if your_connection >0
sqldisconnect(your_connection)
on shutdown
endif
endif
clear event
quit
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024