A. Langkah-Langkah Penyelesaian Form Latihan_13
· Buka project yang telah dibuat sebelumnya.
· Click project kemudian pilih add windows
form, seperti pada gambar dibawah ini
· Ketik nama form "Latihan_13_46110007"
pada name kemudian click add
· Buat form seperti berikut
·
Kemudian
beri nama pada data grid view
· Setelah form selesai masukkan rumus seperti
dibawah ini
Public Class
Latihan_13_46110007
Dim AFANTY As New DataSet
Dim TK1 As New DataTable
Dim TK2 As New DataTable
Dim TK3 As New DataTable
Dim SKA1 As New BindingSource
Dim SKA2 As New BindingSource
Dim SKA3 As New BindingSource
Private Sub
Latihan_13_46110007_HandleDestroyed(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Load
TK1.Columns.Add(New
DataColumn("Kode Rekening Induk", GetType(String)))
TK1.Columns.Add(New
DataColumn("Nama Rekening Induk", GetType(String)))
TK2.Columns.Add(New
DataColumn("Kode Rekening Induk", GetType(String)))
TK2.Columns.Add(New
DataColumn("Kode Rekening Sub", GetType(String)))
TK2.Columns.Add(New
DataColumn("Nama Rekening Sub", GetType(String)))
TK3.Columns.Add(New
DataColumn("Kode Rekening Induk", GetType(String)))
TK3.Columns.Add(New
DataColumn("Kode Rekening sub", GetType(String)))
TK3.Columns.Add(New
DataColumn("Kode Rekening Sub-sub", GetType(String)))
TK3.Columns.Add(New DataColumn("Nama
Rekening Sub-sub", GetType(String)))
Dim SKA As New Random
For RI As Integer = 1 To 9
TK1.Rows.Add(RI, "Nama
Rekening" & RI)
For RS As Integer = 1 To
SKA.Next(1, 9)
TK2.Rows.Add(RI, RI & RS,
"Nama Sub Rekening " & RI & RS)
For RSS As Integer = 1 To
SKA.Next(1, 9)
TK3.Rows.Add(RI, RI &
RS, RI & RS & RSS, "Nama Sub Sub Rekening " & RI & RS
& RSS)
Next
Next
Next
AFANTY.Tables.Add(TK1)
AFANTY.Tables.Add(TK2)
AFANTY.Tables.Add(TK3)
TK1.TableName = "ICA"
TK2.TableName = "DIS"
TK3.TableName = "OCA"
AFANTY.Relations.Add(New
DataRelation("TA", AFANTY.Tables("ICA").Columns("kode
rekening induk"), AFANTY.Tables("dis").Columns("kode
rekening induk")))
AFANTY.Relations.Add(New
DataRelation("HI", AFANTY.Tables("DIS").Columns("kode
rekening sub"), AFANTY.Tables("oca").Columns("kode rekening
sub")))
SKA1.DataSource = AFANTY
SKA1.DataMember = "ica"
SKA2.DataSource = SKA1
SKA2.DataMember = "TA"
SKA3.DataSource = SKA2
SKA3.DataMember = "HI"
DataGridView1_46110007.DataSource =
SKA1
DataGridView2_46110007.DataSource =
SKA2
DataGridView3_46110007.DataSource =
SKA3
End Sub
End Class
· Untuk menjalankan form tekan F5
B. Deskripsi Form Latihan 13
Pada form latihan 13 hanya 1
object yang digunakan yaitu Data Grid View.
Object DataGridView
Terdapat 3 object datagridview yang berfungsi
untuk menampilkan data
Script Unique
Untuk membuat data set
Dim AFANTY As New DataSet
Membuat data tabel
Dim TK1 As New DataTable
Membuat
binding source
Dim SKA1 As New
BindingSource
Membuat
kolom pada data tabel
TK1.Columns.Add(New
DataColumn("Kode Rekening Induk", GetType(String)))
Menambah
baris (isi) pada data table
For RI As Integer = 1 To 9
For RI As Integer = 1 To 9
TK1.Rows.Add(RI, "Nama
Rekening" & RI)
Next
Menambahkan data table di data set
AFANTY.Tables.Add(TK1)
Membuat nama lain data table
TK1.TableName = "ICA"
Membuat Relationship
AFANTY.Relations.Add(New DataRelation("TA", AFANTY.Tables("ICA").Columns("kode rekening induk"), AFANTY.Tables("dis").Columns("kode rekening induk")))
Saat data set menjadi data source
SKA1.DataSource = AFANTY
Next
Menambahkan data table di data set
AFANTY.Tables.Add(TK1)
Membuat nama lain data table
TK1.TableName = "ICA"
Membuat Relationship
AFANTY.Relations.Add(New DataRelation("TA", AFANTY.Tables("ICA").Columns("kode rekening induk"), AFANTY.Tables("dis").Columns("kode rekening induk")))
Saat data set menjadi data source
SKA1.DataSource = AFANTY
SKA1.DataMember = "ica"
Saat binding source menjadi data source pada data grid view
DataGridView1_46110007.DataSource = SKA1
Saat binding source menjadi data source pada data grid view
DataGridView1_46110007.DataSource = SKA1
Even
Formload
Table click
Table click
Property
Default
Posting Komentar