Tahap
Penyelesaian Latihan_13_36110031
1.
Buka Project yang telah dibuat, lalu
buka solution Explorer
2.
Setelah
itu klik kanan nama project, pilih add dan klik “new item”
3.
Click Add New Item terbuka, pilih Windows Form,
lalu isi Name dengan Nama Latihan_12 dan add. seperti pada gambar dibawah:
4.
Buat Form Latihan_13 dibawah ini:
5. Berikut ini Rumus untuk menjalankan Form
diatas:
Public Class
Latihan_13_36110031
Dim audry As New DataSet
Dim audry1 As New DataTable
Dim audry2 As New DataTable
Dim audry3 As New DataTable
Dim Aa1 As New BindingSource
Dim Aa2 As New BindingSource
Dim Aa3 As New BindingSource
Private Sub
Latihan_13_36110031_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
audry1.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
audry1.Columns.Add(New DataColumn("Nama Rekening Induk", GetType(String)))
audry2.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
audry2.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))
audry2.Columns.Add(New DataColumn("Nama
Rekening Sub", GetType(String)))
audry3.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
audry3.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))
audry3.Columns.Add(New DataColumn("Kode
Rekening Sub-Sub", GetType(String)))
audry3.Columns.Add(New DataColumn("Nama Rekening Sub-Sub", GetType(String)))
Dim Aa As New Random
For AI As Integer = 1 To
Aa.Next(1, 5)
audry1.Rows.Add(AI, "Nama Rekening
" & AI)
For AD As Integer = 1 To
Aa.Next(1, 5)
audry2.Rows.Add(AI, AI & AD, "Nama
Sub Rekening " & AI & AD)
For AAM As Integer = 1 To
Aa.Next(1, 5)
audry3.Rows.Add(AI, AI & AD, AI & AD & AAM, "Nama Sub Sub Rekening " & AI &
AD & AAM)
Next
Next
Next
audry.Tables.Add(audry1)
audry.Tables.Add(audry2)
audry.Tables.Add(audry3)
audry1.TableName = "Aha1"
audry2.TableName = "Aha2"
audry3.TableName = "Aha3"
audry.Relations.Add(New DataRelation("Aai1", audry.Tables("Aha1").Columns("Kode
Rekening Induk"), audry.Tables("Aha2").Columns("Kode
Rekening Induk")))
audry.Relations.Add(New DataRelation("Aai2", audry.Tables("Aha2").Columns("Kode
Rekening Sub"), audry.Tables("Aha3").Columns("Kode Rekening sub")))
Aa1.DataSource = audry
Aa1.DataMember = "Aha1"
Aa2.DataSource = Aa1
Aa2.DataMember = "Aai1"
Aa3.DataSource = Aa2
Aa3.DataMember = "Aai2"
Dgv1_36110031.DataSource = Aa1
Dgv2_36110031.DataSource = Aa2
dgv3_36110031.DataSource = Aa3
End Sub
End Class
6.
Setelah itu jalankan Programnya dengan menekan “start
debugging”
7. Kemudian
simpan file tersebut dengan menekan icon “Save”
8.
Selesai
Deskripsi Latihan_13_36110031
Terdapat satu object yaitu
DataGridView
- Object DataGridView
Terdapat tiga object datagridview
digunakan untuk menampilkan data
Script Unique
Dim audry1 As New DataTable
Saat membuat kolom baru
pada datatabel
audry1.Columns.Add(New
DataColumn("Kode Rekening Induk", GetType(String)))
saat membuat data set
Dim audry As New DataSet
Saat menambahkan
datatable di data set
audry.Tables.Add(audry1)
saat data set menjadi
data source
Aa1.DataSource = audry
Aa1.DataMember = "Aha1"
Saat membuat
relationship
audry.Relations.Add(New DataRelation("Aai1", audry.Tables("Aha1").Columns("Kode
Rekening Induk"), audry.Tables("Aha2").Columns("Kode Rekening Induk")))
Saat binding source
menjadi data source pada datagridview
Dgv1_36110031.DataSource =
Aa1
Even
TableClick
Form load
