Program Form Login Ke Aplikasi Menggunakan Username dan Password Di Database Menggunakan VB Net

Apakah aplikasi anda sudah menggunakan form login? Form login tentu sangat berguna pada aplikasi yang berhubungan dengan database. Berikut ini akan saya berikan contoh program login yang menggunakan username dan password yang tersimpan pada database.

Untuk yang pertama buatlah tabel pemakai di database yang sudah anda gunakan. Database yang dicontohkan disini yaitu database Microsoft Access. Strukturnya bisa seperti berikut :

Nama Tabel : Pemakai
Field
1. namauser  type text
2. passuser  type text
Isikan beberapa record pada tabel Pemakai tersebut.


Nah silahkan anda rancang form berikut ini :


Adapun program form login ke aplikasi menggunakan username dan password di database menggunakan VB Net, berikut ini :

Imports System.Data.OleDb

Public Class Form1
    Dim kesempatan As Byte
    Public DB As OleDbConnection
    Public CMD As OleDbCommand
    Public DR As OleDbDataReader
    Public SQL As String


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim LOKASI = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\BPC.mdb"
        DB = New OleDbConnection(LOKASI)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If

        Password.PasswordChar = "*"
        kesempatan = 0
    End Sub

    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        'PADA PERINTAH SELEC TAMBAH HURUF T sehingga MENJADI SELECT
    SQL = "SELEC * FROM pemakai Where namauser='" & Username.Text & "' and passuser='" & Password.Text & "'"
        CMD = New OleDbCommand(Sql, DB)
        DR = CMD.ExecuteReader
        DR.Read()
        If DR.HasRows = True Then
            MsgBox("Selamat Datang", MsgBoxStyle.Information, "Login Success")
            Me.Hide()
            'FormMenu.Show()         
        Else
            MsgBox("Maaf !, Password anda salah !", MsgBoxStyle.Information, "Login Gagal")
            Username.Text = ""
            Password.Text = ""
            Username.Focus()
            kesempatan = kesempatan + 1
            If kesempatan >= 3 Then
                MsgBox("Maaf !, Anda sudah " & kesempatan & " kali salah !", MsgBoxStyle.Information, "Login Gagal")
                End
            End If
        End If
        DR.Close()
    End Sub
End Class
Pada program form login ke aplikasi menggunakan username dan password di database menggunakan VB Net tersebut terlihat tidak terdapat username maupun password yang didefinisikan, hal ini dikarenakan username dan password tersimpan pada database BPC.MDB di tabel Pemakai.

Demikianlah program form login ke aplikasi menggunakan username dan password di database menggunakan VB Net

Sumber: