Latihan_13_36110033

    Latihan_13_36110033

         A.    Object dalam Latihan_13_36110033:

            Object Data Gridview

     Terdapat tiga data gridview yang digunakan untuk menampilkan table serta data yang telah dibuat dalam rumus.

         B.     Script Unique
               Membuat New Datatable, Dataset, BindingSource

Dim MARNI As New DataTable

Dim ILHA As New DataTable

Dim INHA As New DataTable

Dim ZAHRA As New DataSet

Dim ARYANGGA As New BindingSource

Dim ADHE As New BindingSource

Dim TIWI As New BindingSource

Saat membuat kolom pada datatable

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

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

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

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

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

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

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

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

INHA.Columns.Add(New DataColumn("Nama Rekening Sub-sub", GetType(String)))

       C.    Even 
       Latihan_13_36110033_Load

     

Prosedur

1.    Klik Start lalu pilih Microsoft Visual Studio 2008

2.    Buka Ms. Visual Studio

3.    Lalu akan muncul jendela awal Microsoft Visual Studio

4.    Klik Add New Item dan akan muncul jendela add new item seperti berikut:

Setelah muncul pilih windos from, kemudian ganti nama sesuai dengan nama yang diinginkan dan selanjutnya klik tombol add. Langkah ini dilakukan karena kita sudah pernah membuat project sebelumnya. Akan muncul from untuk digunakan membuat project

5. Buat kolom pada form dengan menggunakan Datagridview, sebanyak 3. Kumudian  namanya terserah anda kemudian diikuti no stambuk setelahnya. Adapun posisi Idatagridviewnya disesuai dengan design pada latihan 13 berikut:

6.      Untuk menuliskan rumus pada latihan 13, anda dapat menuliskan rumus seperti dibawah ini:

Public Class Latihan_13_36110033

    Dim MARNI As New DataTable

    Dim ILHA As New DataTable

    Dim INHA As New DataTable

    Dim ZAHRA As New DataSet

    Dim ARYANGGA As New BindingSource

    Dim ADHE As New BindingSource

    Dim TIWI As New BindingSource

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

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

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

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

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

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

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

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

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

INHA.Columns.Add(New DataColumn("Nama Rekening Sub-sub", GetType(String)))

Dim Acak As New Random

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

    MARNI.Rows.Add(SD, "Nama Rekening " & SD)

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

ILHA.Rows.Add(SD, SD & RD, "Nama Sub Rekening " & SD & RD)

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

 INHA.Rows.Add(SD, SD & RD, SD & RD & AT, "Nama Sub Sub Rekening " & SD & RD & AT)

              Next

             Next

           Next

       ZAHRA.Tables.Add(MARNI)

       ZAHRA.Tables.Add(ILHA)

       ZAHRA.Tables.Add(INHA)

       MARNI.TableName = "ARNI"

       ILHA.TableName = "LHA"

       INHA.TableName = "NHA"

ZAHRA.Relations.Add(NewDataRelation("MA",ZAHRA.Tables("ARNI").Columns(" kode rekening induk"),ZAHRA.Tables("LHA").Columns("kode rekening induk")))

ZAHRA.Relations.Add(NewDataRelation("IL",ZAHRA.Tables("LHA").Columns("kode rekening sub"),ZAHRA.Tables("NHA").Columns("kode rekening sub")))

        ARYANGGA.DataSource = ZAHRA

        ARYANGGA.DataMember = "ARNI"

        ADHE.DataSource = ARYANGGA

        ADHE.DataMember = "MA"

        TIWI.DataSource = ADHE

        TIWI.DataMember = "IL"

        datag1_36110033.DataSource = ARYANGGA

        datag2_36110033.DataSource = ADHE

        datag3_36110033.DataSource = TIWI

End Sub

       End Class

7.   Kemudian di Start Debbuging, maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan serta coba jalankan perintah yang ingin kita ketahui dari latihan tersebut untuk mengetahui hasilnya yang lebih jelas lagi.

8.      Jika program berjalan simpan dengan menekan tombol ctrl+s  untuk menyimpan data dan prosedur latihan 13 selesai.