Latihan_12_46110038

Deskripsi Form Latihan_12_46110038:

Form Latihan_12_46110038 terdapat 6 object yaitu Label, Textbox, Button,  Datetimepicker, Groupbox, dan Datagridview:

Object Label

Di Latihan_12_46110038 ada 11 label yang berisi teks No. Pembelian, Nama Barang, Harga Perunit, Unit, Tanggal, Jumlah, Total Unit, Total, No. Baris, No. Pembelian, dan Baris Sekarang.

Object Text Box

Di Latihan_12_46110038 ada 9 textbox, 6 status input, 3 berstatus read only. Texbox yang berstatus input digunakan untuk memasukkan No. Pembelian, Nama barang, Harga Perunit, No. Baris. Sedangkan yang berstatus 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

Di Latihan_12_46110038 ada 7 object button yang berisi teks Simpan, Tampilkan dan Hapus masing-masing ada 3. Button Simpan digunakan untuk memasukkan data yang telah diinput ke dalam Datagridview. Button Tampilkan digunakan untuk menampilkan data dalam Datagridview ke dalam textbox tempat menginput data, sedangkan button Hapus digunkan untuk menghapus data yang ada di dalam Datagridview.

Object Datagridview

Di Latihan_12_46110038 ada 1 objek datagridview yang digunakan untuk menampilkan data yang telah diinput dalam No. Pembelian, Nama Barang, Harga Perunit, Unit, Jumlah, dan Tanggal pembelian.

Object Datatimepicker

Di Latihan_12_46110038 ada 1 object datetimepicker yang digunakan untuk menentukan tanggal pembelian

Object Groupbox

Di Latihan_12_46110038 ada 5 groupbox yang berisi teks Formulir1, Data, Berdasarkan No Baris, Berdasarkan No Pembelian, dan Berdasarkan Baris Sekarang.

Script Unique

Untuk button Simpan, Tampilkan, dan Hapus:

Dim baris As DataRow

Even

TextChanged

ButtonClick

Property

Property TextBox =>ReadOnly=True

Cara Membuat Form Latihan_12_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_12_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_12_46110038

    Dim tabel As New DataTable

    Private Sub latihan_12_46110038_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)))

        Data46110038.DataSource = tabel

        Dim kolom(1) As DataColumn

        kolom(0) = tabel.Columns("no. pembelian")

        tabel.PrimaryKey = kolom

    End Sub

    Private Sub c46110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c46110038.TextChanged, e46110038.TextChanged

        f46110038.Text = Val(c46110038.Text) * Val(e46110038.Text)

    End Sub

    Private Sub simpan46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110038.Click

        Dim baris As DataRow

        baris = tabel.Rows.Find(a46110038.Text)

        If baris Is Nothing Then

            baris = tabel.NewRow

            baris("no. pembelian") = a46110038.Text

            baris("nama barang") = b46110038.Text

            baris("harga per unit") = Val(c46110038.Text)

            baris("tanggal pembelian") = d46110038.Value.Date

            baris("unit") = Val(e46110038.Text)

            baris("jumlah") = Val(f46110038.Text)

            tabel.Rows.Add(baris)

            a46110038.Text = ""

            b46110038.Text = ""

            c46110038.Text = ""

            e46110038.Text = ""

            f46110038.Text = ""

        Else : MsgBox("baris sudah ada")

            f46110038.Text = ""

        End If

        aku()

    End Sub

    Private Sub t146110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t146110038.Click

        Dim baris As DataRow

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

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

            a46110038.Text = baris("no. pembelian")

            b46110038.Text = baris("nama barang")

            c46110038.Text = baris("harga per unit")

            d46110038.Value = baris("tanggal pembelian")

            e46110038.Text = baris("unit")

            f46110038.Text = baris("jumlah")

        Else

            MsgBox("baris terlalu besar")

        End If

        i46110038.Text = ""

    End Sub

    Private Sub h146110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h146110038.Click

        Dim baris As DataRow

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

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

            baris.Delete()

        Else

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

        End If

        i46110038.Text = ""

    End Sub

    Private Sub t246110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t246110038.Click

        Dim baris As DataRow

        baris = tabel.Rows.Find(j46110038.Text)

        If Not baris Is Nothing Then

            a46110038.Text = baris("no. pembelian")

            b46110038.Text = baris("nama barang")

            c46110038.Text = baris("harga per unit")

            d46110038.Value = baris("tanggal pembelian")

            e46110038.Text = baris("unit")

            f46110038.Text = baris("jumlah")

        Else

            MsgBox("no. pembelian tidak ada")

        End If

        j46110038.Text = ""

    End Sub

    Private Sub h246110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h246110038.Click

        Dim baris As DataRow

        baris = tabel.Rows.Find(j46110038.Text)

        If Not baris Is Nothing Then

            baris.Delete()

            j46110038.Text = ""

        Else

            MsgBox("no. pembelian yang dimasukkan tidak ada")

            j46110038.Text = ""

        End If

    End Sub

    Private Sub t346110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t346110038.Click

        Dim baris As DataRow

        baris = tabel.DefaultView(BindingContext(tabel).Position).Row

        a46110038.Text = baris("no. pembelian")

        b46110038.Text = baris("nama barang")

        c46110038.Text = baris("harga per unit")

        d46110038.Value = baris("tanggal pembelian")

        e46110038.Text = baris("unit")

        f46110038.Text = baris("jumlah")

    End Sub

    Private Sub h346110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h346110038.Click

        Dim baris As DataRow

        baris = tabel.DefaultView(BindingContext(tabel).Position).Row

        baris.Delete()

    End Sub

    Private Sub aku()

        Dim tu, total As Integer

        For Each x As DataRow In tabel.Rows

            tu = tu + x("unit")

            total = total + x("jumlah")

        Next

        g46110038.Text = tu

        h46110038.Text = total

    End Sub

End Class

Langkah untuk menjalankan Latihan_12_46110038:

1.    Klik start debugging.

2.    Isi text box yang berstatus input.

3. Hasil akan muncul secara otomatis pada total textbox readonly dan datagridview setelah menginput.