CARA MEMBUAT PROGRAM LOGIN DI VISUAL BASIC 6 - Log masuk (login, juga biasa disebut sebagai log in, log on, logon, signon, sign on, signin, sign in) adalah proses untuk mengakses komputer dengan memasukkan identitas dariakun pengguna dan kata sandi guna mendapatkan hak akses menggunakan sumber daya komputer tujuan.
Untuk melakukan log masuk ke sistem biasanya membutuhkan:
- Akun pengguna; digunakan sebagai identitas berupa runtutan karakter yang secara unik merujuk ke pengguna tertentu.
- Kata sandi; runtutan karakter berupa kunci yang dijaga kerahasiaannya terhadap orang lain.
Kedua pasang runtutan karakter itu harus tepat dan keduanya adalah pasangan yang tidak bisa dipisahkan. Kata sandi dapat berubah sesuai dengan kebutuhan, sedangkan akun pengguna tidak pernah diubah karena berupa identitas unik yang merujuk ke pengguna tertentu.
Proses ini akan membuat sesi pada mesin tujuan untuk pengguna yang melakukan log masuk. Dalam kasus pengaksesan situs Internet, situs acapkali meletakkan kuki pada komputer pengguna.
Log keluar (logout, juga biasa disebut sebagai log out, log off, logoff, signoff, sign off, signout, sign out) digunakan untuk mengakhiri sesi.
Silahkan ikuti langkah-langkah dibawah ini :
- Silahkan buat database menggunakan Ms.Acces.
Dengan nama dbcoba.mdb
Tabel User : kodeuser, namauser, passworduser - Kemudian buka Visual Basic anda.
- Silahkan buat form login seperti gambar diatasUser Id menggunakan Text1Password menggunakan Text2Login menggunakan Command1Cancel Menggunakan Command2
- Setelah membuat form seperti yang saya instuksikan diatas, silahkan anda copy coding di bawah ini :
- Jangan lupa membuat coding Modules seperti dibawah ini :
Sub Form_Load()
Call BukaDB
Text1.MaxLength = 6
Text2.MaxLength = 10
Text2.PasswordChar = "X"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Call BukaDB
Call CariData
If RSuser.EOF Then
MsgBox "User Tidak Terdeteksi, Coba lagi"
Text1 = ""
Else
Text2.SetFocus
End If
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
Function CariData()
Call BukaDB
RSuser.Open "Select * From admin where kodeuser='" & Text1 & "'", koneksi
End Function
Private Sub Command1_Click()
Call BukaDB
RSuser.Open "Select * from admin where kodeuser ='" & Text1 & "' and passworduser='" & Text2 & "'", koneksi
If RSuser.EOF Then
MsgBox "Password Salah, Coba Lagi!"
Text2 = ""
Text2.SetFocus
Else
Unload Me
menu.Show
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Call BukaDB
Text1.MaxLength = 6
Text2.MaxLength = 10
Text2.PasswordChar = "X"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Call BukaDB
Call CariData
If RSuser.EOF Then
MsgBox "User Tidak Terdeteksi, Coba lagi"
Text1 = ""
Else
Text2.SetFocus
End If
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
Function CariData()
Call BukaDB
RSuser.Open "Select * From admin where kodeuser='" & Text1 & "'", koneksi
End Function
Private Sub Command1_Click()
Call BukaDB
RSuser.Open "Select * from admin where kodeuser ='" & Text1 & "' and passworduser='" & Text2 & "'", koneksi
If RSuser.EOF Then
MsgBox "Password Salah, Coba Lagi!"
Text2 = ""
Text2.SetFocus
Else
Unload Me
menu.Show
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Public koneksi As New ADODB.Connection
Public RSuser As ADODB.Recordset
Public Sub BukaDB()
Set koneksi = New ADODB.Connection
Set RSuser = New ADODB.Recordset
koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbvainit.mdb"
End Sub
Public RSuser As ADODB.Recordset
Public Sub BukaDB()
Set koneksi = New ADODB.Connection
Set RSuser = New ADODB.Recordset
koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbvainit.mdb"
End Sub
Semoga Bermanfaat.