CARA BUAT FORM LOGIN MULTIUSER DI VB.NET DENGAN MYSQL
Hai guys,pada tutorial kali ini saya ingin membagikan sebuah tutorial CARA BUAT FORM LOGIN MULTIUSER DI VB.NET DENGAN MYSQL,ok langsung saja kita mulai;
Bahan :
1. Visual Studio 2010 download
2. Xampp download
Jika semua bahan belum ada silahkan download melalui link diatas,jika suda ada langsung saja kita mulai
1.Aktifkan xampp control panel ,Start Apache dan Mysql
Sumber : IT Dadakan |
2.Buat tabel di PHPMYADMIN dengan nama tb_user
- id :int(primary key)& (auto_increment)
- username : varchar(50)
- password : varchar(50)level : varchar(15)
3.Isi tabel tbuser seperti gambar dibawahh ini:
Sumber : IT Dadakan |
4.Buka Visual Studio
Sumber : IT Dadakan |
Pilih New Project + pilih Windows From Aplication + beri nama project anda ,contoh=aplikasiku
5.Buat form_login,form_admin,form_user,module_koneksi,seperti gambar dibawah ini:
Sumber : IT Dadakan |
Hubungkan form_login dengan koneksi yang sudah anda di buat,jika belum maka lihat tutorial berikut ini: CARA BUAT KONEKSI DARI VB.NET KE DATABASE MYSQL
6.Masukkan Coding Login di btn_login sebagai berikut :
Sumber : IT Dadakan |
cmd = New MySqlCommand
cmd.Connection = koneksi
query = "select*from tbuser where username='" & txtusername.Text & "' and password='" & txtpassword.Text & "'"
cmd.CommandText = query
mda = New MySqlDataAdapter(query, koneksi)
dt = New DataTable()
Try
mda.Fill(dt)
If (dt.Rows.Count > 0) Then
MsgBox("Login sebagai " + dt.Rows(0)(1))
If (dt.Rows(0)(3) = "admin") Then
form_admin.Show()
Me.Visible = False
ElseIf (dt.Rows(0)(3) = "user") Then
Form_user.Show()
Me.Visible = False
End If
Else
MsgBox("login failed!")
txtusername.Clear()
txtpassword.Clear()
txtusername.Focus()
End If
Catch ex As Exception
End Try
Untuk Lengkapnya seperti berikut ini:
Imports MySql.Data.MySqlClient
Public Class Form_login
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
koneksiku()
End Sub
Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
cmd = New MySqlCommand
cmd.Connection = koneksi
query = "select*from tbuser where username='" & txtusername.Text & "' and password='" & txtpassword.Text & "'"
cmd.CommandText = query
mda = New MySqlDataAdapter(query, koneksi)
dt = New DataTable()
Try
mda.Fill(dt)
If (dt.Rows.Count > 0) Then
MsgBox("Login sebagai " + dt.Rows(0)(1))
If (dt.Rows(0)(3) = "admin") Then
form_admin.Show()
Me.Visible = False
ElseIf (dt.Rows(0)(3) = "user") Then
Form_user.Show()
Me.Visible = False
End If
Else
MsgBox("login failed!")
txtusername.Clear()
txtpassword.Clear()
txtusername.Focus()
End If
Catch ex As Exception
End Try
End SubEnd Class
7.Check coding apakah sudah sesuai atau belum,jika sudah tekan F5 untuk RUN Project,
Ok, sekian Dari Saya ,selamat mencoba.Jika masih error silahkan komentar di bawah ini atau kirim ke febiarifin21@gmail.com.
0 Response to "CARA BUAT FORM LOGIN MULTIUSER DI VB.NET DENGAN MYSQL"
Post a Comment