set exact on
select login
locate for 用户名 =alltrim(thisform.text1.value)
set exact off
if found() and alltrim(密码)==alltrim(thisform.text2.value)
do form forms\mainform.scx
else
if n <3
=messagebox( "无此用户或密码错误,请重新输入!! ",48, "信息窗口 ")
n=n+1
thisform.text1.value=space(10)
thisform.text2.value=space(10)
thisform.text1.setfocus
else
=messagebox( "密码输入错误,不能使用本系统! ",48, "信息窗口 ")
thisform.release()
endif
endif
set procedure to code\logfun.prg additive
local slog
slog=createobject( "systemlog ")
slog.logfun( '登录操作 ', '用户登录 ',username)
release procedure code\logfun.prg
我这个logfun.prg明明写好了，可是我运行时候，提醒我logfun.prg程序不存在,
大侠们，给我解决一下
------解决方案--------------------------------------------------------
加上完整路径应该没问题
看下路径设置