Pada Form Latihan 12 terdapat enam object yaitu label, textbox, button, datetimepicker, datagridview, dan GroupBox.
Object Label
Terdapat 11 label yang bertuliskan No Pembelian; Nama Barang; Harga Perunit; Tanggal; Unit; Jumlah; Total Unit; Total; No.Baris; No.Pembelian; Baris Sekarang.
Object Textbox
Terdapat 9 textbox (6 status input dan 3 Read Only). Status input digunakan untuk menginput data No Pembelian, Nama Barang, Harga Perunit, Unit, No. Baris. Status Read only untuk menampilkan hasil analisa pada Jumlah, Total Unit, Total.
Object Button
Terdapat 7 object button (1 tombol Simpan; 3 tombol Tampilkan, dan 3 tombol Hapus). Tombol Simpan untuk menyimpan data yang diinput pada tabel yang diatur dalam DataGridView. Tombol Tampilkan dan Hapus digunakan untuk menampilkan ataupun menghapus data berdasarkan no.baris, no.pembelian, ataupun baris sekarang yang tersedia.
Object DateTimePicker
Terdapat 1 object datetimepicker untuk menginput data dalam format tanggal, bulan, dan tahun.
Object DataGridView
Terdapat 1 object datagridview untuk menginput data dari formulir pembelian yang diinput.
Object GroupBox
Terdapat 5 object GroupBox (Formulir; Data; Berdasarkan No. Baris; Berdasarkan No. Pembelian; Berdasarkan Baris Sekarang). Object GroupBox digunakan untuk mengelompokkan beberapa object dalam suatu box.
Script Unique
- Dim tabel As New DataTable
=> digunakan untuk menambahkan tabel baru dengan pemberian nama tabel pada datagridview.
- tabel.Columns.Add(New DataColumn("no. pembelian", GetType(String)))
=> digunakan untuk menambahkan kolom baru dengan pemberian nama kolom.
- view46110055.DataSource = tabel
=> digunakan untuk membuat data source (sumber data).
Even
TextChanged
ButtonClick
Property
Property TextBox ==> ReadOnly=True
Cara membuat Latihan 12:
1. Buka Microsoft Visual Studio 2008
2. Setelah itu pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)
3. Pilih menu Project lalu klik add windows form
4. Ketik nama latihan yang akan dibuat pada kotak “NAME” (namun jangan menghapus nama .vb) setelah itu pilih “add”.
5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 12”
6. Setelah itu beri teks pada label, group box dan button , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.
7. Pilih menu “view” klik “code”.
8. Masukkan rumus berikut :
Public Class Latihan_12_46110055
Dim tabel As New DataTable
Private Sub Latihan_12_46110055_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)))
dgv46110055.DataSource = tabel
Dim kolom(1) As DataColumn
kolom(0) = tabel.Columns("no. pembelian")
tabel.PrimaryKey = kolom
End Sub
Private Sub hpu46110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hpu46110055.TextChanged, unit46110055.TextChanged
jml46110055.Text = Val(hpu46110055.Text) * Val(unit46110055.Text)
End Sub
Private Sub simpan46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110055.Click
Dim baris As DataRow
baris = tabel.Rows.Find(np46110055.Text)
If baris Is Nothing Then
baris = tabel.NewRow
baris("no. pembelian") = np46110055.Text
baris("nama barang") = nb46110055.Text
baris("harga per unit") = Val(hpu46110055.Text)
baris("tanggal pembelian") = tgl46110055.Value.Date
baris("unit") = Val(unit46110055.Text)
baris("jumlah") = Val(jml46110055.Text)
tabel.Rows.Add(baris)
np46110055.Text = ""
nb46110055.Text = ""
hpu46110055.Text = ""
unit46110055.Text = ""
jml46110055.Text = ""
Else : MsgBox("baris sudah ada")
jml46110055.Text = ""
End If
End Sub
Private Sub tampil146110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampil146110055.Click
Dim baris As DataRow
If Val(nobar46110055.Text) <= tabel.Rows.Count Then
baris = tabel.Rows(Val(nobar46110055.Text) - 1)
np46110055.Text = baris("no. pembelian")
nb46110055.Text = baris("nama barang")
hpu46110055.Text = baris("harga per unit")
tgl46110055.Value = baris("tanggal pembelian")
unit46110055.Text = baris("unit")
jml46110055.Text = baris("jumlah")
Else
MsgBox("baris terlalu besar")
End If
nobar46110055.Text = ""
End Sub
Private Sub hapus146110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus146110055.Click
Dim baris As DataRow
If Val(nobar46110055.Text) <= tabel.Rows.Count Then
baris = tabel.Rows(Val(nobar46110055.Text) - 1)
baris.Delete()
Else
MsgBox("no. baris yang dimasukkan tidak ada")
End If
nobar46110055.Text = ""
End Sub
Private Sub tampil246110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampil246110055.Click
Dim baris As DataRow
baris = tabel.Rows.Find(nopem46110055.Text)
If Not baris Is Nothing Then
np46110055.Text = baris("no. pembelian")
nb46110055.Text = baris("nama barang")
hpu46110055.Text = baris("harga per unit")
tgl46110055.Value = baris("tanggal pembelian")
unit46110055.Text = baris("unit")
jml46110055.Text = baris("jumlah")
Else
MsgBox("no. pembelian tidak ada")
End If
nopem46110055.Text = ""
End Sub
Private Sub hapus246110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus246110055.Click
Dim baris As DataRow
baris = tabel.Rows.Find(nopem46110055.Text)
If Not baris Is Nothing Then
baris.Delete()
nopem46110055.Text = ""
Else
MsgBox("no. pembelian yang dimasukkan tidak ada")
nopem46110055.Text = ""
End If
End Sub
Private Sub tampil346110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampil346110055.Click
Dim baris As DataRow
baris = tabel.DefaultView(BindingContext(tabel).Position).Row
np46110055.Text = baris("no. pembelian")
nb46110055.Text = baris("nama barang")
hpu46110055.Text = baris("harga per unit")
tgl46110055.Value = baris("tanggal pembelian")
unit46110055.Text = baris("unit")
jml46110055.Text = baris("jumlah")
End Sub
Private Sub hapus346110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus346110055.Click
Dim baris As DataRow
baris = tabel.DefaultView(BindingContext(tabel).Position).Row
baris.Delete()
End Sub
Private Sub dgv46110055_DataBindingComplete(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles dgv46110055.DataBindingComplete
Dim tu, total As Integer
For Each x As DataRow In tabel.Rows
tu = tu + x("unit")
total = total + x("jumlah")
Next
tu46110055.Text = tu
total46110055.Text = total
End Sub
End Class
9. Klik start debugging.
Langkah-langkah menjalankan Form:
1. Isi text box yang berstatus input, sesuai dengan keinginan anda (No Pembelian, Nama Barang, Harga Perunit, Unit, No. Baris).
2. setelah itu program akan menganalisa data yang telah diinput dan menampilkan hasil dari analisa pada textbox berstatus Read Only yang tersedia (Jumlah, Total Unit, Total).
3. Tekan tombol Simpan, maka data yang diinput pada formulir akan tersimpan pada tabel di object DataGridView.
4. Jika ingin menampilkan data, input pada box berdasarkan no baris, no pembelian, ataupun baris sekarang yang ingin ditampilkan, lalu klik tombol tampilkan.
5. Jika ingin menghapus data, input pada box berdasarkan no baris, no pembelian, ataupun baris sekarang yang ingin dihapus, lalu klik tombol hapus.
Tidak ada komentar:
Posting Komentar