Pembatasan Login Sampai Dengan 3 Kali

Pada pembahasan form login sebelumnya saya mencoba membuat form tersebut dengan mengakses form login apabila login benar maka akan program tersebut akan berjalan. ketika login yang di inputkan salah maka akan tampil pesan maaf, user dan password anda salah. Disini saya akan mencoba untuk membuat artikel pembatasan login sampai dengan tiga kali setelah itu form login yang tampil apabila melebihi tiga dan input yang di masukan salah maka form login tersebut akan stop secara otomatis.

Semoga Bermanfaat.

- Buat Terlebih dahulu variabel baru misalkan passtemp dibawah public class form1
  Dim passtemp As Integer
- Kemudian ketikan coding berikut dibawah  coding
   MsgBox("maaf, user dan password salah")

   End If

(untuk lebih lengkapnya silahkan lihat codingnya dibawah)

'pembatasan pada login sampai dengan 3 kali
'passtemp untuk menampung nilai angka yang di mulai dari angka 0 mis= 0=0+1
        passtemp = passtemp + 1
'if passtemp = 3 then adalah untuk pembatasan login lebih dari 3 kali
        If passtemp >= 3 Then
'Pesan yang tampil sudah 3 kali pada passtemp dan kemudin form login akan stop
            MsgBox("user anda tidak berhak untuk otorisasi", vbInformation + vbCritical, "Login Error")
            End
        Else
'MSgBox ini informasi pemberitahuan penggunaan login dan pada " & 3 - passtemp & " adalah pengurangan input login apabila salah memasukan user dan password
            MsgBox("Password salah. Silahkan periksa CAPS LOCK password anda" & vbCrLf & "pengisian password tersisa " & 3 - passtemp & "", vbInformation, "Login Error")
            txtpassword.Text = ""
            txtuserid.Focus()
        End If

Berikut adalah codingnya:

Imports MySql.Data.MySqlClient

Public Class Form1

    Dim kon As New MySqlConnection(strkon)

    Dim perintah As New MySqlCommand

    Dim cek As MySqlDataReader

    Dim passtemp As Integer

    ' enter untuk membuat kursor pada textbox menjadi berurutan

    ' ------------------------------------------------------

    Private Sub txtuserid_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtuserid.KeyDown

        Select Case e.KeyCode

            Case Keys.Enter

                txtpassword.Focus()

        End Select

    End Sub

    Private Sub txtpassword_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtpassword.KeyDown

        Select Case e.KeyCode

            Case Keys.Enter

                Button1.Focus()

        End Select

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        End

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        kon.Open()

        perintah.Connection = kon

        perintah.CommandType = CommandType.Text

        perintah.CommandText = "SELECT * from loguser where userpass=MD5('" & txtpassword.Text & "')and username='" & txtuserid.Text & "' "

        cek = perintah.ExecuteReader

        cek.Read()

        If cek.HasRows Then

            Form2.Show()

            Me.Hide()

        Else

            MsgBox("maaf, user dan password salah")

        End If

        'pembatasan pada login sampai dengan 3 kali

        passtemp = passtemp + 1

        If passtemp = 3 Then

            MsgBox("user anda tidak berhak untuk otorisasi", vbInformation + vbCritical, "Login Error")

            End

        Else

            MsgBox("Password salah. Silahkan periksa CAPS LOCK password anda" & vbCrLf & "pengisian password tersisa " & 3 - passtemp & "", vbInformation, "Login Error")

            txtpassword.Text = ""

            txtuserid.Focus()

        End If

        cek.Close()

        kon.Close()

        txtpassword.Text = ""

    End Sub

    'double click timer1 untuk membuat label menjadi warna warni setting timer enabled= true dan interval = 100

    '----------------------------------------------------------------------------------------------------------

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Label3.ForeColor = System.Drawing.ColorTranslator.FromOle(RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255))

    End Sub

End Class