myquit.prg

设备维修档案管理系统（ＶＦＰ）课程设计

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