Latihan_13_46110002

Object dalam Latihan_13_46110002:

Object DataGridView    

Hanya ada terdapat satu object dalam latihan 13 yaitu datagridview. Terdapat 3 object datagridview. Digunakan untuk menampilkan tabel yang telah dibuat dalam script.

Script Unique

Membuat New Datatable, Dataset, dan BindingSource

·         TEMPAT DEKLARASI UNTUK DATA TABEL BARU (Dim DTRI As New DataTable)

·         DEKLARASI MEMBUAT DATASET BARU (Dim ILDA As New DataSet) 'yaitu object yg dpt menampung object datatable

·         untuk mendeklarasikan binding source (Dim herawati As New BindingSource)

·         MEMBUAT TIGA BUAH TABEL dengan nama kolom yg berbeda2 DTRI.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String))) 'untuk teks

·         MEMASUKKAN DATATABEL KE DATA SET DAN JIKA SDH D DLM DATASET NAMA DTTABEL SHD TDK DIKENAL LG (ILDA.Tables.Add(DTRI))

·         UNTUK MENGGANTI NAMA DLM DATASET YG TDX TABEL1 DST BS DILAKUKAN SEBELUM DATA TABEL DMASUKKAN KE DLM DATASET (DTRI.TableName = "ICA")

·         UNTUK MENAMBAH RELASI DLM DATASET dari ica ke dis dan dis ke oca

(ILDA.Relations.Add(New DataRelation("TA",

ILDA.Tables("ICA").Columns("kode rekening induk"),

ILDA.Tables("dis").Columns("kode rekening induk")))

·         membuat binding datasource (mengatur datasource dan data membernya)

herawati.DataSource = ILDA

herawati.DataMember = "ica"

·         DATASOURCE BINDING2 ADLH NAMA BINDING YG P'TAMA DAN DATAMEMBERNYA ADLAH NAMA RELASINYA

LUKMAN.DataSource = herawati

LUKMAN.DataMember = "TA"

·         MEMUNCULKAN DLM DGV

DataGridView1.DataSource = herawati

Even

Load

Property

Default

Cara-cara membuat from

1.      Klik Start lalu pilih Microsoft Visual Studio 2008.

2.      Lalu akan muncul jendela awal Microsoft Visual Studio seperti di bawah ini.klik 2 kali kumpulan latihan untuk membuka folder

3.      Lalu pilih Project dan pilih add windows from

4.      Kemudian buat form dan add

5.      Buat desain seperti dibawah ini dgn menggunakan toolbox (DataGridView)

6.     Beri nama setiap object dan menyertakan NIM

7.    Berikut ini adalah rumus untuk menjalankan form di atas
 Public Class Latihan_13_46110002
    Dim DTRI As New DataTable
    Dim DTRS As New DataTable
    Dim DTRSS As New DataTable
    Dim ILDA As New DataSet
    Dim herawati As New BindingSource
    Dim LUKMAN As New BindingSource
    Dim AKBAR As New BindingSource

    Private Sub Latihan_13_46110002_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


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


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

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


        herawati.DataSource = ILDA
        herawati.DataMember = "ica"


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


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


        DGV1_46110002.DataSource = herawati
        DGV2_46110002.DataSource = LUKMAN
        DGV3_46110002.DataSource = AKBAR

    End Sub

End Class

Langkah untuk menjalankan from

1.      Klik start debugging

Latihan_12_46110002

1.    Object-object dalam Latihan_12_46110002:

Object Label

Terdapat sebelas label yang bertuliskan: No Pembelian, Nama Barang, Harga Perunit, Unit Tanggal, Jumlah, Total Unit, Total, No Baris, No Pembelian, Baris Sekarang.

Object Textbox

Terdapat sembilan textbox (enama status input; tiga status read only). Status input digunakan untuk memasukkan No Pembelian, Nama Barang, Harga Perunit, No Baris. Status Read Only digunakan untuk menampilkan hasil dari perkalian harga perunit dan unit, dan total unit serta jumlah dari data yang dimasukkan dalam datagridview.

Object Button

Terdapat tujuh object button (Simpan, serta Tampilkan dan Hapus ada 3). Tombol Simpan digunakan untuk memasukkan data yang telah diinput ke dalam datagridview. Tombol Tampilkan digunakan untuk menampilkan data dalam datagridview ke dalam textbox tempat menginput data. Sedangkan tombol Hapus digunkan untuk menghapus data yang ada di dalam datagridview.

Object DateTimePicker

Terdapat satu object datetimepicker yang digunakan untuk menentukan tanggal pembelian.

Object DataGridView        

Terdapat satu objek datagridview yang digunakan untuk menampilkan data yang telah diinput dalam No Pembelian, Nama Barang, Harga Perunit, Unit, Jumlah, dan Tanggal Pembelian

Object Group Box

Terdapat lima group box. Terdapat Lima groupbox yang bertuliskan Formulir, Data, Berdasarkan No Baris, Berdasarkan No Pembelian, dan Berdasarkan Baris Sekarang

Script Unique

Untuk button Simpan, Tampilkan, dan Hapus:

Dim baris As DataRow

Even

Load, TextChanged, Click, ABC()

 Property

Property TextBox è ReadOnly = True

  

Cara-cara membuat from

1.      Klik Start lalu pilih Microsoft Visual Studio 2008.

2.      Lalu akan muncul jendela awal Microsoft Visual Studio seperti di bawah ini.klik 2 kali kumpulan latihan untuk membuka folder

3.      Lalu pilih Project dan pilih add windows from

4.      Kemudian buat form dan add

5.      Buat desain seperti dibawah ini dgn menggunakan toolbox.

 

6.     Beri nama setiap object yang ada kecuali object label dan menyertakan NIM.

7.    Berikut ini adalah rumus untuk menjalankan form di atas

Public Class Latihan_12_46110002
    Dim tabel As New DataTable
    Private Sub latihan_12_026_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tabel.Columns.Add(New DataColumn("no. pembelian", GetType(String)))
        tabel.Columns.Add(New DataColumn("nama barang", GetType(String)))
        tabel.Columns.Add(New DataColumn("harga per unit", GetType(Double)))
        tabel.Columns.Add(New DataColumn("tanggal pembelian", GetType(Date)))
        tabel.Columns.Add(New DataColumn("unit", GetType(Integer)))
        tabel.Columns.Add(New DataColumn("jumlah", GetType(Double)))

        DGV_46110002.DataSource = tabel

        Dim kolom(1) As DataColumn
        kolom(0) = tabel.Columns("no. pembelian")
        tabel.PrimaryKey = kolom

    End Sub

    Private Sub HPU_46110002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HPU_46110002.TextChanged, UN_46110002.TextChanged
        JU_46110002.Text = Val(HPU_46110002.Text) * Val(UN_46110002.Text)
    End Sub

    Private Sub SIMPAN_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_46110002.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(NP_46110002.Text)

        If baris Is Nothing Then
            baris = tabel.NewRow
            baris("no. pembelian") = NP_46110002.Text
            baris("nama barang") = NB_46110002.Text
            baris("harga per unit") = Val(HPU_46110002.Text)
            baris("tanggal pembelian") = TG_46110002.Value.Date
            baris("unit") = Val(UN_46110002.Text)
            baris("jumlah") = Val(JU_46110002.Text)

            tabel.Rows.Add(baris)

            NP_46110002.Text = ""
            NB_46110002.Text = ""
            HPU_46110002.Text = ""
            UN_46110002.Text = ""
            JU_46110002.Text = ""

        Else : MsgBox("baris sudah ada")
            JU_46110002.Text = ""
        End If

    End Sub

    Private Sub TAMPIL1_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMPIL1_46110002.Click
        Dim baris As DataRow

        If Val(NOB_46110002.Text) Then

            baris = tabel.Rows(Val(NOB_46110002.Text) - 1)

            NP_46110002.Text = baris("no. pembelian")
            NB_46110002.Text = baris("nama barang")
            HPU_46110002.Text = baris("harga per unit")
            TG_46110002.Value = baris("tanggal pembelian")
            UN_46110002.Text = baris("unit")
            JU_46110002.Text = baris("jumlah")

        Else
            MsgBox("baris terlalu besar")

        End If
        NOB_46110002.Text = ""
    End Sub

    Private Sub HAPUS1_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS1_46110002.Click
        Dim baris As DataRow


        If Val(NOB_46110002.Text) <= tabel.Rows.Count Then

            baris = tabel.Rows(Val(NOB_46110002.Text) - 1)
            baris.Delete()

        Else
            MsgBox("no. baris yang dimasukkan tidak ada")

        End If
        NOB_46110002.Text = ""

    End Sub


    Private Sub HAPUS3_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS3_46110002.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(NOP_46110002.Text)

        If Not baris Is Nothing Then
            NP_46110002.Text = baris("no. pembelian")
            NB_46110002.Text = baris("nama barang")
            HPU_46110002.Text = baris("harga per unit")
            TG_46110002.Value = baris("tanggal pembelian")
            UN_46110002.Text = baris("unit")
            JU_46110002.Text = baris("jumlah")

        Else
            MsgBox("no. pembelian tidak ada")

        End If
        NOP_46110002.Text = ""

    End Sub

    Private Sub TAMPIL3_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMPIL3_46110002.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(NOP_46110002.Text)

        If Not baris Is Nothing Then
            baris.Delete()
            NOP_46110002.Text = ""
        Else
            MsgBox("no. pembelian yang dimasukkan tidak ada")
            NOP_46110002.Text = ""
        End If

    End Sub

    Private Sub HAPUS2_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS2_46110002.Click
        Dim baris As DataRow
        baris = tabel.DefaultView(BindingContext(tabel).Position).Row

        NP_46110002.Text = baris("no. pembelian")
        NB_46110002.Text = baris("nama barang")
        HPU_46110002.Text = baris("harga per unit")
        TG_46110002.Value = baris("tanggal pembelian")
        UN_46110002.Text = baris("unit")
        JU_46110002.Text = baris("jumlah")

    End Sub

    Private Sub TAMPIL2_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMPIL2_46110002.Click
        Dim baris As DataRow
        baris = tabel.DefaultView(BindingContext(tabel).Position).Row
        baris.Delete()

    End Sub

    Private Sub ABC()
        Dim tu, total As Integer
        For Each x As DataRow In tabel.Rows
            tu = tu + x("unit")
            total = total + x("jumlah")
        Next
        TOTU_46110002.Text = tu
        TOT_46110002.Text = total
    End Sub
End Class

Langkah untuk menjalankan from

1.      Klik start debugging

2.      Isi text box yang berstatus input sesuai dengan angka dan data yang dipilih 

3.   Klik tombol simpan maka hasil akan tersimpan, untuk menampilkan maka masukkan no.baris yang akan ditampilkan trus klik  tampilkan, jika ingin menghapus maka klik Hapus.