Pemrograman Jaringan: Form Data Barang

• Buat folder PEMROGRAMAN JARINGAN
• Aktifkan Program Visual Basic .Net
• Klik menu File ⇒ New Project
• Ketik PRINV pada kotak Name
• Klik tombol OK
• Klik tempat kosong pada area Form
• Klik propertie Name
• Ketik FORMBARANG
• Klik menu File ⇒ Save All
• Klik tombol Browse
• Tentukan folder lokasi penyimpanan file proyek (PEMROGRAMAN JARINGAN)
• Klik tombol Select Folder
• Klik tombol Save
• Buat desain Form Barang di bawah ini
• Buat database MS Access DBINV.MDB pada folder PEMROGRAMAN JARINGAN\ PRINV\PRINV\BIN\DEBUG
• Buat struktur tabel berikut
• Simpan table dengan nama BARANG
• Tutup program MS Access
• Kembali ke Form Barang
• Ketik kode program di bawah ini

Imports System.Data
Imports System.Data.OleDb

Public Class FORMBARANG
	Public SQLSTR As String
	Public KONEKSI As New OleDb.OleDbConnection
	Public CMD As New OleDb.OleDbCommand
	Public DABRG As New OleDb.OleDbDataAdapter
	Public DTBRG As New DataTable
	Public KONEKSISTRING As String
	Public LOKASI As String
	Private Sub FORMBARANG_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
		LOKASI = System.Environment. Current Directory
		KONEKSISTRING = "PROVIDER = MICROSOFT.JET.OLEDB.4.0;DATA SOURCE =" & LOKASI & "\DBINV.MDB"
		KONEKSI = New OleDb.OleDbConnection (KONEKSISTRING)
		KONEKSI.Open()
	End Sub

	Sub BLANKFORM ()
		TXTKODEBRG.Text = " "
		TXTNAMABRG.Text = " "
		TXTHRGBELI.Text = 0
		TXTHRGJUAL.Text = 0
		TXTJMLAWAL.Text = 0
		TXTKODEBRG. Focus()
	End Sub

	Sub DGV ()
		SQLSTR= "SELECT * FROM BARANG"
		DABRG = New OleDb.OleDbDataAdapter (SQLSTR, KONEKSI)
		DTBRG.Clear()
		DABRG.Fill(DTBRG)
		DGVBRG.DataSource = DTBRG
	End Sub

	Private Sub FORMBARANG_Activated (ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.
	BLANKFORM ()
	DGV ()
	End Sub