Latihan_22_36110031

Tahap Penyelesaian Latihan_22_36110031

1.         Buka Project yang telah dibuat, lalu buka solution Explorer

2.          Setelah itu klik kanan nama project, pilih add dan klik “new item”

 

3.         Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_22  dan add. seperti pada gambar dibawah:

 

4.         Buat Form Latihan_22  dibawah ini:

 

5.          Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_22_36110031

    Dim audry As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE = E:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim TABEL1 As New DataTable

    Dim TABEL2 As New DataTable

    Dim DATA As New DataSet

    Dim BINDING1 As New BindingSource

    Dim BINDING2 As New BindingSource

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

        Dim ADAPTER As New OleDb.OleDbDataAdapter

        ADAPTER = New OleDb.OleDbDataAdapter("SELECT * from mastertransaksi", audry)

        TABEL1.Rows.Clear()

        ADAPTER.Fill(TABEL1)

        DGV1_36110031.DataSource = TABEL1

        ADAPTER = 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", audry)

        TABEL2.Rows.Clear()

        ADAPTER.Fill(TABEL2)

        DGV2_36110031.DataSource = TABEL2

        ADAPTER.Dispose()

        DATA.Tables.Add(TABEL1)

        DATA.Tables.Add(TABEL2)

        TABEL1.TableName = "Induk"

        TABEL2.TableName = "Sub"

        DATA.Relations.Add(New DataRelation("Relasi", DATA.Tables("Induk").Columns("notrans"), DATA.Tables("Sub").Columns("notrans")))

        BINDING1.DataSource = DATA

        BINDING1.DataMember = "induk"

        BINDING2.DataSource = BINDING1

        BINDING2.DataMember = "relasi"

        DGV1_36110031.DataSource = BINDING1

        DGV2_36110031.DataSource = BINDING2

    End Sub

End Class

6.         Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.         Setelah menekan  “start debugging” akan muncul gambar seperti dibawah ini:

 

8.         Kemudian simpan file tersebut dengan menekan icon “save”

 

9.         Selesai

 Deskripsi Penyelesaian Latihan_22

A.  Form Latihan 22 terdapat satu object yaitu DataGridView

B.   Script Unique

       Script dapat dilihat di tahap penyelesaian yang tertera di bagian atas.

C.  Even

Latihan_22_36110031_Load

D.  Property

Property TextBox è ReadOnly = True