Membuat Form Login Pada VB 6

Catatan :
Untuk mengikuti langkah dalam membuat Form Login ini, anda harus mengikuti postingan ini telebih dahulu :
- Membuat Form Menu Utama
- Membuat Database dan Tabel Admin
- Membuat Module

Untuk membuat Form Login, anda harus membuat Form Baru, caranya anda Klik Project - Add Form
1. Ubah nama form Menjadi : FormLogin
2. Caption : Form Login

Buat Design Form Seperti dibawah ini :

Masukan Coding 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 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
        CmdLogin.SetFocus
    End If
End Sub
Function CariData()
    Call BukaDB
    RSAdmin.Open "Select * From Admin where kodeAdmin='" & Text1 & "'", koneksi
End Function
Private Sub CmdLogin_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
            FormMenuUtama.StatusBar1.Panels(2) = RSAdmin!KodeAdmin
            FormMenuUtama.StatusBar1.Panels(4) = RSAdmin!NamaAdmin
            FormMenuUtama.StatusBar1.Panels(6) = RSAdmin!levelAdmin
            Call MenuTerbuka
        End If
End Sub

Private Sub Form_Load()
Call MenuTerkunci
End Sub
Private Sub MnLogin_Click()
FormLogin.Show vbModal
End Sub
Private Sub MnLogout_Click()
    If MsgBox("Yakin Akan Logout Dari Program?", vbYesNo) = vbYes Then
            Call MenuTerkunci
            FormMenuUtama.StatusBar1.Panels(2) = ""
            FormMenuUtama.StatusBar1.Panels(4) = ""
            FormMenuUtama.StatusBar1.Panels(6) = ""
            MsgBox "User Berhasil Log Out", vbInformation, "Pemberitahuan"
    End If
End Sub
Private Sub MnYa_Click()
End
End Sub
Public Sub MenuTerkunci()
    FormMenuUtama.MnMaster.Enabled = False
    FormMenuUtama.MnTransaksi.Enabled = False
    FormMenuUtama.MnLaporan.Enabled = False
    FormMenuUtama.MnUtility.Enabled = False
    FormMenuUtama.MnLogout.Enabled = False
    FormMenuUtama.MnLogin.Enabled = True
End Sub
Public Sub MenuTerbuka()
    If FormMenuUtama.StatusBar1.Panels(6) = "USER" Then
    FormMenuUtama.MnAdmin.Enabled = False
    Else
    FormMenuUtama.MnAdmin.Enabled = True
    End If
   
    FormMenuUtama.MnMaster.Enabled = True
    FormMenuUtama.MnTransaksi.Enabled = True
    FormMenuUtama.MnLaporan.Enabled = True
    FormMenuUtama.MnUtility.Enabled = True
    FormMenuUtama.MnLogout.Enabled = True
    FormMenuUtama.MnLogin.Enabled = False
End Sub

Private Sub CmdCancel_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Text2.Enabled = False
End Sub


Klik Run atau F5
Setelah FormMenuUtama show, Silahkan ke File dan Klik Login
Masukan Kode Admin dan Password Admin

Jika berhasil, form Menu Utama akan terlihat

Postingan Kami Sebelumnya :

Membuat Menu Utama

Membuat Database 1

Membuat Module

Salam
Republik Visual Basic
Email

Tweet