关于username与password的判断区别 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，httprequest那里登录时，由于username是从foxtable表格中获取的，如何区别判断这两种情况呢：1、当表格中没有username时，给用户显示“该用户不存在” 2、当username或密码错误时，显示“用户或密码错误” 这样

第二种已经有了，就是第一种不知道该怎么区别

Dim fdr As DataRow = DataTables("表A").find("用户名 = '" & userName & "'")

If fdr Is Nothing then

msgbox("用户名不存在")

Else

msgbox("存在")

End If

不是，我是这样写，前面已经有判断了

Case "logon1.htm" '我的直接订单页面fs=2 对应ChangePassword

wb.AddPageTitle("","pageheader1","荣峰天下","--->归属人")

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

Dim fdr1 As DataRow= DataTables("贷款每日进度表1").SQLfind("订单原始归属所有合伙人_归属人='" & e.PostValues("username") & "'")

If e.PostValues("username")<>fdr1("订单原始归属所有合伙人_归属人") Then

wb.AddToptips("","toptip1","用户不存在!").msec=2000 '---停留2秒的时间

ElseIf

wb.AddToptips("","toptip1","用户名或密码错误!").msec=2000 '---停留2秒的时间

End If

wb.AddForm("","form2","logon1.htm?fs=2")

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

.AddInput("username","用户","text")

.AddInput("password","密码","password")

End With

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

.Add("btn2","登录","submit")

.Add("pwd","修改密码","","ChangePassword.htm").Kind=2 '红色按钮

End With

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then
    Dim fdr1 As DataRow= DataTables("贷款每日进度表1").SQLfind("订单原始归属所有合伙人_归属人='" & e.PostValues("username") & "'")
    If fdr1 Is Nothing Then
        wb.AddToptips("","toptip1","用户不存在!").msec=2000 '---停留2秒的时间
    Else
        wb.AddToptips("","toptip1","用户名或密码错误!").msec=2000 '---停留2秒的时间
    End If
End If

哇，可以了，谢谢

主题：关于username与password的判断区别