VB.NET MEMBUAT FORM LOGIN

Kali ini saya mencoba untuk membuat form login yang biasanya ada pada aplikasi aplikasi bisnis. Tulisan ini adalah lanjutan dari VB.NET INSERT UPDATE DELETE SEARCH yang telah saya posting sebelumnya. Dalam postingan tersebut bahwa aplikasi yang saya buat belum mempunyai form login. Berawal dari itu saya membuat postingan ini agar pembaca bisa lebih banyak tau. Form login biasanya digunakan untuk membatasi pemakai aplikasi agar tidak sembarang masuk dalam aplikasi tersebut. Jelas bahwa semakin tinggi tingkat keamanan aplikasi maka akan semakin bagus pula kualitasnya. Saya tidak mengatakan bahwa aplikasi ini adalah berkualitas, Ini adalah pembelajaran sederhana yang saya buat untuk teman teman yang lagi belajar membuat form login. Inti dari form login ini adalah bagaimana data yang dimasukkan user ke dalam kotak isian tersedia atau tidak di dalam database, jika datanya tersedia maka seorang user berhak masuk kedalam aplikasi. Form login yang saya buat tidak memakai encrypt jadi hanya sebatas chiper text agar pembaca bisa lebih mudah untuk memahaminya. Langkah-langkahnya adalah sebagai berikut

• Buka SQL Server dan buat tabel bernama XUSER
Sebelumnya kamu harus melihat postingan saya sebelumnya seperti yang saya katakan di atas agar anda tidak keliru yaitu VB.NET INSERT UPDATE DELETE SEARCH dalam postingan tersebut saya sudah membuat database bernama CRUD dan tabel MASTER. Jadi tugas anda hanya menambahkan tabel XUSER saja CREATE TABLE XUSER ( USER_ID VARCHAR(5) PRIMARY KEY, USER_NAME VARCHAR(50) NOT NULL, PASSWORD VARCHAR(8) NOT NULL, ); Isikan beberapa nilai ke dalam tabel tersebut seperti query dibawah ini INSERT INTO XUSER VALUES ('SA','SALES','123') INSERT INTO XUSER VALUES ('QA','QUALITY','12345') INSERT INTO XUSER VALUES ('QR','QR CODE','1231')
• Buatlah desain form login seperti gambar dibawah ini

• Buatlah function untuk mencari apakah user ID ada atau tidak
Private Function GetUserID(ByVal id As String) As Integer Call BukaKoneksi() Str = "SELECT COUNT(USER_ID) FROM XUSER WHERE USER_ID = '" & id & "'" Cmd = New SqlCommand(Str, Cn) Return Cmd.ExecuteScalar End Function Kode di atas berfungsi untuk menjumlahkan user ID yang yang ada di database dengan parameter id yang ada di atas
• Buatlah function untuk mencari apakah password yang diisikan sudah benar berdasarkan user id yang kita input sebelumnya
Private Function GetPasswordByID(ByVal id As String, ByVal pass As String) As Integer Call BukaKoneksi() Str = "SELECT COUNT(*) FROM XUSER WHERE USER_ID ='" & id & "' AND PASSWORD = '" & pass & "'" Cmd = New SqlCommand(Str, Cn) Return Cmd.ExecuteScalar End Function
• Agar lebihn lengkap, saya akan buat keseluruhan kode di bawah ini
Imports System.Data.SqlClient Imports System.Data Public Class FrmLogin Private Function GetUserID(ByVal id As String) As Integer Call BukaKoneksi() Str = "SELECT COUNT(USER_ID) FROM XUSER WHERE USER_ID = '" & id & "'" Cmd = New SqlCommand(Str, Cn) Return Cmd.ExecuteScalar End Function Private Function GetPasswordByID(ByVal id As String, ByVal pass As String) As Integer Call BukaKoneksi() Str = "SELECT COUNT(*) FROM XUSER WHERE USER_ID ='" & id & "' AND PASSWORD = '" & pass & "'" Cmd = New SqlCommand(Str, Cn) Return Cmd.ExecuteScalar End Function Private Sub txtID_Validated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtID.Validated If GetUserID(txtID.Text) > 0 Then txtPassword.Focus() Else MessageBox.Show("ID kamu belum terdaftar", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Stop) txtID.Clear() txtID.Focus() End If TutupKoneksi() End Sub Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click If GetPasswordByID(txtID.Text, txtPassword.Text) > 0 Then Me.Hide() FrmBrowse.BringToFront() FrmBrowse.ShowDialog() Else MessageBox.Show("Salah, silahkan coba lagi", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Stop) txtPassword.Clear() txtPassword.Focus() End If TutupKoneksi() End Sub End Class

Terimkasih sudah membaca tulisan ini, saya rasa tulisan ini tidak begitu bagus sehingga dibutuhkan kritikan dan komentar dari teman-teman agar saya bisa lebih bagus lagi dalam menyajikan sesuatu. Untuk lebih memantapkan tulisan ini maka penulis memberikan link download untuk aplikasi ini agar teman-teman bisa lebih memahami apa yang saya buat Download DISINI