buenas noches , necesito que me ayuden a colocarle la conexion de mysql a este codigo, pues asi comop esta me da entrada siempre y cuando la clave y la contraseña la coloque en el codigo.
muchas gracias.
Public Class sistema
Dim msg As MsgBoxResult
Dim x As Integer = 0
Dim y As Integer = 3
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "administrador" Then
PictureBox1.Visible = True
PictureBox2.Visible = False
PictureBox3.Visible = False
ElseIf ComboBox1.Text = "invitado" Then
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = True
ElseIf ComboBox1.Text = "usuarios" Then
PictureBox1.Visible = False
PictureBox2.Visible = True
PictureBox3.Visible = False
End If
End Sub
Private Sub cmdaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdaceptar.Click
If x = 3 Then
MessageBox.Show("el numero de intentos a caducado" & vbCrLf & "el sistema se cerrara ahora", "lastima : (", MessageBoxButtons.OK, MessageBoxIcon.Question)
Me.Close()
Else
If ComboBox1.Text = "administrador" Then
If txtusuario.Text = "sandra123" And txtcontraseña.Text = "56321" Then
ProgressBar1.Visible = True
Timer2.Start()
Else
x += 1 : y -= 1
MessageBox.Show("password incorrecto", "sistema", MessageBoxButtons.OKCancel)
End If
ElseIf ComboBox1.Text = "invitado" Then
If txtcontraseña.Text = "inv" Then
ProgressBar1.Visible = True
Timer2.Start()
Else
x += 1 : y -= 1
MessageBox.Show("password incorrecto", "sistema", MessageBoxButtons.OKCancel)
End If
ElseIf ComboBox1.Text = "usuario" Then
If txtcontraseña.Text = "user" Then
ProgressBar1.Visible = True
Timer2.Start()
Else
x += 1 : y -= 1
MessageBox.Show("password incorrecto", "sistema", MessageBoxButtons.OKCancel)
End If
End If
End If
End Sub
Private Sub cmdlimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdlimpiar.Click
txtcontraseña.Text = ""
End Sub
Private Sub cmdcancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcancelar.Click
Application.Exit()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Opacity = Me.Opacity - 1
If Me.Opacity <= 0 Then
Me.Hide()
Timer1.Stop()
Timer2.Stop()
End If
Dim fAcceso As New menu
If fAcceso.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
fAcceso.Close()
Application.Run(New menu)
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
ProgressBar1.Increment(10)
If ProgressBar1.Value = 100 Then
Timer1.Start()
End If
End Sub
End Class
