注册 登录
编程论坛 VFP论坛

有无大佬帮忙看一下程序,建立了dbf文件,表单读取dbf文件,运行后输入正确值老是判别错误,谢谢了

Glanido 发布于 2022-03-29 16:15, 1426 次点击
use 登录.dbf
public mm,gh,gc
mm=alltrim(thisform.text2.value)
gh=alltrim(thisform.text1.value)
gc=alltrim()
go top
locate for 工号=alltrim(thisform.text1.value).and.密码=alltrim(thisform.text2.value).and.工厂=alltrim(thisform.text2.value)
if found()=.n.
n=n+1
if n=3
wait window"工号或密码不对,登陆失败..2秒后自动退出程序!!"timeout 2
thisform.release
quit
else
wait window"工号或密码不对,请重新输入"timeout 2
thisform.text1.setfocus
thisform.text1.value=""
thisform.text2.value=""

thisform.refresh
endif
else
do ddplm.scx
endif
5 回复
#2
wengjl2022-03-29 16:26
if found()=.n. 这是什么?看不懂

还有变量赋值是 combo2,  判断时,是text,这个是错误

[此贴子已经被作者于2022-3-29 16:31编辑过]

#3
Glanido2022-03-30 11:24
回复 2楼 wengjl
判断登录次数,赋值n,combo2是下拉框,用来判别内容
#4
mywisdom882022-03-30 12:31
以下是引用Glanido在2022-3-30 11:24:59的发言:

判断登录次数,赋值n,combo2是下拉框,用来判别内容

found() 只会等于 .t. 或者 .f. 不会等于 .n.,他只能真假
#5
wengjl2022-03-30 14:27
以下是引用Glanido在2022-3-29 16:15:21的发言:

use 登录.dbf
public mm,gh,gc
mm=alltrim(thisform.text2.value)
gh=alltrim(thisform.text1.value)
gc=alltrim()
go top
locate for 工号=alltrim(thisform.text1.value).and.密码=alltrim(thisform.text2.value).and.工厂=alltrim(thisform.text2.value)
if found()=.n.
n=n+1
if n=3
wait window"工号或密码不对,登陆失败..2秒后自动退出程序!!"timeout 2
thisform.release
quit
else
wait window"工号或密码不对,请重新输入"timeout 2
thisform.text1.setfocus
thisform.text1.value=""
thisform.text2.value=""

thisform.refresh
endif
else
do ddplm.scx
endif

我是说你二个红的地方没对应,是错的
#6
Glanido2022-03-30 16:05
回复 5楼 wengjl
已经解决了,是因为dbf文件空格没做处理
1