回复 2楼 sdta
网上搜的,请版主看下,这个代码引用表,但没有讲出表的位置。。。。请问什么原因?这代码要怎样用的?
完整的思路:
psw.dbf应该这样设计:
user(用户名),pass(密码)
在主程序中定义一个全局变量
public username
然后登录代码这样:
use psw.dbf in 0
loca for allt(user)==allt(thisform.text1.value)
if found()
if allt(pass)==allt(thisform.text2.value)
use in psw
username=allt(thisform.text1.value)
do form telnet.scx
else
messagebox("对不起,您的密码错误!请重新输入!",48,"错误提示")
thisform.text2.value=""
thisform.text2.setfocus
endif
else
messagebox("对不起,没有这个用户!请重新输入!",48,"错误提示")
thisform.text1.setfocus
endif
修改密码的代码:
use psw.dbf in 0
loca for allt(user)==allt(username)
if allt(thisform.text1.value)#allt(pass)
messagebox("对不起,您的旧密码错误!请重新输入!",48,"错误提示")
use in psw
thisform.text1.setfocus
else
if allt(thisform.text2.value)#allt(thisform.text3.value)
messagebox("对不起,两次输入的新密码不一致!请重新输入!",48,"错误提示")
use in psw
thisform.text3.setfocus
else
newpass=allt(thisform.text2.value)
update psw set pass=allt(newpass) where allt(user)==allt(username)
use in psw
do form sn.scx
endif
endif