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

Dim UserName As String = e.PostValues("username")
Dim Password As String = e.PostValues("password")
If e.Path = "logon.htm" '验证用户名和密码
    If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then
        Dim Verified As Boolean '用于标记用户是否通过了身份验证
        UserName = e.PostValues("username")
        Password = e.PostValues("password")
        'If UserName = "张三" AndAlso Password = "888" Then '实际使用的时候,请改为从数据库读取用户名和密码进行比较
        'Verified = True
        Dim cmd As New SQLCommand
        cmd.CommandText = "SELECT * From {员工管理} Where [Name] = '" & username & "'"
        _UserTable = cmd.ExecuteReader
        If _UserTable.DataRows.count > 0 Then
            If password = _userTable.DataRows(0)("password") Then
                Verified = True
            End If
        End If
    End If
End If

主题：移动端sql登录求助