VF 关闭表单代码解决的再追加100分！！！！

显示全部楼层 · 2009-4-20 14:22:46

设计的小软件，启动后到登陆界面（一个表单）
“确定”键的click代码如下
*密码验证
loginflag=loginflag+1
*正确密码是admin
if thisform.text1.value='admin'

WAIT'欢迎登陆本系统'WIND NOWA

??CHR(7)

RETU .T.
ELSE

WAIT'您还有'+STR(3-loginflag,1)+'次机会输入密码'WIND NOWA

IF loginflag=3

messagebox('您没有权限使用本系统')

quit

RETU .F.
ENDI
ENDI
请问输入正确后如何自动关闭这个表单?用 thisform.release么？加在哪里？或者还有其他什么办法？
望高人解答

千问 · 2009-4-20 14:22:46

RETU .T. ELSE两行之间加上thisform.releasereturn...

千问 · 2009-4-20 14:22:46

WAIT'欢迎登陆本系统'WIND NOWA??CHR(7)THISFORM.Release()return .t....

VF 关闭表单代码 解决的再追加100分！！！！

VF 关闭表单代码解决的再追加100分！！！！