Latihan_25B_36110034

Deskripsi penyelesaian

Form Latihan_25B_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 empat object textbox yang bertuliskan kode barang, nama barang, harga jual, dan jumlah barang  , dimana textbox tersebut akan menampilkan objek-objek pada lebel tersebut sesuai dengan form latihan_24A_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.

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_25B_36110034.

 

Public Class latihan_25B_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 KUSUMA()

        Dim ARDIAN As New OleDb.OleDbDataAdapter

        ARDIAN = 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()

        ARDIAN.Fill(ANDINI)

        DGV_36110034.DataSource = ANDINI

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.