Membuat Login 3 Kali Kesempatan VB .Net

Bagaimana Cara Membuat Login 3 Kali Kesempatan Dengan VB .Net?
Tutorial kali ini adalah dating dari pertanyaan Desy dari email yang menanyakan judul diatas. Ceritanya adalah sebelum User akan menggunakan aplikasi, awalnya user harus Login. Jika login Tiga kali kesempatan salah maka aplikasi akan close sendiri. Jika anda menginginkan hal tersebut ikuti langkah2 dibawah ini :

Dalam mengikuti tutorial ini, Anda harus membuat Database dan Tabel dan membuat FormLogin dengan VB .Net
Hal ini dikarenakan Kode Admin dan Passwordnya menggunakan database.

Untuk Membuat Database dan FormLogin Silahkan Klik Link Ini

Untuk Form VB .Net seperti gambar dibawah :

Masukan Koding dibawah ini :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Koneksi()
            CMD = New OleDbCommand("select * from admin where kodeadmin='" & TextBox1.Text & "' and passwordadmin='" & TextBox2.Text & "'", CONN)
            RD = CMD.ExecuteReader
            RD.Read()
            If RD.HasRows Then
            If Not RD.HasRows Then
                KesempatanLogin = KesempatanLogin + 1
                MsgBox("Kesempatan ke " & KesempatanLogin & " Salah")
                TextBox1.Clear()
                TextBox2.Clear()
                TextBox1.Focus()
                If KesempatanLogin = 3 Then
                    MsgBox("Kesempatan habis")
                    End
                End If
            Else
                Msgbox "Login sukses"
                    Me.close
                    FormMenuUtama.Show()
            End If
End Sub

Silahkan jalankan atau Run Project VB .Net anda dan silahkan ikuti terus Tutorial dari kami :)