Aplikasi Database: Berbagai Model Login System

Contoh berbagai model desain login system
1. Kode Program untuk membuat Model Login System tanpa database

Public Class LoginForm
    Private Sub LoginForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Hide()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not TextBox1.Text = "pass123" Then
            MsgBox("Invalid Password")
        End If
        If TextBox1.Text = "pass123" Then

            Form2.ShowDialog()
            ListBox1.Show()
        End If
    End Sub
End Class

Tampilan desain form untuk menu login dalam satu form

Jika password yang dimasukkan salah , maka akan muncul peringatan

Jika password yang dimasukkan benar/sesuai ,, maka Lisbox akan ditampilkan .. atau juga bisa untuk memunculkan form 2 , lihat kode program diatas .. .

2. Kode Program untuk membuat Model Login System menggunakan database

Public Class Form1

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click

        txtUsername.Text = ("")

        txtPassword.Text = ("")

    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click

        If txtUsername.Text = "" Or txtPassword.Text = "" Then

            MsgBox("Masukkan username dan password !")

            If txtUsername.Text = "" Then txtUsername.Focus() Else txtPassword.Focus()

            Exit Sub

        End If

        Try

            Dim Source As String = "select * from tblUser where Username ='" & txtUsername.Text & "'"

            Dim strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\db.mdb;"

            Dim Adp As New OleDb.OleDbDataAdapter(Source, strCon)

            Dim DT As New DataTable

            Adp.Fill(DT)

            If DT.Rows.Count > 0 Then

                If DT.Rows(0)("Password") = txtPassword.Text Then

                    MsgBox("Anda berhasil masuk !", MsgBoxStyle.Information)

                    'MASUKKAN KODE LANGKAH SELANJUTNYA DISINI

                    Dim Jendela = New Form2

                    Jendela.Show()

                Else

                    MsgBox("Password anda salah !", MsgBoxStyle.Exclamation)

                    txtPassword.Focus()

                End If

            Else

                MsgBox("Anda tidak terdaftar !", MsgBoxStyle.Critical)

                txtUsername.Focus()

            End If

        Catch ex As OleDb.OleDbException

            MsgBox(ex.Message)

        End Try

    End Sub

End Class 

Tampilan login system menggunakan database , jika username dan passowrd tidak sesuai maka akan muncul peringatan 

Jika username dan password yang dimasukkan benar / sesuai maka akan ada peringatan bahwa anda berhasil masuk  dan diarahkan kebagian form 2 atau form yang akan dituju, terlihat seperti gambar dibawah

---

Silakan tinggalkan pesan, komentar, keluhan dan saran demi kemajuan isi blog: Form Komentar Munculan