LATIHAN_22_36110042

Deskripsi Latihan_22_36110042

A.   Object dalam Latihan_22_36110042

Hanya ada satu object dalam Latihan_22_36110042, yaitu object DataGridView sebanyak dua.

B.   Script Unique

Untuk script, dapat diliat secara lebih lengkap pada Langkah-Langkah  Latihan_22_36110042.

C.   Even

Latihan_22_36110042_Load

Langkah-Langkah Latihan_14_36110042

1.    Klik Start lalu pilih Microsoft Visual Studio 2008.

2.    Lalu akan muncul Start Page Microsoft Visual Studio 2008.

3.    Pilih Recent Project “Kumpulan_Latihan_36110042”

4.     Setelah terbuka, pilih icon Add New Item atau Ctrl+Shift+A

5.    Akan terbuka jendela Add New Item seperti di bawah ini, pilih template “Windows Form” dan beri nama “Latihan_22_36110042”

6.    Kemudian buat form sesuai dengan form di bawah ini.

7.     Berikut ini adalah rumus untuk menjalankan form di atas.

Public Class Latihan_22_36110042

    Dim hubung As New OleDb.OleDbConnection("Provider=Microsoft.ACE.oledb.12.0;data source=D:\AKUNTANSI 2010\SEMESTER 5\APKOM_4\APKOM 4 LENGKAP\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim RR1 As New DataTable

    Dim RR2 As New DataTable

    Dim DS As New DataSet

    Dim RARA1 As New BindingSource

    Dim RARA2 As New BindingSource

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

        Dim BR1 As New OleDb.OleDbDataAdapter

        Dim BR2 As New OleDb.OleDbDataAdapter

        BR1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hubung)

        BR1.Fill(RR1)

        BR1.Dispose()

        BR2 = New OleDb.OleDbDataAdapter("select detailtransaksi.notrans, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga, barang.namabarang, detailtransaksi.unit*barang.hargajual as jumlahstandar, detailtransaksi.unit*detailtransaksi.harga as jumlahrealisasi from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", hubung)

        BR2.Fill(RR2)

        BR2.Dispose()

        DS.Tables.Add(RR1)

        DS.Tables.Add(RR2)

        RR1.TableName = "01"

        RR2.TableName = "02"

        DS.Relations.Add(New DataRelation("03", DS.Tables("01").Columns("NOTRANS"), DS.Tables("02").Columns("NOTRANS")))

        RARA1.DataSource = DS

        RARA1.DataMember = "01"

        RARA2.DataSource = RARA1

        RARA2.DataMember = "03"

        DGV1_36110042.DataSource = RARA1

        DGV2_26110042.DataSource = RARA2

    End Sub

End Class

8.    Setelah itu, jalankan programnya dengan klik Icon Start Debugging kemudian akan mucul form navigator dan klik Latihan 22.