shutdown.prg

来自「红狐VFP6通讯录V3.3,大家看看,可能会有帮助,好了」· PRG 代码 · 共 29 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: SHUTDOWN.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 SELECT 1
 IF  .NOT. ((ISNULL(OAPPEND) = .T. .OR. TYPE('oAppend') <> 'O'))
     OAPPEND.ACTIVATE
     OAPPEND.SHOW
     OAPPEND.RELEASE
 ENDIF 
 IF  .NOT. ((ISNULL(OATTRIB) = .T. .OR. TYPE('oAttrib') <> 'O'))
     OATTRIB.ACTIVATE
     OATTRIB.SHOW
     OATTRIB.RELEASE
 ENDIF 
 IF  .NOT. ((ISNULL(OBROWSER) = .T. .OR. TYPE('oBrowser') <> 'O'))
     OBROWSER.ACTIVATE
     OBROWSER.SHOW
     OBROWSER.RELEASE
 ENDIF 
  _SCREEN.HIDE
 _SCREEN.WINDOWSTATE = 1
 CLEAR EVENTS 
 RELEASE OLOGOFORM
 SAVE TO txl.ini
 QUIT 
*