Question

VF表单相关的一道题

①输入用户名和密码均为“123456”，点击“确定”按钮可以实现登陆，进入欢迎界面（main_form.scx）
②如果用户名或密码输入错误，弹出提示对话框

③重置按钮，可以清空用户名和密码

主要就是求按钮的代码QVQ谢谢啦

Answer 1

i=i=1
uid=alltrim(thisform.TxtUserCode.value)
pwd=alltrim(thisform.TxtPassword.value)
loca for 用户名=uid
if alltrim(密码)==pwd
thisform.release
do form main_form.scx
else
if i>3
messagebox("三次密码输入不对,系统将退出!")
thisform.release
endif
messagebox("用户名或密码有误,请重新输入!"+ "你还有" + alltrim(sta(3-i))+"次机会。")
thisform.TxtPassword.selstart =0
thisform.TxtPassword.sellength =len(thisform.txtpassword.tex)
thisform.TxtPassword.setfocus
endif

再自己建一个表users,用户名和密码都设为12345

追问

我想问一下那个确认和重置两个摁钮的代码分别是啥QVQ
有点看不懂【哭瞎

追答

那就来个简单的
确定按钮代码：
struid=thisform.text1.value
strpwd=thisform.text2.value
if alltrim(struid)=="12345"
thisform.release
do form main_form.scx
else
messagebox("用户名或密码有误,请重新输入")
endif

重置按钮代码：
thisform.text1.value=""
thisform.text2.value=""

注：密码显示为*号是通过text2的passwordchar属性为*
form1的load事件代码为public i
i=0