myquit.prg

来自「超级客房管理系统」· PRG 代码 · 共 12 行

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