Latihan_22_36110029

v Deskripsi Latihan_22_36110029

 

Object

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

Script Unique

Untuk script, dapat diliat secara lebih lengkap pada Prosedur Penyelesaian Latihan_22_36110029.

Even

Latihan_22_36110029_Load

v   Prosedur  Latihan_22_36110029

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_22_36110029  sudah dibuat maka selanjutnya kita membuat listing program pada jendela code:

Public Class Latihan_22_36110029
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\DOKUMEN\SEMESTER 5\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")
    Dim tabelhana2 As New DataTable
    Dim tabelhana1 As New DataTable
    Dim sethana As New DataSet
    Dim hana1 As New BindingSource
    Dim hana2 As New BindingSource
    Private Sub Latihan_22_36110029_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim B As New OleDb.OleDbDataAdapter
        Dim C As New OleDb.OleDbDataAdapter

        B = New OleDb.OleDbDataAdapter("Select * from MASTERTRANSAKSI", A)
        B.Fill(tabelhana1)
        B.Dispose()

        C = 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", A)
        C.Fill(tabelhana2)
        C.Dispose()

        sethana.Tables.Add(tabelhana1)
        sethana.Tables.Add(tabelhana2)

        tabelhana1.TableName = "H1"
        tabelhana2.TableName = "H2"

        sethana.Relations.Add(New DataRelation("H3", sethana.Tables("H1").Columns("NOTRANS"), sethana.Tables("H2").Columns("NOTRANS")))

        hana1.DataSource = sethana
        hana1.DataMember = "H1"
        hana2.DataSource = hana1
        hana2.DataMember = "H3"

        data1_36110029.DataSource = hana1
        data2_36110029.DataSource = hana2
    End Sub
End Class

6.      Tekan F5 pada keyboard untuk menjalankan form, kemudian ketik angka  pada kolom dan perhatikan hasilnya.