Latihan_13_46110043

A. Langkah-langkah Pembuatan dan Penyelesaian Form Pada Latihan 13
1. Bukalah Kumpulan Project yang telah dibuat.
2. Kemudian pilih Project, lalu Add Windows Form

3. Ubah nama Form menjadi "Latihan_13_NIM" tanpa menghilangkan (.vb)

4. Buatlah form pada window tersebut seperti gambar dibawah ini:

semua kelengkapan (object) pada form dapat kite temukan di ToolBox

5. Beri nama pada Object DataGridView pada properties, contoh:
Lakukan hingga semua nama terganti sesuai kriteria Latihan_13
6. Ubah nama pada setiap Object TextBox, Data Grid View, Button sesuai dengan yag kita inginkan. Jangan lupa menambahkan NIM anda pada akhir nama. Contoh pada salah satu textbox:

7. Setelah form selesai klik kanan pada form lalu pilih View Code lalu masukkan script dibawah ini pada window:


Public Class Latihan_13_46110043

    Dim A As New DataTable
    Dim B As New DataTable
    Dim C As New DataTable

    Dim TRINITA As New DataSet

    Dim CAROLINE As New BindingSource
    Dim AISYAH As New BindingSource
    Dim JAMES As New BindingSource

    Private Sub Latihan_13_46110043_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


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

        B.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        B.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))
        B.Columns.Add(New DataColumn("Nama Rekening Sub", GetType(String)))

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


        Dim BONGKAR As New Random

        For RI As Integer = 1 To BONGKAR.Next(1, 5)
            A.Rows.Add(RI, "Nama Rekening " & RI)
            For RS As Integer = 1 To BONGKAR.Next(1, 5)
                B.Rows.Add(RI, RI & RS, "Nama Sub Rekening " & RI & RS)
                For RSS As Integer = 1 To BONGKAR.Next(1, 5)
                    C.Rows.Add(RI, RI & RS, RI & RS & RSS, "Nama Sub Sub Rekening " & RI & RS & RSS)
                Next
            Next
        Next


        TRINITA.Tables.Add(A)
        TRINITA.Tables.Add(B)
        TRINITA.Tables.Add(C)


        A.TableName = "ICA"
        B.TableName = "DIS"
        C.TableName = "OCA"


        TRINITA.Relations.Add(New DataRelation("TA", TRINITA.Tables("ICA").Columns("kode rekening induk"), TRINITA.Tables("dis").Columns("kode rekening induk")))
        TRINITA.Relations.Add(New DataRelation("HI", TRINITA.Tables("DIS").Columns("kode rekening sub"), TRINITA.Tables("oca").Columns("kode rekening sub")))


        CAROLINE.DataSource = TRINITA
        CAROLINE.DataMember = "ica"


        AISYAH.DataSource = CAROLINE
        AISYAH.DataMember = "TA"


        JAMES.DataSource = AISYAH
        JAMES.DataMember = "HI"


        WE46110043.DataSource = CAROLINE
        ARE46110043.DataSource = AISYAH
        YOUNG46110043.DataSource = JAMES
    End Sub


End Class


8. Klik Start Debugging untuk menjalankan form. Lalu input data yang ingin ditampilkan.


B. Deskripsi Form Latihan_13
Pada Form Latihan_13 pada gambar diatas hanya terdapat 1 Object DataGridView.

Object DataGridView
Terdapat 3 object datagridview yang berfungsi untuk menampilkan data.

Script Unique

Untuk membuat data Set

 Dim TRINITA As New DataSet

Membuat Data Table

 Dim A As New Data Table

Membuat Binding Source
Dim AISYAH As New BindingSource

Membuat Kolom pada Data Table
A.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

Menambah baris (isi) pada Data Table

For RI As Integer = 1 To 9

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

Next

Membuat nama lain Data Tabel

A.TableName = "ICA"

Membuat Relationship

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

Data Set menjadi Data Source

CAROLINE.DataSource = TRINITA

        CAROLINE.DataMember = "ica"

Data Binding Source menjadi Data Source pada Data Grid View

ARE46110043.DataSource = AISYAH

Even

Formload
Table click

Property

Default