LATIHAN_12_36110043

Deskripsi Latihan 12

Form Latihan_12 terdapat enam object yaitu Label,Textbox, Button, GroupBox, DataGridView, dan DateTimePicker:

Object Label

Terdapat sembilan object Label (yang bernama  No. Pembelian, Nama Barang, Harga Perunit, Unit, Jumlah, No. Barang, No, Pembelian, Baris Sekarang)

Object Textbox

Terdapat sembilan object textbox (enam status input; tiga status read only). Status input digunakan untuk memasukkan data/angka. Status Read Only digunakan untuk menampilkan hasil perhitungan dari data-data  yang telah diinput.

Object Button

Terdapat delapan object button (yang bertuliskan Simpan, Tampilkan (ada tiga tombol), Hapus (ada tiga tombol), dan tombol Close.) 

GroupBox

Terdapat lima object GroupBox (yang bertuliskan Formulir, Data, Berdasarkan No. Baris, Berdasarkan No. Pembelian, dan Baris Sekarang)

DataGridView

Terdapat satu object DataGridView yang berfungsi untuk menampilkan data yang telah disimpan.

DateTimePicker

Terdapat satu object DateTimePicker

Script Unique

Membuat DataTable 
 Dim TABEL As New DataTable

Menambahkan kolom pada DataTable
 TABEL.Columns.Add(New DataColumn("no. pembelian", GetType(String)))

Membuat DataSource
 DATA_36110043.DataSource = TABEL

Untuk Tombol Simpan
 Dim baris As DataRow

        baris = TABEL.Rows.Find(NP_36110043.Text)

Untuk tombol Tampilkan
  Dim baris As DataRow

        If Val(NOBARIS_36110043.Text) <= TABEL.Rows.Count Then

            baris = TABEL.Rows(Val(NOBARIS_36110043.Text) - 1)

Untuk tombol Hapus
 Dim baris As DataRow

        baris = TABEL.Rows.Find(NOPEMBELIAN_36110043.Text)

        If Not baris Is Nothing Then

            baris.Delete()

Membuat Pemanggilan

Even

Property

Property TextBox ==> ReadOnly=True

        

LANGKAH-LANGKAH 

1.   BUKA  Microsoft Visual Studio 2008 dengan Klik star lalu pilih Microsoft Visual Studio 2008
2.  Click icon "Add new Item"
3.  pilih Windows Form, lalu isi Name dengan Nama Latihan 12 dan click add.
4.  Buat design Form sesuai dengan Form diatas {gunakan object-object di dalam ToolBox dan lihat deskripsi latihan ini.}
5. Ganti nama setiap object kecuali Label menggunakan "Properties Window"
6. Klik 2x pada design form yang telah dibuat  untuk membuka lembar Scripnya.
7. Masukkkan Scrip di bawah ini.

 skripnya....

Public Class LATIHAN_12_36110043

    Dim TABEL As New DataTable

    Private Sub LATIHAN_12_36110043_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_36110043.DataSource = TABEL

        Dim kolom(1) As DataColumn

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

        TABEL.PrimaryKey = kolom

    End Sub

    Private Sub HPU_36110043_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HPU_36110043.TextChanged, UNIT_36110043.TextChanged

        JUMLAH_36110043.Text = Val(HPU_36110043.Text) * Val(UNIT_36110043.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(NP_36110043.Text)

        If baris Is Nothing Then

            baris = TABEL.NewRow

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

            baris("nama barang") = NB_36110043.Text

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

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

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

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

            TABEL.Rows.Add(baris)

            NP_36110043.Text = ""

            NB_36110043.Text = ""

            HPU_36110043.Text = ""

            UNIT_36110043.Text = ""

            JUMLAH_36110043.Text = ""

        Else : MsgBox("baris sudah ada")

            JUMLAH_36110043.Text = ""

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim baris As DataRow

        If Val(NOBARIS_36110043.Text) <= TABEL.Rows.Count Then

            baris = TABEL.Rows(Val(NOBARIS_36110043.Text) - 1)

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

            NB_36110043.Text = baris("nama barang")

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

            TGL_36110043.Value = baris("tanggal pembelian")

            UNIT_36110043.Text = baris("unit")

            JUMLAH_36110043.Text = baris("jumlah")

        Else

            MsgBox("baris terlalu besar")

        End If

        NOBARIS_36110043.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim baris As DataRow

        If Val(NOBARIS_36110043.Text) <= TABEL.Rows.Count Then

            baris = TABEL.Rows(Val(NOBARIS_36110043.Text) - 1)

            baris.Delete()

        Else

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

        End If

        NOBARIS_36110043.Text = ""

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim baris As DataRow

        baris = TABEL.Rows.Find(NOPEMBELIAN_36110043.Text)

        If Not baris Is Nothing Then

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

            NB_36110043.Text = baris("nama barang")

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

            TGL_36110043.Value = baris("tanggal pembelian")

            UNIT_36110043.Text = baris("unit")

            JUMLAH_36110043.Text = baris("jumlah")

        Else

            MsgBox("no. pembelian tidak ada")

        End If

        NOPEMBELIAN_36110043.Text = ""

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim baris As DataRow

        baris = TABEL.Rows.Find(NOPEMBELIAN_36110043.Text)

        If Not baris Is Nothing Then

            baris.Delete()

            NOPEMBELIAN_36110043.Text = ""

        Else

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

            NOPEMBELIAN_36110043.Text = ""

        End If

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Dim baris As DataRow

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

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

        NB_36110043.Text = baris("nama barang")

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

        TGL_36110043.Value = baris("tanggal pembelian")

        UNIT_36110043.Text = baris("unit")

        JUMLAH_36110043.Text = baris("jumlah")

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Dim baris As DataRow

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

        baris.Delete()

    End Sub

    Private Sub DATA_36110043_DataBindingComplete(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DATA_36110043.CellContentClick

        Dim tu, total As Integer

        For Each x As DataRow In TABEL.Rows

            tu = tu + x("unit")

            total = total + x("jumlah")

        Next

        TU_36110043.Text = tu

        TOTAL_36110043.Text = total

    End Sub

End Class