Latihan_13_46110024

DESKRIPSI FORM LATIHAN 13

Form Latihan ini Terdapat satu object yaitu  DataGridView

Object Data Gridview

Terdapat  tiga object datagridview. Datagridview digunakan untuk menampilkan data yang ingin ditampilkan. dalam form ini data yang ditapilkan dalam bentuk tabel

Script  Unique

Untuk mendeklarasikan data tabel baru

Dim DTRI As New DataTable

Dim DTRS As New DataTable

Dim DTRSS As New DataTable

 

Dim waty As New DataSet ==> untuk membuat DataSet baru

Dim herawati As New BindingSource ==> untuk medeklarasikan bindingSource

Memasukkan datatabel ke data set dan jika sudah di dalam dataset nama data table sudah tidak  dikenal lagi

waty.Tables.Add(DTRI)

waty.Tables.Add(DTRS)

waty.Tables.Add(DTRSS)

Untuk mengganti nama dalam dataset yang tadinya tabel1 dst (bias dilakukan sebelum datatabel dimasukkan ke dalam dataset)

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

untuk menambah relasi dlm dataset dari ica ke dis dan dis ke oca
waty.Relations.Add(New DataRelation("TA", waty.Tables("ICA").Columns("kode rekening induk"), waty.Tables("dis").Columns("kode rekening induk")))

waty.Relations.Add(New DataRelation("HI", waty.Tables("DIS").Columns("kode rekening sub"), waty.Tables("oca").Columns("kode rekening sub")))

membuat binding datasource (mengatur datasource dan data membernya)

herawati.DataSource = waty

herawati.DataMember = "ica"

datasource binding adalah  nama binding yang pertama dan data membernya adalah nama relasinya

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

Datasource binding3 adalah nama binding yang kedua dan datamembernya adalah nama relasinya
AKBAR.DataSource = LUKMAN
AKBAR.DataMember = "HI"

Memunculkan dalam datagridview
DataGridView1.DataSource = herawati
DataGridView2.DataSource = LUKMAN
DataGridView3.DataSource = AKBAR

Even

Load

Langkah- Langkah Membuat Form Latihan 12

1.   Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form 

 

2.   Ganti nama sesuai dengan nama yang anda ingingkan

3.   Lalu pilih object yang ada di latihan 13 yaitu  datagridview pada toolbox

 

 4.  Buat form sampai menghasilkan form seperti dibawah

 5.  Pilih menu view lalu code

 

6.   Masukkan script sebagai berikut:
Public Class Latihan_13_46110024

    Dim DTRI As New DataTable
    Dim DTRS As New DataTable
    Dim DTRSS As New DataTable

    Dim waty As New DataSet

    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

        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


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


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


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


        herawati.DataSource = waty
        herawati.DataMember = "ica"


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


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


        dgv1_46110024.DataSource = herawati
        dgv2_46110024.DataSource = LUKMAN
        dgv3_46110024.DataSource = AKBAR

    End Sub

End Class

Langkah-Langkah Menjalankan Form Latihan 12

1. Klick Star Debugging 
2. Input data pada textbox yang berstatus input pada groupbox formulir 
3. Clik tombol simpan maka data yang diinput akan tersimpan pada datagridview dan akan menampilkan total unit dan total 
4. Input data yang anda inginkan pada groupbox baik berdasarkan baris, no. pembelian, maupun baris sekarang 
5. Pilih tampilkan untuk menampilkan data yang anda inginkan ataupun hapus untuk menghapus data yang anda inginkan