1. Objek Groupbox
ada 5 objek groupbox pada form ini. groupbox pertama (dengan nama judul Formulir) diisi dengan 5 texbox, 1 button, dan 1 daytimepicker. groupbox kedua (Data) diisi dengan satu objek datagridview, 2 textbox, dan 3 groupbox. groupbox yang ada di groupbox Data diberi judul Berdasarkan No. Baris, Berdasarkan No. Pembelian, dan Berdasarkan Baris Sekarang (pada masing-masing goupbox tersebut diberi 2 objek button, lalu pada Groupbox Berdasarkan No. Baris dan Berdasarkan No. Pembelian diberikan masing-masing 1 textbox)
2. objek textbox
terdapat 9 textbox di dalam form ini. dimana ada 1 diantaranya berstatus readonly. textbox yang berstatus readonly ini akan digunakan untuk menampilkan hasil kali dari harga per unit dikali dengan banyaknya unit yang anda input pada textbox input pada goupbox pertama.
3. Objek Label
terdapat sebelas label (bertuliskan no. pembelian, tanggal, nama barang, no. pembelian, harga perunit, unit, jumlha, total unit, total, No. baris, no. pembelian, dan Baris sekarang)
4. Objek Datagridview
terdapat 1 objek datagridview di form ini. objek ini bertujuan untuk membuat tabel berisi data yang diinput maupun yang ditampilkan di textbox yang berstatus readonly pada groupbox yang pertama.
5. Objek Button
objek button pada groupbox formulir diberi judul nama Simpan yang mana berfungsi menyimpan hasil input pada textbox ke datagridview untuk dijadikan tabel. sedangkan pada groupbox Berdasarkan No. Baris, Berdasarkan No. Pembelian, & Berdasarkan Baris Sekarang masing-masing 2 button yaitu button Tampilkan dan Hapus. masing-masing memiliki fungsi untuk menampilkan kembali data pada groupbox Formulir serta menghapusnya.
even :
TextChanged, ButtonClick
property :
property textbox ==> ReadOnly = True
Scrip Unik
membuat kolom untuk tabel yang ada pada datagriview
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)))
Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari menu toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.
Dim tabel As New DataTable
Private Sub Latihan_12_46110008_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)))
dgv46110008.DataSource = tabel
Dim kolom(1) As DataColumn
kolom(0) = tabel.Columns("no. pembelian")
tabel.PrimaryKey = kolom
End Sub
6. lalu, masukkan scipt berikut pada button Simpan anda untuk dijadikan isi dari tabel yang ada di datagridview
Dim baris As DataRow
baris = tabel.Rows.Find(nopem46110008.Text)
If baris Is Nothing Then
baris = tabel.NewRow
baris("no. pembelian") = nopem46110008.Text
baris("nama barang") = barang46110008.Text
baris("harga per unit") = Val(hu46110008.Text)
baris("tanggal pembelian") = tgl46110008.Value.Date
baris("unit") = Val(unit46110008.Text)
baris("jumlah") = Val(jumlah46110008.Text)
tabel.Rows.Add(baris)
nopem46110008.Text = ""
barang46110008.Text = ""
hu46110008.Text = ""
unit46110008.Text = ""
jumlah46110008.Text = ""
Else : MsgBox("baris sudah ada")
jumlah46110008.Text = ""
End If
7. masukkan scipt berikut untuk tombol Tampilkan dan Hapus pada groupbox Berdasarkan No. Baris
- Button Tampilkan
Dim baris As DataRow
If Val(nob46110008.Text) <= tabel.Rows.Count Then
baris = tabel.Rows(Val(nob46110008.Text) - 1)
nopem46110008.Text = baris("no. pembelian")
barang46110008.Text = baris("nama barang")
hu46110008.Text = baris("harga per unit")
tgl46110008.Value = baris("tanggal pembelian")
unit46110008.Text = baris("unit")
jumlah46110008.Text = baris("jumlah")
Else
MsgBox("baris terlalu besar")
End If
nob46110008.Text = ""
- button Hapus
Dim baris As DataRow
If Val(nob46110008.Text) <= tabel.Rows.Count Then
baris = tabel.Rows(Val(nob46110008.Text) - 1)
baris.Delete()
Else
MsgBox("no. baris yang dimasukkan tidak ada")
End If
nob46110008.Text = ""
8. pada tombol tampilkan dan hapus pada groupbox Berdasarkan No. Pembelian masukkan script berikut :
- button tampilkan
Dim baris As DataRow
baris = tabel.Rows.Find(nopem46110008.Text)
If Not baris Is Nothing Then
nopem46110008.Text = baris("no. pembelian")
barang46110008.Text = baris("nama barang")
hu46110008.Text = baris("harga per unit")
tgl46110008.Value = baris("tanggal pembelian")
unit46110008.Text = baris("unit")
jumlah46110008.Text = baris("jumlah")
Else
MsgBox("no. pembelian tidak ada")
End If
nopem46110008.Text = ""
-button Hapus
Dim baris As DataRow
baris = tabel.Rows.Find(nopem46110008.Text)
If Not baris Is Nothing Then
baris.Delete()
nopem46110008.Text = ""
Else
MsgBox("no. pembelian yang dimasukkan tidak ada")
nopem46110008.Text = ""
End If
11. pada button tampilkan dan hapus pada Groupbox Berdasarkan Baris sekarang masukkan Scipt berikut :
-button tampilkan
Dim baris As DataRow
baris = tabel.DefaultView(BindingContext(tabel).Position).Row
nopem46110008.Text = baris("no. pembelian")
barang46110008.Text = baris("nama barang")
hu46110008.Text = baris("harga per unit")
tgl46110008.Value = baris("tanggal pembelian")
unit46110008.Text = baris("unit")
jumlah46110008.Text = baris("jumlah")
-button hapus
Dim baris As DataRow
baris = tabel.DefaultView(BindingContext(tabel).Position).Row
baris.Delete()
12. masukkan script dibawah ini pada textbox input unit yang ada pada form anda
jumlah46110008.Text = Val(hu46110008.Text) * Val(unit46110008.Text)
13. buatlah fungsi private sub seprti dibawah ini pada script anda
Private Sub xxx()
Dim tu, total As Integer
For Each x As DataRow In tabel.Rows
tu = tu + x("unit")
total = total + x("jumlah")
Next
tu46110008.Text = tu
tot46110008.Text = total
End Sub
14. simpan, lalu tekan debug untuk menjalankan form anda
Tidak ada komentar:
Posting Komentar