_quit.prg

来自「吐血贡献纺织上的进销存原码,功能齐全,给大家吧.」· PRG 代码 · 共 42 行

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


 IF  .NOT. EMPTY(ON('shutdown'))
    CQUIT = MESSAGEBOX('您是否真的需要退出本系统？  ',292,'')
    IF CQUIT = 6
       CLOSE ALL
        _SCREEN.HIDE
       IF  .NOT. USED('regid')
          USE (DXPATH + 'data\regid.dbf')
       ENDIF 
       GO TOP
       REPLACE 启动 WITH .F. , 退出 WITH .T.
       USE 
       SELECT 0
       USE SHARED (MLPATH + 'data\sysuser.dbf')
       SELECT SYSUSER
       LOCATE FOR ALLTRIM(用户) == ALLTRIM(SYS(0))
       REPLACE 登录 WITH .F.
       LOCATE FOR ALLTRIM(用户) <> ALLTRIM(SYS(0)) AND 登录
       IF FOUND()
          BF = .F.
       ELSE 
          BF = .T.
       ENDIF 
       USE 
       IF  .NOT. LERROR
          IF BF
             IF MESSAGEBOX('建议每天对数据进行备份，现在备份吗？  ',292,'系统数据备份') = 6
                DO d:\jxc\bf.prg
             ENDIF 
          ENDIF 
       ENDIF 
       CLOSE ALL
       CLEAR EVENTS 
       QUIT 
    ENDIF 
 ENDIF 
*