Latihan_26B_36110034

Deskripsi penyelesaian

Form Latihan_26B_36110034  terdapat satu object yaitu DataGreatView

Object Label

Terdapat empat objek lebel yang bertuliskan DETAIL TRANSAKSI yang berfungsi sebagai judul form latihan ini, dan tiga objek yang bertuliskan (kode barang, nama barang, harga jual, dan jumlah barang).

Object textbox

Terdapat enam object textbox yang bertuliskan kode barang, nama barang, harga jual, dan jumlah barang, serta textbox yang dapat menunjukkan hasil penjumlahan yaitu bertuliskan total unit dan total jumlah.   dimana textbox tersebut akan menampilkan objek-objek pada lebel tersebut sesuai dengan form latihan_26A_36110034.

Object DataGreatview

Terdapat satu object datagreatview. Pada datagreatview  akan menampilkan data dari table master transasksi pada kolom notrans, tanggal transaksi, jenis transaksi, dan keterangan, sedangkan pada tabel detail transaksi akan ditampilkan kolom harga, jual, dan jumlah akan tetapi pada form latihan ini di hitung pula total unit dan total jumlah.

Property

Property Datagreatview => name => ok

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

 

2.   membuat form dengan menggunakan Label dan Textbox yang ada dalam "Toolbox”.

3.   ganti nama textbox dan button menggunakan "Properties Window".

4.   membuka lembar vb Masukkan rumus berikut untuk menyelesaikan latihan_26B_36110034.

Public Class latihan_26B_36110034

    Dim ANDINI As New DataTable

    Dim WARA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\SEMESTER 5\APKOM 4\kumpulan_latihan_36110034\DataTransaksiJualBeli.accdb")

    Public Sub ARDIAN()

        Dim KUSUMA As New OleDb.OleDbDataAdapter

        KUSUMA = New OleDb.OleDbDataAdapter("select MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT * DETAILTRANSAKSI.HARGA AS JUMLAH FROM MASTERTRANSAKSI INNER JOIN DETAILTRANSAKSI ON MASTERTRANSAKSI.NOTRANS = DETAILTRANSAKSI.NOTRANS WHERE KODEBARANG='" & KD_36110034.Text & "'", WARA)

        ANDINI.Rows.Clear()

        KUSUMA.Fill(ANDINI)

        DGV1_36110034.DataSource = ANDINI

    End Sub

    Public Sub HITUNG()

        Dim TU As Integer

        Dim TOTAL As Integer

        For Each x As DataRow In ANDINI.Rows

            TU = TU + x("UNIT")

            TOTAL = TOTAL + x("JUMLAH")

        Next

        TU_36110034.Text = TU

        TJ_36110034.Text = TOTAL

    End Sub

    Private Sub latihan_26B_36110034_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        DGV1_36110034.DataSource = ANDINI

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.