帮忙调试一下,实在是不会搞了

tkdr2001 2002-11-18 06:45:06
有BUG部分的全部源码,FoxPro 2.6 (dos)
&& *************************************
SET TALK OFF
SET ESCA OFF
SET SYSM OFF
CLEAR ALL
CLEAR
USE
USE password
SELECT password
DEFI WINDOW inputpas ;
FROM 0,0 TO 10,45 ;
DOUB ;
SHAD ;
TITL "Password" ;
COLOR SCHE 7
MOVE WINDOW inputpas CENT
ACTI WINDOW inputpas
TEXT
* * * * * * * N O T E * * * * * * *
Please type superuser password. if
you nope superuser please quit system.

ENDTEXT

@7,16 SAY "Ver:1.0?
@5,2 SAY " Password: "
KEY=0
i=1
COLL=15
DO WHILE .T.
m.passw=" "
SET CURS ON
COLL=15
DO WHILE KEY#13
KEY=INKEY(0)
IF KEY#13
IF KEY=7 .OR. KEY=19 .OR. KEY=127
COLL=COLL-1
IF COLL<15
COLL=15
WAIT WINDOW "Please input password." TIME 0.5
ENDIF
@5,COLL SAY " "
ELSE
IF COLL>33
WAIT WINDOW "Password out." TIME 2.0
COLL=33
ENDIF
@5,COLL SAY "*"
COLL=COLL+1
m.passw=m.passw+CHR(KEY)
ENDIF
ENDIF
ENDDO

LOCATE FOR ALLTRIM(password)=ALLTRIM(m.passw) &&已经查出问题就在这里,但如何修改?
IF ! FOUND()
IF i<3
WAIT "Password error." WINDOW TIME 0.5
@5,15 SAY SPACE(20)
m.passw=" "
KEY=0
i=i+1
@5,2 SAY " Password: "
GO TOP
LOOP
ELSE
WAIT "Sorry error! program exit." WINDOW
RELE WINDOW inputpas
SELE password
USE
QUIT
ENDIF
ELSE
WAIT WINDOW "password ok" TIME 1.5
RELE WINDOW inputpas
SELE password
USE
SET ESCA ON
SET SYSM ON
SET TALK ON
EXIT
ENDIF
ENDDO
&& **************************************
...全文
31 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
newfang 2002-11-19
  • 打赏
  • 举报
回复
a=allt(m.passw)
LOCATE FOR ALLTRIM(password)==a
不知可否…………
bootdelay 2002-11-19
  • 打赏
  • 举报
回复
方方说的是正确的

2,740

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧