表单代码vf表单设计代码。

vf表单设计代码。

建立一个保管用户名和密码的数据表，假定命名为：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