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

Yang Terlupakan( Lagu Indah)

-----------Selamat Mencoba----------

Denting piano
C G
Kala jemari menari
Am G
nada merambat pelan
F C
di kesunyian malam
D F
datang rintik hujan
Fm C
bersama sebuah bayang
G Am
yang pernah terlupakan
F G C
Hati kecil berbisik
C G
untuk kembali padanya
Am G
seribu kata menggoda
F C
seribu sesal didepan mata
D F
seperti menjelma
Fm C
waktu aku tertawa
Em Am
kala memberimu dosa
F G C
maafkanlah oh maafkanlah
G C G C
maafkanlah oh maafkanlah
G C G F-G
Reff :
Rasa sesal Didasar hati
C Em
diam tak mau pergi
F G
haruskah aku lari dari
C Em
kenyataan ini
F G
pernah ku mencoba
F Fm
tuk sembunyi
C Am
namun senyumMu tetap mengikuti
F G C

By Parlindungan Sihaloho

Cord Lagu Batak Managiangkon Au

Manangiankon Au

intro; G C D G D D7

nunga hudok tuho da hasian
G C D
dang na marmeam meam au tuho
G C D
molo so porsea ho tiop tangankon
G C D
molo ganggu roham pajonok ma tuson
G C D

^^
adong mandok tuau dahasian
G C D
nunga adong manopot nopot ho
G C D
ise do huroa i sidoli dongan mi
G C D
patandahon ma tu au sopola muruk au
G C D

REFF:
dang hudokkon ikkon ho saut di au
Em D
ai molo rokkap do naikkon saut do hita
C D G
molo tung pe ikkon sirang sian ho
Em D
ai unang lupa ho manangiangkon au aaauu
C D G
manangiangkon au,,uu manangiangkon auuu
C G D G
huuuuuuu

By Parlindungan Sihaloho