latihan_13_46110023

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

Deklarasi Membuat Datasheet Baru
Dim ZAHRAH As New Dataset  ===> Object Menampung Object Datatable

Untuk Mendeklarasikan Binding Source
Dim Herawati 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)

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

DTRI.TableName = "ICA"

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")))

Membuat binding datasource (mengatur datasource dan data membernya)

herawati.DataSource = ZAHRAH

herawati.DataMember = "ica"

Memunculkan dalam datagridview

DataGridView1.DataSource = herawati

Even :

Load

Langkah-langkah penyelesaian form latihan 13     

1. buat form baru seperti gambar dibawah ini:   

 

2. ganti nama form sesuai dengan nama yang diinginkan

3. buat desaign form sperti gambar dibwah ini:

 4. ganti semua nama pada object kecuali label

 5. buat sript seperti dibawah ini:

Public Class LATIHAN_13_46110023
    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_46110023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.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"

        DGV1_46110023.DataSource = herawati
        DGV2_46110023.DataSource = LUKMAN
        DGV3_46110023.DataSource = AKBAR
    End Sub
End Class

6. jalankan program dengan cara yang sama seperti form-form sebelumnya

7. jika ada kesalahan maka program secara otomatis akan memunculkannya.

8. selamat mencoba. :)