Deskripsi_Latihan_13_36110054

Cara Membuat Progam/Apliaksi Latihan 13

Dengan Software Microsoft Visual Basic 2008

Langkah 1 :

Buka Aplikasi Visual Basic 2008/Visual Studio 2008

Langkah 2 : 

Buat Project Baru dengan Cara,

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

-          Lihat Gambar Berikut :

 Langkah Ke 3 : 

Rancanglah From Seperti Gambar Berikut Berikut :

Komponen Dan Properti Untuk Form Sebagai Berikut :

Komponen	Properties
Form	Text : Latihan_13_36110054
Datagridview	-
Datagridview	-
Datagridview	-

  Langkah  4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public Class Latihan_13_36110054

    

    Dim DTRI As New DataTable

    Dim DTRS As New DataTable

    Dim DTRSS As New DataTable

    Dim Ruslan As New DataSet 

    Dim Cullank As New BindingSource

    Dim Dzulhijah As New BindingSource

    Dim Arni As New BindingSource

    Private Sub Latihan_13_36110054_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

        Ruslan.Tables.Add(DTRI)

        Ruslan.Tables.Add(DTRS)

        Ruslan.Tables.Add(DTRSS)

        DTRI.TableName = "LR"

        DTRS.TableName = "DZ"

        DTRSS.TableName = "AR"

        Ruslan.Relations.Add(New DataRelation("TA", Ruslan.Tables("LR").Columns("kode rekening induk"), Ruslan.Tables("DZ").Columns("kode rekening induk")))

        Ruslan.Relations.Add(New DataRelation("HI", Ruslan.Tables("DZ").Columns("kode rekening sub"), Ruslan.Tables("AR").Columns("kode rekening sub")))

        Cullank.DataSource = Ruslan

        Cullank.DataMember = "LR"

        Dzulhijah.DataSource = Cullank

        Dzulhijah.DataMember = "TA"

        Arni.DataSource = Dzulhijah

        Arni.DataMember = "HI"

        DataGridView1_36110054.DataSource = Cullank

        DataGridView2_36110054.DataSource = Dzulhijah

        DataGridView3_36110054.DataSource = Arni

    End Sub

End Class