Membuat Form login sederhana dengan VBNET DAN SQL SERVER 2008

       Selamat siang Teman teman Yang suka koding, kali ini akan membagi isi Dari pengetahuan saya. disini akan coba share contoh program sederhana yaitu membuat form login sederahan dengan database..  disini saya pakai VB net 2010 dan Sql 2008 semoga dapat bermafaat bagi teman teman..

Database nya 

create Database Login 

create table (typeuser char(50),

Usernama char (50),

password char (50)primary key))

Full Code nya…

Untuk Button LOGIN  Isikan kode dibawah Ini

Dim Sql, username, password, tipe As String

        Dim cmd As SqlCommand

        Dim rdr As SqlDataReader

        username = TextBox1.Text

        password = TextBox2.Text

        tipe = ComboBox1.SelectedItem

        Sql = "select * from Tblogin 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

            TERMINATOR.Show()

            Button1.Enabled = True

            Me.Hide()

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

            KARYAWAN.Show()

            Button1.Enabled = False

            Me.Hide()

        Else

            MessageBox.Show("Password Atau Username Salah", "PESAN", MessageBoxButtons.OK,

            MessageBoxIcon.Error)

            Button1.Show()

            Button1.Enabled = True

        End If

        TextBox1.Clear()

        TextBox2.Clear()

    End Sub

//Kode untuk  Form Load ketikan Kode dibawah ini

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ComboBox1.Items.Add("ADMINISTRATOR")

        ComboBox1.Items.Add("KASIR")

        Dim strKoneksi As String

        strKoneksi = "Data Source=SIHALOHO-PC\SQLEXPRESS;Initial Catalog=Dblogin;Integrated Security=True"

        koneksi = New SqlConnection(strKoneksi)

        Try

        Catch ex As Exception

            MessageBox.Show("Acces Denield")

        End Try

        ComboBox1.SelectedIndex = 0

    End Sub

///kode diatas form  ketikkan diatas form (public class)

Imports System.Data.Sql

Imports System.Data.SqlClient

//Tampak Seperti ini Full codenya

Imports System.Data.Sql

Imports System.Data.SqlClient

Public Class Form1

    Dim koneksi As SqlConnection

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ComboBox1.Items.Add("ADMINISTRATOR")

        ComboBox1.Items.Add("KASIR")

        Dim strKoneksi As String

        strKoneksi = "Data Source=SIHALOHO-PC\SQLEXPRESS;Initial Catalog=Dblogin;Integrated Security=True"

        koneksi = New SqlConnection(strKoneksi)

        Try

        Catch ex As Exception

            MessageBox.Show("Acces Denield")

        End Try

        ComboBox1.SelectedIndex = 0

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Sql, username, password, tipe As String

        Dim cmd As SqlCommand

        Dim rdr As SqlDataReader

        username = TextBox1.Text

        password = TextBox2.Text

        tipe = ComboBox1.SelectedItem

        Sql = "select * from Tblogin 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

            TERMINATOR.Show()

            Button1.Enabled = True

            Me.Hide()

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

            KARYAWAN.Show()

            Button1.Enabled = False

            Me.Hide()

        Else

            MessageBox.Show("Password Atau Username Salah", "PESAN", MessageBoxButtons.OK,

            MessageBoxIcon.Error)

            Button1.Show()

            Button1.Enabled = True

        End If

        TextBox1.Clear()

        TextBox2.Clear()

    End Sub

End Class