Prosedur Penyelesaian Latihan_13_36110037
Selasa, 25 September 2012 di 10.59 | 0 komentar  
Form Latihan 13 Terdapat sebuah object yaitu  Data Grid View.

Object Data Grid View
Dalam latihan ini, terdapat tiga buah data grid view yaitu "klm1_36110037", "klm2_36110037", dan "klm3_36110037".

Script Unique
Saat membuat Data set
  Dim rhepoet As New DataSet



Saat membuat Data table
  Dim rhepoet1 As New DataTable 
Saat membuat Binding Source
  Dim RPT1 As New BindingSource
 
Saat membuat kolom baru pada Data table
  rhepoet1.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String))) 
Saat menambah baris (isi) pada data table
  For RI As Integer = 1 To 9
            rhepoet1.Rows.Add(RI, "Nama Rekening" & RI)
  next
  
Saat menambahkan data table di data set
  rhepoet.Tables.Add(rhepoet1)

Saat membuat nama lain data table
  rhepoet1.TableName = "RP1"
Saat membuat Relationship
  rhepoet.Relations.Add(New DataRelation("RHEP1", rhepoet.Tables("RP1").Columns("Kode Rekening Induk"), rhepoet.Tables("RP2").Columns("Kode Rekening Induk")))

Saat data set menjadi data source
  RPT1.DataSource = rhepoet
        RPT1.DataMember = "RP1" 

Saat binding source menjadi data source pada data grid view
  klm1_36110037.DataSource = RPT1
Event
Form load
Table click

Property
Default

Prosedur Penyelesaian
1. Buka project yang telah dibuat
2. Buka Solution Explorer
3. Setelah itu klik kanan nama project, pilih add dan klik new item
 
4. Setelah add new item terbuka, pilih windows form, windoes form, kemudian ketik nama form, dan add

5. Buat form seperti di bawah ini dengan menggunakan toolbox

6. Setelah form selesai, ubah nama textbox dan button menggunakan properties window

7. Setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut
Public Class Latihan_13_36110037
    Dim rhepoet As New DataSet

    Dim rhepoet1 As New DataTable
    Dim rhepoet2 As New DataTable
    Dim rhepoet3 As New DataTable

    Dim RPT1 As New BindingSource
    Dim RPT2 As New BindingSource
    Dim RPT3 As New BindingSource


    Private Sub Latihan_13_36110037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rhepoet1.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        rhepoet1.Columns.Add(New DataColumn("Nama Rekening Induk", GetType(String)))

        rhepoet2.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        rhepoet2.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))
        rhepoet2.Columns.Add(New DataColumn("Nama Rekening Sub", GetType(String)))

        rhepoet3.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
        rhepoet3.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))
        rhepoet3.Columns.Add(New DataColumn("Kode Rekening Sub-Sub", GetType(String)))
        rhepoet3.Columns.Add(New DataColumn("Nama Rekening Sub-Sub", GetType(String)))

        Dim RPT As New Random
        For RI As Integer = 1 To 9
            rhepoet1.Rows.Add(RI, "Nama Rekening" & RI)
            For RS As Integer = 1 To RPT.Next(1, 9)
                rhepoet2.Rows.Add(RI, RI & RS, "Nama Sub Rekening " & RI & RS)
                For RSS As Integer = 1 To RPT.Next(1, 9)
                    rhepoet3.Rows.Add(RI, RI & RS, RI & RS & RSS, "Nama Sub Sub Rekening " & RI & RS & RSS)
                Next
            Next
        Next

        rhepoet.Tables.Add(rhepoet1)
        rhepoet.Tables.Add(rhepoet2)
        rhepoet.Tables.Add(rhepoet3)

        rhepoet1.TableName = "RP1"
        rhepoet2.TableName = "RP2"
        rhepoet3.TableName = "RP3"

        rhepoet.Relations.Add(New DataRelation("RHEP1", rhepoet.Tables("RP1").Columns("Kode Rekening Induk"), rhepoet.Tables("RP2").Columns("Kode Rekening Induk")))
        rhepoet.Relations.Add(New DataRelation("RHEP2", rhepoet.Tables("RP2").Columns("Kode Rekening Sub"), rhepoet.Tables("RP3").Columns("Kode Rekening sub")))

        RPT1.DataSource = rhepoet
        RPT1.DataMember = "RP1"
        RPT2.DataSource = RPT1
        RPT2.DataMember = "RHEP1"
        RPT3.DataSource = RPT2
        RPT3.DataMember = "RHEP2"

        klm1_36110037.DataSource = RPT1
        klm2_36110037.DataSource = RPT2
        klm3_36110037.DataSource = RPT3
    End Sub
End Class

8. Uji program dengan mengklik "Start Debugging"

9. Save program dengan mengklik icon "save"

10. Selesai.


Diposting oleh Unknown
Visit the Site
MARVEL and SPIDER-MAN: TM & 2007 Marvel Characters, Inc. Motion Picture © 2007 Columbia Pictures Industries, Inc. All Rights Reserved. 2007 Sony Pictures Digital Inc. All rights reserved. blogger template by blog forum.