由 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 |