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 :

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 ;

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

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 

Tweet