myquit.prg

来自「医药管理系统VF。这是本人在网上找到的」· 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