Cara Membuat Form Login Menggunakan Visual Basic 6.0


Membuat Form Login VB 6.0 - Visual Basic 6.0 - Belajar VB


Cara Membuat Form Login Menggunakan Visual Basic 6.0Form 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 :




Membuat Form Login VB 6.0 - Visual Basic 6.0 - Belajar VB

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 :


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


Dikutip dari : blog.belajarvb.com
Kunjungi Sumber : Membuat Form Login VB 6.0

Diedit oleh : ikomputert

0 Response to "Cara Membuat Form Login Menggunakan Visual Basic 6.0"

Post a Comment