latihan_13_36110040

Deskripsi  Form Latihan_13_36110040

Terdapat satu object yaitu:

Object DataGridView
Terdapat tiga objek datagridview yang digunakan untuk menampilkan tabel yang telah dibuat dalam script.


     Script Unique
Membuat DataTable
Dim DTRI As New DataTable

Membuat DataSet baru
Dim rahmi As New DataSet

Membuat Binding Source
Dim rahmi1 As New BindingSource

Menambahkan kolom pada DataTable
rahmi1.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

Menambah relationship dalam DataSet
rahmi.Relations.Add(New DataRelation("RHEP1", rahmi.Tables("RP1").Columns("Kode Rekening Induk"), rahmi.Tables("RP2").Columns("Kode Rekening Induk")))
       
Membuat binding datasource (mengatur datasource dan data membernya)
rahmi1.DataSource = rahmi
       rahmi1.DataMember = "RP1"

     Even
Latihan_13_36110040_Load

Latihan_13_36110040

Prosedur Penyelesaian Latihan_13_36110040

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_12 dan add.

4.   Buat Form Latihan_13 dibawah ini:

5. Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_13_36110040

    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_36110040_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DTRI.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String))) 'untuk teks==>+ field baru

        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_36110040.DataSource = herawati

        dgv2_36110040.DataSource = LUKMAN

        dgv3_36110040.DataSource = AKBAR

    End Sub

End Class

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

 7. Kemudian simpan file tersebut dengan menekan icon “Save”

8.   Selesai