quitkqjdb.prg

来自「智能考勤管理系统是我学习别人的一个软件,我主要在搞工业自动化的编程,单片机,PL」· PRG 代码 · 共 29 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: 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 
*