Latihan_12_46110045

-->

Deskripsi :

Dalam form 12 ada 5 object, yaitu groupbox, label, textbox, button, dan datagridview.

Object groupbox :

Dalam form 12 ini, ada 5 object groupbox yang berfungsi untuk menyatukan object toolbox dalam kategor tertentu.

Object label :

Dalam form 12 ini ada 11 label yang bertuliskan; no pembelian, nama barang, harga perunit,   unit,  tanggal,  jumlah, total unit, total, no barang, no pembelian, dan baris sekarang.

Object textbox :

Dalam form 12 ini  terdapat sembilan textbox. Status input digunakan untuk memasukkan no pembelian, nama barang, harga perunit, dan 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 :

Dalam form 12 ini ada 7 item button yaitu yang pertama Bertuliskan (Simpan) ketiga, keempat, kelima bertuliskan tampilkan dan hapus. Tombol tampilkan digunakan untuk menampilkan data dalam datagridview ke dalam textbox tempat menginput data. Sedangkan,  tombol  hapus digunakan untuk menghapus data yang ada di dalam datagridview.

Object datagridview :

Dalam form 12 ini ada 1 object datagridview yang berfungsi untuk menampilkan data yang telah diinput di dalam no pembelian, nama barang, harga perunit, unit, jumlah, dan tanggal pembelian.

Object datetimepicker :

Dalam form 12 ini ada 1 object datetimepicker yang berfungsi untuk menentukan tanggal pembelian.

Cara membuat form 12 :

Masukkan rumus seperti ini

--> -->Public Class Latihan_12_46110045
    Dim tabel As New DataTable
    Sub Latihan_12_46110045_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)))

        dgv46110045.DataSource = tabel

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

    End Sub

    Private Sub hp46110045_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hp46110045.TextChanged, un46110045.TextChanged
        jl46110045.Text = Val(hp46110045.Text) * Val(un46110045.Text)

    End Sub

    Private Sub si46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles si46110045.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(np46110045.Text)

        If baris Is Nothing Then
            baris = tabel.NewRow

            baris("no. pembelian") = np46110045.Text
            baris("nama barang") = nb46110045.Text
            baris("harga per unit") = Val(hp46110045.Text)
            baris("tanggal pembelian") = tg46110045.Value.Date
            baris("unit") = Val(un46110045.Text)
            baris("jumlah") = Val(jl46110045.Text)

            tabel.Rows.Add(baris)

            np46110045.Text = ""
            nb46110045.Text = ""
            hp46110045.Text = ""
            un46110045.Text = ""
            jl46110045.Text = ""

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

    End Sub

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

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

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

            np46110045.Text = baris("no. pembelian")
            nb46110045.Text = baris("nama barang")
            hp46110045.Text = baris("harga per unit")
            tg46110045.Value = baris("tanggal pembelian")
            un46110045.Text = baris("unit")
            jl46110045.Text = baris("jumlah")

        Else
            MsgBox("baris terlalu besar")

        End If
        no46110045.Text = ""
    End Sub

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


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

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

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

        End If
        nb46110045.Text = ""

    End Sub


    Private Sub ta246110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ta246110045.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(nopem46110045.Text)

        If Not baris Is Nothing Then
            np46110045.Text = baris("no. pembelian")
            nb46110045.Text = baris("nama barang")
            hp46110045.Text = baris("harga per unit")
            tg46110045.Value = baris("tanggal pembelian")
            un46110045.Text = baris("unit")
            jl46110045.Text = baris("jumlah")

        Else
            MsgBox("no. pembelian tidak ada")

        End If
        nopem46110045.Text = ""

    End Sub

    Private Sub ha2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ha246110045.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(nopem46110045.Text)

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

    End Sub

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

        np46110045.Text = baris("no. pembelian")
        nb46110045.Text = baris("nama barang")
        hp46110045.Text = baris("harga per unit")
        tg46110045.Value = baris("tanggal pembelian")
        un46110045.Text = baris("unit")
        jl46110045.Text = baris("jumlah")

    End Sub

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

    End Sub

    Private Sub dgv46110045_DataBindingComplete(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles dgv46110045.DataBindingComplete
        Dim tu, total As Integer
        For Each x As DataRow In tabel.Rows
            tu46110045.Text = tu46110045.Text + x("unit")
            to46110045.Text = to46110045.Text + x("jumlah")
        Next
        tu46110045.Text = tu
        to46110045.Text = total
    End Sub
End Class

-->

Even :

Buttonclick dan textchanged.

Script unique :

tabel.Columns.Add(New DataColumn("no. pembelian", GetType(String)))

tabel.Columns.Add(New DataColumn("nama barang", GetType(String)))

-->

Langkah-langkah menjalankan form 12 :

1. Isilah data yang telah anda buat di form 12.

2. Hasil akan muncul dengan sendirinya jika anda sudah mengisi data.