Membuat Form Login dengan Visual Basic 6.0

Asalammualaikum wr.wb 😀

Hai sobat pembaca sekalian *lambaikan tangan* kali ini saya akan membagikan sedikit ilmu kepada sobat semua tentang membuat form login sederhana menggunakan visual basic 6.0. Sebenarnya form login ini beberapa waktu lalu menjadi tugas sekolah saya. Alhamdulillah tugas itu jadi dan saya posting disini. Tugas sekolah saya itu form login yang kemudian di koneksikan dengan form lain yaitu form ticketing kereta api. Tetapi yang akan saya bahas adalah form login-nya terlebih dahulu. Selamat memperhatikan ~~

Langkah pertama, kita buka visual basic 6.0. Lalu kita buat project baru dengan cara pilih menu File, lalu pilih New Project. Tetapi seringkali saat membuka aplikasi ini, langsung tampil pilihan untuk project baru.

Selanjutnya kita buat formnya, design-nya yaitu sebagai berikut :
1. Frame 1 = 
diberi judul 'Silahkan Login', caranya pada jendela Project Properties carilah pilihan 'Caption' lalu diganti judul sesuai dengan yang sobat inginkan 
2. Label 1 =
diberi nama 'Username', caranya sama yaitu dengan memilih 'Caption' pada jendela Project Properties yang ada di sebelah kiri form
3. Label 2 =
diberi nama 'Password'
4. Text1 = 
yang berada di sebelah kiri label Username, untuk pilihan 'Text1' pada jendela Project Properties dikosongi
5. Text2 =
berada di sebelah kiri label Password
6. Command1 =
diberi nama 'LOGIN', Command adalah suatu tool yang jika di klik akan menjalankan perintah saat di run
7. Command2 = 
diberi nama 'BATAL', apabila sobat ingin membatalkan proses login
8. Adodc1
ADODC itu digunakan untuk mengkoneksikan antara form dan database yang telah kita buat. Database itu berisi nama admin dan password yang kita buat untuk bisa login. Cara membuat Adodc yaitu :  

• Klik kanan pada toolbar
  
  • Lalu pilih components dan pilih Microsoft ADO Data Control 6.0 OLEDB. Setelah itu klik ikon ADODC di toolbar lalu tarik ke form seperti gambar dibawah ini
    
    
    
    
    • Setelah adodc1 jadi, lanjut ke membuat database di ms.access
      
      berilah judul 'admin' kemudian buat tabel dengan judul kolom username dan password sesuai dengan yang ada di form yang sudah dibuat tadi. Untuk username milik saya yaitu 'admin' dan password 'apa' 
    • Setelah di save, klik kanan pada adodc yang di form, lalu pilihlah ADODC Properties dan akan muncul tampilan seperti ini
      
      
      
      
      
      
      
      Pilih Build untuk memilih koneksi database
    • Pilih Microsoft Jet 4.0 OLE DB, lalu di next dan pada 'Select or enter a database name' pilih build dan cari file ms.access yang dibuat tadi sebagai database. Kemudian di Test Connection, setelah sukses kemudian di OK
    • Pilih RecordSource, pilih adCmdTable dan admin
      
      • Di Apply dan OK 
       
     Lanjut ke coding, klik 2x pada Command LOGIN, berikut codingannya :
     Private Sub Command1_Click()
    If Text1.Text <> "" And Text2.Text <> "" Then
    Set rslogin = New ADODB.Recordset
    rslogin.LockType = adLockOptimistic
    rslogin.CursorType = adOpenDinamic
    rslogin.Open "select*from admin where USERNAME = '" & Text1.Text & "' and PASSWORD = '" & Text2.Text & "' ", conn, , , adCmdText
        If Not rslogin.EOF Then
       MsgBox ("Login Anda Berhasil")
    
       Else
        MsgBox "User Name dan Password salah silahkan ulangi kembali", vbCritical
       Exit Sub
        End If
    End If
      
    End Sub
  • Setelah berhasil, akan muncul mesage box 'login anda berhasil' dan selesai
   

Baik sobat, itulah artikel sederhana yang saya bagikan kali ini. Maafkan blog yang begitu berantakan ini . Sampai jumpa di postingan berikutnya ~     
Semoga bermanfaat dan SALAM CODING !!!    Wasalammualaikum 😉