vf怎么从一个表单跳到另一个表单 点击表单1的按钮进入表单2并关闭表单1
2个回答
展开全部
你新建的表单比如叫form2 当前表单叫form1,在command按钮中如果用户名和密码正确加上do form2.scx,不要写thisform.release 不然会弹出窗口
今天没事,随便写写
if allrrim(thisform.text1.value)=" "(你预设一个用户名) and if allrrim(thisform.text1.value)=" "(你预设的密码)
do form2.scx
else
thisform.release
endif
下面我自己以前做的一个,仅供参考:
IF ALLTRIM(thisform.text1.Value) ==""
MessageBox("请输入用户名")
RETURN
ENDIF
IF ALLTRIM(thisform.text2.Value) ==""
MessageBox("请输入密码")
RETURN
ENDIF
SELECT table3
&&查找指定用户名为的记录
Locate For Allt(用户名)=Allt(thisform.text1.Value)
If Found() == .T. &&如果找到
If Allt(密码) == Allt(thisform.text2.Value) &&比较密码,成功则进入
MessageBox("欢迎光临", 64, "提示信息")
do form jiaoyi
thisform.visible=.f.
Else &&比较密码不成功
MessageBox("密码不正确", 16, "错误提示")
i=i+1
endif
Else &&没有找到指定用户
MessageBox("用户名不存在", 16, "错误提示")
i=i+1
Endif
if i>2
messagebox("非法登录!",16,"非法登录提示")
thisform.release
endif
今天没事,随便写写
if allrrim(thisform.text1.value)=" "(你预设一个用户名) and if allrrim(thisform.text1.value)=" "(你预设的密码)
do form2.scx
else
thisform.release
endif
下面我自己以前做的一个,仅供参考:
IF ALLTRIM(thisform.text1.Value) ==""
MessageBox("请输入用户名")
RETURN
ENDIF
IF ALLTRIM(thisform.text2.Value) ==""
MessageBox("请输入密码")
RETURN
ENDIF
SELECT table3
&&查找指定用户名为的记录
Locate For Allt(用户名)=Allt(thisform.text1.Value)
If Found() == .T. &&如果找到
If Allt(密码) == Allt(thisform.text2.Value) &&比较密码,成功则进入
MessageBox("欢迎光临", 64, "提示信息")
do form jiaoyi
thisform.visible=.f.
Else &&比较密码不成功
MessageBox("密码不正确", 16, "错误提示")
i=i+1
endif
Else &&没有找到指定用户
MessageBox("用户名不存在", 16, "错误提示")
i=i+1
Endif
if i>2
messagebox("非法登录!",16,"非法登录提示")
thisform.release
endif
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询