回 帖 发 新 帖 刷新版面

主题:刚看vf...遇到问题了 求解 谢谢!

use 密码参数表.dbf
user1=trim(thisform.user.value)
password1=trim(thisform.password.value)
locate all for user1=user
   if  found()
  locate all for password1=password 
     do case
     case found ()
       do 主程序.mpr
     case not found()
      messagebox("查无此号码,请按原号码来输入")
     endcase
     else
      messagebox("查无此人信件,请下次再来")
     endif
  thisform.release
 

 

 

 

command的click事件的程序  但是locate all for user1=user 这个命令和 locate all for password1=password  这个命令的定位只能按密码参数表这个表的字符规定长度来定位 比如说  在密码参数表里 user 是c(8) password是c(11)  那么就只有名字是四个字 密码是11个数字的记录输入时才会进入 do 主程序.mpr这个步骤  求解决!!!!  

 

 

 

还有 求怎么设置  文字框的input属性

value属性说实在点是干嘛的
select (thisform.dataenvierment.cursor1.alias)这个命令又是什么意思?

 

我只是问题很傻........但是多谢.....

回复列表 (共3个回复)

沙发

use 密码参数表.dbf
user1=trim(thisform.user.value)
password1=trim(thisform.password.value)
locate all for user1$user
IF !FOUND()
messagebox("查无此人信件,请下次再来")
endif

locate all for user1=user AND  locate all for password1=password 
     IF FOUND()
       do 主程序.mpr
ELSE
      messagebox("查无此号码,请按原号码来输入")
     endIF
  thisform.release
 有点逻辑不清

板凳

谢谢先!
我也试过这样编比较清晰 但是....
locate all for user1=user AND  locate all for password1=password 
 这个命令在保存时候总显示不能识别

而且我比较疑问的是  用密码参数表时候  只能识别表结构设定的字符长度的姓名 user或者 password  比如 user 是字符型 8   你在输入 一二三四时就会识别到 而输入同样密码参数表有的一二时 就会显示查无此人  怎么办......

3 楼

locate for allt(user)==allt(user1) AND allt(password)==allt(password1) 

我来回复

您尚未登录,请登录后再回复。点此登录或注册