VB .Net - Membuat Form Login Aplikasi Rental DVD

Berikut ini adalah Tahap ke-5 dalam membuat Aplikasi Rental DVD dengan VB .Net, untuk anda yang baru bergabung dengan kami, silahkan ikuti tutorial kami dari tahap-1 dalam membuat Aplikasi Rental DVD, karena jika anda langsung ke tahap ini anda akan bingung sendiri Hehehehe...

Berikut langkah dari membuat Form Login Aplikasi Rental DVD
Buka Project anda sebelumnya :
VB .Net - Membuat Form Login Aplikasi Rental DVD
Pada gambar diatas, anda telah sukses membuat koneksi database dengan Module.
Silahkan Klik Menu Project - Add Windows Form
Silahkan beri nama : FormLogin.vb seperti gambar dibawah ini :
Klik Add
Silahkan design formlogin.vb seperti gambar dibawah ini ;
VB .Net - Membuat Form Login Aplikasi Rental DVD
Jika sudah, anda bisa memasukan koding dibawah ini :
FormLogin.vb
 
Imports System.Data.Odbc
Public Class FormLogin
    Dim CMD As New OdbcCommand
    Dim RD As OdbcDataReader

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("data login belum lengkap")
            Exit Sub
        Else
            Call Koneksi()
            CMD = New OdbcCommand("select * from tbl_petugas where kodepetugas='" & TextBox1.Text & "' and passwordpetugas='" & TextBox2.Text & "'", Conn)
            RD = CMD.ExecuteReader
            RD.Read()
            If RD.HasRows Then
                Me.Close()
                FormMenuUtama.Show()
                FormMenuUtama.LoginToolStripMenuItem.Enabled = False
                FormMenuUtama.LogoutToolStripMenuItem.Enabled = True
                FormMenuUtama.MasterToolStripMenuItem.Enabled = True
                FormMenuUtama.TransaksiToolStripMenuItem.Enabled = True
                FormMenuUtama.LaporanToolStripMenuItem.Enabled = True
                FormMenuUtama.UtilityToolStripMenuItem.Enabled = True
            Else
                MsgBox("Kode Petugas atau Password salah")
            End If
        End If
    End Sub

    Private Sub FormLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.MaxLength = 6
        TextBox2.PasswordChar = "X"
        TextBox1.Clear()
        TextBox2.Clear()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class

FormMenuUtama.vb
 
Public Class FormMenuUtama
    Sub Terkunci()
        LoginToolStripMenuItem.Enabled = True
        LogoutToolStripMenuItem.Enabled = False
        MasterToolStripMenuItem.Enabled = False
        TransaksiToolStripMenuItem.Enabled = False
        LaporanToolStripMenuItem.Enabled = False
        UtilityToolStripMenuItem.Enabled = False
    End Sub

    Private Sub FormMenuUtama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Terkunci()
    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        End
    End Sub

    Private Sub LoginToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoginToolStripMenuItem.Click
        FormLogin.ShowDialog()
    End Sub
End Class

Jika sudah anda bisa mengeceknya dengan Running Aplikasi Rental DVD
VB .Net - Membuat Form Login Aplikasi Rental DVD
Kode Petugas : PTG001
Password : ADMIN

Jika sudah harusnya tidak terjadi error dan anda bisa masuk login ke Aplikasi Rental DVD
Silahkan ikuti tahap ke-6 dalam membuat Aplikasi Rental DVD

Silahkan KLIK DISINI untuk melanjutkan ke Tahap-6
Silahkan KLIK DISINI untuk download Project Aplikasi Rental DVD diatas 

2 Responses to "VB .Net - Membuat Form Login Aplikasi Rental DVD"

  1. gan,kok saya coba ubah listing programnya,pas saya login malah form utama tdk muncul,kalau kode If RD.HasRows Then
    Me.Close()
    MenuA.Show()
    Else
    sy ubah jd If RD.HasRows Then
    MenuA.Show()
    Else
    baru menunya mau muncul,mohon bantuannya gan

    ReplyDelete
    Replies
    1. Dear FUN,
      Mohon infonya, apakah dengan koding Me.close FormLoginnya masih ada atau sudah menghilang?

      Delete