Membuat Form Login di VB.Net dengan Database Sql Server

Pada ulasan ini saya kan berbagi mengenai bagaimana Cara Membuat Form Login di VB.Net dengan Database Sql Server. Pentingnya sebuah form login tentunya akan membuat pengamanan yang kuat terhadap program aplikasi yang akan kita buat.

Berikut Gambarnya :

Mungkin di bisa dibilang membuat form login dengan database SQL Server agak rumit, ya tapi semua itu bisa asal kita mau usaha. Ok langsung saja.

Pertama.

Kita harus membuat sebuah database terlebih dahulu. Disini saya membuat dengan contoh :

-nama database : db_saya

-nama table : tb_login

Dengan field :

userid ----varcar(50) ----notnull

nama ----varcar(50) ----null

pass ----varcar(50) ----notnull

Ingat Disini saya membuat Database dengan Authentication : SQL Server Authentication dengan user sa. Bila ada yang belum tau cara mengaktifkan login sa dengan SQL Server Authentication bisa dibaca Mengaktifkan login user sa di Microsoft SQL Server 2005

Dan juga disini saya menkoneksikan database dengan vb.net menggunakan module, bila ada yang belum tau silahkan baca Membuat Koneksi Database SQL dengan VB.Net. Setelah semua selesai barulah kita menuju login yang akan kita buat, salinlah kodeberikut :

-Buatlah Decralasi sebagai berikut dan letakkan di paling atas flogin

Imports System.Data.SqlImports System.Data.SqlClient

-Di form_load

buka()--- ini adalah cara memanggil koneksi yang kita buat di module

End sub

button login

Dim Sql, user, pass As String

user = txtuser.Text---namatexbox

pass = txtpass.Text---namatexbox

koneksi.Close()

Call buka()

Sql = "SELECT * FROM tb_login WHERE userid='" + user + "' AND pass='" + pass + "'"

cmd = New SqlCommand(Sql, koneksi)

baca = cmd.ExecuteReader()

button login

Dim Sql, user, pass As String

user = txtuser.Text---namatexbox

pass = txtpass.Text---namatexbox

koneksi.Close()

Call buka()

Sql = "SELECT * FROM tb_login WHERE userid='" + user + "' AND pass='" + pass + "'"

cmd = New SqlCommand(Sql, koneksi)

baca = cmd.ExecuteReader()

If baca.HasRows = True Then

Form1.Show()

Me.Hide()

Else

MessageBox.Show("Kombinasi Username dan Password Salah", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Error)

txtuser.Focus()

End If

txtuser.Text = ""

txtpass.Text = ""

baca.Close()

cmd.Dispose()

end sub

Semoga membantu gan. Sekian dulu tentang Membuat Form Login di VB.Net dengan Database Sql Server di TIPS DAN INFORMASI. Ikuti terus setiap postingan nya gan.