Aplikasi Penjualan

Selanjutnya pembuatan Form login

1.Buka module baru seperti gambar dibawah

2. Kita buat koneksi
    Listing Program

1. Imports System.Data.OleDb
3. Module Module1
4.     Public CONN As OleDbConnection
5.     Public CMD As OleDbCommand
6.     Public DS As New DataSet
7.     Public DA As OleDbDataAdapter
8.     Public RD As OleDbDataReader
9.     Public lokasidata As String
11.     Sub koneksi()
12.         lokasidata = "provider=microsoft.jet.oledb.4.0;data source=dbpenjualan.mdb"
13.         CONN = New OleDbConnection(lokasidata)
14.         If CONN.State = ConnectionState.Closed Then
15.             CONN.Open()
16.         End If
17.     End Sub
18. End Module
19. 
    

Selajutnya Klik Dua kali pada Button

Listing Program

1. Imports System.Data.OleDb
2. Public Class login
4.     Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
5.         If Username.Text = "" Or Passwrd.Text = "" Then
6.             MsgBox("Data login belum lengkap")
7.             Exit Sub
8.         Else
9.             Call koneksi()
10.             CMD = New OleDbCommand("select * from tblkasir where nama_kasir='" & Username.Text & "' and pwd_kasir='" & Passwrd.Text & "'", CONN)
11.             RD = CMD.ExecuteReader
12.             RD.Read()
13.             If RD.HasRows Then
14.                 Me.Visible = False
15.                 MenuUtama.Show()
16.             End If
17.         End If
18.     End Sub
20.     Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
21.         Passwrd.PasswordChar = "*"
22.     End Sub
24.     Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesBtnkeluar.Click
25.         End
26.     End Sub
27. End Class

Sebelum Pada tblkasir kita isikan dulu datanya

Hanya bermodal HP android bisa mendapatkan $10 melalui WHAFF