Latihan_13_36110029

v Deskripsi Latihan_13_36110029

Object Data GridView

Dalam latihan ini, terdapat 3 data grid view yaitu "data1 _36110029", "data2_36110029", dan "data3_36110029".

Script Unique

Saat membuat Data set
            Dim nurhana As New DataSet

Saat membuat Data table
Dim DTRI As New DataTable

Saat membuat Binding Source
 Dim CHUCHU As New BindingSource
 
Saat membuat kolom baru pada Data table
DTRI.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

Saat menambah baris (isi) pada data table

For RI As Integer = 1 To 5

DTRI.Rows.Add(RI, "Nama Rekening " & RI)

next 
Saat menambahkan data table di data set
nurhana.Tables.Add(DTRI)

Saat membuat nama lain data table
DTRI.TableName = "ICA" 

Saat membuat Relationship

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

Saat data set menjadi data source

CHUCHU.DataSource = nurhana

CHUCHU.DataMember = "ica"

                            

Saat binding source menjadi data source pada data grid view
data1_36110029.DataSource = CHUCHU

Event

Form load
Table click

Property

Default

v   Prosedur  Latihan_13_36110029

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_36110029  sudah dibuat maka selanjutnya kita membuat listing program pada jendela code:

 

Public Class Latihan_13_36110029

    Dim DTRI As New DataTable

    Dim DTRS As New DataTable

    Dim DTRSS As New DataTable

    Dim nurhana As New DataSet

    Dim LUKMAN As New BindingSource

    Dim CHUCHU As New BindingSource

    Dim REZA As New BindingSource

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

        nurhana.Tables.Add(DTRI)

        nurhana.Tables.Add(DTRS)

        nurhana.Tables.Add(DTRSS)

        DTRI.TableName = "ICA"

        DTRS.TableName = "DIS"

        DTRSS.TableName = "OCA"

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

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

        CHUCHU.DataSource = nurhana

        CHUCHU.DataMember = "ica"

        LUKMAN.DataSource = CHUCHU

        LUKMAN.DataMember = "TA"

        REZA.DataSource = LUKMAN

        REZA.DataMember = "HI"

        data1_36110029.DataSource = CHUCHU

        data2_36110029.DataSource = LUKMAN

        data3_36110029.DataSource = REZA

    End Sub

End Class

6.   Tekan F5 pada keyboard untuk menjalankan form, kemudian ketik angka  pada kolom dan perhatikan hasilnya.