Latihan_22_36110044 Aplikasi Komputer 4

Form Latihan 22

Terdapat object  DataGridView dua buah

Script Unique

Script Unique dapat dilihat pada Prosedur Penyelesaian Latihan ini.

Even

Latihan_22_36110044_Load

PROSEDUR PENYELESAIAN:

1.      Klik star lalu pilih Microsoft Visual Studio 2008

 

2.      Pilih icon Add New Item

 

3.      Ubah nama pada lembar “Add New Item” kemudian add

 

4.      Buat design form dengan menggunakan DataGridView yang ada dalam "Toolbox”

 

5.      Ganti nama Textbox dan Button menggunakan "Properties Window"

 

6.      Klik 2x pada kotak design untuk membuka lembar vb
 Masukkan rumus berikut untuk menyelesaikan latihan_22

Public Class Latihan_22_36110044

    Dim bridgeTiya As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\materi kuliah\apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim tabelTiya1 As New DataTable

    Dim tabelTiya2 As New DataTable

    Dim setTiya As New DataSet

    Dim Tiya1 As New BindingSource

    Dim Tiya2 As New BindingSource

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

        Dim truckTiya1 As New OleDb.OleDbDataAdapter

        Dim tructTiya2 As New OleDb.OleDbDataAdapter

        truckTiya1 = New OleDb.OleDbDataAdapter("Select * from MASTERTRANSAKSI", bridgeTiya)

        truckTiya1.Fill(tabelTiya1)

        truckTiya1.Dispose()

        tructTiya2 = 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 BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG=DETAILTRANSAKSI.KODEBARANG", bridgeTiya)

        tructTiya2.Fill(tabelTiya2)

        tructTiya2.Dispose()

        setTiya.Tables.Add(tabelTiya1)

        setTiya.Tables.Add(tabelTiya2)

        tabelTiya1.TableName = "R1"

        tabelTiya2.TableName = "R2"

        setTiya.Relations.Add(New DataRelation("R3", setTiya.Tables("R1").Columns("NOTRANS"), setTiya.Tables("R2").Columns("NOTRANS")))

        Tiya1.DataSource = setTiya

        Tiya1.DataMember = "R1"

        Tiya2.DataSource = Tiya1

        Tiya2.DataMember = "R3"

        DGV1_36110044.DataSource = Tiya1

        DGV2_36110044.DataSource = Tiya2

    End Sub

End Class

7.       Jalankan program dengan menggunakan  “start debugging”