关于VFP问题

来源：百度知道 编辑：UC知道 时间：2024/07/02 14:12:37
为什么我的权限登陆界面在VFP里面运行测试的时候总是输入帐号密码以后就提示选择表呢？我的帐户信息是做在一个叫“帐号”的表里面，现在我把代码贴出来大家看看啊！然后第二次测试运行的时候就提示文件正在使用，什么意思啊！望高手指教！
if empty(thisform.text1.value)
messagebox('用户名不能为空，请输入用户名！',32,'数据精灵')
thisform.text1.setfocus
return
endif
locate for trim(用户名)==trim(thisform.text1.value)
if not found()
messagebox("无法确认此用户，请输入正确的用户名！",32,"数据精灵")
thisform.text1.value=""
thisform.text2.value=""
else
if trim(密码)==trim(thisform.text2.value)
messagebox("登陆成功,欢迎进入系统！")
do form zhucaidan.scx
thisform.release
*Do cd.mpr &&安装菜单系统
else
messagebox("密码错误")
thisform.text2.value=""
endif
endif

改成：
if not used('帐号')
use 帐号 in 0
endif
select 帐号
if empty(thisform.text1.value)
messagebox('用户名不能为空，请输入用户名！',32,'数据精灵')
thisform.text1.setfocus
return
endif
locate for trim(用户名)==trim(thisform.text1.value)
if not found()
messagebox("无法确认此用户，请输入正确的用户名！",32,"数据精灵")
thisform.text1.value=""
thisform.text2.value=""
else
if trim(密码)==trim(thisform.text2.value)
messagebox("登陆成功,欢迎进入系统！")
do form zhucaidan.scx
thisform.release
*Do cd.mpr &&安装菜单系统
else
messagebox("密码错误")
thisform.text2.value=""
endif
endif

用close all关闭所有的打开数据库就能解决问题了