Latihan_13_46110022

07.39 by Unknown
Deskripsi Form Latihan 13
Dalam form ini hanya terdapat 1 buah objek, yaitu objek DataGriedView.

Objek DataGriedView

Dalam form ini terdapat 3 buah objek DataGriedView, yang berfungsi untuk menampilka data dalam bentuk tabel yang terdiri dari baris dan kolom.

Script Unique

Tempat deklarasi untuk data tabel baru :

 Dim DT1 As New DataTable  

Dim DT2 As New DataTable

Dim DT3 As New DataTable

Untuk mendaklarasikan binding source :

 Dim DBS1 As New BindingSource
 
 Dim DBS2 As New BindingSource

 Dim DBS3 As New BindingSource

Untuk mengganti nama dlm dataset yg tadinya tabel1 dst (bs dilakukan sebelum datatabel dmasukkan ke dalam dataset):

DT1.TableName = "QP1"
 
DT2.TableName = "QP2"

DT3.TableName = "QP3"

Untuk memunculkan DataGriedView :

dgv146110022.DataSource = DBS1
 
dgv246110022.DataSource = DBS2

dgv346110022.DataSource = DBS3

Even :
Load

Langkah-Langkah Membuat Form Latihan 13

a. buat form baru seperti berikut :

 

b. Masukkan nama form Latihan 13 seperti berikut :

 

c. Buat form seperti berikut : 

 

 d. Masukkan rumus seperti berikut :

Public Class Latihan_13_46110022
    Dim DT1 As New DataTable
    Dim DT2 As New DataTable
    Dim DT3 As New DataTable

    Dim DS As New DataSet

    Dim DBS1 As New BindingSource
    Dim DBS2 As New BindingSource
    Dim DBS3 As New BindingSource

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

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

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

        Dim RPT As New Random
        For RI As Integer = 1 To RPT.Next(1, 5)
            DT1.Rows.Add(RI, "Nama Rekening " & RI)
            For RS As Integer = 1 To RPT.Next(1, 5)
                DT2.Rows.Add(RI, RI & RS, "Nama Sub Rekening " & RI & RS)
                For RSS As Integer = 1 To RPT.Next(1, 5)
                    DT3.Rows.Add(RI, RI & RS, RI & RS & RSS, "Nama Sub Sub Rekening " & RI & RS & RSS)
                Next
            Next
        Next

        DS.Tables.Add(DT1)
        DS.Tables.Add(DT2)
        DS.Tables.Add(DT3)

        DT1.TableName = "QP1"
        DT2.TableName = "QP2"
        DT3.TableName = "QP3"

        DS.Relations.Add(New DataRelation("NR1", DS.Tables("QP1").Columns("Kode Rekening Induk"), DS.Tables("QP2").Columns("Kode Rekening Induk")))
        DS.Relations.Add(New DataRelation("NR2", DS.Tables("QP2").Columns("Kode Rekening Sub"), DS.Tables("QP3").Columns("Kode Rekening sub")))

        DBS1.DataSource = DS
        DBS1.DataMember = "QP1"

        DBS2.DataSource = DBS1
        DBS2.DataMember = "NR1"

        DBS3.DataSource = DBS2
        DBS3.DataMember = "NR2"

        dgv146110022.DataSource = DBS1
        dgv246110022.DataSource = DBS2
        dgv346110022.DataSource = DBS3
    End Sub
End Class

e. Untuk menjalankan form ini, klik start debugging seperti berikut : 



Langkah-Langkah Membuat Form Latihan 13
  • Klik start debugging
  • Isi textbox yang bersatus input
  • Hasil akan muncul sendiri setelah textbox input telah diisi









0 komentar
Langganan: Postingan (Atom)