latihan_13_46110004

Deskripsi form latihan 13
Dalam form Latihan 13 hanya terdapat satu object yaitu DataGriedView

Object datagridview :
Dalam form ini terdapat 3 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Script Unique :

Tempat deklarasi untuk data tabel baru
Dim DTRI As New DataTable
Dim DTRS As New DataTable
Dim DTRSS As New DataTable

Deklarasi membuat datasheet baru
Dim ZAHRAH As New DataSet ===> object yg dpt menampung object datatable

Untuk mendeklarasikan binding source
Dim herawati As New BindingSource
Dim LUKMAN As New BindingSource
Dim AKBAR As New BindingSource

Memasukkan datatabel ke data set dan jika sudah di dalam dataset nama data tabel sudah tdk dikenal lagi

ZAHRAH.Tables.Add(DTRI)

ZAHRAH.Tables.Add(DTRS)

ZAHRAH.Tables.Add(DTRSS)

Untuk mengganti nama dlm dataset yg tadinya tabel1 dst (bs dilakukan sebelum dttabel dmasukkan ke dlm dataset

DTRI.TableName = "ICA"

DTRS.TableName = "DIS"

DTRSS.TableName = "OCA"

Untuk menambah relasi dlm dataset dari ica ke dis dan dis ke oca

ZAHRAH.Relations.Add(New DataRelation("TA", ZAHRAH.Tables("ICA").Columns("kode rekening induk"), ZAHRAH.Tables("dis").Columns("kode rekening induk")))

ZAHRAH.Relations.Add(New DataRelation("HI", ZAHRAH.Tables("DIS").Columns("kode rekening sub"), ZAHRAH.Tables("oca").Columns("kode rekening sub")))

Membuat binding datasource (mengatur datasource dan data membernya)

herawati.DataSource = ZAHRAH

herawati.DataMember = "ica"

Datasource binding-binding adalah nama binding yg pertama dan data membernya adalah nama relasinya

LUKMAN.DataSource = herawati

LUKMAN.DataMember = "TA"

Datasource binding3 adlh nama binding yg kedua dan datamembernya adalah nama relasinya

AKBAR.DataSource = LUKMAN

AKBAR.DataMember = "HI"

Memunculkan dalam datagridview

DataGridView1.DataSource = herawati

DataGridView2.DataSource = LUKMAN

DataGridView3.DataSource = AKBAR

Even :

Load

Langkah-langkah penyelesaian form latihan 13

1. 1.. Buat form baru seperti langkah dibawah ini:

2. Input nama form seperti gambar dibawah ini:

3. Buat design form seperti gambar di bawah ini:

4. Input script di bawah ini:
Public Class latihan_13_46110004
    Dim DTRI As New DataTable
    Dim DTRS As New DataTable
    Dim DTRSS As New DataTable

    Dim ZAHRAH As New DataSet

    Dim herawati As New BindingSource
    Dim LUKMAN As New BindingSource
    Dim AKBAR As New BindingSource

    Private Sub latihan_13_46110004_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        DTRI.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        DTRI.Columns.Add(New DataColumn("Nama Rekening Induk", GetType(String)))

        DTRS.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        DTRS.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))
        DTRS.Columns.Add(New DataColumn("Nama Rekening Sub", GetType(String)))

        DTRSS.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        DTRSS.Columns.Add(New DataColumn("Kode Rekening sub", GetType(String)))
        DTRSS.Columns.Add(New DataColumn("Kode Rekening Sub-sub", GetType(String)))
        DTRSS.Columns.Add(New DataColumn("Nama Rekening Sub-sub", GetType(String)))

        Dim Acak As New Random

        For RI As Integer = 1 To Acak.Next(1, 5)
            DTRI.Rows.Add(RI, "Nama Rekening " & RI)
            For RS As Integer = 1 To Acak.Next(1, 5)
                DTRS.Rows.Add(RI, RI & RS, "Nama Sub Rekening " & RI & RS)
                For RSS As Integer = 1 To Acak.Next(1, 5)
                    DTRSS.Rows.Add(RI, RI & RS, RI & RS & RSS, "Nama Sub Sub Rekening " & RI & RS & RSS)
                Next
            Next
        Next
        ZAHRAH.Tables.Add(DTRI)
        ZAHRAH.Tables.Add(DTRS)
        ZAHRAH.Tables.Add(DTRSS)

        DTRI.TableName = "ICA"
        DTRS.TableName = "DIS"
        DTRSS.TableName = "OCA"

        ZAHRAH.Relations.Add(New DataRelation("TA", ZAHRAH.Tables("ICA").Columns("kode rekening induk"), ZAHRAH.Tables("dis").Columns("kode rekening induk")))
        ZAHRAH.Relations.Add(New DataRelation("HI", ZAHRAH.Tables("DIS").Columns("kode rekening sub"), ZAHRAH.Tables("oca").Columns("kode rekening sub")))

        herawati.DataSource = ZAHRAH
        herawati.DataMember = "ica"

        LUKMAN.DataSource = herawati
        LUKMAN.DataMember = "TA"

        AKBAR.DataSource = LUKMAN
        AKBAR.DataMember = "HI"

        DataGridView1.DataSource = herawati
        DataGridView2.DataSource = LUKMAN
        DataGridView3.DataSource = AKBAR

    End Sub
End Class

5.Jalankan program dengan cara seperti di bawah ini: