Cara Membuat Login Database dan Hak Akses User Pada VB.Net

Cara Membuat Login Database dan Hak Akses User Pada VB.Net - priacoding. Dalam sebuah aplikasi biasanya hak akses untuk user itu berbeda-beda berdasarkan permintaan client atau berdasarkan keinginan programmer itu sendiri. Guna untuk membuat sebuah aplikasi lebih terstruktur dan untuk mengatasi kesalahan pada aplikasi. Pada postingan kali ini merupakan lanjutan postingan sebelumnya yang membahas membuat koneksi database MySQL.
Oke langsung saja kita masuk ke tutorial nya...

1. Selain form Login, tambahkan 2 form lagi

- Form Admin (fradmin): merupakan form yang akan ditampilkan aplikasi jika status login database-nya Admin.
- Form Operator (froperator): merupakan form yang akan ditampilkan aplikasi jika status login database-nya Operator.

2. Pada form Login, double klik tombol login

Pastekan coding dibawah...

Try
            If TextBox1.Text = "" Or TextBox2.Text = "" Then
                MessageBox.Show("Isi username dan password terlebih dahulu!!", "Oops", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Else
                koneksi()
                cmd = New MySqlCommand("select * from tbl_user where username = '" & TextBox1.Text & "' and password = '" & TextBox2.Text & "'", conn)
                rd = cmd.ExecuteReader
                rd.Read()
                If rd.HasRows Then
                    If rd("status").ToString = "ADMIN" Then
                        Me.Hide()
                        fradmin.Show()
                    Else
                        Me.Hide()
                        froperator.Show()
                    End If
                Else
                    MessageBox.Show("Akun anda belum terdaftar!!", "Oops", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                End If
            End If
        Catch ex As Exception

        End Try

Penjelasan :
Pada coding

If TextBox1.Text = "" Or TextBox2.Text = "" Then
                MessageBox.Show("Isi username dan password terlebih dahulu!!", "Oops", MessageBoxButtons.OK, MessageBoxIcon.Warning)

Merupakan kondisi jika Textbox Username atau Textbox Password kosong

Coding

koneksi()
                cmd = New MySqlCommand("select * from tbl_user where username = '" & TextBox1.Text & "' and password = '" & TextBox2.Text & "'", conn)
                rd = cmd.ExecuteReader
                rd.Read()
                If rd.HasRows Then
                    If rd("status").ToString = "ADMIN" Then
                        Me.Hide()
                        fradmin.Show()
                    Else
                        Me.Hide()
                        froperator.Show()
                    End If
                Else
                    MessageBox.Show("Akun anda belum terdaftar!!", "Oops", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                End If

Merupakan pengecekan pada tabel User apakah Username dan Password terdaftar dalam database?, jika ada maka akan dilakukan pengecekan kembali pada column Status User jika statusnya Admin maka akan ditampilkan Form Admin, jika statusnya Operator maka akan ditampilkan Form Operator. Jika tidak ada sama sekalik maka akan ditampikan pesan "Akun anda belum terdaftar!!".

3. Silahkan jalankan aplikasi, dan lihat hasilnya. :D

Untuk penjelasan lebih lanjut silahkan lihat video berikut.
Klik Dibawah

Dapatkan Source
Pass: priacoding.com

Pages

Cara Membuat Login Database dan Hak Akses User Pada VB.Net