MEMBUAT MENU LOGIN DI VISUAL BASIC 2008

MEMBUAT MENU LOGIN DI VISUAL BASIC 2008 DENGAN  MICROSOFT  ACCES

• Buat  data   batabase di Microsoft  acces  dengan nama (dbpenjualan) 
•  Buat table save dengan nama (tblkasir)
• Seperti dibawah

 

•  Desain  form login seperti  dibawah

 

DAN INI  LISTING PROGRAMNYA

1. Imports System.Data.OleDb
2.  
3. Public Class Login
4.  
5.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
6.         If TextBox1.Text = "" Or TextBox2.Text = "" Then
7.             MsgBox("Data login belum legkap")
8.             Exit Sub
9.         Else
10.             Call koneksi()
11.             CMD = New OleDbCommand("select * from tblkasir where nama_kasir='" & TextBox1.Text & "' and pwd_kasir='" & TextBox2.Text & "'", CONN)
12.             RD = CMD.ExecuteReader
13.             RD.Read()
14.             If RD.HasRows Then
15.                 Me.Visible = False
16.                 Menu_Utama.Show()
17.                 Menu_Utama.Panel1.Text = RD.Item("kode_kasir")
18.                 Menu_Utama.Panel2.Text = RD.Item("nama_kasir")
19.                 Menu_Utama.Panel3.Text = RD.Item("status_kasir")
20.                 If Menu_Utama.Panel3.Text <> "admin" Then
21.                     Menu_Utama.KasirToolStripMenuItem.Enabled = False
22.  
23.                 Else
24.                     Menu_Utama.KasirToolStripMenuItem.Enabled = True
25.  
26.                 End If
27.             Else
28.                 MsgBox("Password Salah")
29.             End If
30.         End If
31.     End Sub
32.  
33.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
34.         Me.Close()
35.     End Sub
36.  
37.  
38. End Class

Read more »