两种登录方式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、提示要放到登录页面里

  Case "logon.htm" '登录页面
        wb.AddPageTitle("","pageheader","销售系统","由湛江辉迅基于Foxtable开发")
        If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then '判断是否是验证失败后的重新登录
            wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 '如果用户通过登录按钮访问,则给用户一个2秒的提示.
        End If

2、加一句

wb.AppendHTML("<script>hide('page1');show('page2')</script>")

Dim e As RequestEventArgs = args(0)

Dim wb As New WeUI

wb.Inserthtml("<style>.weui_tabbar_label{font-size:16px}</style>")

wb.Inserthtml("<style>.weui_tabbar_icon{whidth:20px;height:20px;}</style>")

wb.Inserthtml("<style>p{margin:10px 16px;}</style>")

wb.AddPageTitle("","pageheader","教务","")

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then

wb.AddTopTips("","toptip1","用户名或密码错误或已停用!").msec = 3000

End If

With wb.AddTabBar("", "tb1", 1)

.AddPage("page1","学生家长登录","../tubiao/xsdn.png")

.AddPage("page2","学校班级登录","../tubiao/jsdn.png")

End With

If e.Cookies("dnok")="js"

wb.AppendHTML("<script>hide('page1');show('page2')</script>")

End If

wb.AddForm("page1","form1","logon.htm")

Dim cmd1 As new SQLCommand

cmd1.C

cmd1.CommandText ="Se/ect DISTINCT 单位,部门,密码 from {单位用户} "

Dim dt1 As DataTable = cmd1.ExecuteReader

Dim xxs As List(of String)=dt1.GetValues("单位")

With wb.AddInputGroup("form1","ipg1")

Dim In1= .AddInput("username","学生证件:","text")

In1.placeholder ="学生本人准确身份证号"

In1.value=e.Cookies("username")

.AddInput("password","登录密码:","password")

End With

With wb.AddButtonGroup("form1","btg1",False)

Dim btn1=.Add("btn1", "登录", "submit")

btn1.kind=1

btn1.value="btn1"

.Add("btn2", "注册", "", "zc.htm").kind=1

.Add("btn3", "APP安装","","http://njsjwxt.com:8888/jwxt.apk").kind=1

.Add("btn4", "忘记密码","","czmm.htm").kind=1

End With

wb.AddForm("page2","form2","logon.htm")

With wb.AddInputGroup("form2","ipg2","")

.AddSelect("单位","单位名称:"," |" & String.join("|",xxs.Toarray)).attribute=""

.Addselect("部门","所属部门:","")

.AddInput("密码","登录密码:","password")

End With

With wb.AddButtonGroup("form2","btg2",False)

Dim btn5 = .Add("btn5", "登录", "submit")

btn5.kind=1

btn5.value="btn5"

'.Add("btn2", "注册", "", "zc.htm").kind=1

.Add("btn6", "APP安装","","http://njsjwxt.com:8888/jwxt.apk").kind=1

.Add("btn7", "忘记密码","","czmm.htm").kind=1

End With

For Each xx As String In xxs

wb.InsertHTML("<p hidden id='" & xx & "'>" & " |" & dt1.GetComboListString("部门","单位='" & xx & "'") & "</p>")

wb.AppendHTML("<script src=./lib/getbj.js></script>")

e.WriteString(wb.Build)

e.Handled =True

老师，是这样写了还是不行，当输入密码不正确时没有任何反应就刷新了logon.htm，我没理解到我是在输入帐号或密码有错提示错误，请问我想改为showDialog试给用户个提示怎么写

推一步就走一步，从来都不去理解一下代码。

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") orelse e.PostValues.ContainsKey("单位") AndAlso ........... Then

wb.AddTopTips("","toptip1","用户名或密码错误或已停用!").msec = 3000

End If

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") OrElse e.PostValues.ContainsKey("单位") AndAlso e.PostValues.ContainsKey("部门") AndAlso e.PostValues.ContainsKey("密码") Then

wb.AddTopTips("","toptip1","用户名或密码错误或已停用!").msec = 3000

End If

With wb.AddTabBar("", "tb1", 1)

.AddPage("page1","学生家长登录","../tubiao/xsdn.png")

.AddPage("page2","学校班级登录","../tubiao/jsdn.png")

End With

If e.Cookies("dnok")="js"

wb.AppendHTML("<script>hide('page1');show('page2')</script>")

End If

wb.AddForm("page1","form1","logon.htm")

老师，不好意思，确定理解不到，因为没代码的对输入的帐号密码做判断，为什么就用这个就可以进行错误提示,现在改成这样还是没得提示得

如果是第一次进入登录页，username这些肯定是没有值的，不需要提示。如果是提交数据后判断不通过，还是进来登录页，username就有数据。如果正常登录肯定不会再进入登录页了。看看前面的登录权限判断是怎么跳转的？

我是要在输入帐号密码后如果错了给个提示

请老师帮看下，现在的想法就是当帐号不存在提示该用户不存在，当密码错误提示密码错误，如果能用Dialog方式就最好，谢谢

[此贴子已经被作者于2020/6/22 22:09:30编辑过]

If e.Path <> "zc.htm" AndAlso e.path<> "czmm.htm" Then '身份验证

If e.Path = "logon.htm"

If e.Cookies("dnok")="js" Or e.Cookies("dnok")="xs"

wb.InsertHTML("<meta http-equiv='Refresh' c>")' '直接跳转到首页

e.WriteString(wb.Build)

Return '

Else

If e.PostValues("btn1")="btn1"

Dim cmd As new SQLCommand

cmd.C

cmd.CommandText = "SELECT 身份证号,password,_identify FROM {用户} WHERE 身份证号 = '" & e.PostValues("username") & "' and password ='" & e.PostValues("password") & "'"

Dim dt As DataTable = cmd.ExecuteReader

If dt.DataRows.count>0

wb.InsertHTML("<meta http-equiv='Refresh' c>")'

wb.AppendCookie("username",e.postvalues("username"))

wb.appendcookie("userjs","学生")

wb.appendcookie("dnok","xs")

e.WriteString(wb.Build)

Return '

'Else 去掉这2句

'wb.InsertHTML("<meta http-equiv='Refresh' content='0'; url='logon.htm'>") '那么直接跳转到登录页面

End If

If e.PostValues("btn5")="btn5"

Dim cmd1 As new SQLCommand

cmd1.C

cmd1.CommandText ="Select DISTINCT 单位,部门,角色,修改权限,增加权限,密码 from {单位用户} "

Dim dt1 As DataTable = cmd1.ExecuteReader

Dim dr As DataRow = dt1.find("单位='" & e.PostValues("单位") & "' And 部门= '" & e.PostValues("部门") & "' And 密码= '" & e.PostValues("密码") &"'")

If dr IsNot Nothing

wb.InsertHTML("<meta http-equiv='Refresh' c>")'

wb.AppendCookie("userdw",dr("单位"))

wb.AppendCookie("userbm",dr("部门"))

If dr("部门").Contains("班")

wb.AppendCookie("bj",dr("部门"))

End If

wb.appendcookie("userjs",dr("角色"))

wb.appendcookie("xgqx",dr("修改权限"))

wb.appendcookie("zjqx",dr("增加权限"))

wb.appendcookie("dnok","js")

e.WriteString(wb.Build)

Return '

'Else去掉这2句

'wb.InsertHTML("<meta http-equiv='Refresh' content='0'; url='logon.htm'>") '那么直接跳转到登录页面

End If

按这样去掉后测试如果密码错了就是白屏了

[此贴子已经被作者于2020/6/22 22:13:39编辑过]

主题：两种登录方式