交通/航空行业

开发平台：

VFP

myquit.prg：源码内容

							_screen.visible=.t.
CLEAR Event 
IF _SCREEN.FormCount>0 
  h=_screen.formcount
  DIME TmpForm(h)
  FOR i=1 TO h 
      TmpForm(i)=_SCREEN.Forms(i) 
  ENDFOR 
  FOR i=1 TO h
      TmpForm(i).Release 
  ENDFOR 
ENDIF 
QUIT 

						