Membuat Form Login Dengan MySQL

Membuat form Login Pada VB.NET dengan MySQL

•     Untuk pertama kalinya silahkan buat database Login terlebih dahulu pada database kali ini saya beri nama dengan dblat
•    Program database digunakan kali ini adalah dengan menggunakan Wampserver, anda bisa mendownloadnya pada internet.
•       Create database dblat;
•      Kemudian silahkan ketikan pada gambar dibawah ini untuk membuat tabel login dengan nama tabel loguser.
• 
•        Install juga mysql-connector-net-6.2.4 untuk koneksi database ke form login
•        Klik menu project lalu pilih add reference dan pilih Mysql.data

•        Desain FormLogin sesuai dengan pada gambar di bawah ini:

•            Klik menu project lalu pilih add windows form, form2 untuk menampilkan form apabila form1 berhasil terkoneksi.
•       Buat modul pada VB.NET, Klik menu project lalu pilih add module dan ketikan coding berikut:

Module Module1

    Public strkon As String = "Server=localhost;user id=root;database=dblat"

   End Module

 Berikut adalah coding form Login:

 Imports MySql.Data.MySqlClient

 Public Class Form1

    Dim kon As New MySqlConnection(strkon)

    Dim perintah As New MySqlCommand

    Dim cek As MySqlDataReader

    ' enter untuk membuat kursor pada textbox menjadi berurutan

    ' ------------------------------------------------------

    Private Sub txtuserid_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtuserid.KeyDown

        Select Case e.KeyCode

            Case Keys.Enter

                txtpassword.Focus()

        End Select

    End Sub

    Private Sub txtpassword_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtpassword.KeyDown

        Select Case e.KeyCode

            Case Keys.Enter

                Button1.Focus()

        End Select

    End Sub

    ' button2

    ' -------------------------------------------------------

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        End

    End Sub

    ' button2

    ' -------------------------------------------------------

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        kon.Open()

        perintah.Connection = kon

        perintah.CommandType = CommandType.Text

        perintah.CommandText = "SELECT * from loguser where userpass=MD5('" & txtpassword.Text & "')and username='" & txtuserid.Text & "'"

        cek = perintah.ExecuteReader

        cek.Read()

        If cek.HasRows Then

            Form2.Show()

            Me.Hide()

        Else

            MsgBox("maaf, user dan password salah")

        End If

        cek.Close()

        kon.Close()

        txtpassword.Text = ""

    End Sub

 'double click timer1 untuk membuat label menjadi warna-warni setting timer enabled=true dan interval = 100

  '---------------------------------------------------------------------------------

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Label3.ForeColor = System.Drawing.ColorTranslator.FromOle(RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255))

    End Sub

    End Class