Latihan_22_36110038

Deskripsi Latihan_22_36110038

Form Latihan_22 terdapat satu object yaitu DataGridView:

Object Data GridView

Terdapat dua data gridview (dgv1_36110038 dan dgv2_36110038) DataGridView pertama digunakan untuk menampilkan field atau  NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI, KETERANGAN dari tabel MASTERTRANSAKSI dan NOTRANS,  HARGA, UNIT , KODEBARANG dari tabel DETAILTRANSAKSI serta NAMABARANG dari table BARANG, JUMLAHSTANDAR (hasil perkalian UNIT dari table DETAILTRANSAKSI dan HARGAJUAL dari table BARANG) dan JUMLAHREALISASI (hasil perkalian UNIT dan HARGA dari table DETAILTRANSAKSI)  yang ada pada D:\^bd3^\semester5\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.

Script Unique 

Script sesuai yang ada pada prosedur-prosedur Latihan_22_36110038 dibawah

Even

Latihan_22_36110038_Load

Prosedur penyelesaian

1.      Buka Project_36110038 yang telah dibuat sebelumnya.

2.      Buka visual basic Kumpulan_Latihan_36110038 yang telah dibuat sebelumnya.

3.      Buat form baru dengan nama Latihan_22_36110038 sesuai form dibawah ini.

4.      Ganti semua nama objek yang ada selain label menggunakan "Properties Window" sesuai dengan yang diinginkan dengan menambahkan stambuk dibelakang nama obyek.

5.      Klik 2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan rumus berikut untuk menyelesaikan Latihan_22

Public Class Latihan_22_36110038

    Dim widhe As New DataSet

    Dim table1 As New DataTable

    Dim table2 As New DataTable

    Dim bs1 As New BindingSource

    Dim bs2 As New BindingSource

    Dim hubung1 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\^bd3^\semester5\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim hubung2 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\^bd3^\semester5\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Private Sub Latihan_22_36110038_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim angkut1 As New OleDb.OleDbDataAdapter

        angkut1 = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", hubung1)

        angkut1.Fill(table1)

        angkut1.Dispose()

        DGV1_36110038.DataSource = table1

        Dim angkut2 As New OleDb.OleDbDataAdapter

        angkut2 = New OleDb.OleDbDataAdapter("select DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT*BARANG.HARGAJUAL AS JUMLAHSTANDAR, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAHREALISASI FROM DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG", hubung2)

        angkut2.Fill(table2)

        angkut2.Dispose()

        DGV2_36110038.DataSource = table2

        widhe.Tables.Add(table1)

        widhe.Tables.Add(table2)

        table1.TableName = "T1"

        table2.TableName = "T2"

        widhe.Relations.Add(New DataRelation("T3", widhe.Tables("T1").Columns("NOTRANS"), widhe.Tables("T2").Columns("NOTRANS")))

        bs1.DataSource = widhe

        bs1.DataMember = "T1"

        bs2.DataSource = bs1

        bs2.DataMember = "T3"

        DGV1_36110038.DataSource = bs1

        DGV2_36110038.DataSource = bs2

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form.