Deskripsi dan Prosedur Latihan_13_36110039

   Deskripsi  Form Latihan_13_36110039

Terdapat satu object yaitu:

Object DataGridView
Terdapat tiga objek datagridview yang digunakan untuk menampilkan tabel yang telah dibuat dalam script.


     Script Unique
Membuat DataTable
Dim DTRI As New DataTable

Membuat DataSet baru
Dim hilda As New DataSet

Membuat Binding Source
Dim hld1 As New BindingSource

Menambahkan kolom pada DataTable
hilda1.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

Menambah relationship dalam DataSet
hilda.Relations.Add(New DataRelation("RHEP1", hilda.Tables("RP1").Columns("Kode Rekening Induk"), hilda.Tables("RP2").Columns("Kode Rekening Induk")))
       
Membuat binding datasource (mengatur datasource dan data membernya)
hld1.DataSource = hilda
       hld1.DataMember = "RP1"

     Even
Latihan_13_36110039_Load

Prosedur menjalankan Latihan_13_36110039:

1.    Klik Start dan pilih Microsoft Visual Studio 2008.
       

2.    Klik menu file dan pilih New Project.
      

3.    Ketik nama dan pilih lokasi yang diinginkan pada masing-masing tempat yang tersedia, klik Ok.
      

4.    Klik menu view dan pilih toolbox.
      

5.    Kemudian pilih object DataGridView dan buat sebanyak tiga. Isi properti name menjadi nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.

6.    Setelah perintah diatas dilakukan maka jadilah seperti kolom dibawah ini:
      


7.    Berikut ini adalah rumus untuk menjalankan form di atas:
Dim hilda As New DataSet

    Dim hilda1 As New DataTable
    Dim hilda2 As New DataTable
    Dim hilda3 As New DataTable

    Dim hld1 As New BindingSource
    Dim hld2 As New BindingSource
    Dim hld3 As New BindingSource


Private Sub Latihan_13_36110039_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     hilda1.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
     hilda1.Columns.Add(New DataColumn("Nama Rekening Induk", GetType(String)))

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

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

Dim hld As New Random
For HA As Integer = 1 To 9
      hilda1.Rows.Add(HA, "Nama Rekening " & HA)
      For RS As Integer = 1 To hld.Next(1, 9)
         hilda2.Rows.Add(HA, HA & RS, "Nama Sub Rekening " & HA & RS)
         For RSS As Integer = 1 To hld.Next(1, 9)
hilda3.Rows.Add(HA, HA & RS, HA & RS & RSS, "Nama Sub Sub  Rekening " & HA & RS & RSS)
                Next
            Next
        Next

        hilda.Tables.Add(hilda1)
        hilda.Tables.Add(hilda2)
        hilda.Tables.Add(hilda3)

        hilda1.TableName = "RP1"
        hilda2.TableName = "RP2"
        hilda3.TableName = "RP3"

        hilda.Relations.Add(New DataRelation("RHEP1", hilda.Tables("RP1").Columns("Kode Rekening Induk"), hilda.Tables("RP2").Columns("Kode Rekening Induk")))
        hilda.Relations.Add(New DataRelation("RHEP2", hilda.Tables("RP2").Columns("Kode Rekening Sub"), hilda.Tables("RP3").Columns("Kode Rekening sub")))

        hld1.DataSource = hilda
        hld1.DataMember = "RP1"
        hld2.DataSource = hld1
        hld2.DataMember = "RHEP1"
        hld3.DataSource = hld2
        hld3.DataMember = "RHEP2"

        klpk1_36110039.DataSource = hld1
        klpk2_36110039.DataSource = hld2
        klpk3_36110039.DataSource = hld3
  End Sub

8.    Untuk melihat apakah program yang anda telah buat sudah benar atau belum tepat maka klik icon Start Debugging.