Home » , » Membuat Form Login dengan VB 6.0 + Acces

Membuat Form Login dengan VB 6.0 + Acces

  • Buatlah Folder di dekstop dengan nama "login"
  • Buatlah Database dengan nama "Login"
  • Buatlah Table "petugas" dan atributnya sesuai dibawah ini
Tabel petugas




   




Isi Tabel petugas

  • Simpan dan Beri  nama "Login" kemudian simpan di Folder "login" di dekstop
  • Buka Vb 6.0 dan buatlah design Form seperti Gambar dibawah ini   
Form Login



  • Untuk Menambakan komponen Adodc klick Project - Commponents - Pilih - Microsoft ADO Data Control 6.0 (OLEDB) - Ok



Adodc


  • Untuk Source Codenya 
Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset
Sub koneksi()
Set conn = New ADODB.Connection
Set RS = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Login.mdb"

End Sub
Sub bersih()
Text1 = ""
Text2 = ""

End Sub

Private Sub Command1_Click()
Call koneksi
If Text1 = "" Or Text2 = "" Then
    MsgBox "Data Login Belum Lengkap"
    Exit Sub
Else
    RS.Open "Select * from petugas where nama ='" & Text1 & "' and password='" & Text2 & "'", conn
    If RS.EOF Then
        MsgBox "Login Salah!"
        Call bersih
        Text1.SetFocus
    Else
        MsgBox "Login Berhasil!"
        Call bersih
    End If
End If

End Sub

Private Sub Command2_Click()
pesan = MsgBox("Batal Login...?", vbYesNo)
If pesan = vbYes Then End
End Sub
  • Untuk menjalankan Klick F5
Login

  • Selamat Mencoba.........
  • Untuk Source codenya download disini

7 komentar: