Loading...

Cara Membuat Form Login Menggunakan Visual Basic 6.0 - Hallo sahabat Guru pintar, Pada Artikel yang anda baca kali ini dengan judul Cara Membuat Form Login Menggunakan Visual Basic 6.0, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel GURU, Artikel GURU MAPEL, Artikel IPTEK, Artikel RUANG GURU, Artikel SERTIFIKASI, Artikel TUGAS, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Cara Membuat Form Login Menggunakan Visual Basic 6.0
link : Cara Membuat Form Login Menggunakan Visual Basic 6.0

Cara Membuat Form Login Menggunakan Visual Basic 6.0

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

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

Dikutip dari : blog.belajarvb.com

Kunjungi Sumber : Membuat Form Login VB 6.0

Diedit oleh : ikomputert

Loading...

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

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

Dikutip dari : blog.belajarvb.com

Kunjungi Sumber : Membuat Form Login VB 6.0

Diedit oleh : ikomputert

Demikianlah Artikel Cara Membuat Form Login Menggunakan Visual Basic 6.0

Sekianlah artikel Cara Membuat Form Login Menggunakan Visual Basic 6.0 kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Cara Membuat Form Login Menggunakan Visual Basic 6.0 dengan alamat link https://gurupintarmengajar.blogspot.com/2017/03/cara-membuat-form-login-menggunakan.html

Tweet

Subscribe to receive free email updates: