Question

急！VFP中click事件的命令语句。 一个表单里，有用户名和密码两个标签。有确定，重置，退出三个命令按钮

用户名和密码都是123456要求按确定按钮时登陆成功，如果输入的不是123456的话，就显示用户名或密码错误。 这个确定的命令语句要怎么写！！！

Answer 1

童鞋·你的提问，题目就有问题吧？如果表单有两个标签，你是不可能在标签里面输入任何东西的。应该是文本框吧？
楼上的答案其实就可以了。也可以用messagebox（）来提示咯
a=thisform.text1.value
b=thisform.text2.value
if a==123456 and b==123456
messagebox("登陆成功！",0,"提示信息")
else
messagebox("用户名或密码错误！",0,"错误提示")

endif

追问

额，也许有问题吧，主要是这个真不太明白，虽然作业已经交上去了，但是还是谢谢您的回答~！

Answer 2

我们先假设 用户名和密码存放在表 user.dbf中 然后又字段名 yh（表示用户名），mm（表示密码）
现在我有两个思路：1.我们的用户名是用文本框由用户自动输入 2.我们的用户名用列表框来列示用户只能选择
第一个方法可以提高安全性，可以有效防止其他用户试其他用户的密码，因为猜用户名得有一定的水平；第二个方法安全性稍微差一些，不过程序员写代码的时候可以省去校对用户名得麻烦。
我们选第一个吧，如果你有兴趣选第二个我们再交流
将user文件添加到表单的数据环境中，这样表单打开时 user会自动打开
我们接下来开始输入<确定>按钮的命令 （下面的语句我加了 1 2 3 表示循环的层次 这样方便你查看 ）
select user
if !empty(thisform.text1.value) 1
locate for alltrim(user.yh)==alltrim(thisform.text1.value)
if found() 2
if alltrim(user.mm)==alltrim(thisform.text2.value) 3
&&执行你要登陆成功后执行的命令 如 do 某个form
else 3
messagebox("密码错误！",0+64,"提示")
thisform.text2.value=""
thisform.text2.setfocus
endif 3
else 2
messagebox("用户名无法找到！",0+64,"提示")
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus

endif 3
else 1
messagebox("用户名不可为空！",0+64,"提示信息")
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
endif 1

希望能帮到你

追问

恩恩，谢谢了~~~！

追答

不用客气 相互探讨而已

Answer 3

if thisform.text1.value<>"123456".or. thisform.text2.value<>"123456"
wait "用户名或密码错误"
endif

追问

谢谢您了！！真心的！！！

Answer 4

请重新输入密码！

追问

您说什么呢，