dksjk.prg

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

*打开数据库程序
*程序名:ZLDKSJK
*程序员:
*编制日期:1995.7.2

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

PARAMETERS SJKM,BM

PRIVATE ALL

ERR=0

ON ERROR ERR=ERROR()
SELECT &BM
IF ERR=13
   SELECT 0
   USE &SJKM ALIAS &BM
ENDIF
ON ERROR

RETURN