main.prg

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

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  

do form login.scx
read even