Membuat FORM LOGIN Ber-PASSWORD

Membuat FORM LOGIN Ber-PASSWORD


Buat sebuah form pertama dengan nama : "frmLogin"
Form kedua / injector yg agan maksud ubah nama nya menjadi "frmMain"
Pada "frmLogin" tambahkan komponen ,sbb:
- Label dengan caption "&Password"
- TextBox dengan nama "txtUserName" dan caption nya di kosongkan
- CommandButton dengan nama "cmdLogin" dan caption "Login"
- CommandButton dengan nama "cmdCancel" dan caption "Cancel"
- Untuk accesories dan tampilan design silahkan berkreasi masing2
- Kemudian isikan code berikut pada "frmLogin"
Code :
Option Explicit
Dim hitung As Byte
Private Sub cmdLogin_Click()
If Trim(txtUserName.Text) = vbNullString Then
GoSub hitungLog
MsgBox "Upss... Password nya masih kosong bro !!" + vbCrLf + "Tolong di benerin", _
vbInformation, "Konfirmasi"
txtUserName.SetFocus
ElseIf Trim(txtUserName.Text) = vbNullString Then
GoSub hitungLog
MsgBox "ups.. tidak ada passwordnya!" + vbCrLf + "Cek lagi", _
vbInformation, "Konfirmasi"
txtUserName.SetFocus
ElseIf Trim(txtUserName.Text) = "TERSERAH KALIAN" Then
frmMain.Show
Unload Me
Else
GoSub hitungLog
txtUserName = vbNullString
txtUserName.SetFocus
MsgBox "ups.. password masih salah !" + vbCrLf + "Cek lagi", vbExclamation, "Informasi"
End If
Exit Sub
hitungLog:
hitung = hitung + 1
If hitung = 3 Then
MsgBox "Password masih salah ! " + vbCrLf + "password : TERSERAH KALIAN", vbExclamation, "Informasi"
Unload Me
Else
Return
End If
End Sub
Private Sub cmdCancel_Click()
End
End Sub
Private Sub cmd1_click()
frmAbout.Show 1 'misalnya adalah about tutor
End Sub