Membuat Login sederhana di VB

Dalam pembuatan suatu aplikasi, hak akses merupakan sesuatu yang penting untuk mengamankan data dari pihak-pihak yang tidak berkepentingan. Oleh sebab itu, pada program aplikasi dibuat suatu form untuk melakukan login masuk pihak yang berhak masuk. Dalam pembuatan form login, diperlukan database pengguna yang bisa mengakses program tersebut. Akan tetapi dalam hal ini penulis akan membuat aplikasi login sederhana, tanpa database untuk bisa masuk ke form utama. Berikut langkah-langkahnya :

• Siapkan 2 buah form, yang pertama beri nama form3 untuk login, dan form4 untuk form utama
• design form3 seperti berikut :

• atur PasswordChar pada properties text2 menjadi tanda bintang

• ketikkan listing pada command login
Private Sub clogin_Click()
1. If Text1.Text = "maruloh28" And Text2.Text = "1234" Then
2. MsgBox "Silakan masuk", vbInformation + vbOKOnly, "Success"
3. Form4.Show
    Else
4. MsgBox "Maaf password user name dan password anda salah, silakan coba lagi", vbCritical,"Error"
5. Text1.Text = ""
    Text2.Text = ""
6. Text1.SetFocus
    End If
    End Sub
• keterangan Listing program:
  1-3 : melakukan penyeleksian, jika username (text1) nilainya ”maruloh28”

          dan passwordnya (text2) nilainya ”1234” maka akan muncul 

          pesan silakan masuk dan form utama (form4) akan ditampilkan.
  4-6 : jika username dan password tidak sesuai maka muncul pesan

          kesalahan, text1 dan text2 akan kosong dan kursor terfokus di text1
• Jalankan program