Latihan_12_46110027

Deskripsi Form Latihan 12

Dalam Form latihan ini terdapat enam object yaitu GroupBox, Label, TextBox, Button, dan DataGriedView dan Datetimepiker.

1. Object GroupBox

      Dalam form ini terdapat lima object groupbox yang berguna untuk menyatukan beberapa object toolbox dalam satu kategori tertentu antara lain "Formulir" "data" "Berdasarkan No.Baris" "Berdasarkan No.Pembelian" dan " Bardasarkan No.Sekarang"

2. Object Label 

          Dalam form ini terdapat terdapat sebelas label antara lain: No Pembelian, Nama Barang, Harga Perunit, Unit Tanggal, Jumlah, Total Unit, Total, No Baris, No Pembelian, Baris Sekarang.

3. Object Textbox

        Dalam form ini terdapat sembilan object textbox (enam status input; tiga status read only). Status input digunakan antara lain No Pembelian, Nama Barang, Harga Perunit, No Baris. Status Read Only digunakan untuk menampilkan hasil rumus yg dimasukkan

4. Object Button

        

         Dalam form ini terdapat tujuh object button antara lain Simpan, Tampilkan dan Hapus . Tombol Simpan digunakan untuk memasukkan data yang telah diinput ke dalam datagridview. Tombol Tampilkan digunakan untuk menampilkan data dalam datagridview  Sedangkan tombol Hapus  untuk menghapus data yang ada di dalam datagridview. 

5. Object Datagridview

        Dalam form ini terdapat satu objek DataGridView yang berfungsi untuk menampilkan data yang telah diinput dalam no pembelian, nama barang, harga perunit, unit, jumlah, dan tanggal pembelian.

6. Object Datetimepiker

        Dalam form ini terdapat satu object DateTimePicker yang digunakan untuk menentukan tanggal pembelian.

• Langkah-langkah membuat form latihan 12 

1.  Buka project yang telah dibuat sebelumnya

2.  Pilih project dan klik add windows form

3. Pada kotak "Name" ketik nama file yang akan dibuat.

     

4. Buat form seperti dibawah ini dengan menggunakan toolbox.

5. Pilih menu View lalu klik code..masukkan rumus berikut:

Public Class Latihan_12_46110027

    Dim tabel As New DataTable

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

        Data_46110027.DataSource = tabel

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

    End Sub

    Private Sub Hrg_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hrg_46110027.TextChanged, unit_46110027.TextChanged
        jml_46110027.Text = Val(hrg_46110027.Text) * Val(unit_46110027.Text)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(nopem_46110027.Text)

        If baris Is Nothing Then
            baris = tabel.NewRow

            baris("no. pembelian") = nopem_46110027.Text
            baris("nama barang") = nabar_46110027.Text
            baris("harga per unit") = Val(hrg_46110027.Text)
            baris("tanggal pembelian") = tgl_46110027.Value.Date
            baris("unit") = Val(unit_46110027.Text)
            baris("jumlah") = Val(jml_46110027.Text)

            tabel.Rows.Add(baris)

            nopem_46110027.Text = ""
            nabar_46110027.Text = ""
            hrg_46110027.Text = ""
            unit_46110027.Text = ""
            jml_46110027.Text = ""

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

    End Sub

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

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

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

            nopem_46110027.Text = baris("no. pembelian")
            nabar_46110027.Text = baris("nama barang")
            hrg_46110027.Text = baris("harga per unit")
            tgl_46110027.Value = baris("tanggal pembelian")
            unit_46110027.Text = baris("unit")
            jml_46110027.Text = baris("jumlah")

        Else
            MsgBox("baris terlalu besar")

        End If
        Nobar_46110027.Text = ""
    End Sub

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


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

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

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

        End If
        Nobar_46110027.Text = ""

    End Sub


    Private Sub t2_4611007_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T2_46110027.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(npem_46110027.Text)

        If Not baris Is Nothing Then
            nopem_46110027.Text = baris("no. pembelian")
            nabar_46110027.Text = baris("nama barang")
            hrg_46110027.Text = baris("harga per unit")
            tgl_46110027.Value = baris("tanggal pembelian")
            unit_46110027.Text = baris("unit")
            jml_46110027.Text = baris("jumlah")

        Else
            MsgBox("no. pembelian tidak ada")

        End If
        npem_46110027.Text = ""

    End Sub

    Private Sub H1_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H1_46110027.Click
        Dim baris As DataRow
        If Val(Nobar_46110027.Text) <= tabel.Rows.Count Then

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

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

        End If
        Nobar_46110027.Text = ""


    End Sub

    Private Sub T1_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T1_46110027.Click
        Dim baris As DataRow
        If Val(Nobar_46110027.Text) <= tabel.Rows.Count Then

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


            nopem_46110027.Text = baris("no. pembelian")
            nabar_46110027.Text = baris("nama barang")
            hrg_46110027.Text = baris("harga per unit")
            tgl_46110027.Value = baris("tanggal pembelian")
            unit_46110027.Text = baris("unit")
            jml_46110027.Text = baris("jumlah")
        Else
            MsgBox("baris terlalu besar")

        End If
        Nobar_46110027.Text = ""

    End Sub

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

    End Sub

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

• Langkah-langkah menjalankan form latihan 12

1. Klik start debugging
2. Input data ke dalam formulir 1 lalu simpan
3. Apabila ingin mengahapus data atau menampilkan data yang ada pada "DATA" maka gunakan "Berdasarkan No.Baris, Berdasarkan no.Pembelian atau Berdasarkan No. Sekarang"

• Script Unique  
Untuk button Simpan, Tampilkan dan Hapus

Dim baris As DataRow 
• Even   

       Buttonclick TextChanged

• Property 

             Property TextBox è ReadOnly = True