quit1.bak

来自「专家库管理系统(多用户)」· BAK 代码 · 共 48 行

if wchild('screen')>1
  xx=messagebox("请将其他窗口关闭后，然后再退出系统...",0+48,"提示")
else
*如果在退出时只有这一个用户，将做数据清理
    SET EXACT ON 
    SELECT passwd 
     LOCATE FOR ALLTRIM(passwd.username)=ALLTRIM(NowUser).and.!DELETED()
     IF !RLOCK()
        wait window "记录锁定失败！不能修改用户状态，稍侯退出。" timeout 2
       ELSE
       replace passwd.userstate with 0
        =TABLEUPDATE(.t.)
        UNLOCK 
       
     SUM passwd.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             
    ENDIF    
 
 clear event
clear dlls
quit
endif 
ENDIF