Deskripsi Latihan_40A_36110042
A.
Object-object
dalam Latihan_40A_36110042:
1. Object Label
Terdapat satu label (yang bertuliskan data transaksi).
2. Object Button
Terdapat tiga object button (Hapus, Tambah, dan Edit).
Tombol hapus digunakan untuk menghapus data yang dipilih pada datagridview.
Tombol tambah digunakan untuk menambah data barang. Tombol edit digunakan untuk
mengedit barang yang dipilih pada datagridview. Jika tombol tambah atau edit
diklik, makan akan muncul form Latihan_40B_36110042.
3. Object 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.
B.
Script Unique
Untuk script,
silahkan lihat selengkapnya pada Langkah-Langkah
Latihan_40A_36110042.
C.
Even
Isi()
Latihan_40A_36110042_Load
HAPUS_36110042_Click
TAMBAH_36110042_Click
EDIT_36110042_Click
Langkah-Langkah Latihan_40A_36110042
1.
Klik Start lalu pilih Microsoft
Visual Studio 2008.
2.
Lalu akan muncul Start
Page Microsoft Visual Studio 2008.
3.
Pilih Recent Project
“Kumpulan_Latihan_36110042”
4.
Setelah terbuka, pilih icon Add
New Item atau Ctrl+Shift+A
5.
Akan terbuka jendela Add New
Item seperti di bawah ini, pilih template “Windows Form” dan beri nama “Latihan_40A_36110042”
6. Kemudian buat form sesuai dengan form
di bawah ini.
7. Berikut ini adalah rumus untuk
menjalankan form di atas.
Public Class Latihan_40A_36110042
Dim bridgeRara As
New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=
" & Application.StartupPath & "\datamajemuk.accdb;Jet
OLEDB:Database Password=26")
Dim tabelRara1 As
New DataTable
Dim tabelRara2 As
New DataTable
Dim setRara As
New DataSet
Dim Binding As
New BindingSource
Dim Binding2 As
New BindingSource
Public Sub
Isi()
Dim
truckRara As New
OleDb.OleDbDataAdapter
tabelRara2.Rows.Clear()
tabelRara1.Rows.Clear()
truckRara = New
OleDb.OleDbDataAdapter("Select * "
& _
"From
MASTERTRANSAKSI", bridgeRara)
truckRara.Fill(tabelRara1)
truckRara = New
OleDb.OleDbDataAdapter("Select NOTRANS,
DETAILTRANSAKSI.KODEBARANG, NAMABARANG, HARGA, UNIT, UNIT * HARGA As JUMLAH
" & _
"From
DETAILTRANSAKSI Inner Join BARANG on DETAILTRANSAKSI.KODEBARANG =
BARANG.KODEBARANG", bridgeRara)
truckRara.Fill(tabelRara2)
truckRara.Dispose()
End Sub
Private Sub
Latihan_40A_3611004a_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
Isi()
DGV1_36110042.DataSource = tabelRara1
DGV2_36110042.DataSource = tabelRara2
setRara.Tables.Add(tabelRara1)
setRara.Tables.Add(tabelRara2)
tabelRara1.TableName = "Induk"
tabelRara2.TableName = "Sub"
setRara.Relations.Add(New DataRelation("Relasi",
setRara.Tables("Induk").Columns("NOTRANS"), setRara.Tables("Sub").Columns("NOTRANS")))
Binding.DataSource = setRara
Binding.DataMember = "Induk"
Binding2.DataSource = Binding
Binding2.DataMember = "Relasi"
DGV1_36110042.DataSource = Binding
DGV2_36110042.DataSource = Binding2
End Sub
Private Sub
HAPUS_36110042_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles HAPUS_36110042.Click
Dim
truckRara As New
OleDb.OleDbCommand
truckRara = New
OleDb.OleDbCommand("Delete * From
MASTERTRANSAKSI Where NOTRANS = '" &
DGV1_36110042.CurrentRow.Cells("NOTRANS").Value
& "'", bridgeRara)
If
MsgBox("Apakah Anda Yakin Menghapusnya?",
MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
bridgeRara.Open()
truckRara.ExecuteNonQuery()
truckRara = New OleDb.OleDbCommand("Delete *
From DETAILTRANSAKSI Where NOTRANS = '" &
DGV1_36110042.CurrentRow.Cells("NOTRANS").Value
& "'", bridgeRara)
truckRara.ExecuteNonQuery()
bridgeRara.Close()
truckRara.Dispose()
End If
Isi()
End Sub
Private Sub
TAMBAH_36110042_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TAMBAH_36110042.Click
If
Latihan_40B_36110042.Visible = False Then
Latihan_40B_36110042.Show()
Else
Latihan_40B_36110042.Activate()
Latihan_40B_36110042.WindowState =
FormWindowState.Normal
Latihan_40B_36110042.NOLAMA_36110042.Text = "-"
End If
Latihan_40B_36110042.NO_36110042.Text =
""
Latihan_40B_36110042.JENIS_36110042.Text
= ""
Latihan_40B_36110042.TOTAL_36110042.Text = ""
Latihan_40B_36110042.SelectData()
Latihan_40B_36110042.Hitung()
End Sub
Private Sub
EDIT_36110042_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles EDIT_36110042.Click
If
Latihan_40B_36110042.Visible = False Then
Latihan_40B_36110042.Show()
Else
Latihan_40B_36110042.Activate()
Latihan_40B_36110042.WindowState =
FormWindowState.Normal
End If
Latihan_40B_36110042.NO_36110042.Text =
DGV1_36110042.CurrentRow.Cells("NOTRANS").Value
Latihan_40B_36110042.NOLAMA_36110042.Text =
DGV1_36110042.CurrentRow.Cells("NOTRANS").Value
Latihan_40B_36110042.JENIS_36110042.Text =
DGV1_36110042.CurrentRow.Cells("JENISTRANSAKSI").Value
Latihan_40B_36110042.SelectData()
Latihan_40B_36110042.Hitung()
End Sub
End Class
8. Setelah itu, jalankan
programnya dengan klik Icon
Start Debugging kemudian akan mucul form navigator dan klik Latihan 40.
Tidak ada komentar:
Posting Komentar