- 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
cara membuat form lobin vb 6 yang keren
BalasHapusGan.. kog Tols Adoc-nya muncul di form loginnya yah Gan pas di Run,, itu knapa ya Gan..mksih
BalasHapusThanks
BalasHapus#ninggalin Jejak
Thanks gan ,sangat membantu ..
BalasHapusMantav. Sangat membantu :)
BalasHapusklo bkin password yang bersifat case sensitif gimana y gan??
BalasHapusMasih ada yang debug gan.. Gimna nih?
BalasHapus