Latihan_13_46110045

Deskripsi :

Dalam form 13 ini hanya ada object datagridview.

Object datagridview :

Fungsi datagridview ini adalah untuk menapilkan tabel yang telah ada di dalam script.

Cara membuat form 13 :

Masukkan rumus seperti ini

Public Class Latihan_13_46110045
    Dim DT1 As New DataTable
    Dim DT2 As New DataTable
    Dim DT3 As New DataTable

    Dim DS As New DataSet

    Dim DBS1 As New BindingSource
    Dim DBS2 As New BindingSource
    Dim DBS3 As New BindingSource
    Private Sub Latihan_13_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DT1.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        DT1.Columns.Add(New DataColumn("Nama Rekening Induk", GetType(String)))

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

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

        Dim RPT As New Random
        For RI As Integer = 1 To RPT.Next(1, 5)
            DT1.Rows.Add(RI, "Nama Rekening " & RI)
            For RS As Integer = 1 To RPT.Next(1, 5)
                DT2.Rows.Add(RI, RI & RS, "Nama Sub Rekening " & RI & RS)
                For RSS As Integer = 1 To RPT.Next(1, 5)
                    DT3.Rows.Add(RI, RI & RS, RI & RS & RSS, "Nama Sub Sub Rekening " & RI & RS & RSS)
                Next
            Next
        Next

        DS.Tables.Add(DT1)
        DS.Tables.Add(DT2)
        DS.Tables.Add(DT3)

        DT1.TableName = "DN1"
        DT2.TableName = "DN2"
        DT3.TableName = "DN3"

        DS.Relations.Add(New DataRelation("NR1", DS.Tables("DN1").Columns("Kode Rekening Induk"), DS.Tables("DN2").Columns("Kode Rekening Induk")))
        DS.Relations.Add(New DataRelation("NR2", DS.Tables("DN2").Columns("Kode Rekening Sub"), DS.Tables("DN3").Columns("Kode Rekening sub")))

        DBS1.DataSource = DS
        DBS1.DataMember = "DN1"

        DBS2.DataSource = DBS1
        DBS2.DataMember = "NR1"

        DBS3.DataSource = DBS2
        DBS3.DataMember = "NR2"

        DGV146110045.DataSource = DBS1
        DGV246110045.DataSource = DBS2
        DGV346110045.DataSource = DBS3
    End Sub

End Class

Even :

Load.

Script unique :

Untuk membuat datatable :

Dim DT1 As New DataTable

Dim DT2 As New DataTable

Dim DT3 As New DataTable

Untuk membuat dataset :

Dim DS As New DataSet

Untuk membuat databindingsource :

Dim DBS1 As New BindingSource

Dim DBS2 As New BindingSource

Dim DBS3 As New BindingSource

Langkah-langkah menjalankan form 13 :

1. Kliklah start debugging, maka secara otomatis akan muncul hasilnya.