quit1.prg

办公室档案管理系统源代码

*if messagebox('请确认是否退出？',292,'检测报告管理系统')=6
*wait "正在退出检测报告管理系统" window nowait
*wait clear
clear events
clea all
on error
quit
*else 
*return
*endif