Question

vf表单设计代码。

用表单设计一个登陆界面，当用户输入用户名和口令并按确认键后，检验输入是否正确（假定用户名为ABCDEF,口令为123456），就显示“欢迎使用……”字样并关闭表单;若用户名不正确，就显示“用户不正确，请重输……”;若口令不正确，就显示“口令不正确，请重输......”；若都不正确，就显示“用户名和口令都不正确，请重输......”如果三次输入不正确，就显示“用户口名或口令不正确，登陆失败！”。请写出“确认”命令按钮的Click事件代码。
不限一组用户名和口令，可同时有多组用户名和口令，只要所输入的用户名和口令正确就显示“欢迎使用...”,至少有三组用户名和口令

Answer 1

建立一个保管用户名和密码的数据表，假定命名为：password.dbf，其中包含三个字段，用户名（字符型），密码（字符型），输入次数（数值型）。输入用户名的文本框为text1，输入密码的文本框为text2
则“确认”命令按钮的Click事件代码为
yhm=allt(thisform.text1.value)
mm=allt(thisform.text2.value)
use password

go 1
if 输入次数=3
messagebox("用户保或口令不正确，登陆失败",0,"系统消息")
repl 输入次数 with 0
clos data
thisform.release
else
loca for 用户名=yhm
if found()
if 密码=mm
messagebox("欢迎使用！",0,"系统消息")
go 1
repl 输入次数 with 0
clos data
thisform.release
else
messagebox("密码不正确，请重新输入！",0,"系统消息")
go 1
repl 输入次数 with 输入次数+1
thisform.text2.value=""
thisform.text2.setfocus
clos data
endi
else
messagebox("用户不正确，请重输……",0,"系统消息")

go 1
repl 输入次数 with 输入次数+1
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
clos data
endi
endi