Button Login

 avatar
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