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

你问题是什么？有提示没有？

楼主的基础知识有限，核对用户名及密码不用查找，而用循环，没有考虑程序的执行效率。

没有问题就是不能输入密码   我是按照教科书上做的

那我应该怎么修改啊？
求指导

猜测：do form ‘父表单’ 之后，要加 read event
      ncount=ncount+1 要在‘子表单内’实现。
  

求医要讲究望闻问切，你光传段代码，人家如何帮你对症下药？