shutdown.prg

来自「foxpro连接sqlserver的例子」· PRG 代码 · 共 56 行

#include ../inc/SYSTEM.h

SET MESSAGE TO "【"+vfpSoftName+"】【&gcUser.】"

*-- 在退出系统前首先关闭需要关闭的报表预览
IF WEXIST(Preview_name)
	IF glConfirmToQuit
		IF MESSAGEBOX("是否关闭报表预览？",4+32,RptClose_loc) = 7
			RETU
		ENDIF
	ENDIF
	RELEASE WINDOW Preview_name
ENDIF

*-- 在退出系统前首先关闭需要关闭的表单
old_form = ""
DO WHILE .T.
	IF TYPE('_screen.ActiveForm') ='O'	&& Object
		IF _SCREEN.ACTIVEFORM.BASECLASS = "Form"
			IF _SCREEN.ACTIVEFORM.WINDOWTYPE = 1
				??CHR(7)
				RETU
			ENDIF

			new_form = _SCREEN.ACTIVEFORM.CAPTION
			IF old_form == new_form
				RETU
			ELSE
				old_form = new_form
				_SCREEN.ACTIVEFORM.QUERYUNLOAD
				LOOP
			ENDIF
		ELSE
			EXIT
		ENDIF
	ELSE
		EXIT
	ENDIF
ENDDO


IF glConfirmToQuit
	IF MESSAGEBOX("您是否确认要退出【"+vfpSoftname+" ("+gcVersion+")】系统？"+CHR(13)+CHR(13)+;
				"如果您对本系统有任何的建议和意见，请联系红虎(Honghoo.NET)。"+CHR(13)+CHR(13)+;
				"感谢您使用本系统，以及您对我们的工作的理解和支持！",1+64,_screen.caption)=2
		RETU
	ENDIF
ENDIF


_SCREEN.VISIBLE=.F.
glConfirmToQuit = .F.

ON SHUT QUIT
QUIT