Coding Form Login VB.Net

Tag : Cara coding form login dengan database MySql Front, Cara membuat form login VB.Net.

Susah-susah mudah..kau kudekati..kucari engkau lari..kudiam kau hampiri....heee, maaf ya basa-basi sedikit. Ok Gan, yang lagi bingung, lagi kesulitan, lagi mentok untuk membuat coding form login pada project visual basic dengan database MySql ( Conector ODBC ). Nih saya mau share sedikit cara yang udah saya coba sendiri, dan saat di running, Ok..

Okelah, simak baik-baik ya langkah-langkahnya...

1. Buat sebuah tabel pada pada Database anda dengan Nama= ' login '
    pada tabel 'login' tsb, buat field-fieldnya ( Kd_Pgw, NmPgw, username, password, Status )

2. Desian Form login

3. Coding Form Login

   

Imports System.Data.Odbc
Public Class Frm_Login
    Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
        Dim Query As String
        Dim xMyRead As OdbcDataReader
        Dim xMyCmd As OdbcCommand
        bukaConn()
        Query = "select *from login where username='" & TxtUser.Text & "' and password='" & TxtPass.Text & "'"
        xMyCmd = New OdbcCommand(Query, MyCn)
        xMyRead = xMyCmd.ExecuteReader

        If TxtUser.Text = "" Or TxtPass.Text = "" Then
            MsgBox("Opps..Data yang Anda masukan belum lengkap", MsgBoxStyle.Information, "Pesan")
            TxtPass.Text = ""
            TxtUser.Focus()
            Exit Sub
        Else
            Call bukaConn()
            If xMyRead.HasRows Then
                xMyRead.Read()
                Me.Visible = True
                MenuUtama.Show()                MenuUtama.Panel1.Text = xMyRead.Item("Kd_Pgw")
                MenuUtama.Panel2.Text = xMyRead.Item("NmPgw")
                MenuUtama.Panel3.Text = xMyRead.Item("Status")
                If MenuUtama.Panel3.Text = "Staff" Then                    MenuUtama.EntryDataJabatanToolStripMenuItem.Enabled = False
                 
                ElseIf MenuUtama.Panel3.Text = "Supervisor" Then                    MenuUtama.LaporanPegawaiToolStripMenuItem.Enabled = False
               
                End If
                TxtPass.Text = ""
                TxtUser.Text = ""
                TxtUser.Focus()
            Else
                MsgBox("Opps..Username & Password tidak cocok", MsgBoxStyle.Information, "Pesan")
                TxtPass.Text = ""
                TxtUser.Focus()
            End If
        End If
    End Sub
    Private Sub Frm_Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TxtUser.Text = ""
        TxtPass.Text = ""
        TxtUser.Focus()
    End Sub
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
    End Sub
    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
        Me.Close()
    End Sub
End Class

Yang saya beri warna merah adalah batasan akses dari masing-masing jenis user ( Staff, Supervisor, Manager ). Yang saya beri warna kuning adalah aksesori pada Menu Utama, yang bahasannya lebih lengkap di bawah ini.

Lihat tampilan Menu Utama dibawah ini :

Cara Membuatnya :

1. Masuk ke Menu Utama

2. Tambahkan 'StatusStrip' dari Toolbox ke 'Menu Utama'

3. Edit Item Colecction nya = Panel1 , Panel2 , dan Panel3

4. Pada Coding-an diatas yang saya beri warna hijau adalah 'Nama' pada Modul Koneksi.

 Imports System.Data.Odbc

 Module koneksi
    Public StrConn As String
    Public MyCn As OdbcConnection

    Sub bukaConn()

        StrConn = "Dsn=2012_uas_vb4"
    'StrConn &= " database=????;"
    'StrConn &= "Server=localhost;"
        'StrConn &= "Uid=root;pwd=;"
        MyCn = New OdbcConnection(StrConn)
        If MyCn.State = ConnectionState.Closed Then
            Try
                MyCn.Open()
            Catch ex As Exception
                MsgBox(ex.Message)
                Application.Exit()
            End Try
        End If
    End Sub
 End Module

Ok Gan..semoga bermanfaat...

Salam blogwalking.....