Latihan_13_46110002

Object dalam Latihan_13_46110002:

Object DataGridView    

Hanya ada terdapat satu object dalam latihan 13 yaitu datagridview. Terdapat 3 object datagridview. Digunakan untuk menampilkan tabel yang telah dibuat dalam script.

Script Unique

Membuat New Datatable, Dataset, dan BindingSource

·         TEMPAT DEKLARASI UNTUK DATA TABEL BARU (Dim DTRI As New DataTable)

·         DEKLARASI MEMBUAT DATASET BARU (Dim ILDA As New DataSet) 'yaitu object yg dpt menampung object datatable

·         untuk mendeklarasikan binding source (Dim herawati As New BindingSource)

·         MEMBUAT TIGA BUAH TABEL dengan nama kolom yg berbeda2 DTRI.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String))) 'untuk teks

·         MEMASUKKAN DATATABEL KE DATA SET DAN JIKA SDH D DLM DATASET NAMA DTTABEL SHD TDK DIKENAL LG (ILDA.Tables.Add(DTRI))

·         UNTUK MENGGANTI NAMA DLM DATASET YG TDX TABEL1 DST BS DILAKUKAN SEBELUM DATA TABEL DMASUKKAN KE DLM DATASET (DTRI.TableName = "ICA")

·         UNTUK MENAMBAH RELASI DLM DATASET dari ica ke dis dan dis ke oca

(ILDA.Relations.Add(New DataRelation("TA",

ILDA.Tables("ICA").Columns("kode rekening induk"),

ILDA.Tables("dis").Columns("kode rekening induk")))

·         membuat binding datasource (mengatur datasource dan data membernya)

herawati.DataSource = ILDA

herawati.DataMember = "ica"

·         DATASOURCE BINDING2 ADLH NAMA BINDING YG P'TAMA DAN DATAMEMBERNYA ADLAH NAMA RELASINYA

LUKMAN.DataSource = herawati

LUKMAN.DataMember = "TA"

·         MEMUNCULKAN DLM DGV

DataGridView1.DataSource = herawati

Even

Load

Property

Default

Cara-cara membuat from

1.      Klik Start lalu pilih Microsoft Visual Studio 2008.

2.      Lalu akan muncul jendela awal Microsoft Visual Studio seperti di bawah ini.klik 2 kali kumpulan latihan untuk membuka folder

3.      Lalu pilih Project dan pilih add windows from

4.      Kemudian buat form dan add

5.      Buat desain seperti dibawah ini dgn menggunakan toolbox (DataGridView)

6.     Beri nama setiap object dan menyertakan NIM

7.    Berikut ini adalah rumus untuk menjalankan form di atas
 Public Class Latihan_13_46110002
    Dim DTRI As New DataTable
    Dim DTRS As New DataTable
    Dim DTRSS As New DataTable
    Dim ILDA As New DataSet
    Dim herawati As New BindingSource
    Dim LUKMAN As New BindingSource
    Dim AKBAR As New BindingSource

    Private Sub Latihan_13_46110002_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DTRI.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        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


        ILDA.Tables.Add(DTRI)
        ILDA.Tables.Add(DTRS)
        ILDA.Tables.Add(DTRSS)


        DTRI.TableName = "ICA"
        DTRS.TableName = "DIS"
        DTRSS.TableName = "OCA"

        ILDA.Relations.Add(New DataRelation("TA", ILDA.Tables("ICA").Columns("kode rekening induk"), ILDA.Tables("dis").Columns("kode rekening induk")))
        ILDA.Relations.Add(New DataRelation("HI", ILDA.Tables("DIS").Columns("kode rekening sub"), ILDA.Tables("oca").Columns("kode rekening sub")))


        herawati.DataSource = ILDA
        herawati.DataMember = "ica"


        LUKMAN.DataSource = herawati
        LUKMAN.DataMember = "TA"


        AKBAR.DataSource = LUKMAN
        AKBAR.DataMember = "HI"


        DGV1_46110002.DataSource = herawati
        DGV2_46110002.DataSource = LUKMAN
        DGV3_46110002.DataSource = AKBAR

    End Sub

End Class

Langkah untuk menjalankan from

1.      Klik start debugging