tcxt.prg

vfp的进销存系统

*退出系统模块

*变量说明

do jrz with p_gzrrxm,'退出系统。'

set sysmenu to default
close databases all
save to xtzcgb
*logo.release
on error
on shut
set colo to rgb(,,,255,255,255)
clea
cancel