高考问答华为第一年年终奖:麻烦各路大侠帮看看下面这段VFP的程序，我想实现的是新密码替换原来表中的旧密码
来源：百度文库 编辑：高考问答 时间：2024/05/09 04:49:13
close tables all
set exclusive on
use 用户表
locate for 用户名=thisform.text3.value and 密码=thisform.text1.value
if found()=.t.
delete
pack
if thisform.text2.value=thisform.text4.value
messagebox("密码已经确认",48,"信息窗口")
replace 用户表.用户名 with thisform.text3.value
replace 用户表.密码 with thisform.text4.value
thisform.release
else
messagebox("密码未确认",48,"信息窗口")
endif
else
messagebox("此用户不存在",48,"信息窗口")
endif
close tables all
set exclusive off
运行不了啊！
set exclusive on
use 用户表
locate for 用户名=thisform.text3.value and 密码=thisform.text1.value
if found()=.t.
delete
pack
if thisform.text2.value=thisform.text4.value
messagebox("密码已经确认",48,"信息窗口")
replace 用户表.用户名 with thisform.text3.value
replace 用户表.密码 with thisform.text4.value
thisform.release
else
messagebox("密码未确认",48,"信息窗口")
endif
else
messagebox("此用户不存在",48,"信息窗口")
endif
close tables all
set exclusive off
运行不了啊！
怎样运行不了？说详细点。
你的用户表有几条记录啊？
如果只有一条，肯定运行不了，因为你把记录删掉了，就不能replace了。
如果不止一条，你会把其他记录改掉。
没什么问题阿