gbsjk.prg

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

*关闭数据库程序
*程序名:ZLGBSJK
*程序员:
*编制日期:

*变量说明
*ERR:错误号
*SJKM:数据库名

PARAMETERS SJKM

PRIVATE ALL

ERR=0

ON ERROR ERR=ERROR()
SELECT &SJKM
IF ERR#13
   USE
ENDIF
ON ERROR

RETURN