程序运行后点击主窗口左上角的关闭按钮无法结束程序，系统显示“不能退出Visual FoxPro”，应该在哪里编写代码才能使用主窗口左上角的关闭按钮呢？

兄弟，查一查吧，论坛上有很多关于“不能退出Visual FoxPro”有帖子。

在主程序那里写上ON SHUTDOWN QUIT即可

谢谢！我一直没有仔细去查找命令，而是在菜单设计中查找解决方法。

用ON SHUTDOWN QUIT可以直接退出程序，但我在结束程序前需要先让用户确认，然后在日志表上先记录退出时间等相关信息，最后才结束程序。我就改用ON SHUTDOWN DO 过程，在过程中编写相应的代码。问题就来了，用原来程序菜单中的“退出”结束程序时也会引起ON SHUTDOWN的事件，于是确认菜单就不停地反复出现，造成了死循环，以致无法正常结束程序。不知几位版主是如何处理这个问题的？

你可以在主窗口去掉控制按钮。_SCREEN.CONTROLBOX=.F.
也可以在“ON SHUTDOWN DO 过程”的“过程.PRG”里先写上ON SHUTDOWN，再执行结束语句。

经过反复测试，我将原主菜单中的过程独立出来，稍作修改保存为qstc.prg，同时将主菜单的“退出”项改为do qstc，在主程序中写入ONSHUTDOWN do qstx，这样就做到了无任是点击主菜单的“退出”还是直接点击主窗口右上角的关闭按钮，都会出现询问窗口，“确认”就结束程序，“取消”又返回程序，非常方便。现将结束程序的过程代码贴在下面，供大家参考，同时也要感谢虎哥（大家都这样称呼）。

ON SHUTDOWN
if MessageBox("确实要关闭本系统吗?",49,"请选择") = 1
select cyod
append blank
repl cyid with duid,cyet with datetime(),cyon with dsys(2),cypn with "结束本人操作，退出本软件系统。"
clos all
Set sysmenu to default
_SCREEN.caption = "Microsoft Visual FoxPro"
Clear event
else
ON SHUTDOWN do qstc
endif