shutdown.prg

来自「自写的仓库管理系统,之前在工厂打工时写的」· PRG 代码 · 共 33 行

**
** C:\仓储管理\shutdown.fxp
**
 SET MESSAGE TO "您将关闭仓库管理系统..."
 IF isnoticealarm=.T.
      n = MESSAGEBOX("关闭程序后，将得不到提醒内容，是否真的要退出？", 0305, "您将关闭仓库管理系统...")
      IF n=1
           screen_left = _SCREEN.left
           screen_top = _SCREEN.top
           screen_width = _SCREEN.width
           screen_height = _SCREEN.height
           screen_state = _SCREEN.windowstate
           _SCREEN.hide
           save to &cIniFile
           isnoticealarm = .F.
           _SCREEN.windowstate = 1
           QUIT
      ENDI
 ELSE
      screen_left = _SCREEN.left
      screen_top = _SCREEN.top
      screen_width = _SCREEN.width
      screen_height = _SCREEN.height
      screen_state = _SCREEN.windowstate
      _SCREEN.hide
      save to &cIniFile
      _SCREEN.windowstate = 1
      QUIT
 ENDI
 RETU
ENDPROC
*