Login

Membuat form login di VB.Net 2008

Anda pasti tahu kegunaan Form Login, kira-kira untuk melakukan authentication terhadap user yang hendak menggunakan suatu aplikasi. Kali ini kita akan membuat Login Form, pertama-tama siapkan di MySQL sebuah database testing dan tabel bernama dt_user. Kurang lebih berikut penampakan tbl_user.

Buat juga 1 form yang akan dituju bila proses login berhasil. Tampilan form tersebut bebas saja. Berikut adalah kode untuk proses login yang akan kita gunakan :

Public Class Login

    Dim sql As String = "SELECT * from dt_user"

    Dim table As New DataTable

    Sub Awal()

        cmdENTER.Enabled = True

        cmdENTER.Text = "ADD"

    End Sub

    Private Sub Bersih()

        Me.txtPass.Text = ""

        Me.txtUser.Text = ""

    End Sub

    Private Sub cmdLOGIN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdENTER.Click

        Dim sql As String = "SELECT * FROM dt_user where user_name = '" & txtUser.Text & "' and password = '" & txtPass.Text & "'"

        Try

            buka_db()

            With cmd

                .CommandText = sql

                .Connection = db

                .ExecuteNonQuery()

            End With

            SPPD.Show()

        Catch ex As Exception

            MsgBox("Maaf, User dan Password Salah")

        End Try

    End Sub

    Private Sub txtUser_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtUser.KeyPress

        Dim pindah As Integer = Asc(e.KeyChar)

        If txtUser.Text = "" Then

            'MsgBox("Data Tidak Boleh Kosong")

            txtUser.Text = ""

            txtUser.Focus()

        End If

    End Sub

   

    End Sub

End Class