Tutorial Vb.Net : Form Login dengan Database MySQL

Tutorial Vb.Net membuat Form login visual basic net 2010 dengan database MySQL menggunakan module koneksi.vb dengan mudah

Cara mudah Membuat Form Login VB.Net 2010 database MySQL

Visual basic Net 2010 sudah menyiapkan Form untuk membuat Halaman Login, caranya buat module koneksi ke database menggunakan module, baca Tutorial Vb.Net : Cara Membuat Koneksi Database MySQL

Membuat Tabel Login di Database MySQL

Buatlah table login untuk menyimpan data - data yang digunakan untuk login nantinya, lihat gambar tabel login berikut :

buatlah tabel login sesuai kebutuhan aja, jika masih ada yang bingung tentang cara membuat database, silahkan buka Cara Membuat Database MySQL

Buat Form Baru di visual basic 2010 dengan cara pada menu Project >> add Windows Form >> Login Form

Copy code Untuk login berikut :

Public Class FrmLogin
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        Dim DRlogin As Odbc.OdbcDataReader
        Dim CMDlogin As Odbc.OdbcCommand
        Dim SQL As String
        CMDlogin = New Odbc.OdbcCommand
        CMDlogin.CommandType = CommandType.Text
        CMDlogin.Connection = konek
        CMDlogin = New Odbc.OdbcCommand
        CMDlogin.CommandType = CommandType.Text
        CMDlogin.Connection = konek
        SQL = "SELECT * FROM akun_guru WHERE username = '" & UsernameTextBox.Text & "' and password=MD5('" & PasswordTextBox.Text & "')"
        CMDlogin.CommandText = SQL
        DRlogin = CMDlogin.ExecuteReader()
        If DRlogin.HasRows Then
            IDGURU = DRlogin.Item("id_guru")
            If DRlogin.Item("active") = 1 Then
                With FrmUtama
                    .Show()
                    .LoginToolStripMenuItem.Enabled = False
                    .ToolStripStatusLabel1.Text = "Selamat Datang : "
                    .ToolStripStatusLabel2.Text = IDGURU
                    .ToolStripStatusLabel2.BackColor = Color.Transparent
                    .MasterDataToolStripMenuItem.Enabled = True
                    .NILAIToolStripMenuItem.Enabled = True
                    .CetakLaporanToolStripMenuItem.Enabled = True
                    .DaftarPemakaiToolStripMenuItem.Enabled = False
                    Me.Hide()
                End With
            Else
                MsgBox("Anda tidak berhak menggunakan program ini", vbCritical, "access ditolak")
            End If
        Else
            MsgBox("Nama User atau Password salah", vbCritical, "Password Salah")
        End If
    End Sub
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub
    Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        bukaDB()
    End Sub
End Class

Save jika sudah disesuaikan dengan database dan nama form anda, Tekan f5 untuk menjalankan aplikasi login anda, jika password salah maka akan ada pemberitahuan "Nama User atau Password salah"

Jika benar maka FrmUtama.vb akan muncul. Jika masih bingung dalam tutorial membuat form login diatas, silahkan lihat video tutorialnya berikut ini :




Silahkan bertanya jika masih ada masalah di kotak komentar, terima kasih :)