Cara Membuat Form Login VB 6

Jika pada pembelajaran sebelumnya anda sudah mengetahui fungsi Form Login, Pada pembelajaran kali ini, kita akan bahas bagaimana cara membuat form login pada VB 6. langkah-langkah dalam membuat form login adalah sebagai berikut :

* Membuat Module

Public Conn As New ADODB.Connection
Public RSadmin As ADODB.Recordset
Public Sub BukaDB()
Set Conn = New ADODB.Connection
Set RSadmin = New ADODB.Recordset
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbtunasmedia.mdb"
End Sub

* Isikan coding di bawah ini di form login yang telah kalian buat

Function CariData()
Call BukaDB
RSadmin.Open "Select * From admin where kodeadmin='" & TextUser & "'", Conn
End Function
Sub Form_Load()
Call BukaDB
TextUser.MaxLength = 6
TextPass.MaxLength = 10
TextPass.PasswordChar = "X"
End Sub

Private Sub TextUser_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Call BukaDB
Call CariData
If RSadmin.EOF Then
MsgBox "Admin Tidak Terdeteksi, Coba lagi"
TextUser = ""
Else
TextPass.SetFocus
End If
End If
End Sub
Private Sub TextPass_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Call BukaDB
RSadmin.Open "Select * from admin where kodeadmin ='" & TextUser & "' and passadmin='" & TextPass & "'", Conn
If RSadmin.EOF Then
MsgBox "Password Salah, Coba Lagi!"
TextPass = ""
Else
Unload Me
Menu.Show
End If
End If
End Sub

Tweet

Subscribe to receive free email updates: