myquit.prg

来自「数据库应用之一:车辆管理系统,用Visual FoxPro」· PRG 代码 · 共 13 行

_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