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 :
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 :
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.
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.
Sumber : Mesran.net
