Membuat Form Login VB 6

Hellow Blogger.......

Sesuai janji saya untuk mengembangkan tutorial sebelumnya tentang koneksi VB ke database, dan sekarang akan saya buat form login dengan Username dan Password sesuai dengan data yang sudah ada didatabase :

Langkah pertama tentunya anda sudah harus membuat databasenya terlebih dahulu dan VB sudah dalam keadaan terkoneksi dengan database, untuk lebih jelasnya dapat anda baca di sini,

Baiklah langsung dimulai saja ....

seperti biasa buka vb 6 nya kemudian masukkan 2 label, 2 textbox  dan satu Command Button.

tampilannya bisa dilihat picture di bawah...

Lalu masukkan source code berikut:

Private Sub Cmd_Login_Click()
Dim cari As String
Dim pass As String
    cari = txt_nama.Text
    pass = txt_pasword.Text
    
        Form1.Adodc1.Recordset.MoveFirst
       Form1.Adodc1.Recordset.Find "Nama = '" & cari & "'"
        Form1.Adodc1.Recordset.Find "No = '" & pass & "'"
        
            If Form1.Adodc1.Recordset.EOF Then
        MsgBox ("Data Tidak Ditemukan")
        Else
           Form2.Hide
           Form1.Show
    End If
End Sub

ingat ini adalah lanjutan dari posting sebelumnya dan form login ini menggunakan form2, jadi ketika User dan Paswordnya benar maka form1 akan terbuka.

Demikian posting tentang form login VB 6, semoga bermanfaat...

Salam Sepuluh ribu Jam Untuk Expert...