Membuat Form Login VB.Net dengan DataBase SQL Server 2005

Sebelum memulai pada form login kita buat terlebih dahulu database dengan SQL Server 2005. Cara membuat database dan tabel bisa dilihatdisini.

Buatlah database dengan tabel login seperti dibawah ini :

Setelah selesai membuat database dengan tabel login kemudian kita buat form login dan menu utama di visual studio 2008 seperti dibawah ini :

Berikut adalah souce code untuk form Login

Imports System.Data

Imports System.Data.SqlClient

Public Class Login

    Public koneksi As String

    Public conn As SqlClient.SqlConnection = Nothing

    Public cmd As SqlClient.SqlCommand = Nothing

    Public baca As SqlDataReader

    Public dtadapter As New SqlClient.SqlDataAdapter

    Dim Sql, user, pass As String

    '=========perintah untuk koneksi database===============

    Sub konek()

        koneksi = "Data Source=Localhost\SQLEXPRESS;Initial Catalog=Berbagi_Ilmu;Integrated Security=True"

        conn = New SqlClient.SqlConnection(koneksi)

        conn.Open()

    End Sub

    '============source code untuk login form================

    Private Sub Btlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btlogin.Click

        konek()

        cmd = New SqlCommand("select * from login where user_name='" & txuser.Text & "' and password='" & txpassword.Text & "'", conn)

        baca = cmd.ExecuteReader

        baca.Read()

        If baca.HasRows Then

            Dim x As New MenuUtama

            x.Show()

            Me.Hide()

        Else

            MsgBox("login salah, periksa kembali user name dan password")

            txuser.Focus()

        End If

        txpassword.Text = ""

        txuser.Text = ""

    End Sub

    Private Sub btcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcancel.Click

        End

    End Sub

End Class

==============Selamat Mencoba=============