Membuat Form Login VB.Net 2010 dan SQL Server 2005 -

Buat tabel pada SQL Server 2005 seperti di bawah ini

Buat project pada Visual Studio 2010, kemudian buat design form loginnya. Misal saya buat seperti di bwah ini

Pertama kali, tliskan code library dan koneksinya seperti ini pada bagian atas program sebelum lanjut menulis script, koneksi diperlukan untuk menyambungkan form yang sudah kita buat dengan database saat di running.

Imports System.Data.Sql

Imports System.Data.SqlClient

Public Class Form1

    Dim koneksi As SqlConnection

Untuk memanggil database yang sudah kita buat, double klik form yang sudah kita buat. Masukkan coding berikut pada form load.

Dim strKoneksi As String

        strKoneksi = "Data Source=NETY-PC;Initial Catalog=Testing;Integrated Security=True"

        koneksi = New SqlConnection(strKoneksi)

        Try

            koneksi.Open()

        Catch ex As Exception

            MessageBox.Show("Acces Denield")

        End Try

        ComboBox1.SelectedIndex = 0

Double klik button login, kemudian tuliskan code dibwah ini :

Dim Sql, username, password, tipe As String

        Dim cmd As SqlCommand

        Dim rdr As SqlDataReader

        username = usrName.Text

        password = psWord.Text

        tipe = ComboBox1.SelectedItem

        Sql = "select * from tbUser where username='" + username + "'and password='" + password + "'and type='" + tipe + "'"

        cmd = New SqlCommand(Sql, koneksi)

        rdr = cmd.ExecuteReader()

        If rdr.HasRows = True And ComboBox1.SelectedItem = "Administrator" Then

            frmAdmin.Show()

            frmUtama.Button1.Enabled = False

            Me.Hide()

        ElseIf rdr.HasRows = True And ComboBox1.SelectedItem = "Kasir" Then

            frmKasir.Show()

            frmUtama.Button1.Enabled = False

            Me.Hide()

        Else

            MessageBox.Show("Data Yang Anda Masukkan Salah", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Error)

            frmUtama.Show()

            frmUtama.Button1.Enabled = True

            'Me.Close()

        End If

Kemudian untuk button cancel, berikut codingnya

Me.Close()

        frmUtama.Show()

:{ Sekian semoga bermanfaat