Button Login
devsurigao
vbscript
12 days ago
1.1 kB
14
Indexable
Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click Try Connect() Dim hashedPass = HashPassword(txtPassword.Text) Dim cmd As New MySqlCommand("SELECT * FROM users WHERE username = @u AND password = @p AND status = 1", conn) cmd.Parameters.AddWithValue("@u", txtUsername.Text) cmd.Parameters.AddWithValue("@p", hashedPass) Dim reader As MySqlDataReader = cmd.ExecuteReader() If reader.Read() Then CurrentUser = reader("username").ToString() CurrentRole = reader("role").ToString() reader.Close() ' Open a fresh instance of Main form Dim main As New main main.Show() Me.Hide() Else MessageBox.Show("Login failed. Check credentials.") reader.Close() End If Catch ex As Exception MessageBox.Show("Login error: " & ex.Message) End Try End Sub
Editor is loading...
Leave a Comment