②设置标签和命令钮caption (用户名,口令,确认),命令钮Default设为.T.
③设text2的InputMask为:999或=“999”•
④设Text2的PasswordChar值•
⑤从“表单”中选“新建属性”,添加新属性num,并设默认0 。
⑥设置命令钮的click事件代码:(验证用户名abc,口令123456,是则显示欢迎使用并关闭;否则显示重输,三次不正确显示登录失败,关闭表单)
if thisform.text2.value="123456"
wait "欢迎进入 本系统…" wind time 2
thisform.releaseelse
thisform.num=thisform.num+1
if thisform.num=3
wait"你无权进入本系统!" wind time 2
thisform.release
else
wait "口令不正确,请重输!" wind timeout 2
endif
endif
VF是其中一个vf是推出的数据库软件visual foxpro的简称,又叫VFP。是数据库管理系统,集成编程语言,是开发小型数据库的前端工具。Visual FoxPro中的Visual的意思是“可视化”,该技术使得在Windows环境下设计的应用程序达到即看即得的效果。欢迎分享,转载请注明来源:内存溢出
评论列表(0条)