vfp 点击主窗口关闭按钮[X]不能退出VFP的问题

If Messagebox('您真要退出本系统吗？',4+32+256,'退出确认')<>6

   Return 

Endif 

*Do While Txnlevel()>0 

* Rollback 

*Enddo 

Clear Events 

ON SHUTDOWN 

* 恢复环境 

Set Sysmenu To Default 

With _Screen 

        .WindowState=2 &&最大化 

       .BackColor=Rgb(255,255,255) 

       .Caption="Microsoft Visual FoxPro" 

       .Icon ='' 

Endwith 

* 关闭数据库及表 

If Used("dbf") 

   Use In dbf 

Endif 

If Used("dbf1") 

   Use In dbf1

Endif 

If Used("dbf2") 

   Use In dbf2

Endif 

Close Database All  

Close All                 

Clear Menus            

Clear Popups         

Clear Windows       

Clear                    

Set Safe On 

_Screen.Picture="" 

=SQLDISCONNECT(0) 

quit 

&& 完毕。