Cara Membuat Kesempatan Login 3 Kali Dengan VB 6.0

Pernahkah anda melihat sebuah aplikasi jika 3 kali login dengan user name atau password salah kemudian aplikasi tertutup atau Close? Atau anda sendiri sebagai seorang pembuat aplikasi ingin membuat sebuah metode jika login 3 kali salah maka aplikasi tidak bisa di akses?

Pada tutorial Visual Basic 6.0 kali ini saya akan membahas tentang Cara Memuat Kesempatan Login 3 kali jika terjadi kesalahan 3 kali maka aplikasi akan di close. Sebenarnya tutorial VB 6.0 ini sendiri sudah jadul ya, namun dari beberapa email yang masuk ke email JNM, ada beberapa rekan kita yang masih menggunakan VB 6.0 sehingga tidak ada salahnya saya membuatkan tutorialnya menggunakan VB 6.0. Atau bagi anda yang menggunakan VB .NET anda juga bisa merequestkan tutorial ini dengan VB .NET dengan berkomentar di Artikel atau Pembelajaran ini.

Gambar diatas adalah hasil dari tutorial yang akan kita buat. Dimana ketika memasukan user name dan password salah, maka akan ada Pesan Error seperti gambar diatas. Bagaimana apakah anda Penasaran Cara Membuatnya ???

Baiklah berikut langkahnya :

#1. Membuat Database dan Tabel

Yang namanya login, datanya yang bagus diambil dari sebuah Database. Oleh karena itu saya sarankan pada tutorial ini anda membuat Database dan Tabel Terlebih dahulu.
Agar mudah dikikuti oleh anda, saya membuat database menggunakan Access.
Buatlah Database dengan nama : DBJNM.mdb
Buatlah tabel dengan nama : TBL_USER
Design tabelnya adalah sebagai berikut :

Gambar diatas adalah design tabel : TBL_USER dengan sample datanya
Fungsi dari sample data adalah untuk sample login aplikasi yang akan kita buat pada tahap ke-2

#2. Membuat Form Login Dengan Visual Basic 6.0

Silahkan buka aplikasi VB 6.0 anda
Kemudian anda buat 2 buah Form, dengan nama : Form1 dan Form2
Form1 sebagai form login, dan Form2 sebagai Form Menu Utama

Silahkan anda simpan Project VB 6.0 anda pada satu folder dengan database DBJNM.mdb

Buatlah tampilan Form1 seperti gambar dibawah ini :

Jika sudah, maka masukan koding dibawah ini :

Dim A As Byte
Dim Koneksi As New ADODB.Connection
Dim RSUser As ADODB.Recordset
Sub BukaDB()
 Set Koneksi = New ADODB.Connection
 Set RSUser = New ADODB.Recordset
 Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBJNM.mdb"
End Sub
Sub KondisiAwal()
Text1 = ""
Text2 = ""
End Sub
Private Sub Form_Load()
Call KondisiAwal
End Sub

Private Sub Command1_Click()
Call BukaDB
        RSUser.Open "Select * from TBL_USER where KodeUser ='" & Text1 & "' and PasswordUser='" & Text2 & "'", Koneksi
        If RSUser.EOF Then
        A = A + 1
            If 1 - A = 0 Then
                MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _
                        "User dan Password tidak dikenal"
                Text1.SetFocus
            ElseIf 2 - A = 0 Then
                MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _
                        "User dan Password tidak dikenal"
                Text1.SetFocus
            ElseIf 3 - A = 0 Then
                MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _
                        "User dan Password tidak dikenal" & Chr(13) & _
                        "Kesempatan habis, Ulangi dari awal"
                End
            End If
        Else
            Unload Me
            Form2.Show
        End If
End Sub
Private Sub Command2_Click()
End
End Sub

Selanjutnya jika form1 atau form login berhasil memasukan data dengan benar, maka akan memanggil form menu utama ( form2).

Jika membuat database, membuat 2 form VB 6.0, mendesign Form Login dan memberikan koding sudah dilakukan sesuai instruksi saya diatas, selanjutnya silahkan anda Run atau Jalankan Project VB 6.0 anda