Latihan_13_46110020

Deskripsi Form Latihan 13

Form latihan 13 terdapat Satu object yaitu  DataGriedView.

Object DataGridView

Dalam form ini Hanya terdapat 3 object datagridview. Yang digunakan untuk menampilkan tabel yang telah dibuat dalam script.

Cara Untuk Membuat Form Latihan 13 :

1.     Pertama Bukalah Project yang telah anda buat sebelumnya.

2.     Pilih dan  Buka Project dalam visual basic.

3.     Kemudian pilih Add Windows form

 

4.    Lalu add new item dan rename file “form.vb menjadi Latihan_13_46110020”

 

5.    Setelah namenya di rename pilih add lalu muncullah form seperti ini :

 

6.    Kemudian mulailah membuat form 13 dengan mengunakan DataGriedView.

 

7.  Lalu buatlah sesuai contoh latihan 13 dengan menggunkan 3 DataGrieView maka akan menjadi seperti ini :

  

8.    Setelah form di atas telah jadi maka klik kanan lalu pilih View Code,kemudian masukkan rumus seperti berikut :

Public Class Latihan_13_46110020

    Dim YUNI As New DataTable

    Dim TIKA As New DataTable

    Dim FITRI As New DataTable

    Dim BAHRI As New DataSet

    Dim RESTY As New BindingSource

    Dim WATI As New BindingSource

    Dim ALFAEGA As New BindingSource

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

        YUNI.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

        YUNI.Columns.Add(New DataColumn("Nama Rekening Induk", GetType(String)))

        TIKA.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

        TIKA.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))

        TIKA.Columns.Add(New DataColumn("Nama Rekening Sub", GetType(String)))

        FITRI.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

        FITRI.Columns.Add(New DataColumn("Kode Rekening sub", GetType(String)))

        FITRI.Columns.Add(New DataColumn("Kode Rekening Sub-sub", GetType(String)))

        FITRI.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)

            YUNI.Rows.Add(RI, "Nama Rekening " & RI)

            For RS As Integer = 1 To Acak.Next(1, 5)

                TIKA.Rows.Add(RI, RI & RS, "Nama Sub Rekening " & RI & RS)

                For RSS As Integer = 1 To Acak.Next(1, 5)

                    FITRI.Rows.Add(RI, RI & RS, RI & RS & RSS, "Nama Sub Sub Rekening " & RI & RS & RSS)

                Next

            Next

        Next

        BAHRI.Tables.Add(YUNI)

        BAHRI.Tables.Add(TIKA)

        BAHRI.Tables.Add(FITRI)

        YUNI.TableName = "CINTA"

        TIKA.TableName = "SAYANG"

        FITRI.TableName = "RINDU"

        BAHRI.Relations.Add(New DataRelation("TA", BAHRI.Tables("CINTA").Columns("kode rekening induk"), BAHRI.Tables("SAYANG").Columns("kode rekening induk")))

        BAHRI.Relations.Add(New DataRelation("HI", BAHRI.Tables("SAYANG").Columns("kode rekening sub"), BAHRI.Tables("RINDU").Columns("kode rekening sub")))

        RESTY.DataSource = BAHRI

        RESTY.DataMember = "CINTA"

        WATI.DataSource = RESTY

        WATI.DataMember = "TA"

        ALFAEGA.DataSource = WATI

        ALFAEGA.DataMember = "HI"

        DGV1_46110020.DataSource = RESTY

        DGV2_46110020.DataSource = WATI

        DGV3_46110020.DataSource = ALFAEGA

    End Sub

End Class

  

Langkah – Langkah Menjalankan Latihan 13:

1.    Pertama, Klik start debugging, Maka Secara otomatis akan muncul seperti di bawah ini :

 

 

2.    Tampilan ini akan tampil secara acak.

3.    Selamat Mencoba :) 

Script unik

Untuk membuat DataTable  :

Dim YUNI As New DataTable

Dim TIKA As New DataTable

Dim FITRI As New DataTable

Untuk membuat DataSet :

Dim BAHRI As New DataSet

Untuk Membuat BindingSource :

Dim RESTY As New BindingSource

Dim WATI As New BindingSource

Dim ALFAEGA As New BindingSource

Untuk membuat kolom pada DataTable :

YUNI.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

Untuk menambah baris / (isi) atau akan menampilkan secara acak pada DataTable :

Dim Acak As New Random

        For RI As Integer = 1 To Acak.Next(1, 5)

            YUNI.Rows.Add(RI, "Nama Rekening " & RI)

Next 

Untuk Menambahkan data table pada DataSet :

BAHRI.Tables.Add(YUNI)

Untuk Membuat nama lain pada DataTable :

YUNI.TableName = "CINTA"

Untuk  Membuat Relationship :

BAHRI.Relations.Add(New DataRelation("TA", BAHRI.Tables("CINTA").Columns("kode rekening induk"), BAHRI.Tables("SAYANG").Columns("kode rekening induk")))

DataSet menjadi DataSource :

RESTY.DataSource = BAHRI

        RESTY.DataMember = "CINTA"

BindingSource menjadi DataSource pada DataGridView :

DGV1_46110020.DataSource = RESTY

     Even

  Load

  Property

  Default