Selasa, 11 Oktober 2011

Apkom 4 Latihan 13

Script ini punya Zani anak cantiknya akuntansi 08 kelas A D3

Public Class Latihan013012
' 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 ZAHRAH As New DataSet 'yaitu object yg dpt menampung object datatable

'untuk mendeklarasikan binding source
Dim herawati As New BindingSource
Dim LUKMAN As New BindingSource
Dim AKBAR As New BindingSource

Private Sub Latihan_013_012_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
ZAHRAH.Tables.Add(DTRI)
ZAHRAH.Tables.Add(DTRS)
ZAHRAH.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
ZAHRAH.Relations.Add(New DataRelation("TA", ZAHRAH.Tables("ICA").Columns("kode rekening induk"), ZAHRAH.Tables("dis").Columns("kode rekening induk")))
ZAHRAH.Relations.Add(New DataRelation("HI", ZAHRAH.Tables("DIS").Columns("kode rekening sub"), ZAHRAH.Tables("oca").Columns("kode rekening sub")))

'membuat binding datasource (mengatur datasource dan data membernya)
herawati.DataSource = ZAHRAH
herawati.DataMember = "ica"

'DATASOURCE BINDING2 ADLH NAMA BINDING YG P'TAMA DAN DATAMEMBERNYA ADLAH NAMA RELASINYA
LUKMAN.DataSource = herawati
LUKMAN.DataMember = "TA"

'DATASOURCE BINDINg3 ADLH NAMA BINDING YG kedua DAN DATAMEMBERNYA ADLAH NAMA RELASINYA
AKBAR.DataSource = LUKMAN
AKBAR.DataMember = "HI"

'MEMUNCULKAN DLM DGV
DataGridView1.DataSource = herawati
DataGridView2.DataSource = LUKMAN
DataGridView3.DataSource = AKBAR

End Sub
End Class

Tidak ada komentar:

Poskan Komentar