PROJECT LOGIN SERVER

Dim i As Byte

Private Sub CommandOK_Click()
Select Case Index
Case 0
PanggilMENU
Case 1
End
End Select
End Sub

Private Sub Form_Load()
NamaUser.Text = ""
PasswordUser.Text = ""
i = 1
End Sub

Sub PanggilMENU()
If NamaUser.Text = "EDI SURANTA" And PasswordUser.Text = "SITEPU" Then
MsgBox "SELAMAT MENGGUNAKAN..." & vbCrLf & _
"Sistem Informasi Data Mobil Pribadi Saya" & vbCrLf & _
"" & vbCrLf & _
"(C)opy Right by EDI SURANTA SITEPU JANUARI 2012", vbInformation + vbOKOnly, "Passsword"
Unload Me
FrmMenu.Show
Else
If i > 2 Then
MsgBox "Maaf...!" & vbCrLf & _
"Anda tidak berhak menggunakan program ini !", vbInformation + vbOKOnly, "Password"
End
Else
MsgBox "Maaf...!" & vbCrLf & _
"Password anda SALAH", vbInformation + vbOKOnly, "Password"
End If
NamaUser.Text = ""
PasswordUser.Text = ""
NamaUser.SetFocus
i = i + 1
End If
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub NamaUser_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If NamaUser.Text = "" Then Exit Sub
PasswordUser.SetFocus
End If
End Sub

Private Sub PasswordUser_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If PasswordUser.Text = "" Then Exit Sub
CommandOK.SetFocus
End If
End Sub