MEMBUAT FORM LOGIN MENGGUNAKAN HAK AKSES DENGAN VB.NET

pada kesempatan kali ini saya akan berbagi tentang bagaimana cara untuk membuat Form Login dengan menggunakan VB.NET. Namun saya tidak akan membahas bagaimana pembentukan databasenya.

pada project ini saya menggunakan SQL Server sebagai databasenya, dan Visual Studio 2017 Community Version.

langkah pertama buat from login seperti berikut ini :

berikut adalah penjelasan properties dari form diatas :

Objek	Properti	Nilai
TextBox	name	txtUsername
TextBox	name	txtPassword
Button	name	btnLogin
Button	name	btnKeluar

Selanjutnya tambahkan module pada project ini dengan cara Klik Kanan pada project Explorer --> Add --> new item --> module.  kemudian isikan scrip berikut pada modulnya

Imports System.Data.SqlClient
Module ModulKoneksi
Public conn As SqlConnection
Public trc As SqlTransaction
Public cmd As SqlCommand
Public ds As DataSet
Public adapter As SqlDataAdapter
Public rd As SqlDataReader
Public lokasidb As String

Public Sub ambilkoneksi()
lokasidb = "Data Source=ROBYRNL\SQLEXPRESS;Initial Catalog=penggajian;Integrated Security=True"

conn = New SqlConnection(lokasidb)

Try
If conn.State = ConnectionState.Closed Then
conn.Open()
MsgBox("Koneksi ke Database berhasil", MsgBoxStyle.Information, "Informasi")
End If
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "ERROR")
End Try
End Sub
End Module

setelah modul koneksinya sudah terbuat, silahkan klik pada btnLogin kemudian masukkan script berikut :

Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
If txtUsername.Text = "" Or txtPassword.Text = "" Then
MsgBox("Perhatikan Data yang Belum Terisi", MsgBoxStyle.Exclamation, "Perhatian")
Else
cmd = New SqlCommand("select * from Admin where username = '" & txtUsername.Text & "' and pas = '" & txtPassword.Text & "'", conn)
rd = cmd.ExecuteReader
rd.Read()

If rd.HasRows Then
If rd.Item("status").ToString = "Admin" Or rd.Item("status").ToString = "Kepala" Then
frmUtama.Show()
Me.Hide()
rd.Close()
ElseIf rd.Item("status").ToString = "Karyawan" Then
frmUtamaKaryawan.Show()
Me.Hide()
rd.Close()
End If
Else
rd.Close()
MsgBox("Username atau Password Tidak Benar", MsgBoxStyle.Exclamation, "Perhatian")
End If
txtUsername.Text = ""
txtPassword.Text = ""


End If
End Sub

setelah script diatas di masukkan maka silahkan tekan F5 atau klik Start untuk mulai menjalankan project yang sudah dibuat. Berikut script lengkap dari pembuatan form login dengan menggunakan hak akses.

Imports System.Data.SqlClient
Imports System.Xml

Public Class frmLogin
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnKeluar.Click
End
End Sub

Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
If txtUsername.Text = "" Or txtPassword.Text = "" Then
MsgBox("Perhatikan Data yang Belum Terisi", MsgBoxStyle.Exclamation, "Perhatian")
Else
cmd = New SqlCommand("select * from Admin where username = '" & txtUsername.Text & "' and pas = '" & txtPassword.Text & "'", conn)
rd = cmd.ExecuteReader
rd.Read()

If rd.HasRows Then
If rd.Item("status").ToString = "Admin" Or rd.Item("status").ToString = "Kepala" Then
frmUtama.Show()
Me.Hide()
rd.Close()
ElseIf rd.Item("status").ToString = "Karyawan" Then
frmUtamaKaryawan.Show()
Me.Hide()
rd.Close()
End If
Else
rd.Close()
MsgBox("Username atau Password Tidak Benar", MsgBoxStyle.Exclamation, "Perhatian")
End If
txtUsername.Text = ""
txtPassword.Text = ""


End If
End Sub

Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ambilkoneksi()
End Sub


End Class

terimakasih atas kunjungan pada blog ini, jika artikel ini bermanfaat silahkan di share dan digunakan sebagaimana mestinya. jika masih ada keraguan bisa ditanyakan pada kolom komentar.

Turtorial