Deskripsi 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
* Membuat data set => Dim DT1 As New DataTable
* Membuat data tabel => Dim DS As New DataSet
* Membuat BindingSource => Dim DBS1 As New BindingSource
* Membuat kolom pada data tabel => DT1.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
* Menambah baris (isi) pada data table => For RI As Integer = 1 To RPT.Next(1, 5)
DT1.Rows.Add(RI, "Nama Rekening " & RI)
Next
* Menambahkan data table di data set => DS.Tables.Add(DT1)
* Membuat nama lain data table => DT1.TableName = "FB1"
* Membuat Relationship => DS.Relations.Add(New DataRelation("DN1", DS.Tables("FB1").Columns("Kode Rekening Induk"), DS.Tables("FB2").Columns("Kode Rekening Induk")))
* ketika data set menjadi data source => DBS1.DataSource = DS
DBS1.DataMember = "FB1"
* ketika binding source menjadi data source pada data grid view => dgv146110055.DataSource = DBS1
Even
Formload
Table click
Property
Default
Cara membuat Latihan 13 :
1. Buka Microsoft Visual Studio 2008
2. Setelah itu pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)
3. Pilih menu Project lalu klik add windows form
4. Ketik nama latihan yang akan dibuat pada kotak “NAME” (namun jangan menghapus nama .vb) setelah itu pilih “add”.
5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 13”
6. Setelah itu ganti nama design yang diakhiri nim anda, pada ketiga object DataGridView.
7. Pilih menu “view” klik “code”.
8. Masukkan rumus berikut :
Public Class Latihan_13_46110055
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_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.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("Konde 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 = "FB1"
DT2.TableName = "FB2"
DT3.TableName = "FB3"
DS.Relations.Add(New DataRelation("DN1", DS.Tables("FB1").Columns("Kode Rekening Induk"), DS.Tables("FB2").Columns("Kode Rekening Induk")))
DS.Relations.Add(New DataRelation("DN2", DS.Tables("FB2").Columns("Kode Rekening Sub"), DS.Tables("FB3").Columns("Kode Rekening sub")))
DBS1.DataSource = DS
DBS1.DataMember = "FB1"
DBS2.DataSource = DBS1
DBS2.DataMember = "DN1"
DBS3.DataSource = DBS2
DBS3.DataMember = "DN2"
dgv146110055.DataSource = DBS1
dgv246110055.DataSource = DBS2
dgv346110055.DataSource = DBS3
End Sub
End Class
9. Klik start debugging.
Langkah menjalankan Form:
Setelah meng-klik tombol start debugging program akan menganalisa data script yang telah dibuat, dan menghasilkan tampilan data pada setiap object DataGridView.
Tidak ada komentar:
Posting Komentar