LOCAL LCSYS16,LCPROGRAM
LCSYS16=SYS(16)
LCPROGRAM=SUBSTR(LCSYS16,AT(':',LCSYS16)-1)
CD LEFT(LCPROGRAM,RAT('\',LCPROGRAM))

这是一个很好的路径设置 放在主程序里面

主程序代码这样改一下试试：
set talk off
set safety off
set deleted on
set path to sys(5)+sys(2003+"workstation\vf"
_screen.caption="客户信息数据库"
_screen.backcolor=rgb(157,214,225)
_screen.icon="BOOK02.ICO"
_screen.windowstate=2
public passw,n
do form 登录界面
read events

sofa