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: 
