quit.prg

来自「用vfp语言设计的保健管理系统源码」· PRG 代码 · 共 8 行

on shutdown
if messagebox("您确信退出系统吗？",4+32+256,"货物管理系统")=6
  clea event
  quit
else
on shutdown do myquit
endif