Form LogIn DataBase MySql VB.Net 2008

·             Untuk pertama kalinya silahkan buatlah 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 yang sesuai dengan VB.Net yang anda gunakan. disini saya memakai mysql-connector-net-6.2.4.  untuk koneksi database ke form login.

·                Kemudian Klik menu project lalu pilih add reference dan pilih Mysql.data, seperti gambar dibawah ini :

Kemudian Desain Form LogIn seperti berikut :

·       •           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