Membuat menu Login dengan Software Microsoft Visual Basic 6.0
Dim a As Byte
Private Sub cmdCancel_Click()
Dim nPil As Integer
nPil =
MsgBox("Apakah Anda Membatalkan Masuk Program?", vbYesNo + 48)
If nPil
= vbYes Then
End
End If
End Sub
Private Sub cmdOK_Click()
cmdok.Enabled = True
cmdcancel.Enabled = True
If txtuser.Text = "" And txtpas.Text
= "" Then
MsgBox "Selamat Datang,Anda Berhasil
Login", vbInformation + vbOKOnly, "Informasi"
Unload Login
Menu.Show
Menu.Enabled = True
Else
MsgBox ("Maaf Password Salah ! "),
vbInformation + vbOKOnly, "Informasi"
End If
txtuser.Text = ""
txtpas.Text = ""
End Sub
Private Sub Form_Activate()
txtuser.Text = ""
txtpas.Text = ""
txtuser.SetFocus
End Sub
Private Sub txtuser_Change()
End Sub
