Latihan_13_46110027

Deskripsi Form Latihan 13

• Object DataGridView    

Hanya ada terdapat satu object dalam latihan 13 yaitu datagridview. Terdapat 3 object datagridview. Digunakan untuk menampilkan tabel yang telah dibuat dalam script.

  

Langkah-langkah Membuat form latihan 13

1. Buka project yang telah dibuat sebelumnya 
2. Pilih project dan klik add windows form  

        3. Pada kotak "Name" ketik nama file yang akan dibuat.

        4. Buat form seperti dibawah ini dengan menggunakan toolbox.

        5. Pilih menu View lalu klik code..masukkan rumus berikut:

Public Class Latihan_13_46110027

    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_46110027_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

        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"


        t1_46110027.DataSource = herawati
        t2_46110027.DataSource = LUKMAN
        t3_46110027.DataSource = AKBAR

    End Sub
End Class

Langkah-langkah menjalankan form latihan 13 

              Klik start debugging

• Script Unique  
Untuk membuat Datatable,dataset,bindingsource

    Dim DTRSS As New DataTable


    Dim ZAHRAH As New DataSet


    Dim herawati As New BindingSource
   

Membuat kolom pada data tabel

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

Menambah baris pada Data tabel

For RS As Integer = 1 To Acak.Next(1, 5)
                DTRS.Rows.Add(RI, RI & RS, "Nama Sub Rekening " & RI & RS)

Menambahkan Datatabel ke dataset

ZAHRAH.Tables.Add(DTRI)

Membuat Relationship

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")))

Mengubah Dataset menjadi data source

herawati.DataSource = ZAHRAH

Mengubah bindingsore menjadi datagridview

 t1_46110027.DataSource = herawati

• Even   

       Load

• Property 

             Default