急救！关于VFP的密码验证表单......

可乐pp

已经照着书上做的了,可是还是运行不了

整个系统就被这里卡住了,不能完成

连老师都不会滴说,郁闷.....:time:

不知道有哪位高手可以帮帮偶

command1 的 click事件

local t
thisform.t=thisform.t+1
select password
locate for alltrim(用户名)=alltrim(thisform.combo1.value)
if found() and 密码=alltrim(thisform.text1.value)
  do 菜单1.mpr
  release thisform
else
  if thisform.t<3
     messagebox("用户密码错误!"+chr(13)+"再试一次！",48,"警告")
   else
     messagebox("对不起，你已经错了三次了！"+chr(13)+"非法用户",48,"严重警告")
      release thisform
   endif

endif


运行的时候总是说找不到属性T,不知道要怎么改...:handshake

[ 本帖最后由 可乐pp 于 2006-6-26 10:43 编辑 ]

韦斯特内恩

可怜,叫马骝搞掂距啦

可乐pp

马骝失踪了。。。
小韦帮偶解决。。。

样衰华

曾经是计算机专业的路过.....:L

Leon001

t没有初值

可乐pp

原帖由 Leon001 于 2006-6-26 11:42 发表
t没有初值

那就是要怎样改？

david当当

VFP那么弱智勇的东东不要发在编程版里好不

powerwind

楼上不要火！最近有人做课程设计，都是问如此之类的问题。
不过那种不先思考，什么都问的人是要骂一骂的。

sasadong

command1 的 click事件

local t


t是thisform类的一个函数里面的局部变量，不管有没赋值，都是不可访问的吧？
你试试把t定义在一个modle作为全局变量，或者放在表单的全局区定义。

DOGMONKEYPEACH

弱智又如何？
你以为个个都好似理科生电脑甘掂啊？
还是觉得识得做呢D应该系人既本能？

orangecarol

原帖由 DOGMONKEYPEACH 于 2006-6-28 00:43 发表
弱智又如何？
你以为个个都好似理科生电脑甘掂啊？
还是觉得识得做呢D应该系人既本能？

系啊系啊
好难做噶

RocknRoll

在表单的init事件中加入以下语句
This.AddProperty("t",0)
在刚才的click事件中去掉那那行烦人的local t
如果还不行的话我请你吃饭

===============
请注意用辞.

by  hjack
===============

[ 本帖最后由 hjack 于 2006-6-28 23:30 编辑 ]

RocknRoll

再回一句,那本教材是垃圾中的垃圾,不要过于计较

可乐pp

谢谢各位，不过偶的实验报告已经打印出来了。。。:time:

偶改了一下，结果是前面可以执行

if thisform.t<3
     messagebox("用户密码错误!"+chr(13)+"再试一次！",48,"警告")
   else
     messagebox("对不起，你已经错了三次了！"+chr(13)+"非法用户",48,"严重警告")
      release thisform
   endif

endif

后面这些执行不了，照交了