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 :)
COMMENTS