Latihan_13_36110034

Deskripsi penyelesaian

Form Latihan_13_36110034  terdapat satu object yaitu DataGreatView

Object DataGreatview

Terdapat tiga datagreatview , masing-masing datagreatview akan menampilkan data dalam bentuk table dimana data pada datagreatview yang kedua di ambil dari datagreatview yang pertama dan begitupun dengan datagreatview yang ketiga di ambil dari datagreatview yang kedua.

Datagreatview yang kedua akan merinci lebih detail data pada datagreatview yang pertama, begitupun datagreatview yang ketiga akan merincil lebih detail lagi dibandingkan datagreatview yang kedua sehingga jika dipadukan dapat terlihat data pada table dengan lebih rinci tanpa mengubah atau menambah bentuk table di masing-masing object datgreatview.

Property

Property Datagreatview => name => ok

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

 

2.   membuat form dengan menggunakan Label dan Textbox yang ada dalam "Toolbox”.

3.   ganti nama textbox dan button menggunakan "Properties Window".

 

4.   membuka lembar vb Masukkan rumus berikut untuk menyelesaikan latihan_13_36110034.

Public Class latihan_13_36110034

    Dim DTRI As New DataTable

    Dim DTRS As New DataTable

    Dim DTRSS As New DataTable

    Dim POLITEKNIK As New DataSet

    Dim AKUNTANSI As New BindingSource

    Dim TEKNIK As New BindingSource

    Dim ADM_NIAGA As New BindingSource

    Private Sub latihan_13_36110034_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

        POLITEKNIK.Tables.Add(DTRI)

        POLITEKNIK.Tables.Add(DTRS)

        POLITEKNIK.Tables.Add(DTRSS)

        DTRI.TableName = "KLS_SATU"

        DTRS.TableName = "KLS_DUA"

        DTRSS.TableName = "KLS_TIGA"

        POLITEKNIK.Relations.Add(New DataRelation("D3", POLITEKNIK.Tables("KLS_SATU").Columns("kode rekening induk"), POLITEKNIK.Tables("KLS_DUA").Columns("kode rekening induk")))

        POLITEKNIK.Relations.Add(New DataRelation("D4", POLITEKNIK.Tables("KLS_DUA").Columns("kode rekening sub"), POLITEKNIK.Tables("KLS_TIGA").Columns("kode rekening sub")))

        AKUNTANSI.DataSource = POLITEKNIK

        AKUNTANSI.DataMember = "KLS_SATU"

        TEKNIK.DataSource = AKUNTANSI

        TEKNIK.DataMember = "D3"

        ADM_NIAGA.DataSource = TEKNIK

        ADM_NIAGA.DataMember = "D4"

        DGV1_36110034.DataSource = AKUNTANSI

        DGV2_36110034.DataSource = TEKNIK

        DGV3_36110034.DataSource = ADM_NIAGA

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.