gbsjk.prg

来自「进销存源码」· PRG 代码 · 共 23 行

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

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

PARAMETERS SJKM

PRIVATE ALL

ERR=0

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

RETURN