Latihan_13_46110037

Deskripsi Form Latihan 13

Pada latihan 13 Hanya terdapat DataGridView.

Object DataGridView

Terdapat 3 DataGridView yang digunakan untuk menampilkan tabel yang telah dibuat di script

Script Unique

*Mendeklarasikan (memperkenalkan) nama Data Table baru

Dim DTRekIn As New DataTable

*Mendeklarasikan Nama Data Set baru. DataSet adalah sesuatu yang menampung DataTable

Dim inna As New DataSet

*Mendeklarasikan Binding Score. Binding Score adalah object yang dijadikan sebagai perantara antara DataSet dan DataGridView

Dim herawati As New BindingSource

*Memasukkan DataTable ke DataSet

inna.Tables.Add(DTRekIn)

*Membuat kolom pada DataTable

DTRekIn.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

DTRekIn.Columns.Add(New DataColumn("Nama Rekening Induk", GetType(String)))

*Mengganti Nama Data Table. Karena ketika DataTable masuk dalam DataSet Nama data table yang sebenarnya (DTRekIn) tidak kenali makanya di ganti menjadi “Nia”

DTRekIn.TableName = "Nia"

*Membuat Relasi

inna.Relations.Add(New DataRelation("TA", inna.Tables("nia").Columns("kode rekening induk"), inna.Tables("yuha").Columns("kode rekening induk")))

 TA adalah Nama relasi antara Nia dan Yuha

*Menentukan Sumber Data

herawati.DataSource = inna

herawati.DataMember = "nia"

LUKMAN.DataSource = herawati

LUKMAN.DataMember = "TA"

*BindingScore sebagai DataSource(Sumberdata) pada DataGridView

  DGV146110037.DataSource = herawati

Even

Load

Propertty

Default

Langkah-langkah Menyelesaikan Form

• Buka project yang telan dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas dengan menggunakan DataGridView
• Ganti nama DataGridView di properties-Name
• Click Kanan lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_13_46110037

    Dim DTRekIn As New DataTable

    Dim DTRekSub As New DataTable

    Dim DTRekSubSub As New DataTable

    Dim inna As New DataSet

    Dim herawati As New BindingSource

    Dim LUKMAN As New BindingSource

    Dim AKBAR As New BindingSource

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

        DTRekIn.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

        DTRekIn.Columns.Add(New DataColumn("Nama Rekening Induk", GetType(String)))

        DTRekSub.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

        DTRekSub.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))

        DTRekSub.Columns.Add(New DataColumn("Nama Rekening Sub", GetType(String)))

        DTRekSubSub.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

        DTRekSubSub.Columns.Add(New DataColumn("Kode Rekening sub", GetType(String)))

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

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

        Dim Acak As New Random

        For RekIn As Integer = 1 To Acak.Next(1, 5)

            DTRekIn.Rows.Add(RekIn, "Nama Rekening " & RekIn)

            For RekSub As Integer = 1 To Acak.Next(1, 5)

                DTRekSub.Rows.Add(RekIn, RekIn & RekSub, "Nama Sub Rekening " & RekIn & RekSub)

                For RekSubSub As Integer = 1 To Acak.Next(1, 5)

                    DTRekSubSub.Rows.Add(RekIn, RekIn & RekSub, RekIn & RekSub & RekSubSub, "Nama Sub Sub Rekening " & RekIn & RekSub & RekSubSub)

                Next

            Next

        Next

        inna.Tables.Add(DTRekIn)

        inna.Tables.Add(DTRekSub)

        inna.Tables.Add(DTRekSubSub)

        DTRekIn.TableName = "Nia"

        DTRekSub.TableName = "Yuha"

        DTRekSubSub.TableName = "Ririn"

        inna.Relations.Add(New DataRelation("TA", inna.Tables("nia").Columns("kode rekening induk"), inna.Tables("yuha").Columns("kode rekening induk")))

        inna.Relations.Add(New DataRelation("HI", inna.Tables("yuha").Columns("kode rekening sub"), inna.Tables("ririn").Columns("kode rekening sub")))

        herawati.DataSource = inna

        herawati.DataMember = "nia"

        LUKMAN.DataSource = herawati

        LUKMAN.DataMember = "TA"

        AKBAR.DataSource = LUKMAN

        AKBAR.DataMember = "HI"

        DGV146110037.DataSource = herawati

        DGV246110037.DataSource = LUKMAN

        DGV346110037.DataSource = AKBAR

    End Sub

End Class

• Start Debugging