Latihan_13_36110046

Deskripsi & Prosedur Form Latihan_13_36110046

Deskripsi Form Latihan_13_36110046

 

Gambar (1)

 Form Latihan 13 hanya terdapat 1 object, yaitu datagridview. (sediki’ nya..hehehe)

Object DataGridView

Terdapat 3 objek datagridview (seperti terlihat gambar di atas)

Script Unique

Membuat Data Set dan BindingSource

Dim DS As New DataSet

Dim DBS1 As New BindingSource

Event

Relation

Property

-

Prosedur Form Latihan_13_36110046

 

Gambar (2)

Langkah-langkah mengerjakan Latihan 13, sbb:

1.    Buka Ms. Visual Studio

2.    Klik Create Project

3.    Ketik nama file yang ingin disimpan

4.    Akan terbuka jendela pekerjaan Ms. Visual Studio

5.    Design form dengan menggunakan tools pada toolbox

6.    Buat text pada form dengan menggunakan label, seperti pada gambar

7.    Buat 3 objek datagridview sesuai dengan design pada latihan 13 dengan toolbox, ikuti gambar dibawah ini:

 

Gambar (3)

8.    Setelah design sudah bagus, saatnya untuk membuat script

9.    Buat script prosedur sendiri seperti dibawah ini:

  Public Class Latihan_13_36110046

    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_36110046_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.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 = "QP1"

        DT2.TableName = "QP2"

        DT3.TableName = "QP3"

        DS.Relations.Add(New DataRelation("NR1", DS.Tables("QP1").Columns("Kode Rekening Induk"), DS.Tables("QP2").Columns("Kode Rekening Induk")))

        DS.Relations.Add(New DataRelation("NR2", DS.Tables("QP2").Columns("Kode Rekening Sub"), DS.Tables("QP3").Columns("Kode Rekening sub")))

        DBS1.DataSource = DS

        DBS1.DataMember = "QP1"

        DBS2.DataSource = DBS1

        DBS2.DataMember = "NR1"

        DBS3.DataSource = DBS2

        DBS3.DataMember = "NR2"

        DGV1_36110046.DataSource = DBS1

        DGV2_36110046.DataSource = DBS2

        DGV3_36110046.DataSource = DBS3

    End Sub

End Class

10.  Silahkan jalankan program anda. Wassalam.