Membuat Form Login dengan VB NET

Berikut adalah Cara Membuat Form Login Di VB Net Dengan Database SQL Server 2005. Form Login merupakan form yang difungsikan sebagai pengaman atau penyaring user, jika di form login tersebut user memasukan user name dan password nya dengan benar maka user tersebut  akan dibawah ke form berikutnya, namun seandainya di form login user memasukan user name dan passwordnya salah user tidak akan dibawah ke form selanjutnya dan akan muncul pemberitahuan dari program tersebut. Pada umumnya dalam form login biasanya hanya berisi dua buah kolom text yaitu user name dan password. Form login sangat dibutuhkan untuk mencegah keamanan data yang ada didalam aplikasi.

Langkah-langkah Membuat Form Login di Vb.Net menggunakan database Sql server 2005 sebagai berikut.

• Pertama pastikan terlebih dahulu jika Aplikasi Vb.Net dan SQL server nya telah terinstal di komputer anda. Kemudian buka VB. Net dan SQL Server. Nah apabila anda belum mengetahui cara membuat database Sql Server silahkan baca postingan saya mengenai Cara Membuat Database Sql Server. Setelah aplikasi VB. Net nya terbuka silahkan anda buat Project baru  kemudian tambahkan dua buah form dan satu module. Untuk form loginya kurang lebih seperti gambar di bawah ini

• Langsung saja anda menuju ke form pertama yang telah anda buat tadi. Seret semua komponen yang anda butuhkan mulai dari label, textbox, buton dll. Setelah anda selesai menambahkan semua komponen yang dibutuhkan kemudian anda klik pada form tersebut, lihat di properties di pojok kanan bawah, cari name di propertis tersebut setelah ketemu ganti dengan flogin. Kemudian klik dua kali di button login dan ketikan koding di bawah ini.

Imports System.Data.Sql
Imports System.Data.SqlClient

Public Class flogin
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Sql, user, pass As String
        user = txtuser.Text.Replace("'", "''")
        pass = txtpass.Text.Replace("'", "''")
        koneksi.Close()
        Call buka()
        'disini untuk mengecek apakah user, password serta hak akses yang telah dipilih atau dimasukan ada didalam database
        Sql = "SELECT * FROM tbuser WHERE usernm='" + user + "' AND deskripsi='" + pass + "'"
        cmd = New SqlCommand(Sql, koneksi)
        baca = cmd.ExecuteReader()
        If baca.HasRows = True Then
            menuutama.Show()
            Me.Hide()
        Else
            'Munculkan messagebox pesan salah
            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

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

End Class

• Untuk di button keluar silahkan anda klik botton tersebut sebanyak dua kali kemudian copy lalu pastekan koding dibawah ini.

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

Me.Close()

End Sub

End Class

• Setelah itu anda menuju ke form yang kedua, form kedua ini kita buat menjadi form Menu utama, menu utama nantinya akan kita panggil setelah login sukses, saya anggap kalian sudah mengetahui cara membuat menuutama. Jika belum di postingan berikutnya saya akan membahas mengenai cara membuat menu utama yang menarik. Tampilanya seperti dibawah ini

• Setelah anda selesai membuat Form login dan form Menuutama. kita akan lanjut ke langkah berikutnya yaitu membuat module. Anda sudah pasti mengetahui fungsi dari module, jika anda belum mengetahui berikut saya jelaskan sedikit tentang fungsi dari module. Module memiliki fungsi yaitu menghubungkan database SQL server 2005 ke VB net. Jika database tidak terhubung sama program maka program tersebut tidak akan jalan sesuai yang kita inginkan.
• Cara menambahkan module nya yaitu kita langsung add module nya melalui klik kanan pada project yang anda buat, kemudian pilih add klik module lalu klik add. Setelah itu copy dan pastekan koding di bawah ini. Untuk lebih jelasnya anda bisa membaca disini Membuat Modul Konesi Database SQL Server dengan VB.Net
Imports System.Data.Sql
Imports System.Data.SqlClient
Module Module1
    Public koneksi As SqlConnection
    Public data As DataSet
    Public baca As SqlDataReader
    Public adaptor As SqlDataAdapter
    Public cmd As SqlCommand
    Public ass As DataTable
    Public sql As String

    Public Sub buka()
     
        sql = "Data Source=NGADIMUN-PC\SQLEXPRESS;Initial Catalog=dtoee;Persist Security Info=True;UID=sa;PWD=remot123"
        koneksi = New SqlConnection(sql)
        Try
            If koneksi.State = ConnectionState.Closed Then
                koneksi.Open()
            End If
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "Error")
        End Try
    End Sub

    Public Function kata()
    End Function
End Module

• Proses Membuat Form Login Di Vb net dengan database SQL server 2005 telah selesai anda buat, sekarang tinggal anda coba di running program tersebut. Masukan username dan password sesuai dengan database yang telah anda buat. Jika terjadi eror cermati eror nya baik-baik, cobalah menganalisa dimana kesalahan tersebut terjadi. Semakin anda menemukan eror, anda akan semakin pintar, Pesan dari saya jangan mudah menyerah dan selalu tetap semangat. 

subscibe : http://www.ngadimun.com/2016/04/membuat-form-login-di-vb-net-dengan-database-sql-server.html