quit1.prg

来自「建设银行帐户管理系统 visual foxpro代码」· PRG 代码 · 共 23 行

if wchild('screen')>1
  xx=messagebox("请将其他窗口关闭后，然后再退出系统...",0+48,"注意")
else
clos all
set excl on
use sbtz
pack
use sbsb
pack
use sbgg
pack
use sblx
pack
use xjhm
pack
use passwd
pack
use gxdw
pack
 clear event
clear dlls
quit
endif