userlogin.vb

来自「基于Windows Mobile平台的客户关系系统（CRM）」· VB 代码 · 共 31 行

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols

<WebService(Namespace:="com.MobileMis")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class UserLogin
    Inherits System.Web.Services.WebService

    <WebMethod()> _
    Public Function Login(ByVal id As String, ByVal passwd As String) As String
        Dim sReturn As String = "1" '0，验证通过；1，验证未通过
        Dim conn As System.Data.SqlClient.SqlConnection
        Dim cmd As System.Data.SqlClient.SqlCommand
        Dim rdr As System.Data.SqlClient.SqlDataReader

        conn = New System.Data.SqlClient.SqlConnection("Data Source=(local);Initial Catalog=pubs;User Id=sa;Password=ibmt42;")
        conn.Open()
        cmd = New System.Data.SqlClient.SqlCommand("SELECT staff_name FROM staff WHERE staff_id = '" + id + "' AND passwd = '" + passwd + "'", conn)
        rdr = cmd.ExecuteReader()
        If rdr.Read() Then
            sReturn = rdr.GetString(0).Trim()
            'sReturn = "0"
        End If
        'sReturn = "用户名：" + id + ", 密码：" + passwd
        Return sReturn
    End Function

End Class