VFP的退出代码及注意事项

VFP的退出代码及注意事项

local ask_

ask_=messagebox("确定退出?",4+32+256)

if ask_=6

  set sysmenu to default              &&如果自己做了菜单就加上这句

set sysmenu on                 &&如果自己做了菜单就加上这句

set talk on

set notify on

set exclusive on                &&如果设置了set exclusive off就加上这句

set safety on

clear memory

  delete tag all                     &&如果新建了索引就加上这句

  close databases all

clear events

release all

quit

else

  nodefault

endif

退出操作最好不要直接将代码写在退出按钮里，应该写在顶层表单的queryunload事件里，在退出代码里调用thisform .queryunload。这样可以防止用户直接点右上角关闭程序或非正常关闭程序时没有办法做一些收尾工作。