FOTO SAMPUL

Welcome to WordPress. This is your first post. Edit or delete it, then start blogging!Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, ...

Category name clash

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. ...

Test with enclosures

Here's an mp3 file that was uploaded as an attachment: Juan Manuel Fangio by Yue And here's a link to an external mp3 file: Acclimate by General Fuzz Both are CC licensed. Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, ...

Block quotes

Some block quote tests: Here's a one line quote. This part isn't quoted. Here's a much longer quote: Lorem ipsum dolor sit amet, consectetuer adipiscing elit. In dapibus. In pretium pede. Donec molestie facilisis ante. Ut a turpis ut ipsum pellentesque tincidunt. Morbi blandit sapien in mauris. Nulla lectus lorem, varius aliquet, ...

Contributor post, approved

I'm just a lowly contributor. My posts must be approved by the editor.Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. Maecenas at ...

Latihan_13_46110021

Posted by Unknown - - 0 komentar

Deskripsi Form :

Form Latihan ini Terdapat hanya 1 object yaitu datagridview:
Object Datagridview
object ini akan menampilkan tabel sesuai dengan fungsi yang dimasukkan kedalamnya.
datagridview 1 berisi daftar rekening induk
datagridview 2 berisi daftar rekening sub tiap induk
datagridview 3 berisi daftar rekening subsub dari rekening sub tiap rekening induk
3
                  
Cara Membuat Form latihan13
     silahkan lihat video dibawah ini :

setelah itu ubah nama masing2 text box, klik kanan pada form lalu pilih view code, dan masukkan kode ini (jangan lupa," nama datagridview yang didesain harus sama dengan nama datagridview di vb).



Public Class Latihan_13_46110021

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

     Dim idham As New DataSet

     Dim bin1 As New BindingSource
    Dim bin2 As New BindingSource
    Dim bin3 As New BindingSource

     Private Sub Latihan_13_46110021_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.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
        idham.Tables.Add(DTRI)
        idham.Tables.Add(DTRS)
        idham.Tables.Add(DTRSS)
        DTRI.TableName = "ICA"
        DTRS.TableName = "DIS"
        DTRSS.TableName = "OCA"
        idham.Relations.Add(New DataRelation("TA", idham.Tables("ICA").Columns("kode rekening induk"), idham.Tables("dis").Columns("kode rekening induk")))
        idham.Relations.Add(New DataRelation("HI", idham.Tables("DIS").Columns("kode rekening sub"), idham.Tables("oca").Columns("kode rekening sub")))
        bin1.DataSource = idham
        bin1.DataMember = "ica"
        bin2.DataSource = bin1
        bin2.DataMember = "TA"
        bin3.DataSource = bin2
        bin3.DataMember = "HI"
        DataGridView1_46110021.DataSource = bin1
        DataGridView2_46110021.DataSource = bin2
        DataGridView3_46110021.DataSource = bin3
    End Sub
End Class



SCRIPT unik

  1. Dim idham As New DataSet --> fungsi ini untuk mendeklarasaikan idham sebagai data set baru
  2. Dim bin1 As New BindingSource --> fungsinya ialah untuk mendeklarasaikan bin1 sebagai bindingsource.
  3. bin1.DataSource = idham  --> fungsinya ialah untuk mendaatkan data dari dataset
New Toolbox
  1. Datagridview

Langkah untuk menjalankan form ini :
1.    Klik start debugging.
2.   Data akan secxara otomatis muncul pada object datagridview

Leave a Reply