qfquit.prg

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

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: QFQUIT.PRG 
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


IF NOT EMPTY(ON('shutdown'))
    CQUIT=MESSAGEBOX('您是否真的需要退出本系统？',292,'系统提示')
    IF CQUIT = 6
    	DECLARE INTEGER CloseHandle IN kernel32.DLL INTEGER hObject
		=CloseHandle(handle)
       CLOSE ALL
       IF NOT USED('regid')
          USE (SYSPATH+"data\regid.dbf")
       ENDIF 
       GO TOP
       REPLACE QDFLAG WITH .F., EXITFLAG WITH .T.
       USE 
       SELECT 0
       USE SHARED (ZTPATH+"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 bf.prg
             ENDIF 
          ENDIF 
       ENDIF 
       CLOSE ALL
       CLEAR EVENTS 
       QUIT 
    ENDIF 
 ENDIF 
*