VFP登陆问题

datoubobo

我建了个用户密码表，然后建了个表单，是登陆的表单，并设置了文本框的数据源。它老是把用户名和密码不等我自己输入就显示出来了，怎么办
？？？？
谁能帮忙写个代码？
谢谢

bluesky775

你弄错了，应该把表单的数据环境设为存放密码的表，如果没有加数据环境在代码开始加一句 use 表文件名  也可以。然后再表单上建文本框还有按钮之类的东西，在按钮的click事件：

（假设表名称为：yh，里面用户名字段为：账号，密码字段为：密码）

if empty(thisform.text1.value) .or. empty(thisform.text2.value)
   messagebox("请输入用户名和密码",16,"错误")
else
   locat for 账号=trim(thisform.text1.value)
   if found()
      if trim(thisform.text2.value)<>trim(密码)
          messagebox("帐号密码有误，请确认以后重新输入",16,"错误")
          thisform.text1.value=""
          thisform.text2.value=""
       else
          yh=trim(thisform.text1.value)
          do form welcome
          release thisform
       endif
    else
      messagebox("帐号密码有误，请确认以后重新输入",16,"错误")
   endif
endif