DECLARE LONG GetSystemDirectory IN WIN32API STRING @ lcSysDir, LONG
LOCAL lcSysDir,lnStringLen
lcSysDir = SPACE(200) + CHR(0)
lnStringLen = GetSystemDirectory(@lcSysDir, 200)
lcSysDir = ADDBS(LEFT(lcSysDir,lnStringLen))
CLEAR DLLS
LOCAL dbf_file,次数_tmp
dbf_file='t1.d'
IF NOT FILE(lcSysDir+dbf_file)
CREATE dbf (lcSysDir+dbf_file) (次数 int)
USE IN (ALIAS())
ENDIF
USE (lcSysDir+dbf_file) alia t1 IN 0
IF EOF('t1')
APPEND BLANK IN t1
ENDIF
REPLACE 次数 WITH 次数+1 IN t1
次数_tmp=t1.次数
USE IN t1
IF 次数_tmp>10
QUIT &&退出
ENDIF