📄 quitall.prg
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -