Membuat Form Login VB.Net dan SQL Server 2005

Membuat Form Login VB.Net dan SQL Server 2005 - Setelah sebelumnya saya menulis langkah-langkah  form login dengan bahasa C#, sekarang saya akan coba menulis langkah-langkah membuat form login dengan menggunakan VB.Net dan SQL Server 2005 sebagai databasenya.

Buat tabel pada SQL Server 2005 seperti di bawah ini

Buat project pada Visual Studio 2008, 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()

Semoga bermanfaat :)

Share this

Share on FacebookPlus on Google+