由 SQL Server 檢查 Password Function

 

   由 SQL Server 檢查 Password Function
 
   Private Function ChkPasswd() As Boolean
 
      Dim connectionString1 As String = "Data Source=.\SqlExpress; Initial Catalog=Admin; Integrated Security=SSPI"
      Dim con1 As SqlConnection = New SqlConnection(connectionString1)
      con1.Open()
 
      Dim SqlString1 As String = "SELECT * FROM dbo.Staff WHERE dbo.Staff.Staff_Login = @Login " & _
                                                "AND dbo.Staff.Staff_Password = @Password"
 
      Dim cmd1 As SqlCommand = New SqlCommand(SqlString1, con1)
 
      cmd1.Parameters.AddWithValue("@Login", UsernameTextBox.Text.ToString.Trim)
      cmd1.Parameters.AddWithValue("@Password", PasswordTextBox.Text.ToString.Trim)
 
      Dim dr As SqlDataReader = cmd1.ExecuteReader()
 
      If dr.HasRows Then
         dr.Dispose()
         cmd1.Dispose()
         con1.Close()
         Return True
      Else
         dr.Dispose()
         cmd1.Dispose()
         con1.Close()
         Return False
      End If
 
   End Function