quit1.prg

来自「功能模块:报关操作,运输操作,报关查询,运输查询」· PRG 代码 · 共 59 行

if wchild('screen')>1
  xx=messagebox("请将其他窗口关闭后，然后再退出系统...",0+48,"提示")
*!*	else
*!*	*如果在退出时只有这一个用户，将做数据清理
*!*	    SET EXACT ON 
*!*	IF !USED("passwords")
*!*	   USE passwords ALIAS passwords IN 0
*!*	   SELECT passwords
*!*	   =CURSORSETPROP("Buffering", 3, "passwords")
*!*	   GO top
*!*	ENDIF  

*!*	    SELECT passwords
*!*	     LOCATE FOR ALLTRIM(passwords.p_yf)=ALLTRIM(NowUser).and.!DELETED()
*!*	     IF !RLOCK()
*!*	        wait window "记录锁定失败！不能修改用户状态，稍侯退出。" timeout 2
*!*	       ELSE
*!*	       replace passwords.userstate with 0
*!*	        =TABLEUPDATE(.t.)
*!*	        UNLOCK 
*!*	       
*!*	     SUM passwords.UserState TO aa
*!*	    IF aa=0 .and.allt(NowUser)#"Master"
*!*	       WAIT windows "现在没有用户使用系统，现在将做数据清理..." NOWAIT 
*!*	        CLOSE ALL 
*!*	        OPEN DATABASE dbexpert EXCLUSIVE
*!*	            USE tbexpert EXCLUSIVE 
*!*	            PACK 
*!*	            USE fitness EXCLUSIVE 
*!*	            PACK 
*!*	            USE education EXCLUSIVE 
*!*	            PACK             
*!*	            USE studyspec EXCLUSIVE 
*!*	            PACK 
*!*	            USE workspec EXCLUSIVE 
*!*	            PACK 
*!*	            USE technic EXCLUSIVE 
*!*	            PACK             
*!*	            USE nowjob EXCLUSIVE 
*!*	            PACK 
*!*	            USE company EXCLUSIVE 
*!*	            PACK 
*!*	            USE passwd EXCLUSIVE 
*!*	            PACK             
*!*	            USE sysdate EXCLUSIVE 
*!*	            PACK             
*!*	            USE invitetender EXCLUSIVE 
*!*	            PACK     
*!*	            USE tbinvite EXCLUSIVE 
*!*	            PACK                 
*!*	 
*!*	    ENDIF    
*!*	 
clear event
clear dlls
on shutdown do shutdown
ENDIF