*新建一个表单,添加一个文本框,添加一个命令按钮(其余的修饰控件自己解决)
*form1.init代码:
public times,mima
times=0
mima="a1b2c3"
this.caption="登录"
thisform.text1.passagewordmark="*"
*command1.click代码
if thisform.text1.value==mima
messagebox("登录成功!")
release mima
thisform.release
endif
times=times+1
do case
case time=1
messagebox("密码错!还有两次机会")
case time=2
messagebox("密码错!还有两一次机会")
case time=3
messagebox("密码错!系统拒绝你登录")
release mima
thisform.release
endcase
温馨提示:答案为网友推荐,仅供参考