DESKRIPSI LATIHAN 40A
Terdapat tiga object yaitu Label, Button dan DataGridView
Object
Label
Terdapat satu object Label yaitu judul form yang bertuliskan DATA
TRANSAKSI
Object
Button
Terdapat tiga object button yaitu
HAPUS, TAMBAH, EDIT
DataGridView
Terdapat dua
object datagridview. Datagridview1 digunakan untuk menampilkan data notrans,
tanggal transaksi, dan jenis transaksi. Datagridview2 digunakan untuk
menampilkan notrans, kode barang, nama barang, harga, unit, dan jumlah.
Script
Unique
Dim
ADAPTER As New
OleDb.OleDbDataAdapter
tabel2.Rows.Clear()
tabel1.Rows.Clear()
ADAPTER = New
OleDb.OleDbDataAdapter("select * from
mastertransaksi", CONECT)
Even
ADY()
latihan_40A_36110043_Load
hapus_36110043_Click
tambah_36110043_Click
edit_36110043_Click
LANGKAH-LANGKAH
1.
BUKA
Microsoft Visual Studio 2008 dengan Klik star lalu pilih Microsoft
Visual Studio 2008
2.
Click icon "Add new Item"
3.
pilih Windows Form,
lalu isi Name dengan Nama Latihan._40A_36110043 dan click add
4.
Buat design Form sesuai dengan Form
diatas {gunakan object-object di dalam ToolBox dan lihat deskripsi latihan
ini.}
5.
Ganti nama setiap object kecuali
Label menggunakan "Properties Window"
6.
Klik 2x pada design form yang telah
dibuat untuk membuka lembar Scripnya.
Masukkkan Scrip di bawah ini..
Public Class latihan_40A_36110043
Dim daset As New DataSet
Dim tabel1 As New DataTable
Dim tabel2 As New DataTable
Dim BS1 As New BindingSource
Dim BS2 As New BindingSource
Dim CONECT As New
OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data
source= M:\Apkom4\LATIHAN 35-40 DATA
MAJEMUK\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=43")
Public Sub ADY()
Dim
ADAPTER As New
OleDb.OleDbDataAdapter
tabel2.Rows.Clear()
tabel1.Rows.Clear()
ADAPTER = New
OleDb.OleDbDataAdapter("select * from
mastertransaksi", CONECT)
ADAPTER.Fill(tabel1)
ADAPTER = New
OleDb.OleDbDataAdapter("select
detailtransaksi.notrans, barang.kodebarang, barang.namabarang,
detailtransaksi.unit, detailtransaksi.harga, detailtransaksi.unit*harga as
jumlah from barang inner join detailtransaksi on barang.kodebarang =
detailtransaksi.kodebarang", CONECT)
ADAPTER.Fill(tabel2)
End Sub
Private Sub latihan_40A_36110043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
ADY()
daset.Tables.Add(tabel1)
daset.Tables.Add(tabel2)
tabel1.TableName = "r1"
tabel2.TableName = "r2"
daset.Relations.Add(New DataRelation("an",
daset.Tables("r1").Columns("notrans"), daset.Tables("r2").Columns("notrans")))
BS1.DataSource = daset
BS1.DataMember = "r1"
BS2.DataSource = BS1
BS2.DataMember = "an"
Dim
dc(1) As DataColumn
dc(0) = tabel1.Columns("notrans")
tabel1.PrimaryKey = dc
dgv1_36110043.DataSource = BS1
dgv2_36110043.DataSource = BS2
End Sub
Private Sub hapus_36110043_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapus_36110043.Click
Dim cm As New
OleDb.OleDbCommand
cm = New
OleDb.OleDbCommand("delete * from
mastertransaksi where notrans = '" &
dgv1_36110043.CurrentRow.Cells("notrans").Value
& "'", CONECT)
CONECT.Open()
cm.ExecuteNonQuery()
CONECT.Close()
cm = New
OleDb.OleDbCommand("delete * from
detailtransaksi where notrans = '" &
dgv1_36110043.CurrentRow.Cells("notrans").Value
& "'", CONECT)
CONECT.Open()
cm.ExecuteNonQuery()
CONECT.Close()
cm.Dispose()
ADY()
End Sub
Private Sub tambah_36110043_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles tambah_36110043.Click
If
latihan_40B_36110043.Visible = False Then
latihan_40B_36110043.Show()
Else
latihan_40B_36110043.Activate()
End If
latihan_40B_36110043.NT_36110043.Text =
""
latihan_40B_36110043.JT_36110043.Text =
""
latihan_40B_36110043.kode_36109003.Text
= "-"
latihan_40B_36110043.ADY2()
latihan_40B_36110043.ADY3()
End Sub
Private Sub edit_36110043_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles edit_36110043.Click
If
latihan_40B_36110043.Visible = False Then
latihan_40B_36110043.Show()
Else
latihan_40B_36110043.Activate()
End If
latihan_40B_36110043.NT_36110043.Text =
dgv1_36110043.CurrentRow.Cells("notrans").Value
latihan_40B_36110043.TGL_36110043.Value
= dgv1_36110043.CurrentRow.Cells("tanggaltransaksi").Value
latihan_40B_36110043.JT_36110043.Text =
dgv1_36110043.CurrentRow.Cells("jenistransaksi").Value
latihan_40B_36110043.kode_36109003.Text
= dgv1_36110043.CurrentRow.Cells("notrans").Value
latihan_40B_36110043.ADY2()
latihan_40B_36110043.ADY3()
End Sub
End Class
Next … save dan untuk menjalankan
klik star debugging
