Ini adalah tahapan kelima dalam Membuat Project Baru Aplikasi Rental DVD Dengan VB 6.0.Untuk bisa mengikuti Tahap ini pastikan anda telah mengikuti tahapan sebelumnya yaitu :

1. Membuat Project Baru Aplikasi Rental DVD Dengan VB 6.0
2. Membuat Form Menu Utama Aplikasi Rental DVD Dengan VB 6.0
3. Membuat Database dan Tabel Aplikasi Rental DVD
4. Membuat Koneksi Database Dengan Modul Aplikasi Rental DVD

Jika anda sudah mengikuti langkah diatas, silahkan dilanjut mengikuti tahap dibawah ini :
Buka Project anda sebelumnya :
Klik Project
Add Form
Klik Open
Ganti Name menjadi : FormLogin
Kemudian Buatlah Design FormLogin seperti gambar dibawah ini :
Buat Design Form Seperti dibawah ini :


Membuat Form Login VB 6.0, Pintar VB
Kemudian Masukan Koding dibawah ini :
Sub Terbuka()
FormMenuUtama.MnLogin.Enabled = False
FormMenuUtama.MnLogout.Enabled = True
FormMenuUtama.MnMaster.Enabled = True
FormMenuUtama.MnTransaksi.Enabled = True
FormMenuUtama.MnLaporan.Enabled = True
End Sub

Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Text2.Enabled = False
End Sub
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 RSAdmin.EOF Then
                    MsgBox "Admin Tidak Terdeteksi, Coba lagi"
                    Text1 = ""
                Else
                Text1.Enabled = False
                Text2.Enabled = True
                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
    RSAdmin.Open "Select * From Tbl_Admin where kodeAdmin='" & Text1 & "'", koneksi
End Function
Private Sub Command1_Click()
Dim KodeAdmin As String
Dim NamaAdmin As String
Call BukaDB
        RSAdmin.Open "Select * from Tbl_Admin where kodeAdmin ='" & Text1 & "' and passwordAdmin='" & Text2 & "'", koneksi
        If RSAdmin.EOF Then
            MsgBox "Password Salah, Coba Lagi!"
            Text2 = ""
            Text2.SetFocus
        Else
            Unload Me
            FormMenuUtama.Show
            Call Terbuka
        End If
End Sub
Jangan Lupa Pada FormMenuUtama pastikan kita membuat Sub Terkunci dan ketika Klik Menu Login, maka panggil FormLogin yang telah kita buat diatas.
dan berikut ini Koding pada FormMenuUtama :
Sub Terkunci()
MnLogin.Enabled = True
MnLogout = False
MnMaster.Enabled = False
MnTransaksi.Enabled = False
MnLaporan.Enabled = False
End Sub

Private Sub Form_Load()
Call Terkunci
End Sub
Private Sub MnKeluar_Click()
End
End Sub
Private Sub MnLogin_Click()
FormLogin.Show vbModal
End Sub
Demikin Pembelajaran Visual Basic 6.0 bagaimana cara membuat form login pada Visual Basic 6.0
Anda bisa KLIK LINK INI untuk mengikuti langkah 6 dalam membuat Aplikasi DVD VB 6.0
close
close
close