Membuat Form Login Aplikasi Rental DVD VB 6.0

1:05:00 PM
Ini adalah tahapan #Kelima dalam Membuat Project Baru Aplikasi Rental DVD Dengan VB 6.0. Pada tahap ke-5 ini akan kami jelaskan Cara Membuat Form Login Aplikasi Rental DVD pada Visual Basic 6.0 dan database yang digunakan adalah menggunakan Database MySQL. 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

Membuat Form Login Aplikasi Rental DVD Pada VB 6.0

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


Membuat Form Login Aplikasi Rental DVD VB 6.0
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
FormMenuUtama.MnUtility.Enabled = True
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Text1 = ""
Text2 = ""
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
      Text2.SetFocus
    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 "KodeAdmin atau Password Salah!"
            Text1.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

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan