tcxt.prg

来自「vfp的进销存系统」· PRG 代码 · 共 16 行

*退出系统模块

*变量说明

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