latihan_26B_46110004

Deskripsi form latihan 26B
Dalam form Latihan 26B hanya terdapat tiga object yaitu DataGriedView, Label dan Textbox

Object datagridview :
Dalam form ini terdapat 2 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Object Label :
Dalam form ini terdapat 5 buah object label yang bertuliskan Detail Transaksi, Kode Barang, Nama Barang, Harga jual dan Jumlah Barang.

Object Textbox :
Dalam form ini terdapat 4 buah object textbox yang berada masing-masing di sebelah kanan label bernama Kode Barang, Nama Barang, Harga jual dan Jumlah Barang . Textbox ini berfungsi untuk menampilkan detail transaksi dari data yang ada di latihan 26A

Script Unique :
Script yang digunakan sama dengan script latihan sebelum-sebelumnya.

Langkah-langkah penyelesaian form latihan 26B

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_26B_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :
Public Class latihan_26B_46110004
    Dim jembatan As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable

    Public Sub sulhi(ByVal A As String)
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("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 & "'", jembatan)
        adapter.Fill(tabel)

        Dim X As Integer = 0
        Dim Y As Integer = 0
        For Each row As DataRow In tabel.Rows
            X += row("Unit")
            Y += row("Jumlah")
        Next
        t5_46110004.Text = X
        t6_46110004.Text = Y

    End Sub


    Private Sub latihan_26B_46110004_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        dg_46110004.DataSource = tabel
    End Sub
End Class

5. Untuk menjalankan latihan ini maka terlebih dahulu jalankan latihan 26a lalu klik tombol "detail transaksi" yang ada di latihan 26a seperti gambar di bawah ini: