Program Login Admin Sederhana Pada Visual Basic 6.0

Kali ini kita akan belajar membuat program login admin sederhana pada Visual Basic 6.0.

Tidak usah panjang lebar langsung aja ke topik

Silahkan anda buka aplikasi Visual Basic 6.0  
Kemudian anda rancang sebuah Form Login seperti contoh gambar dibawah ini atau sesuai dengan kreatifitas anda sendiri :

Pada Propertis :

Beri nama  Textbox1 = USER

                      Textbox2 = PASS

                      Command1 = MASUK

                      Command2 = KELUAR

Berikut ini source kode programnya :

Private Sub PASS_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 Then

   MASUK.SetFocus

End If

End Sub

Private Sub USER_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 Then

   PASS.SetFocus

End If

End Sub

               

Private Sub MASUK_Click()

If USER = "USER" And PASS = "PASS" Then

   UTAMA.Show

ElseIf USER = "" Or PASS = "" Then

   MsgBox "USERNAME ATAU PASSWORD TIDAK BOLEH KOSONG...!"

   USER = ""

   PASS = ""

   USER.SetFocus

Else

   MsgBox "USERNAME ATAU PASSWORD SALAH...!"

   USER = ""

   PASS = ""

   USER.SetFocus

End If

End Sub

  

Private Sub KELUAR_Click()

End

End Sub

Selanjutnya silahkan anda rancang Form 2, yaitu Form yang akan tampil jika berhasil login.
 

NB :

Pada Propertis buat nama Form 2 = UTAMA

MARI BELAJAR,,