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

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 有无大佬帮忙看一下程序，建立了dbf文件，表单读取dbf文件，运行后输入正确值老是判别错误，谢谢了

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1218 人关注过本帖

标题：有无大佬帮忙看一下程序，建立了dbf文件，表单读取dbf文件，运行后输入正确 ...

只看楼主加入收藏

Glanido

等　级：新手上路
帖　子：4
专家分：0
注　册：2022-3-29
结帖率：0

楼主

已结贴√ 问题点数：20 回复次数：5

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

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

搜索更多相关主题的帖子: 文件　 text1　thisform　dbf　value　

2022-03-29 16:15

wengjl

等　级：贵宾
威　望：109
帖　子：2232
专家分：3913
注　册：2007-4-27

第 2 楼

得分:10

if found()=.n. 这是什么？看不懂

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

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

只求每天有一丁点儿的进步就可以了

2022-03-29 16:26

Glanido

等　级：新手上路
帖　子：4
专家分：0
注　册：2022-3-29

第 3 楼

得分:0

回复 2楼 wengjl

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

2022-03-30 11:24

mywisdom88

等　级：版主
威　望：191
帖　子：3147
专家分：8408
注　册：2015-3-25

第 4 楼

得分:10

以下是引用Glanido在2022-3-30 11:24:59的发言：

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

found() 只会等于 .t. 或者 .f. 不会等于 .n.，他只能真假

2022-03-30 12:31

wengjl

等　级：贵宾
威　望：109
帖　子：2232
专家分：3913
注　册：2007-4-27

第 5 楼

得分:0

以下是引用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

我是说你二个红的地方没对应，是错的

只求每天有一丁点儿的进步就可以了

2022-03-30 14:27

Glanido

等　级：新手上路
帖　子：4
专家分：0
注　册：2022-3-29

第 6 楼

得分:0

回复 5楼 wengjl

已经解决了，是因为dbf文件空格没做处理

2022-03-30 16:05

快速回复：有无大佬帮忙看一下程序，建立了dbf文件，表单读取dbf文件，运行后输入 ...