Membuat Form Login VB 2008 dengan database MySql

Form login?? suatu hal yg lumrah pada suatu program yang membutuhkan akses keamanan data didalamnya. Banyak cara atau tehnik yg dapat anda gunakan dalam pembuatan form login. Silahkan anda searching di https://www.google.com/ untuk mendapatkan tehnik yang lebih baik.

Berikut cara simple membuat form login sederhana yang dapat anda kembangkangkan sendiri nantinya.

Langkah-langkah:

1. Buat sebuah table dengan nama user pada server Mysql anda, disini saya menggunakan HeidiSQL versi 7.0.4053, silahkan anda download di http://www.heidisql.com/.

login ke server mysql anda.

klik kanan pada database ada, Create new, pilih Table.

masukkan nama table dalam hal ini saya menggunakan:

nama table : user

Field :

ID int(11) NOT NULL auto_increment PRIMARY KEY

username varchar(50) NOT NULL

password varchar(50) NOT NULL

level varchar(10) NOT NULL

cara set PRIMARY KEY

kemudian klik tombol Save

Akan tampil table user.

isi table dengan data

2. Buka Visual Studio 2008 anda . kemudian create sebuah project baru. beri nama sesuai dengan keinginan anda.

buat sebuah modul koneksi

berinama koneksi

isi dengan script

Imports System.Data.Odbc

Module koneksi

Public conn As New OdbcConnection("Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=tes;User=tes;Password=tes;Option=3;")

Sub bukakoneksi()

If conn.State = ConnectionState.Closed Then

Try

conn.Open()

Catch mex As OdbcException

MsgBox(mex.Message)

End Try

End If

End Sub

Sub tutupkoneksi()

conn.Close()

End Sub

End Module

buat sebuah module lg

beri nama umum

isi mudul umum dengan script

Module umum

Public vKodPga As String

Public vNmaPga As String

Public vAksPga As String

End Module

buat sebuah form baru

pilih template login form, dan beri nama form_login

akan terlihat seperti ini

pada form_login, masukkan script :

Imports System.Data.Odbc

Public Class LoginForm1

Sub login()

If ((UsernameTextBox.Text = "") And (PasswordTextBox.Text = "")) Then

MsgBox("Masukkan Username dan Password anda!", MsgBoxStyle.Critical, "Peringatan!")

If MsgBoxResult.Ok Then

UsernameTextBox.Focus()

End If

ElseIf ((UsernameTextBox.Text = "") And (PasswordTextBox.Text <> "")) Then

MsgBox("Masukkan Username anda!", MsgBoxStyle.Critical, "Peringatan!")

If MsgBoxResult.Ok Then

UsernameTextBox.Focus()

End If

ElseIf ((UsernameTextBox.Text <> "") And (PasswordTextBox.Text = "")) Then

MsgBox("Masukkan Password anda!", MsgBoxStyle.Critical, "Peringatan!")

If MsgBoxResult.Ok Then

PasswordTextBox.Focus()

End If

Else

bukakoneksi()

Dim mycmd As New OdbcCommand("select * from user where username ='" & UsernameTextBox.Text & "' and password = '" & PasswordTextBox.Text & "'", conn)

Dim myread As OdbcDataReader

myread = mycmd.ExecuteReader()

If myread.HasRows = True Then

myread.Read()

vKodPga = myread.GetString(0)

vNmaPga = myread.GetString(1)

vAksPga = myread.GetString(3)

myread.Close()

tutupkoneksi()

Form1.Show()

Me.Close()

Else

MsgBox("maaf username dan password yang anda masukkan salah")

End If

End If

End Sub

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

login()

End Sub

Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click

Me.Close()

End Sub

End Class

double klik pada My Project di Solution Explorer

Ubah startup form menjadi form_login, dan ubah jg Shutdown mode menjadi When last form closes

jalankan program

jika benar memasukkan username dan password akan muncul form1.

untuk source kode silahkan download di sini. caranya :

Demikian catatan fey kali ini. jikalau ada kata-kata yang kurang atau salah saya mohon maaf. semoga bermanfaat.