MEMBUAT LOGIN DENGAN VB NET 2010

                                               MEMBUAT LOGIN DENGAN VB NET 2010

 

DENGAN SCRIPT NYA SEPERTI DI BAWAH INI

 

3 LABEL,2 BUTTON,2 TEXT BOX

txtuser,txtpass,btnlogin,btnkeluar

Public Class FormLogin

    Private Sub FormLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtuser.Focus()
        txtpass.UseSystemPasswordChar = True
    End Sub

    Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
        If txtuser.Text = "" And txtpass.Text = "" Then
            MsgBox("USername dan Paswprd tidak boleh kosong !!!", MsgBoxStyle.Exclamation, "Isi Username dan Pasword")
        ElseIf txtuser.Text = "Admin" And txtpass.Text = "12345" Then
            MsgBox("Login Berhasil !!!", MsgBoxStyle.Information, "Akes Berhasil")
            FormMenUtama.Show()
            Me.Hide()
        Else
            MsgBox("Kombinasi Username dan Password Salah !!!", MsgBoxStyle.Critical, "Cek Username dan Passeord")
        End If
    End Sub
End Class