Tuesday, January 3, 2012 Form Login Sederhana dengan Visual Basic 6

Gambar di bawah ini merupakan sebuah form login user sederhana yang di buat dengan menggunakan bahasa pemrograman Visual Basic 6,

Nah,,,, di bawah ini adalah source code dari Form login diatas....

Private Sub btn_masuk_Click()

    If  txt_usernm.Text = ""  Then

        MsgBox "Anda belum Masukkan nama", vbInformation + vbOKOnly, ".:: Informasi ::."

        txt_usernm.SetFocus

       

    ElseIf  txt_psswrd.Text = ""  Then

       

        MsgBox "Anda belum Masukkan Password", vbInformation + vbOKOnly, ".:: Informasi ::."

        txt_psswrd.SetFocus

       

    ElseIf (txt_usernm.Text <> "haris") Or (txt_psswrd.Text <> "dcc") Then

        MsgBox "Nama atau Password anda salah !", vbInformation + vbOKOnly, ".:: Warning ! ::."

        txt_usernm.SetFocus

        btn_masuk.Enabled = True

    Else

        MsgBox "Berhasil Masuk", , ".:: Informasi ::."      

    End If

End Sub

Private Sub Form_Load()

txt_usernm.Text = ""

txt_psswrd.Text = ""

End Sub

Private Sub btn_btal_Click()

End

End Sub