quit1.prg

来自「办公室档案管理系统源代码」· PRG 代码 · 共 12 行

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