Cara Membuat Login Menggunakan Database Mysql Server di VB.net

Cara membuat login pada VB.net 

dengan database mysql server

Selamat datang kembali di blog cara1komputer. Blog yang membahas tentang tutorial IT, tutorial VB.NET, tutorial microsoft excel, tutorial blog, tutorial youtube dan tutorial-tutorial lainnya. Semua yang dirasa bermanfaat pasti admin share di blog ini. Okey kali ini di blog CK admin akan membahas tentang Cara membuat button login jika databasenya menggunakan mysql server pada VB net.

Pada pertemuan kemarin saya sudah membahas tentang cara membuat module koneksi dengan database menggunakan mysql server. Kali ini akan saya lanjutkan dengan cara membuat login pada VB net. Oke langdung saja ikuti langkah-langkah berikut.

• Sebelumnya baca dulu : Cara membuat module koneksi pada vb net.

1. Buat form baru dengan cara klik project => add windows form => berinama login => add. lihat gambar di bawah.

2. Desain form login seperti gambar di bawah :

3. Buat lagi form baru untuk tampilan pertama setelah login => desain seperti gambar di bawah => buat posisi awal tampilan berada di tengah layar (perhatikan bagian kanan bawah yang di lingkari) => WindowsDefaultLocation ganti dengan CenterScreen.

4. Klik 2x pada form login => isi koding seperti berikut.

Imports System.Data.MysqlClient

Public Class login

    Sub login()
        cmd = New MysqlCommand("select * from tbl_login where username='" & TextBox1.Text & "' and password='" & TextBox2.Text & "'", conn)
        dr = cmd.ExecuteReader
        dr.Read()
    End Sub

    Sub kosong()
        TextBox1.Text = ""
        TextBox2.Text = ""

        TextBox1.Focus()
    End Sub

    Private Sub login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call koneksi()
        TextBox1.Focus()
    End Sub


5. Klik 2x pada button login => isikan koding sebagai berikut.

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call login()
        If dr.HasRows Then
            Me.Hide()
            Form1.Show()
        Else
            MsgBox("Username/password yang anda masukan salah")
        End If
    End Sub


6. Klik 2x pada button batal => isikan koding sebagai berikut.

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Call kosong()
    End Sub
End Class

Untuk lebih jelasnya lihat gambar di bawah.

7. Setelah itu jalankan program/start => isikan username dan password => maka akan tampil tampilan utama seperti yang kita buat di langkah 3 tadi. Jika anda melakukan cara di atas dengan benar, pasti akan sukses.

Selanjutnya akan saya teruskan dengan pembuatan SIMPAN, EDIT, DELETE, PENCARIAN. Sekian dan semoga bermanfaat. Terimakasih.