首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

文件共享,锁的有关问题

2012-03-09 
文件共享,锁的问题&& VFP 6.0&& 使用文件共享方式,盘符映射&& 执行到红色部分时报错select duserlocate fo

文件共享,锁的问题
&& VFP 6.0
&& 使用文件共享方式,盘符映射

&& 执行到红色部分时报错


 select duser

 locate for allt(userno) = allt(thisform.text1.value)
 unlock
 
 if !eof()
 if allt(userpw) != allt(thisform.text2.value)
messagebox("原口令不正确,请重新输入!",64,"提示")
thisform.text2.value =''
thisform.text2.setfocus
return .f. 
 else
 if !lock()
thisform.label9.caption="该操作员代码正在使用中,不可修改!" 
RETURN .f.
endif

 if messagebox("确定修改 “ "+allt(thisform.text1.value)+" ” 操作员密码?",36+256,"提示")!=6
return .f.
else 
repl userpw with allt(thisform.text4.value) for allt(userno)=allt(thisform.text1.value)
&& 为什么执行到这边就报“有其他用户在使用文件” ???
endif
 endif
 else
messagebox("操作员号不存在,请重新输入!",64,"提示")
thisform.text1.setfocus
return .f. 
 endif

[解决办法]
1、锁中再REPLACE;
2、用UPDATE SQL语句来替换。

热点排行