Deskripsi Form
Latihan 12
Form latihan 12 terdapat Lima object
yaitu GroupBox, Label, TextBox, Button, dan DataGriedView
Object GroupBox:
Dalam form ini terdap lima item
groupbox yang berguna untuk menyatukan beberapa
object toolbox dalam satu kategori tertentu dan groupbox ini bernama (formulir;
data; berdasarkan no baris; berdasarkan no pembelian; berdasarkan baris
sekarang.).
Object
Label :
Dalam form ini
terdapat Sebelas item yang bertuliskan (no pembelian, nama barang, harga perunit, unit, tanggal, jumlah, total unit, total, no barang, no pembelian,
dan baris sekarang).
Object Textbox :
Dalam form
ini terdapat sembilan textbox yaitu (enam
status input dan tiga berstatus read only). Status input digunakan untuk
memasukkan no pembelian, nama barang, harga perunit, Dan no baris. Sedangkan, Status Read Only ini digunakan untuk menampilkan hasil
dari perkalian harga perunit dan unit, dan total unit serta jumlah dari data
yang dimasukkan dalam DataGriedView.
Object Button :
Dalam form
ini terdapat Tujuh item Button yaitu pada GroupBox Pertama Bertuliskan (Simpan) Pada
GroupBox Ketiga, Keempat, Kelima bertuliskan(Tampilkan dan Hapus) yang dimana
Tombol Simpan ini digunakan untuk
memasukkan data yang telah diinput ke dalam datagridview. Tombol tampilkan digunakan untuk menampilkan data dalam
datagridview ke dalam textbox tempat menginput data. Sedangkan, Tombol hapus digunkan untuk menghapus data
yang ada di dalam datagridview.
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.
Object
DateTimePicker
Dalam form ini
terdapat satu object DateTimePicker yang digunakan untuk menentukan tanggal
pembelian.
Cara Untuk Membuat
Form Latihan 12 :
1.
Pertama
Bukalah Project yang telah anda buat sebelumnya.
2.
Pilih dan Buka Project dalam visual basic.
3.
Kemudian pilih Add
Windows form
4.
Lalu add new item dan
rename file “form.vb menjadi Latihan_12_46110020”
5.
Setelah
namenya di rename pilih add lalu muncullah form seperti ini :
7.
Lalu buatlah
sesuai contoh latihan 12 dengan menggunkan 5 GroupBox , 11 Label, 9 TextBox, 7 Button, dan 1
DataGrieView, dan 1 DateTimePicker maka
akan menjadi seperti ini :
8.
Setelah
form di atas telah jadi maka klik kanan lalu pilih View Code,kemudian masukkan
rumus seperti berikut :
Public Class Latihan_12_46110020
Dim tabel As New
DataTable
Private Sub
Latihan_12_46110020_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Me.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_46110020.DataSource = tabel
Dim kolom(1) As
DataColumn
kolom(0) = tabel.Columns("no.
pembelian")
tabel.PrimaryKey = kolom
End Sub
Private Sub
haperU_46110020_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles haperU_46110020.TextChanged
jumlah_46110020.Text = Val(haperU_46110020.Text) *
Val(unit_46110020.Text)
End Sub
Private Sub
simpan_46110020_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles simpan_46110020.Click
Dim baris As
DataRow
baris =
tabel.Rows.Find(nopem_46110020.Text)
If baris Is
Nothing Then
baris =
tabel.NewRow
baris("no. pembelian") = nopem_46110020.Text
baris("nama barang") =
nambar_46110020.Text
baris("harga per unit") = Val(haperU_46110020.Text)
baris("tanggal pembelian") = tanggal_46110020.Value.Date
baris("unit") = Val(unit_46110020.Text)
baris("jumlah") = Val(jumlah_46110020.Text)
tabel.Rows.Add(baris)
nopem_46110020.Text = ""
nambar_46110020.Text = ""
haperU_46110020.Text = ""
unit_46110020.Text = ""
jumlah_46110020.Text = ""
Else : MsgBox("baris sudah
ada")
jumlah_46110020.Text = ""
End If
End Sub
Private Sub TMP1_46110020_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
TMP1_46110020.Click
Dim baris As DataRow
If Val(nobar_46110020.Text) <=
tabel.Rows.Count Then
baris =
tabel.Rows(Val(nobar_46110020.Text) - 1)
nopem_46110020.Text =
baris("no. pembelian")
nambar_46110020.Text =
baris("nama barang")
haperU_46110020.Text =
baris("harga per unit")
tanggal_46110020.Value =
baris("tanggal pembelian")
unit_46110020.Text =
baris("unit")
jumlah_46110020.Text =
baris("jumlah")
Else
MsgBox("baris terlalu
besar")
End If
nobar_46110020.Text = ""
End Sub
Private Sub HPS1_46110020_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
HPS1_46110020.Click
Dim baris As
DataRow
If Val(nobar_46110020.Text) <=
tabel.Rows.Count Then
baris =
tabel.Rows(Val(nobar_46110020.Text) - 1)
baris.Delete()
Else
MsgBox("no. baris yang
dimasukkan tidak ada")
End If
nobar_46110020.Text = ""
End Sub
Private Sub TMP2_46110020_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
TMP2_46110020.Click
Dim baris As
DataRow
baris =
tabel.Rows.Find(nopem1_46110020.Text)
If Not baris Is Nothing Then
nopem_46110020.Text =
baris("no. pembelian")
nambar_46110020.Text =
baris("nama barang")
haperU_46110020.Text =
baris("harga per unit")
tanggal_46110020.Value =
baris("tanggal pembelian")
unit_46110020.Text =
baris("unit")
jumlah_46110020.Text =
baris("jumlah")
Else
MsgBox("no. pembelian tidak
ada")
End If
nopem1_46110020.Text = ""
End Sub
Private Sub
HPS2_46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles HPS2_46110020.Click
Dim baris As
DataRow
baris =
tabel.Rows.Find(nopem1_46110020.Text)
If Not baris Is
Nothing Then
baris.Delete()
nopem1_46110020.Text = ""
Else
MsgBox("no. pembelian yang
dimasukkan tidak ada")
nopem1_46110020.Text = ""
End If
End Sub
Private Sub TMP3_46110020_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
TMP3_46110020.Click
Dim baris As DataRow
baris = tabel.DefaultView(BindingContext(tabel).Position).Row
nopem_46110020.Text = baris("no.
pembelian")
nambar_46110020.Text = baris("nama
barang")
haperU_46110020.Text =
baris("harga per unit")
tanggal_46110020.Value =
baris("tanggal pembelian")
unit_46110020.Text =
baris("unit")
jumlah_46110020.Text =
baris("jumlah")
End Sub
Private Sub HPS3_46110020_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
HPS3_46110020.Click
Dim baris As DataRow
baris =
tabel.DefaultView(BindingContext(tabel).Position).Row
baris.Delete()
End Sub
Private Sub yuni()
Dim tu, total
As Integer
For Each x As
DataRow In tabel.Rows
tu = tu +
x("unit")
total =
total + x("jumlah")
Next
totU_46110020.Text
= tu
Total_46110020.Text = total
End Sub
Private Sub
unit_46110020_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Handles unit_46110020.TextChanged
jumlah_46110020.Text = Val(haperU_46110020.Text) *
Val(unit_46110020.Text)
End Sub
End Class
Langkah – Langkah Menjalankan Latihan 12:
1. Pertama,
Klik start debugging.
2. Isi Data yang ada pada
Formulir 1 lalu simpan
3. Maka Dalam Data akan
menampilkan apa yang anda massukkan pada formulir 1
4. Apabila anda ingiin menampilkan atau menghapus data yang ada
pada Data maka anda menggunkan Berdasarkan dengan No. Baris, Berdasarkan No.
peembelian, ataukan Berdasarkan No.Sekarang (sesuai dengan yang anda inginkan.)
Untuk
membuat data table :
Dim tabel As New DataTable
Untuk
membuat kolom pada data table :
tabel.Columns.Add(New
DataColumn("no. pembelian", GetType(String)))
tabel.Columns.Add(New
DataColumn("nama barang", GetType(String)))
Untuk membuat data source :
data_46110020.DataSource = tabel
Membuat data simpan,
Tampilkan, dan hapus :
Dim baris As DataRow
Even
ButtonClick., Text changed
Property
Property
TextBox => ReadOnly = True
0 komentar:
Posting Komentar