Deskripsi Form Latihan_26b_46110003
Dalam
form Latihan_26b_46110003 hanya terdapat Object Label, Object TextBox, dan Object
DataGridView.
Object Label
Terdapat 5 label yaitu "Detail Transaksi", "kode barang", "nama barang", "harga jual", dan "jumlah barang".
Object TextBox
Terdapat 6 obejct textbox yang berstatus input yang digunakan untuk menampilkan kode barang, nama barang, harga jual, dan jumlah barang dari daftar barang yang dipilih pada form Latihan_26a_46110003, dan juga untuk menampilkan jumlah pada textbox total unit dan total.
Object DataGridView
Terdapat 1 object datagridview yang digunakan untuk menampilkan detail transaksi dari form Latihan_26a_46110003.
Script Unique
Tidak ada Script unique pada latihan ini karena perintah scriptny sudah ada pada latihan sebelumnya.
Even
Load
Langkah-langkah Penyelesaian
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_26b_46110003
Dim koneksi
As New
OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data
source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim meong As New DataTable
Public Sub sup(ByVal A As String)
Dim
adapter As New
OleDb.OleDbDataAdapter
Dim
amal As String
amal = "SELECT
MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI,
MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN,
DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA,
[DETAILTRANSAKSI]![UNIT]*[DETAILTRANSAKSI]![HARGA] AS JUMLAH FROM
DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS =
MASTERTRANSAKSI.NOTRANS WHERE KODEBARANG = '" & A & "'"
adapter = New
OleDb.OleDbDataAdapter(amal, koneksi)
adapter.Fill(meong)
Dim
maulana As Integer
= 0
Dim
ahmad As Integer
= 0
For Each row As DataRow In meong.Rows
maulana += row("Unit")
ahmad += row("Jumlah")
Next
TU46110003.Text = maulana
tot46110003.Text = ahmad
End Sub
Private Sub Latihan_26b_46110003_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
dgv46110003.DataSource = meong
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
0 komentar:
Posting Komentar