Latihan_13_36110056

Deskripsi Latihan 13:

Form Latihan 13 terdapat satu object yaitu Data Grid View

Object  Data Grid View

Terdapat tiga object Data Grid View digunakan untuk menampilkan data tabel.

Script Unique

Membuat data table

Dim DTRI As New DataTable

Membuat data Set

Dim ZAHRAH As New DataSet

Membuat BiddingSource

Dim herawati As New BindingSource

Menambah data table

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

Membuat Relationship

ilyas.Relations.Add(New DataRelation("TA", ilyas.Tables("D").Columns("kode rekening induk"), ilyas.Tables("R").Columns("kode rekening induk")))

Data set menjadi data source

herawati.DataSource = ilyas

herawati.DataMember = "D"

Binding source menjadi data source pada data grid view

DGV1_36110056.DataSource = herawati

Even

TableClick

FromLoad

Script Unique

Default

 Form Latihan 13

Langkah-langkah penyelesaian latihan 13 :

• Buka project yang dibuat sebelumnya
• Pilih Add new item

 

• Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add

•  Buat form sesuai soal di atas dengan menggunakan Data Grid View yang ada dalam Toolbox
• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

Public Class Latihan13_36110056
    Dim DTRI As New DataTable
    Dim DTRS As New DataTable
    Dim DTRSS As New DataTable
    Dim ilyas As New DataSet
    Dim herawati As New BindingSource
    Dim LUKMAN As New BindingSource
    Dim AKBAR As New BindingSource
    Private Sub Latihan13_36110056_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

        ilyas.Tables.Add(DTRI)
        ilyas .Tables.Add(DTRS)
        ilyas.Tables.Add(DTRSS)

        DTRI.TableName = "D"
        DTRS.TableName = "R"
        DTRSS.TableName = "S"

        ilyas.Relations.Add(New DataRelation("TA", ilyas.Tables("D").Columns("kode rekening induk"), ilyas.Tables("R").Columns("kode rekening induk")))
        ilyas.Relations.Add(New DataRelation("HI", ilyas.Tables("R").Columns("kode rekening sub"), ilyas.Tables("S").Columns("kode rekening sub")))

        herawati.DataSource = ilyas
        herawati.DataMember = "D"

        LUKMAN.DataSource = herawati
        LUKMAN.DataMember = "TA"

        AKBAR.DataSource = LUKMAN
        AKBAR.DataMember = "HI"

        DGV1_36110056.DataSource = herawati
        DGV2_36110056.DataSource = LUKMAN
        DGV3_36110056.DataSource = AKBAR


      
    End Sub
End Class

  

• Selanjutnya jika ingin menjalankannya pilih Start de bungging