新手请教问题... - VFP论坛 - 编程论坛档案馆

编程论坛 → 数据库技术 → 『 VFP论坛』 → 新手请教问题...

标题：新手请教问题...

只看楼主

mzyanlei

帅哥哟，离线，有人找我吗？

Rank: 1

等　级：新手上路
帖　子：11
专家分：0
注　册：2006-7-17

问题点数：0 回复次数：3

新手请教问题...

USE C:\车辆管理系统\用户密码表.dbf EXCLUSIVE
Locate FOR 用户名 = ALLTRIM(ThisForm.Combo1.Value)
IF FOUND() AND 密码 = ALLTRIM(ThisForm.Text1.Value)
DO FORM 功能选择.scx
ELSE
IF ThisForm.密码 = !ALLTRIM(ThisForm.Text1.Value)
= MessageBox("操作员密码错误!"+chr(13)+"请重新输入!",48."警告") ThisForm.Text1.SetFocus
ThisForm.Text1.SetFocus
ELSE
= MessageBox("对不起,您已经三次输入错误!"+chr(13)+"非法用户,请您退出系统",48,"严重警告!!"
ThisForm.Release
ENDIF
ENDIF

提示:找不到属性密码
请问是怎么回事,是不是代码少写什么了.

搜索更多相关主题的帖子: 管理系统　用户名　操作员　密码　

发帖时间

2006-07-28 00:07

Tiger5392

帅哥哟，离线，有人找我吗？

Rank: 12

Rank: 12

Rank: 12

等　级：贵宾
威　望：88
帖　子：2775
专家分：2237
注　册：2006-5-17

得分:0

USE C:\车辆管理系统\用户密码表.dbf EXCLUSIVE
Locate FOR 用户名 = ALLTRIM(ThisForm.Combo1.Value)
IF FOUND() AND 密码 = ALLTRIM(ThisForm.Text1.Value)
DO FORM 功能选择.scx
ELSE
IF ThisForm.密码 = !ALLTRIM(ThisForm.Text1.Value)
= MessageBox("操作员密码错误!"+chr(13)+"请重新输入!",48."警告") ThisForm.Text1.SetFocus
ThisForm.Text1.SetFocus
ELSE
= MessageBox("对不起,您已经三次输入错误!"+chr(13)+"非法用户,请您退出系统",48,"严重警告!!"
ThisForm.Release
ENDIF
ENDIF

去掉下划线部分的内容。因为"密码"不是表单的一个属性。

感言：学以致用。博客：http://www./blog/user14/65009/index.shtml email：Tiger5392@

发帖时间

2006-07-28 00:37

啸凡

帅哥哟，离线，有人找我吗？

Rank: 8

Rank: 8

等　级：贵宾
威　望：45
帖　子：1356
专家分：885
注　册：2006-2-22

得分:0

我看不出这段代码是怎么判断输入次数而确定用户三次错误的。

[此贴子已经被作者于2006-7-28 11:11:07编辑过]

两人行已有我师……

发帖时间

2006-07-28 11:08

hu9jj

帅哥哟，离线，有人找我吗？

Rank: 20

Rank: 20

Rank: 20

Rank: 20

Rank: 20

来　自：红土地
等　级：贵宾
威　望：396
帖　子：11713
专家分：43267
注　册：2006-5-13

得分:0

应该增加一个变量，记录密码输入次数，初始值为1，每试一次加1，然后对这个变量进行判断，超过3就退出程序。

活到老，学到老！ http://www. E-mail:hu-jj@

发帖时间

2006-07-29 08:32

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-80670-1-1.html

关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有，并保留所有权利。

Powered by Discuz, Processed in 0.122489 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved