Deskripsi form Latihan_13_46110003
Dalam form Latihan_13_46110003 hanya terdapat satu object yaitu DataGriedView
Dalam form Latihan_13_46110003 hanya terdapat satu object yaitu DataGriedView
Object datagridview :
Dalam form ini terdapat 3 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Even
3. Jalankan Program
Dalam form ini terdapat 3 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Script Unique :
'DEKLARASI
MEMBUAT DATASET BARU
Dim amal As New DataSet
' TEMPAT
DEKLARASI UNTUK DATA TABEL BARU
Dim DTRI As New DataTable
Dim DTRS As New DataTable
Dim DTRSS As New DataTable
'untuk
mendeklarasikan binding source
Dim idham As New BindingSource
Dim sulhi As New BindingSource
Dim bahri As New BindingSource
Menambah baris (isi) pada data table
For RI As Integer = 1 To Acak.Next(1, 5)
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
'MEMBUAT TABEL
dengannama kolom yg berbeda2
DTRI.Columns.Add(New DataColumn("Kode
Rekening Induk", GetType(String))) 'untuk teks
DTRI.Columns.Add(New DataColumn("Nama
Rekening Induk", GetType(String)))
'UNTUK MENGGANTI
NAMA DLM DATASET YG TDX TABEL1 DST (BS DILAKUKAN SEBELUM DTTABEL DMASUKKAN KE
DLM DATASET)
DTRI.TableName = "ICA"
DTRS.TableName = "DIS"
DTRSS.TableName = "OCA"
'membuat binding
datasource (mengatur datasource dan data membernya)
idham.DataSource = amal
idham.DataMember = "ica"
'MEMUNCULKAN DLM
DGV
DataGridView1.DataSource = amal
DataGridView2.DataSource = sulhi
DataGridView3.DataSource = bahri
Even
Formload
Table click
Table click
Property
Default
Langkah-langkah
penyelesaian
1 1. Buat Form Desain terlebih dahulu,
seperti contoh dibawah:
2. Masukkan rumus
Public Class Latihan_13_46110003
' TEMPAT
DEKLARASI UNTUK DATA TABEL BARU
Dim DTRI As New DataTable
Dim DTRS As New DataTable
Dim DTRSS As New DataTable
'DEKLARASI
MEMBUAT DATASET BARU
Dim amal As New DataSet 'yaitu object yg dpt menampung object datatable
'untuk
mendeklarasikan binding source
Dim idham As New BindingSource
Dim sulhi As New BindingSource
Dim bahri As New BindingSource
Private Sub Latihan_13_46110003_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'MEMBUAT TIGA
BUAH TABEL dengannama kolom yg berbeda2
DTRI.Columns.Add(New DataColumn("Kode
Rekening Induk", GetType(String))) 'untuk teks
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
'MEMASUKKAN
DATATABEL KE DATA SET DAN JIKA SDH D DLM DATASET NAMA DTTABEL SHD TDK DIKENAL
LG
amal.Tables.Add(DTRI)
amal.Tables.Add(DTRS)
amal.Tables.Add(DTRSS)
'UNTUK
MENGGANTI NAMA DLM DATASET YG TDX TABEL1 DST (BS DILAKUKAN SEBELUM DTTABEL
DMASUKKAN KE DLM DATASET)
DTRI.TableName = "ICA"
DTRS.TableName = "DIS"
DTRSS.TableName = "OCA"
'UNTUK
MENAMBAH RELASI DLM DATASET dari ica ke dis dan dis ke oca
amal.Relations.Add(New DataRelation("TA",
amal.Tables("ICA").Columns("kode rekening induk"), amal.Tables("dis").Columns("kode
rekening induk")))
amal.Relations.Add(New DataRelation("HI",
amal.Tables("DIS").Columns("kode rekening sub"), amal.Tables("oca").Columns("kode
rekening sub")))
'membuat
binding datasource (mengatur datasource dan data membernya)
idham.DataSource = amal
idham.DataMember = "ica"
'DATASOURCE
BINDING2 ADLH NAMA BINDING YG P'TAMA DAN DATAMEMBERNYA ADLAH NAMA RELASINYA
sulhi.DataSource = amal
sulhi.DataMember = "TA"
'DATASOURCE
BINDINg3 ADLH NAMA BINDING YG kedua DAN DATAMEMBERNYA ADLAH NAMA RELASINYA
bahri.DataSource = sulhi
bahri.DataMember = "HI"
'MEMUNCULKAN
DLM DGV
DataGridView1.DataSource = amal
DataGridView2.DataSource = sulhi
DataGridView3.DataSource = bahri
End Sub
End Class3. Jalankan Program
0 komentar:
Posting Komentar