我的用户登录界面执行时不能输入密码 - VFP论坛

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

编程论坛 → 数据库技术 → 『 VFP论坛』 → 我的用户登录界面执行时不能输入密码

我的收件箱(0)

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

共有 522 人关注过本帖

标题：我的用户登录界面执行时不能输入密码

取消只看楼主加入收藏

xiazongli

来　自：临沂
等　级：新手上路
帖　子：4
专家分：0
注　册：2014-12-30
结帖率：100%

楼主

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

我的用户登录界面执行时不能输入密码

SELECT tblpassword
SCAN
IF ALLTRIM(THISFORM.text1.Value)=ALLTRIM(密码)
   wait"密码正确,正在加载系统,请等候!"windows timeout 2
   flag =.T.
   DO FORM Frmmain
     thisform.Release
ENDIF
ENDSCAN
IF EOF() AND NOT flag
  Messagebox("密码输入错误"+ALLTRIM(STR(Ncount+1))+"次!",64,"密码信息框")
  Ncount=Ncount+1
  IF Ncount>=3
    thisform.SetAll("Enabled",.F.,"Commandbutton")
    wait"由于错误次数太多系统即将于3秒后退出,再见！"windows timeout 3
    thisform.Release
ENDIF
     thisform.text1.Value=""
     thisform.text1.SetFocus
ENDIF