quitall.prg

来自「进销存管理系统医药版,支持自动生成药品首写拼音字母快速查询.」· PRG 代码 · 共 34 行

DO WHILE TXNLEVEL()>0    &&脱离其他事务处理
    ROLLBACK 
ENDDO 

SELECT tblOperator
LOCATE FOR ALLTRIM(Name)==_SCREEN.cNowOperatorName
IF FOUND()      &&操作员离线
    REPLACE OnlineTime WITH DATETIME(),IsOnline WITH "离线"
ENDIF 
COUNT TO nOnline FOR IsOnline="在线"
IF nOnline=0    &&所有操作员都已经离线，开始清理数据库
    CLOSE ALL   &&关闭所有数据库
    *!* 重新以独占方式打开表，清理带有删除标记的记录
    USE tblCustomer EXCLUSIVE 
    PACK 
    USE tblIn EXCLUSIVE 
    PACK 
    USE tblInMaster EXCLUSIVE 
    PACK 
    USE tblMedicine EXCLUSIVE 
    PACK 
    USE tblOperator EXCLUSIVE 
    PACK 
    USE tblOut EXCLUSIVE 
    PACK 
    USE tblOutMaster EXCLUSIVE 
    PACK 
    USE tblProvider EXCLUSIVE 
    PACK 
    USE tblStock  EXCLUSIVE 
    PACK 
ENDIF 
CLEAR EVENTS 
QUIT