USE 用户信息表.dbf SHAREDloca for 用户名=alltrim(thisform.text1.value) and 用户密码=alltrim(thisform.text2.value)if found()
thisform.text3.enabled=.t.thisform.text4.enabled=.t.elsemessagebox("用户名或者密码错误!")return endifif alltrim(thisform.text3.value)=alltrim(thisform.text4.value)repl 用户密码 with thisform.text3.value
messagebox("密码修改成功!")endifuseretu
这是一个修改用户密码的表单的代码,因为手头没资料,只能就我的记忆帮你解释一下。USE 用户信息表.dbf SHARED&&打开用户信息表loca for 用户名=alltrim(thisform.text1.value) and 用户密码=alltrim(thisform.text2.value)
&&查找"用户信息表"中用户名等于文本框1的值并且密码等于文本框2的值if found()
&&如果能找到thisform.text3.enabled=.t.
&&文本框text3可用thisform.text4.enabled=.t.
&&文本框text4可用else
&&否则messagebox("用户名或者密码错误!")
&&出现提示信息框return
&&返回endif
&&结束判断if alltrim(thisform.text3.value)=alltrim(thisform.text4.value)
&&如果text3的值等于text4的值repl 用户密码 with thisform.text3.value&&将用户信息表中该用户的密码替换成text3的值messagebox("密码修改成功!")
&&信息提示endifuse
&&关闭用户信息表retu
提问者对答案的评价: