quitkqjdb.prg

统主要由考勤机和考勤软件两部分组成

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: QUITKQJDB.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 IF MESSAGEBOX('你确定想退出此应用程序吗？',33,'退出程序') <> 1
    RETURN 
 ENDIF 
 LOCAL LERR
 LERR = .F.
 ON ERROR lerr=.T.
 CLOSE ALL
 CLEAR WINDOW
 RELEASE ALL
 ON SHUTDOWN 
 IF WEXIST('standard')
    SHOW WINDOW STANDARD
 ENDIF 
 SET DELETED OFF
 SET SAFETY ON
 SET ESCAPE ON
 SET NOTIFY ON
 SET SYSMENU TO DEFAULT
 CLEAR ALL
 CLEAR EVENTS 
 _SCREEN.BACKCOLOR = RGB(255,255,255)
 ON ERROR 
*