Foxtable(狐表)用户栏目专家坐堂 → 移动开发端 如何实现判断AddInput不为空时,允许点击登录呢?


  共有1865人关注过本帖树形打印复制链接

主题:移动开发端 如何实现判断AddInput不为空时,允许点击登录呢?

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
移动开发端 如何实现判断AddInput不为空时,允许点击登录呢?  发帖心情 Post By:2019/4/8 11:30:00 [只看该作者]

移动开发端 如何实现判断AddInput不为空时,允许点击登录呢?


代码如下:

Select Case e.Path
    Case "logon.htm" '登录页面
        
        wb.AddPageTitle("","pageheader","案件流程推送","由瓮安县人民检察院李孝春设计开发")
        If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then '判断是否是验证失败后的重新登录
            wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 '如果用户通过登录按钮访问,则给用户一个2秒的提示.
        End If
        wb.AddForm("","form1","logon.htm")
        With wb.AddInputGroup("form1","ipg1")
            .AddInput("username","户名","text")
            .AddInput("password","密码","password")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "登录", "submit")
        End With
        With wb.AddPageFooter("","pf1","Copyright © 贵州省瓮安县人民检察院")
            '.AddLink("底部链接","http://www.foxtable.com")
        End With
        e.WriteString(wb.Build)

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/8 12:25:00 [只看该作者]

用js做一下校验吧,如

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        wb.AddPageTitle("","pageheader","案件流程推送","由瓮安县人民检察院李孝春设计开发")
        If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then '判断是否是验证失败后的重新登录
            wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 '如果用户通过登录按钮访问,则给用户一个2秒的提示.
        End If
        wb.AddForm("","form1","logon.htm")
        With wb.AddInputGroup("form1","ipg1")
            .AddInput("username","户名","text")
            .AddInput("password","密码","password")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "登录", "button").Attribute = "onclick=""if(username.value=='' || password.value==''){alert('不能为空');}else{alert('提交'); form1.submit();}"""
        End With
        With wb.AddPageFooter("","pf1","Copyright © 贵州省瓮安县人民检察院")
            '.AddLink("底部链接","http://www.foxtable.com")
        End With
        e.WriteString(wb.Build)
End Select


 回到顶部