Latihan_13_46110038

Deskripsi Form Latihan_13_46110038:

Form Latihan_13_46110038 hanya terdapat 1 object yaitu Datagridview.

Object Datagridview

Di Latihan_13_46110038 ada 3 Datagridview. Digunakan untuk menampilkan tabel yang telah dibuat dalam script.

Script Unique

Membuat DataTable

Dim DTRI As New DataTable

Membuat DataSet baru

Dim erma As New DataSet

Membuat Binding Source

Dim herawati As New BindingSource

Menambahkan kolom pada DataTable

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

Menambah relationship dalam DataSet

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

Membuat binding datasource (mengatur datasource dan data membernya)

        herawati.DataSource = erma

        herawati.DataMember = "ica"

Even

Load

Property

Default

Cara Membuat Form Latihan_13_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_13_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_13_46110038

    Dim DTRI As New DataTable

    Dim DTRS As New DataTable

    Dim DTRSS As New DataTable

    Dim erma As New DataSet

    Dim herawati As New BindingSource

    Dim LUKMAN As New BindingSource

    Dim AKBAR As New BindingSource

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

        erma.Tables.Add(DTRI)

        erma.Tables.Add(DTRS)

        erma.Tables.Add(DTRSS)

        DTRI.TableName = "ICA"

        DTRS.TableName = "DIS"

        DTRSS.TableName = "OCA"

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

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

        herawati.DataSource = erma

        herawati.DataMember = "ica"

        LUKMAN.DataSource = herawati

        LUKMAN.DataMember = "TA"

        AKBAR.DataSource = LUKMAN

        AKBAR.DataMember = "HI"

        view146110038.DataSource = herawati

        View246110038.DataSource = LUKMAN

        View346110038.DataSource = AKBAR

    End Sub

End Class

Langkah untuk menjalankan Latihan_13_46110038:

1.    Klik start debugging.

2. Tabel yang telah dibuat dalam script akan muncul secara otomatis.