[VB.NET] Penggunaan Form Login pada Aplikasi Desktop

Form Login sangat dibutuhkan dalam pembuatan aplikasi berbasis desktop. Form ini tujuannya untuk pembatasan akses bagi user/pengguna aplikasi. Ini  merupakan suatu proses yang dilakukan seseorang untuk masuk kedalam suatu sistem yang terproteksi atau kedalam suatu sistem yang dikontrol melalui indentifikasi pengguna. Pengguna atau user melakukan logindengan tujuan untuk mendapatkan hak akses agar dapat masuk kedalam suatu sistem.

Digunakan untuk membuat akses masuk bagi user / pengguna aplikasi program dengan terlebih dahulu memasukkan kode user dan password sesuai dengan kriteria password dan username. Form login dengan visual basicberikut ini mempunyai hak akses untuk dapat masuk ke menu selanjutnya /menu utama, jika hak akses nya user berhasil sesuai dengan kriteria kriteria password dan username, maka pilihan menu utama tersebut akan muncul, dan jika hak aksesnya gagal maka user tersebut tidak akan  bisa masuk ke sistem.

form login menggunakan visual basic

form login menggunakan visual basic

Membuat desain antarmuka  / bebas terserah agan

form login menggunakan visual basic

Komponen yang dibutuhkan

• Label
• TextBox
• PictureBox
• GroupBox
• Button

Jangan lupa juga untuk membuat form satu lagi, sebagai panggilan setelah (“Login Success”) // lihat contoh diatas

Untuk code program bisa dilihat dibawah ini

——————————————————————————————————–

Public Class Form1

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

If Not TUser.Text = “administrator” And tPassword.Text = “1234567” Then

MsgBox(“Invalid Password”)

End If

If TUser.Text = “administrator” And tPassword.Text = “1234567” Then

MsgBox(“Login Success”)

Form2.Show()

End If

End Sub

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

TUser.Text = “”

tPassword.Text = “”

End Sub

End Class

Keterangan

Logikanya  jika TUser dan tPassword TIDAK sama dengan nilainya maka akan muncul pesan “Invalid Password”

If Not TUser.Text = “administrator” And tPassword.Text = “1234567″ Then

MsgBox(“Invalid Password”)

Dan jika  TUser  nilainya “administrator” dan  tPassword nilainya  ”1234567″ , maka akan muncul pesan “Login Success kemudian diteruskan dengan munculnya Form2 Show()

End If

If TUser.Text = “administrator” And tPassword.Text = “1234567″ Then

MsgBox(“Login Success”)

Form2.Show()