E › TIPS BLOG

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.

IT Dadakan Febi Arifin ,mulai mengenal dunia IT sejak SMP , suka sekali Ngoding walau bikin pusing wkwk.

Berlangganan update artikel terbaru via email:

Buka Komentar

0 Response to "CARA BUAT FORM LOGIN MULTIUSER DI VB.NET DENGAN MYSQL"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel