tjcx.bak

来自「这是同学信息资料管理系统的设计」· BAK 代码 · 共 29 行

set talk off
public zjjl
zjjl=0
*设置隐含路径
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  

use tjxb in 0
select tjxb  &&选择统计部门表
zap  &&清空里面的数据




select tjxb  &&选择统计部门表
use  &&将统计部门表关闭
do form tjsc.scx
return  &&返回
read even