OBJEK
|
PROPERTIES
|
VALUE
|
FORM1
|
name
|
frmLogin
|
Caption
|
LOGIN
|
|
StartUpPosition
|
centerscreen
|
|
ControlBox
|
False
|
|
Label1
|
name
|
Label1
|
caption
|
USER NAME
|
|
Label2
|
Name
|
Label2
|
caption
|
PASSWORD
|
|
Command1
|
Name
|
cmdOk
|
Caption
|
OKE
|
|
Command2
|
Name
|
cmdkeluar
|
caption
|
KELUAR
|
KODE PROGRAM :
Private Sub
cmdKeluar_Click()
End
End Sub
Private Sub
cmdOk_Click()
If
txtPassword.Text = "yabin" And txtUserId.Text = "stmikoke"
Then
MsgBox "User Id dan Password
Benar", vbInformation + vbOKOnly, "Selamat Bekerja"
Else
MsgBox "User Id dan Password
Salah", vbCritical + vbOKOnly, "Salah"
End If
End Sub
Private Sub
Form_Load()
MsgBox
"Selamat Datang", vbInformation + vbOKOnly, "Selamat
Datang"
End Sub
Private Sub
txtPassword_GotFocus()
txtPassword.Text
= ""
End Sub
Private Sub
txtPassword_KeyPress(KeyAscii As Integer)
If KeyAscii
= 13 Then
cmdok.SetFocus
End If
End Sub
Private Sub
txtPassword_LostFocus()
If
txtPassword.Text = "" Then
MsgBox
"Harus Diisi"
End If
End Sub
Private Sub
txtUserID_GotFocus()
txtUserId.Text
= ""
End Sub
Private Sub
txtUserID_KeyPress(KeyAscii As Integer)
If KeyAscii
= 13 Then
txtPassword.SetFocus
End If
End Sub
Private Sub
txtUserID_LostFocus()
If
txtUserId.Text = "" Then
MsgBox
"Harus Diisi"
End If
End Sub
Untuk teman2 yang ingin sewa hosting atau beli domain bisa disini iya : Link
dan gunakan Kode Kupon Berikut : YBNBLOG20 untuk mendapatkan potongan 5%
*KEJUJURAN ADALAH KEBIJAKSANAAN YANG PALING BAIK *
0 Comments