quit1.prg

建设银行计算机设备台帐程序计算机设备管理程序。其中包括一个网络文件传输示例

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