quit.prg

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

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

endif