Cara Menciptakan Kesempatan Login 3 Kali Dengan Vb 6.0

Pernahkah anda melihat sebuah aplikasi jikalau 3 kali login dengan user name atau password salah lalu aplikasi tertutup atau Close? Atau anda sendiri sebagai seorang pembuat aplikasi ingin menciptakan sebuah metode jikalau login 3 kali salah maka aplikasi tidak sanggup di akses?

Pada tutorial Visual Basic 6.0 kali ini saya akan membahas wacana Cara Memuat Kesempatan Login 3 kali jikalau 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 memakai VB 6.0 sehingga tidak ada salahnya saya berbagi tutorialnya memakai VB 6.0. Atau bagi anda yang memakai VB .NET anda juga sanggup merequestkan tutorial ini dengan VB .NET dengan berkomentar di Artikel atau Pembelajaran ini.

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

Baiklah berikut langkahnya :

#1. Membuat Database dan Tabel

Yang namanya login, datanya yang anggun diambil dari sebuah Database. Oleh alasannya yakni itu saya sarankan pada tutorial ini anda menciptakan Database dan Tabel Terlebih dahulu.
Agar gampang dikikuti oleh anda, saya menciptakan database memakai Access.
Buatlah Database dengan nama : DBJNM.mdb
Buatlah tabel dengan nama : TBL_USER
Design tabelnya yakni sebagai berikut :

Gambar diatas yakni design tabel : TBL_USER dengan sample datanya
Fungsi dari sample data yakni 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 menyerupai 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 jikalau form1 atau form login berhasil memasukan data dengan benar, maka akan memanggil form sajian utama ( form2).

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

Semoga tutorial diatas sanggup membantu anda dalam proses berguru Visual Basic 6.0. Sampai jumpa di tutorial menarik kami lainnya...

Share this post