Membuat Form Login VB 6.0

Ini adalah Tahap #KeLima dalam membuat Aplikasi Penjualan Retail dengan Visual Basic 6.0. ditahap ke-Lima ini kita akan membuat Form Login Aplikasi Penjualan / Retail VB 6.0 dengan database Access. Masih ingat pada pembelajaran sebelumnya yaitu membuat database dan koneksi database ? jika masih ingat ditutorial inilah kita akan mempraktikannya. Kita praktikan dimana Form Loginnya akan kita ambil dari Tabel Admin.
Oleh karena itu anda wajib mengisi Tabel admin terlebih dahulu agar aplikasi nantinya bisa dilakukan Login. Jika tabel admin pada database anda masih kosong, silahkan diisi terlebih dahulu yaaa :)

Sebelum anda mengikuti Tutorial dibawah, pastikan anda sudah mengikuti tutorial sebelumnya yaitu :
1. Membuat Project Pada VB 6.0 Aplikasi Penjualan VB 6.0
2. Membuat Form Menu Utama Aplikasi Penjualan VB 6.0
3. Membuat Database dan Tabel Master Aplikasi Penjualan VB 6.0 
4. Membuat Koneksi Database ke Visual Basic 6.0 Aplikasi Penjualan VB 6.0

Berikut ini adalah langkah dalam membuat Form Login
Buka Project Belajar VB anda sebelumnya :

 Double Klik Belajar VB
Berikut tampilan Project 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 :

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 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 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

Silahkan KLIK DISINI Untuk Download Project diatas
Silahkan KLIK DISINI Untuk MelanjutkanTahap-6 dalam membuat Aplikasi penjualan VB 6.0