Membuat Form Login Aplikasi Perpus VB 2010

Ini adalah Tahapan ke-5 dalam Pembuatan Aplikasi Perpustakaan Dengan VB 2010 dan Database MySQL.
Tahapan Sebelumnya adalah :
1. Membuat Project Baru Aplikasi Perpustakaan
2. Membuat Menu Utama Aplikasi Perpustakaan
3. Membuat Database dan Tabel Dengan MySQL
4. Membuat Koneksi Database Dengan Module

Untuk mengikuti Tahap ke-5 ini pastikan anda sudah Mengikuti langkah diatas ya!!!!
Gambar dibawah adalah tahapan terakhir pada Tahap ke-4 yaitu membuat Koneksi database dengan Module.

Untuk Membuat Form Login Berikut langkahnya :
Klik Project
Add Windows Form....

Kemudian Muncul Gambar dibawah :

Ubah Name menjadi : FormLogin.vb
Klik Add
Kemudian design formLogin.vb seperti gambar dibawah ini :

Setelah membuat Design seperti gambar diatas, ubah pada properties :

Text : Form Login
StartPosition : CenterScreen

dan Berikut Kodingnya :

Masukan Koding dibawah pada FormMenuUtama :

Public Class FormMenuUtama
    Sub Terkunci()
        LoginToolStripMenuItem.Enabled = True
        LogoutToolStripMenuItem.Enabled = False
        MasterToolStripMenuItem.Enabled = False
        TransaksiToolStripMenuItem.Enabled = False
        LaporanToolStripMenuItem.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

Masukan Koding dibawah pada FormLogin :

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_admin where kode_admin='" & TextBox1.Text & "' and password_admin='" & 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
            Else
                MsgBox("Kode Admin 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

Silahkan Jalankan Program Aplikasi Perpus Anda :)
Masukan Kode Admin : ADM001 dan Password ADMIN, kemudian Klik Login :

Ikuti terus Pembelajaran dalam Membuat Aplikasi perpustakaan Menggunakan VB 2010 dan Database MySQL. Setelah ini terdapat pemebalajaran Tahap Ke-6 yaitu Membuat Koding Logout

Silahkan KLIK DISINI Untuk Download Project diatas
Silahkan KLIK DISINI Untuk  melanjutkan ke Tahap-6

Demikian Cara Membuat Form Login Aplikasi Perpus VB 2010, semoga bermanfaat untuk anda :)