cj.bak

来自「vfp编写的简单计数器.可以轻松实现计数,清零等功能」· BAK 代码 · 共 28 行

set talk off
set safety off

*设置隐含路径
DQML=SYS(5)+SYS(2003)
CXLJ=SYS(16)
FOR JSQ=1 TO LEN(CXLJ)
  CXZF=LEFT(RIGHT(CXLJ,JSQ),1)
  IF CXZF='\'
    CXLJ=STUFF(CXLJ,LEN(CXLJ)-JSQ+1,JSQ,'')
    EXIT
  ENDIF
ENDFOR
SET DEFAULT TO &CXLJ

close table all
use cj in 0  &&打开用于抽奖的号码表
select cj
replace all 已抽 with .f.  &&将所有号码设为未抽奖
use cjjg in 0  &&打开用于存放抽奖结果的表
select cjjg  &&将抽奖结果表清空
zap

do form cj name cj  &&进入抽奖表单
read events

cancel
return