Deskripsi form Latihan_12_46110003
Form Latihan_12_46110003 Terdapat enam object yaitu label, textbox, button, groupbox, datetimepicker dan DataGriedView
Object Label :
Dalam form latihan ini terdapat 10 buah label yang bertuliskan “No. Pembelian”, “Harga Barang”, “Harga Perunit”, “Unit”, “Jumlah”, “tanggal”, “total”, “total unit”, “No. Baris”, “Baris Sekarang”.
Object Textbox:
Selain Object Label, dalam form ini terdapat 9 buah textbox (6 status input dan 3 status read only ) status input digunakan untuk memasukkan angka pada textbox “No. Pembelian”, “Harga Barang”, Harga Perunit”, “Unit”, Tanggal pembelian”, dan “No. Baris”. Sedangkan status read only digunakan untuk menampilkan hasil perhitungan yang telah dibuatkan rumus.
Form Latihan_12_46110003 Terdapat enam object yaitu label, textbox, button, groupbox, datetimepicker dan DataGriedView
Object Label :
Dalam form latihan ini terdapat 10 buah label yang bertuliskan “No. Pembelian”, “Harga Barang”, “Harga Perunit”, “Unit”, “Jumlah”, “tanggal”, “total”, “total unit”, “No. Baris”, “Baris Sekarang”.
Object Textbox:
Selain Object Label, dalam form ini terdapat 9 buah textbox (6 status input dan 3 status read only ) status input digunakan untuk memasukkan angka pada textbox “No. Pembelian”, “Harga Barang”, Harga Perunit”, “Unit”, Tanggal pembelian”, dan “No. Baris”. Sedangkan status read only digunakan untuk menampilkan hasil perhitungan yang telah dibuatkan rumus.
Object Button :
Terdapat tujuh object button
Terdapat tujuh object button
Object Datetimepicker :
Dalam form ini terdapat sebuah object datetimepicker. Object ini digunakan untuk menginput tanggal.
Dalam form ini terdapat sebuah object datetimepicker. Object ini digunakan untuk menginput tanggal.
Object Groupbox :
Dalam form ini terdapat 5 buah object groupbox. Group box berfungsi untuk mengelompokkan kontrol-kontrol pada form menjadi satu bagian.
Dalam form ini terdapat 5 buah object groupbox. Group box berfungsi untuk mengelompokkan kontrol-kontrol pada form menjadi satu bagian.
Object datagridview :
Dalam form ini terdapat sebuah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Dalam form ini terdapat sebuah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Script Unique :
Untuk
membuat datasource
dgv_46110003.DataSource
= tabel
Untuk
mengatur primary key
tabel.PrimaryKey = kolom
Mendeklarasikan
data baris yang bernama baris
Dim baris As DataRow
Baris untuk
tabel
tabel.Rows.Add(baris)
Membuat call
prosedur
Dim tu, total As Integer
For Each x As DataRow In tabel.Rows
tu = tu + x("unit")
total = total + x("jumlah")
Next
tu46110003.Text = tu
total46110003.Text = total
Even :
TextChanged
Button click
Property:
Property TextBox ==> ReadOnly=True
Langkah-langkah
Penyelesaian
1. Buat desain Form seperti contoh dibawah ini:
Public NotInheritable Class Latihan_12_46110003
Dim tabel As New DataTable
Private Sub Latihan_12_46110003_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)))
dgv46110003.DataSource = tabel
Dim kolom(1) As DataColumn
kolom(0) = tabel.Columns("no. pembelian")
tabel.PrimaryKey = kolom
End Sub
Private Sub hpu46110003_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hpu46110003.TextChanged, unit46110003.TextChanged
jml46110003.Text = Val(hpu46110003.Text) * Val(unit46110003.Text)
End Sub
Private Sub simpan46110003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110003.Click
Dim baris As DataRow
baris = tabel.Rows.Find(np46110003.Text)
If baris Is Nothing Then
baris = tabel.NewRow
baris("no. pembelian") = np46110003.Text
baris("nama barang") = nb46110003.Text
baris("harga per unit") = Val(hpu46110003.Text)
baris("tanggal pembelian") = tgl46110003.Value.Date
baris("unit") = Val(unit46110003.Text)
baris("jumlah") = Val(jml46110003.Text)
tabel.Rows.Add(baris)
np46110003.Text = ""
nb46110003.Text = ""
hpu46110003.Text = ""
unit46110003.Text = ""
jml46110003.Text = ""
Else : MsgBox("baris sudah ada")
jml46110003.Text = ""
End If
End Sub
Private Sub tampil1_46110003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampil1_46110003.Click
Dim baris As DataRow
If Val(nobar46110003.Text) <= tabel.Rows.Count Then
baris = tabel.Rows(Val(nobar46110003.Text) - 1)
np46110003.Text = baris("no. pembelian")
nb46110003.Text = baris("nama barang")
hpu46110003.Text = baris("harga per unit")
tgl46110003.Value = baris("tanggal pembelian")
unit46110003.Text = baris("unit")
jml46110003.Text = baris("jumlah")
Else
MsgBox("baris terlalu besar")
End If
nobar46110003.Text = ""
End Sub
Private Sub hapus1_46110003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus1_46110003.Click
Dim baris As DataRow
If Val(nobar46110003.Text) <= tabel.Rows.Count Then
baris = tabel.Rows(Val(nobar46110003.Text) - 1)
baris.Delete()
Else
MsgBox("no. baris yang dimasukkan tidak ada")
End If
nobar46110003.Text = ""
End Sub
Private Sub tampil2_46110003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampil2_46110003.Click
Dim baris As DataRow
baris = tabel.Rows.Find(nopem46110003.Text)
If Not baris Is Nothing Then
np46110003.Text = baris("no. pembelian")
nb46110003.Text = baris("nama barang")
hpu46110003.Text = baris("harga per unit")
tgl46110003.Value = baris("tanggal pembelian")
unit46110003.Text = baris("unit")
jml46110003.Text = baris("jumlah")
Else
MsgBox("no. pembelian tidak ada")
End If
nopem46110003.Text = ""
End Sub
Private Sub hapus2_46110003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus2_46110003.Click
Dim baris As DataRow
baris = tabel.Rows.Find(nopem46110003.Text)
If Not baris Is Nothing Then
baris.Delete()
nopem46110003.Text = ""
Else
MsgBox("no. pembelian yang dimasukkan tidak ada")
nopem46110003.Text = ""
End If
End Sub
Private Sub tampil3_46110003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tampil3_46110003.Click
Dim baris As DataRow
baris = tabel.DefaultView(BindingContext(tabel).Position).Row
np46110003.Text = baris("no. pembelian")
nb46110003.Text = baris("nama barang")
hpu46110003.Text = baris("harga per unit")
tgl46110003.Value = baris("tanggal pembelian")
unit46110003.Text = baris("unit")
jml46110003.Text = baris("jumlah")
End Sub
Private Sub hapus3_46110003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus3_46110003.Click
Dim baris As DataRow
baris = tabel.DefaultView(BindingContext(tabel).Position).Row
baris.Delete()
End Sub
Private Sub dgv46110003_DataBindingComplete(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles dgv46110003.DataBindingComplete
Dim tu, total As Integer
For Each x As DataRow In tabel.Rows
tu = tu + x("unit")
total = total + x("jumlah")
Next
tu46110003.Text = tu
total46110003.Text = total
End Sub
End Class
3. Jalankan Program
0 komentar:
Posting Komentar