Senin, 03 November 2014

Membuat Data Grid View Sebagai Lembar Kerja (Visual Basic)

DataGridView atau sering disingkat DGV, merupakan salah satu tool dalam Visual Basic yaitu berupa tabel seperti layaknya MS Excel yang bisa kita jadikan sebagai lembar kerja. DataGridView pada umunya berfungsi untuk menampilkan daftar barang atau nama dari tabel-tabel yang berasal dari database. Tetapi disini kita akan membahas cara menggunakan DataGridView sebagai lembar kerja atau form seperti pada MS Excel. 
Skenario formnya seperti ini, ada sebuah tabel yang berisi Uraian, Volume, Satuan, Harga satuan, dan Jumlah. Ketika kita mengisikan data pada kolom Volume dan Harga satuan, otomatis  pada kolom Jumlah akan terisi hasil perkalian antara 2 kolom tersebut. Untuk membuatnya ikuti langkah-langkahnya sebagai berikut.
1. Buka program Visual Studio.Net atau Visual Basic. Net 2005
2. Pilih New Project Aplication


3. Pilih DataGridView pada jendela Tool, drag pada form1 dengan menahan klik pada mouse


4. Membuat kolom pada DataGridView, Doubleclick pada halaman Form1 jangan pada halaman DataGridView, sehingga muncul jendela untuk menuliskan source kode. Ketik kode berikut ini di dalam Form1_Load

DataGridView1.Columns.Add("Uraian", "Uraian")
DataGridView1.Columns.Add("Volume", "Volume")
DataGridView1.Columns.Add("Satuan", "Satuan")
DataGridView1.Columns.Add("Harga Satuan", "Harga Satuan")
DataGridView1.Columns.Add("Jumlah", "Jumlah")
5. Menjadikan DataGridView sebagai lembar kerja, ketikkan kode berikut
Private Sub DGV1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
If e.ColumnIndex = 1 Then
DataGridView1.Rows(e.RowIndex).Cells(4).Value =    DataGridView1.Rows(e.RowIndex).Cells(1).Value * DataGridView1.Rows(e.RowIndex).Cells(3).Value
ElseIf e.ColumnIndex = 3 Then
DataGridView1.Rows(e.RowIndex).Cells(4).Value = DataGridView1.Rows(e.RowIndex).Cells(1).Value * DataGridView1.Rows(e.RowIndex).Cells(3).Value
End If
End Sub
6. Jalankan aplikasi dengan menekan tombol F5. Ingat jangan mengisi kolom Volume dan Harga satuan dengan selain angka karena akan menyebabkan aplikasi error.


Aplikasi ini biasa digunakan sebagai inputan untuk disimpan kedalam database. Mudah bukan? Selamat mencoba.