Scribd
Upload
41 views3 pages

Login Form Code in VB.NET

This document contains code for a login program in Visual Basic. It defines functions for connecting to a database, validating login credentials, and opening or restricting access to a menu form depending on the user's status. When the login button is clicked, it checks the database for a matching username and password. If valid, it shows the menu form and either enables all menu items for administrators, or restricts access for regular users. It also contains functions for clearing fields on invalid login and canceling the login process.

Uploaded by

Rona Veriansyah
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
41 views3 pages

Login Form Code in VB.NET

This document contains code for a login program in Visual Basic. It defines functions for connecting to a database, validating login credentials, and opening or restricting access to a menu form depending on the user's status. When the login button is clicked, it checks the database for a matching username and password. If valid, it shows the menu form and either enables all menu items for administrators, or restricts access for regular users. It also contains functions for clearing fields on invalid login and canceling the login process.

Uploaded by

Rona Veriansyah
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 3

Layout program login

Listing program login

Imports System.Data.OleDb
Public Class FormLogin
Dim con As OleDbConnection
Dim da As OleDbDataAdapter
Dim rd As OleDbDataReader
Dim ds As DataSet
Dim cmd As OleDbCommand
Dim lokasi As String

'======================================
'Created by : Kaman jaya
'copyright@kaman jaya
'======================================
Private Sub koneksi()
str = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\
Training\Training.accdb"
con = New OleDbConnection(str)
If con.State = ConnectionState.Closed Then
con.Open()
End If
End Sub

Private Sub btnlogin_Click(ByVal sender As System.Object,


ByVal e As System.EventArgs) Handles btnlogin.Click
Koneksi()
cmd = New OleDbCommand("select NamaPetugas,Status,Kunci
from TblPetugas where Kunci='" & TextBox5.Text & "' and
NamaPetugas='" & TextBox1.Text & "'", con)
rd = cmd.ExecuteReader()
rd.Read()
If rd.HasRows = True Then
If rd.Item("Status") = "Admin" Then
FormMenuUtama.Show()
bukamenu()
Else
FormMenuUtama.Show()
tutupmenu()
Me.Hide()
End If
Else
MsgBox("Data salah")
bersihlayar()
TextBox1.Focus()
End If

End Sub
Sub bukamenu()
FormMenuUtama.LoginToolStripMenuItem.Enabled = True
FormMenuUtama.KeluarToolStripMenuItem.Enabled = True
FormMenuUtama.InputDataToolStripMenuItem.Enabled = True
FormMenuUtama.PetugasToolStripMenuItem.Enabled = True
FormMenuUtama.MultiDataToolStripMenuItem.Enabled = True
End Sub
Sub tutupmenu()
FormMenuUtama.DataToolStripMenuItem.Enabled = False

End Sub

Sub bersihlayar()
TextBox1.Text = ""
TextBox5.Text = ""

End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btnCancel.Click
Dim batal As String
batal = MsgBox("yakin mau keluar ?",
MsgBoxStyle.OkCancel)
If batal = vbOK Then

Me.Close()
'Me.Dispose()

End If
End Sub

Private Sub FormLogin_Load(ByVal sender As System.Object,


ByVal e As System.EventArgs) Handles MyBase.Load
Koneksi()
End Sub

End Class

You might also like