Latihan 13

Deskripsi Form

1. objek datagridview
terdapat 3 objek datagridview pada form ini. datagridview pertama menampilkan tabel dengan 2 kolom. datagridview kedua menampilkan tabel dengan 3 kolom, sedangkan datagridview ketiga menampilkan 4 kolom pada tabel yang ada.

even :
Form_Load



Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag textbox dan label dari menu toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. pada script anda, buat variable tertentu untuk datatable, dataset, & bindingsource seperti dibawah ini :

Dim DTRI As New DataTable
Dim DTRS As New DataTable
Dim DTRSS As New DataTable
Dim xxx As New DataSet
Dim aaa As New BindingSource
Dim bbb As New BindingSource
Dim ccc As New BindingSource

6. lalu, masukkan script berikut untuk mengisi datagridview anda :

Private Sub Latihan_13_46110008_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
        xxx.Tables.Add(DTRI)
        xxx.Tables.Add(DTRS)
        xxx.Tables.Add(DTRSS)

        DTRI.TableName = "ICA"
        DTRS.TableName = "DIS"
        DTRSS.TableName = "OCA"

        xxx.Relations.Add(New DataRelation("TA", xxx.Tables("ICA").Columns("kode rekening induk"), xxx.Tables("DIS").Columns("kode rekening induk")))
        xxx.Relations.Add(New DataRelation("HI", xxx.Tables("DIS").Columns("kode rekening sub"), xxx.Tables("OCA").Columns("kode rekening sub")))

        aaa.DataSource = xxx
        aaa.DataMember = "ICA"

        bbb.DataSource = aaa
        bbb.DataMember = "TA"

        ccc.DataSource = bbb
        ccc.DataMember = "HI"

        dgv1_46110008.DataSource = aaa
        dgv2_46110008.DataSource = bbb
        dgv3_46110008.DataSource = ccc
    End Sub

7. simpan, lalu tekan debug untuk menjalankan form