shutdown.prg

来自「这是一个学生成绩管理系统」· PRG 代码 · 共 11 行

if messagebox("是否真的要退出系统？",4+32,"管理系统1.0 ")=7
  
   retu 
else
_screen.hide
clos data 
clos all

clea event
quit
endif