Dear all,
Salam kenal, semua saya baru kenal VB mau tanya gimana cara nempatin script
untuk membatasi login salah dibatsin hanya 3 kali saja jika sudah 3 kali maka
keluar dari program. Berikut script yang sudah saya bikin dimana terdapat
verifikasi untuk username or password kosong dan username or passwor salah.
Private Sub Command1_Click()
If Text1.Text = ”” And Text2.Text = ”” Then
MsgBox "Maaf, Username & Password harus diisi!"
Exit Sub
ElseIf Text1.Text = ”” Then
MsgBox "Maaf, Username harus diisi!"
Text2.Text = ""
Text1.SetFocus
Exit Sub
ElseIf Text2.Text = ”” Then
MsgBox "Maaf, Password harus diisi!"
Text1.Text = ""
Text1.SetFocus
Exit Sub
End If
If Text1.Text = "teknik" And Text2.Text = "informatika" Then
Form2.Show
Form1.Hide
Else
MsgBox "Maaf Username atau Password salah, Akses gagal, silakan login ulang!"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End Sub
Mohon bantuannya agar verifikasi tetap berjalan dan login salah hanya 3 kali
saja.
Thanks....
Best regards,
Giftirul
