Latihan_12_46110037

Deskripsi Form Latihan 12

Pada latihan 12 terdapat 5 Object yaitu Label; DateTimePicker; TextBox; GroupBox; DataGridView dan Button.

Object Label

Terdapat 11 Label yaitu No.Pembelian; Nama Barang; Harga Perunit; Tanggal; Unit; Jumlah; Total Unit; Total; No. Baris; No. Pembelian dan Baris Sekarang.

Object DateTimePicker

Terdapat 1 DateTimepicker yaitu pada GroupBox Formulir.

Object TextBox

Terdapat  9 Textbox, 6 textbox berstatus input (No.Pembelian; Nama Barang; Harga Perunit; Unit; No. Baris dan No. Pembelian), dan 3 textbox berstatus ReadOnly (Jumlah; Total Unit danTotal).

Object GroupBox

Terdapat 5 GroupBox, yaitu:

1.    Formulir, isi groupbox ini adalah Label (No.Pembelian; Nama Barang; Harga Perunit; Tanggal; Unit dan Jumlah), Tombol Button (Simpan), TextBox (No.Pembelian; Nama Barang; Harga Perunit; Unit; dan Jumlah) dan DateTimePicker (Tanggal).

2.    Data, isi groupbox ini adalah DataGridView; Label (TotalUnit dan Total) dan Textbox  (TotalUnit dan Total).

3.    Berdasarkan No. Baris, isi groupbox ini adalah Label dan Textbox (No.Baris) dan Button (Tampilkan dan Hapus)

4.    Berdasarkan No. Pembelian, isi groupbox ini adalah Label dan Textbox (No.Pembelian); Button (Tampilkan dan Hapus).

5.    Berdasarkan Baris Sekarang, isi groupbox ini adalah Label (Baris Sekarang) dan Button (Tampilkan dan Hapus).

Object DataGridView

Terdapat 1 DataGridView yaitu pada GroupBox Data yang berfungsi untuk menampilkan data yang telah disimpan.

Object Button

Terdapat 7 Button yaitu:

1.    Tombol Simpan pada GroupBox Formulir, fungsi tombol ini adalah ketika di click akan menyimpan data yang telah di Input pada GroupBox Formulir ke dalam GroupBox Data yaitu Tabel dalam DataGridView; TotalUnit dan Total. Format Tabel akan dibuat ketika kita membuat script. 

2.    2 Tombol pada GroupBox Berdasarkan No. Baris yaitu tombol Tampilkan dan tombol Hapus. Tombol Tampilkan ketika di click akan menampilkan kembali data yang ada dalam DataGridView pada GroupBox Formulir sesuai dengan nomor baris yang diinput pada Textbox No. Baris. Sedangkan tombol Hapus jika di click akan menghapus data dalam DataGridView sesuai dengan nomor baris yang diinput pada TextBoxt No. Baris. 

3.    2 Tombol pada GroupBox Berdasarkan No. Pembelian yaitu tombol Tampilkan dan tombol Hapus. Tombol Tampilkan ketika di click akan menampilkan kembali data yang ada dalam DataGridView pada GroupBox Formulir sesuai dengan nomor pembelian yang diinput pada Textbox No. Pembelian pada groupbox Berdasarkan No Pembelian. Sedangkan tombol Hapus jika di click akan menghapus data dalam DataGridView sesuai dengan nomor pembelian yang diinput pada TextBoxt No. Pembelian.

4.    2 Tombol pada GroupBox Berdasarkan Baris Sekarang yaitu tombol Tampilkan dan tombol Hapus. Tombol Tampilkan ketika di click akan menampilkan kembali data yang ada dalam DataGridView pada GroupBox Formulir sesuai dengan baris yang diclick pada data DataGridView. Sedangkan tombol Hapus jika di click akan menghapus data dalam DataGridView sesuai dengan baris yang diclick pada data DataGridView.

Script Unique

*Membuat Tabel Baru

Dim Inna As New DataTable

*Membuat Kolom Pada Tabel. Pada latihan ini nama tabelnya adalah “Inna”

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

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

Inna.Columns.Add(New DataColumn("harga per unit", GetType(Double)))

Inna.Columns.Add(New DataColumn("tanggal pembelian", GetType(Date)))

Inna.Columns.Add(New DataColumn("unit", GetType(Integer)))

Inna.Columns.Add(New DataColumn("jumlah", GetType(Double)))

*Menempatkan kolom tersebut pada DataGridView. (hayalan46110037 adalah nama dari DataGridView)

Hayalan46110037.DataSource = Inna

*Menghubungkan data yang diinput pada textbox dengan nama baris yang akan muncul pada Tabel

If baris Is Nothing Then

   baris = Inna.NewRow

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

   baris("nama barang") = Nabar46110037.Text

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

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

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

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

    Inna.Rows.Add(baris)

*Menampilkan Pesan

MsgBox("baris sudah ada")

Even

TextChanged; dan Click

Property

Property Textbox=> ReadOnly=True

Langkah-Langkah Menjalankan Form

·         Input data pada No.Pembelian, Nama Barang, Harga Perunit, Tanggal, dan unit. Maka Jumlah akan muncul secara otomatis.

·         Click tombol Simpan, maka data yang telah diinput tersebut akan masuk kedalam tabel pada DataGridView serta memunculkan Total unit dan Total.

·         Untuk memunculkan kembali data click tombol Tampilkan. Terserah mau menampilkan berdasarkan apa, anda tinggal memilih. Untuk menghapus juga demikian caranya.

Langkah-langkah Menyelesaikan Form

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas dengan menggunakan Label; DateTimePicker; TextBox; GroupBox; DataGridView dan Button.
• Ganti nama DateTimePicker; TextBox; GroupBox; DataGridView dan Button di properties-Name
• Ganti status Textbox menjadi ReadOnly di properties lalu pilih ReadOnly True.
• Click Kanan lalu pilih View Code kemudian buatlah Script seperti di bawah ini:

Dim Inna As New DataTable

-----------------------------------------------------------------------------

    Private Sub latihan_12_026_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

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

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

    Inna.Columns.Add(New DataColumn("harga per unit", GetType(Double)))

    Inna.Columns.Add(New DataColumn("tanggal pembelian", GetType(Date)))

    Inna.Columns.Add(New DataColumn("unit", GetType(Integer)))

    Inna.Columns.Add(New DataColumn("jumlah", GetType(Double)))

    Hayalan46110037.DataSource = Inna

    Dim kolom(1) As DataColumn

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

    Inna.PrimaryKey = kolom

    End Sub

• Kembali ke design Form Latihan 12. Kemudian click double Textbox Harga Per Unit, kemudian ketik scriptnya:

   Jumlah46110037.Text = Val(Harga46110037.Text) * Val(Unit46110037.Text)

• Kembali ke design Form Latihan 12. Kemudian click double tombol Simpan, kemudian ketik scriptnya:

     Dim baris As DataRow

     baris = Inna.Rows.Find(Nopem146110037.Text)

     If baris Is Nothing Then

       baris = Inna.NewRow

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

     baris("nama barang") = Nabar46110037.Text

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

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

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

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

       Inna.Rows.Add(baris)

     Nopem146110037.Text = ""

     Nabar46110037.Text = ""

     Harga46110037.Text = ""

     Unit46110037.Text = ""

     Jumlah46110037.Text = ""

     Else : MsgBox("baris sudah ada")

     Jumlah46110037.Text = ""

     End If

     XXX()

 

• Kembali ke design Form Latihan 12. Kemudian click double tombol Tampilkan pada GroupBox Berdasarkan No.Baris, kemudian ketik scriptnya:

     If Val(NoBar146110037.Text) <= Inna.Rows.Count Then

        baris = Inna.Rows(Val(NoBar146110037.Text) - 1)

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

        Nabar46110037.Text = baris("nama barang")

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

        Tgl46110037.Value = baris("tanggal pembelian")

        Unit46110037.Text = baris("unit")

        Jumlah46110037.Text = baris("jumlah")

    Else

        MsgBox("baris terlalu besar")

    End If

        NoBar146110037.Text = ""

 

• Kembali ke design Form Latihan 12. Kemudian click double tombol Hapus pada GroupBox Berdasarkan No.Baris, kemudian ketik scriptnya:

     Dim baris As DataRow

        If Val(NoBar146110037.Text) <= Inna.Rows.Count Then

          baris = Inna.Rows(Val(NoBar146110037.Text) - 1)

          baris.Delete()

        Else

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

        End If

        NoBar146110037.Text = ""

• Kembali ke design Form Latihan 12. Kemudian click double tombol Tampilkan pada GroupBox Berdasarkan No.Pembelian, kemudian ketik scriptnya:

     Dim baris As DataRow

        baris = Inna.Rows.Find(Nopem246110037.Text)

        If Not baris Is Nothing Then

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

            Nabar46110037.Text = baris("nama barang")

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

            Tgl46110037.Value = baris("tanggal pembelian")

            Unit46110037.Text = baris("unit")

            Jumlah46110037.Text = baris("jumlah")

        Else

            MsgBox("no. pembelian tidak ada")

        End If

        Nopem246110037.Text = ""

 

• Kembali ke design Form Latihan 12. Kemudian click double tombol Hapus pada GroupBox Berdasarkan No.Pembelian, kemudian ketik scriptnya:

     Dim baris As DataRow

        baris = Inna.Rows.Find(Nopem246110037.Text)

        If Not baris Is Nothing Then

            baris.Delete()

            Nopem246110037.Text = ""

        Else

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

            Nopem246110037.Text = ""

        End If

• Kembali ke design Form Latihan 12. Kemudian click double tombol Tampilkan pada GroupBox Berdasarkan Baris Sekarang, kemudian ketik scriptnya:

     Dim baris As DataRow

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

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

        Nabar46110037.Text = baris("nama barang")

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

        Tgl46110037.Value = baris("tanggal pembelian")

        Unit46110037.Text = baris("unit")

        Jumlah46110037.Text = baris("jumlah")

 

• Kembali ke design Form Latihan 12. Kemudian click double tombol Hapus pada GroupBox Berdasarkan Baris Sekarang, kemudian ketik scriptnya:

     Dim baris As DataRow

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

        baris.Delete()

• Buatlah Prosedure dibawah Srcipt “Hapus berdasarkan Baris Sekarang”, yaitu:

     Private Sub XXX()

        Dim tu, total As Integer

        For Each Y As DataRow In Inna.Rows

            tu = tu + Y("unit")

            total = total + Y("jumlah")

        Next

        TotUn46110037.Text = tu

        Total46110037.Text = total

    End Sub

•  Kemudian Start Debugging.