Membuat Form Login di VB

Untuk pemula yang belajar VB .Net 2008 pasti akan mengalami kesulitan membuat form login
dengan memilih user di tabel yang telah di buat di database. Tapi bagi yang sudah Advanced
jangan dihiraukan tulisan ini... Maklum saya juga masih belajar :)
Dalam contoh project ini saya menggunakan Sql Server 2005 sebagai database.
Ok Langsung aja kita mulai.....
Terlebih dahulu kita buat database dan tabel di Sql Server 2005, seperti gambar berikut :

Lalu kita akan mengisi tabel tersebut sesuai fieldnya.


Urusan database sudah selesai, sekarang kita buka program  lalu klik New Project ,
Silahkan ditentukan sendiri nama projectnya, contoh Pakarpc.
Lalu tambahkan sebuah form yang nantinya akan menjadi form login, seperti gambar berikut :







Dan tambahkan beberapa object, seperti :

Nama Object                            Properties Object

Label1 Name :                             labelusertipe
Text :                                             User Type
Label2 Name :                                labelnama
Text :                                               Nama
Label3 Name :                               labelpass
Text :                                             Password
ComboBox1 Name :                   ComboBox1
Items : Administrator ,                      Pakar
TextBox1 Name :                          textnama
TextBox2 Name :                           textpass
Button1 Name :                              cmdlogin
Text :                                                Login
Button2 Name :                             cmdcancel
Text :                                              Cancel

  

Berikut codenya :
Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class loginfrm
Dim koneksi As SqlConnection
Private Sub cmdcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
cmdcancel.Click
Me.Close()
mainfrm.Show()
End Sub
Private Sub loginfrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
Dim strKoneksi As String
strKoneksi = "Data Source=YCL-1;Initial Catalog=pakarpc;Integrated Security=True"
koneksi = New SqlConnection(strKoneksi)
Try
koneksi.Open()
Catch ex As Exception
MessageBox.Show("Acces Denield")
End Try
ComboBox1.SelectedIndex = 0
End Sub
Private Sub cmdlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
cmdlogin.Click
Dim Sql, username, password, tipe As String
Dim cmd As SqlCommand
Dim rdr As SqlDataReader
username = textnama.Text
password = textpass.Text
tipe = ComboBox1.SelectedItem
Sql = "select * from tbl_login where username='" + username + "'and password='" + password +
"'and tipe='" + tipe + "'"
cmd = New SqlCommand(Sql, koneksi)
rdr = cmd.ExecuteReader()
If rdr.HasRows = True And ComboBox1.SelectedItem = "Administrator" Then
admin.Show()
mainfrm.cmdlogin.Enabled = False
Me.Hide()
ElseIf rdr.HasRows = True And ComboBox1.SelectedItem = "Pakar" Then
pakar.Show()
mainfrm.cmdlogin.Enabled = False
Me.Hide()
Else
MessageBox.Show("Data Yang Anda Masukkan Salah", "Konfirmasi", MessageBoxButtons.OK,
MessageBoxIcon.Error)
mainfrm.Show()
mainfrm.cmdlogin.Enabled = True
Me.Close()
End If
End Sub
End Class.