PEMROGRAMAN VB.NET
Koneksi Ke Database
Hal : 1
MEMBUAT DATABASE Buat sebuah aplikasi / project dengan nama AplikasiPenjualan. Buat sebuah database dengan nama Penjualan.accdb. dan buatlah tabel Barang dengan struktur tabel :
Simpan/pindahkan database kedalam folder : Project Bin Debug Agar database langsung terbaca ketika program dijalankan maka database harus diletakkan dalam folder debug. Hal ini pengaruh dari code program dalam Module : “Application.StartupPath” Elly Yanuarti , M.Kom
FIELD
DATA TYPE
KDBRG
TEXT
NMBRG
TEXT
SATUAN
TEXT
HRGSAT
CURRENCY
STOK
NUMBER
2
1
MEMBUAT FORM UTAMA
Desainlah FormUtama seperti berikut dan simpan dengan nama FormUtama.vb
Elly Yanuarti , M.Kom
3
MEMBUAT MODULE Untuk menambah Module Klik kanan pada Project lalu pilih Add Module Atau klik menu Project Add Module
Elly Yanuarti , M.Kom
4
2
MEMBUAT KONEKSI DATABASE PADA MODULE
Ketiklah perintah berikut : Module Module1 Public koneksi As String = "provider=microsoft.Ace.OLEDB.12.0 ; Data Source=" & Application.StartupPath & "\Penjualan.accdb;" Public conn As OleDb.OleDbConnection End Module
Elly Yanuarti , M.Kom
5
MEMBUAT KONEKSI DATABASE PADA FORM UTAMA Imports System.Data.OleDb Imports System.Data Public Class FormUtama Private Sub FormUtama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try conn = New OleDbConnection(koneksi) conn.Open() MessageBox.Show("Koneksi Sukses") Catch ex As Exception MessageBox.Show("Koneksi Gagal") MsgBox(ex.Message) Me.Dispose() End Try End Sub End Class Elly Yanuarti , M.Kom
6
3
MEMBUAT KONEKSI DATABASE
Jalankan Program, jika benar maka akan tampil MessageBox.
Elly Yanuarti , M.Kom
7
MEMBUAT RANCANGAN LAYAR FORM BARANG
Tambahkan sebuah Form lalu simpan dengan nama FormBarang.vb
Elly Yanuarti , M.Kom
8
4
PEMROGRAMAN VB.NET
Sintaks Pada Class
Hal : 9
MEMBUAT CLASS BARANG Tambahkan sebuah class dengan cara Klik kanan pada Project lalu pilih Add Class Atau klik menu Project Add Class Simpan dengan nama clsBarang Tambahkan code untuk menambahkan attribute Tambahkan code untuk mendefinisikan dirinya sebagai field (method properti)
Elly Yanuarti , M.Kom
10
5
Imports System.Data.OleDb Imports System.Data Public Class clsBarang #Region "Variabel" Private xkdbrg As String Private xnmbrg As String Private xsatuan As String Private xhrgsat As Integer Private xstok As Integer #End Region #Region "Property" Public Property kdbrg() As String Get Return xkdbrg End Get Set(ByVal value As String) xkdbrg = value End Set End Property (tambahkan property nmbrg, satuan, hrgsat dan stok) #End Region Elly Yanuarti , M.Kom
11
TAMBAHKAN METHOD “SIMPAN”
Tambahkan deklarasi variabel yang akan digunakan pada method simpan dan letakkan pada area/Region “Variabel” Dim query As String = “ ” Dim cmd As OleDbCommand
Tambahkan method simpan, ubah dan hapus dan ketik perintah berikut : #Region "Method" Public Function Simpan( ) As Integer query = "INSERT INTO BARANG (KDBRG,NMBRG,SATUAN,HRGSAT,STOK) " & _ "VALUES('" & xkdbrg & "','" & xnmbrg & "','" & xsatuan & "','" & xhrgsat & "', '" & xstok & "')" cmd = New OleDbCommand(query, conn) Return cmd.ExecuteNonQuery End Function #End Region Elly Yanuarti , M.Kom
12
6
TAMBAHKAN METHOD “UBAH” DAN METHOD “HAPUS” Public Function Ubah(ByVal varkdbrg As String) As Integer query = "UPDATE BARANG SET NMBRG = '" & xnmbrg & "', SATUAN='" & xsatuan & "', HRGSAT= '" & xhrgsat & "', STOK= '" & xstok & "'" & _ "WHERE KDBRG = '" & varkdbrg & "'" cmd = New OleDbCommand(query, conn) Return cmd.ExecuteNonQuery End Function Public Function Hapus(ByVal varkdbrg As String) As Integer query = "DELETE FROM BARANG WHERE KDBRG = '" & varkdbrg & "'" cmd = New OleDbCommand(query, conn) Return cmd.ExecuteNonQuery End Function #End Region
Elly Yanuarti , M.Kom
13
TAMBAHKAN METHOD “AUTOCODE”
Tambahkan deklarasi variabel yang akan digunakan pada method AutoKode dan letakkan pada area/Region “Variabel” Dim baca As OleDbDataReader Dim strtemp As String = "" Dim strvalue As String Dim no As Integer
Elly Yanuarti , M.Kom
14
7
SINTAKS KODE BARANG OTOMATIS #Region "Other Method" Public Sub AutoKode( ) query = "SELECT * FROM BARANG ORDER BY KDBRG DESC" cmd = New OleDbCommand(query, conn) baca = cmd.ExecuteReader If baca.Read Then strtemp = Mid(baca.Item("KDBRG"), 2, 3) Else xkdbrg = "B001" If baca.IsClosed = False Then baca.Close() Exit Sub End If strvalue = Val(strtemp) + 1 xkdbrg = Mid("B000", 1, 4 - strvalue.Length) & strvalue If baca.IsClosed = False Then baca.Close() End Sub Elly Yanuarti , M.Kom
15
TAMBAHKAN METHOD “TAMPILLIST” Public Sub TampilList( ) no = 1 cmd = New OleDbCommand("SELECT * FROM BARANG ORDER BY KDBRG ASC", conn) baca = cmd.ExecuteReader FormBarang.ListView1.Items.Clear() While baca.Read FormBarang.ListView1.Items.Add((no).ToString) FormBarang.ListView1.Items(no - 1).SubItems.Add(baca.Item("KDBRG").ToString) FormBarang.ListView1.Items(no - 1).SubItems.Add(baca.Item("NMBRG").ToString) FormBarang.ListView1.Items(no - 1).SubItems.Add(baca.Item("SATUAN").ToString) FormBarang.ListView1.Items(no - 1).SubItems.Add(baca.Item("HRGSAT").ToString) FormBarang.ListView1.Items(no - 1).SubItems.Add(baca.Item("STOK").ToString) no = no + 1 End While cmd.Dispose() baca.Close() End Sub #End Region Elly Yanuarti , M.Kom
16
8
PEMROGRAMAN VB.NET
Sintaks Pada Form Master
Hal : 17
MEMBUAT FUNCTION “KOSONG”
Tambahkan sebuah function pada FormBarang seperti berikut : Public Class FormBarang Dim ObjB As New clsBarang Private Sub kosong( ) ObjB.AutoKode( ) txtKdBrg.Text = ObjB.kdbrg txtKdBrg.Enabled = False txtNmBrg.Text = "" txtSatuan.Text = "" txtHrgSat.Text = "" txtStok.Text = "" txtNmBrg.Focus( ) ObjB.TampilList( ) btnSimpan.Enabled = True End Sub
Elly Yanuarti , M.Kom
18
9
MEMANGGIL FUNCTION “KOSONG”
Tambahkan code pada form barang untuk menampilkan data yang sudah tersimpan. Private Sub FormBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call kosong() End Sub
Elly Yanuarti , M.Kom
19
SINTAKS TOMBOL “SIMPAN”
Double click pada tombol simpan lalu ketik perintah berikut : Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click ObjB.kdbrg = txtKdBrg.Text ObjB.nmbrg = txtNmBrg.Text ObjB.satuan = txtSatuan.Text ObjB.hrgsat = txtHrgSat.Text ObjB.stok = txtStok.Text ObjB.Simpan() Call kosong() End Sub
Elly Yanuarti , M.Kom
20
10
SINTAKS TOMBOL “UBAH”
Double click pada tombol Ubah lalu ketik perintah berikut : Private Sub btnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUbah.Click ObjB.nmbrg = txtNmBrg.Text ObjB.satuan = txtSatuan.Text ObjB.hrgsat = txtHrgSat.Text ObjB.stok = txtStok.Text ObjB.Ubah(txtKdBrg.Text) kosong( ) End Sub
Elly Yanuarti , M.Kom
21
SINTAKS TOMBOL “HAPUS”
Double click pada tombol hapus lalu ketik perintah berikut : Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click Dim pesan As MsgBoxResult pesan = MsgBox("Yakin Akan Menghapus Data ?", MsgBoxStyle.YesNo + 32, "Penting !!") If pesan = MsgBoxResult.Yes Then ObjB.Hapus(txtKdBrg.Text) kosong( ) End If End Sub
Elly Yanuarti , M.Kom
22
11
SINTAKS TOMBOL “BATAL” DAN TOMBOL “KELUAR”
Double click pada tombol Batal lalu ketik perintah berikut : Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click Call kosong( ) End Sub
Double click pada tombol Keluar lalu ketik perintah berikut : Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click Close( ) End Sub
Elly Yanuarti , M.Kom
23
MENAMPILKAN DATA BARANG YANG SUDAH ADA
Double click pada listview lalu ketik perintah berikut : Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged txtKdBrg.Text = ListView1.FocusedItem.SubItems(1).Text txtNmBrg.Text = ListView1.FocusedItem.SubItems(2).Text txtSatuan.Text = ListView1.FocusedItem.SubItems(3).Text txtHrgSat.Text = ListView1.FocusedItem.SubItems(4).Text txtStok.Text = ListView1.FocusedItem.SubItems(5).Text txtKdBrg.Enabled = False txtNmBrg.Focus( ) btnSimpan.Enabled = False End Sub
Elly Yanuarti , M.Kom
24
12
