Membuat Form Login Multi User dengan Visual Basic Access

Dalam pembuatan aplikasi Anda pasti bersentuhan dengan form login. Form login digunakan sebagai pintu masuk ke program. Melalui form login ini Anda dapat mengatur keamanan data, maupun perbedaan menu pada aplikasi multiuser. Pada aplikasi dengan multiuser bisa dibuat menu administrasi user. Jadi bisa ditentukan user mana berada pada pada grup atau level mana. Dengan mengelompokkan user pada level tertentu Anda dapat menentukan menu mana saja yang bisa diaktifkan oleh level tertentu misalnya: level operator, supervisor atau administrator. dari tabel di atas anda dapat membuat kode login dengan visual basic. Anda dapat melakukan cek username dan password sekaligus menentukan user pada level mana. Anda bisa menggunakan  perintah DML sql  untuk mencek user. Setelah Anda faham menggunakan perintah SQL langsung di database nya anda bisa menggunakan perintah tersebut dengan Visual Basic. Jika Anda belum meahami bagaimana prosesing data dengan visual basic Anda bisa baca artikel saya yang ini Membuat Aplikasi Database dengan VB.NET Di bawah ini adalah kode lengkapnya: Kode pada MainForm (form1): Public Class MainForm     Private Sub MainForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load         loginForm.ShowDialog()     End Sub End Class

Di bawah ini adalah kode pada loginForm: Imports System.Data.OleDbPublic Class loginForm    Private sConn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _ Application.StartupPath & "\dataloginku.accdb" & _ ";Persist Security Info=False;" Private oConn As New OleDb.OleDbConnection(sConn) Private oDS As New DataSetPrivate oTbl As New DataTable Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnCancel.Click         End     End Sub     Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnLogin.Click          Dim sql As String = "SELECT * FROM UserLogin WHERE UserName='" & txtUserName.Text & "' AND Password='" & txtPassword.Text & "'"       Dim oDa As New OleDbDataAdapter(sql, sConn)         oDa.Fill(oDS)         oTbl = oDS.Tables(0)         If oTbl.Rows.Count > 0 Then             MsgBox("Login '" & oTbl.Rows(0).Item(1) & "'  sukses  -  User level '" & oTbl.Rows(0).Item(3) &"'", vbInformation)             Me.Dispose()         Else             MsgBox("User Name atau Password Salah!", MsgBoxStyle.Critical, "Error")         End If      End SubEnd Class

Bagikan Artikel ini