Wednesday 2 December 2015

listing program untuk masuk pada admin di vb 2006

Private Sub Command1_Click()
If Len(Me.Text1.Text) = 0 Then
    MsgBox "ERROR ..!! CLICK OPTION ADMIN, ISIKAN NAMA ANDA...!", vbOKOnly + vbCritical, "pesan kesalahan"
    'Me.Text1.SetFocus
    Exit Sub
End If
    If Me.Option1.Value = True Then
        If Me.Text1.Text = "user" And Me.Text2.Text = "password" Then
            Unload Me
            Frm_Menu.Show
        Else
            MsgBox "ERROR ..! Pengisian PASSWORD! Anda Salah ...!!", vbOKOnly, "perhatian"
            'Me.Text1.SetFocus
        End If
    Else
        Unload Me
        Frm_Menu.Show
    End If


End Sub

ket:
user: isi dengan nama user anda inginkan
password : dengan password yg anda inginkan
MASUKAN LISTING INI DI TOMBOL LOGIN PADA ADMIN
Posted by at
Labels:

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)