Tambah Pengetahuan: Juni 2012

Kamis, 28 Juni 2012

DATAGRID VB 6

Data Edit Grid apa itu?component vb 6.0 yang baru ya?. Bukan itu hanya sekedar nama saja. soalnya saya bingung untuk judul postingan saya kali ini. Data Edit Grid bisa diartikan sebagai DataGrid yang dapat diedit, sebaiknya Anda membaca artikel saya sebelumnya yang berjudul “Edit text dan formula (operasi bilangan) pada Datagrid” code-code dalam artikel tersebut akan digunakan dalam pembahasan kali ini.
Source code-nya saya kasih gratis. Dapat diterapkan untuk yang sedang mengembangkan software untuk aplikasi retail.

Yang dibutuhkan dalam pembuatan data edit grid ini antara lain adalah :

2 buah dataGrid
2 buah Adodc
1 buah Picture (untuk menampung datagrid Master dan command)
1 buah command (bila diperlukan)

2 buah datagrid dan 2 buah adodc diperlukan untuk : sebuah untuk datagrid utama (datagrid transaksi/datagrid yang bisa diedit) sedangkan satunya digunakan sebagai datagrid master untuk mengambil nilai tertentu ke dalam datagrid utama.

Prinsip kerjanya adalah memasukkan nilai konstan tertentu dari sebuah record/baris/row dalam datagrid master ke dalam sebuah baris/row datagrid utama. (Misalnya kode barang, nama barang dan harga barang.)
Setelah itu memasukkan nilai secara manual nilai tertentu yang perlu ditambahkan ke dalam datagrid utama. (misalnya : kuantitas barang yang dibeli/dijual)
Penasaran? Berikut adalah beberapa baris code untuk data edit grid tersebut :
Koneksi database dengan ADODC :

Sub Connectdb()

Adodc1.ConnectionString = ” Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” + App.Path + “\db1.mdb”
Adodc1.RecordSource = “masterbarang”
Adodc1.Refresh
Adodc2.ConnectionString = ” Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” + App.Path + “\db1.mdb”
Adodc2.RecordSource = “bantujual”
Adodc2.Refresh

End Sub

Mengisi DataGrid Utama

Sub isigrid(jmlrecord As Integer)
Do Until Adodc2.Recordset.EOF ‘Mengosongkan datagrid utama
Adodc2.Recordset.Delete
Adodc2.Recordset.MoveNext
Loop
Adodc1.Refresh
For i = 1 To jmlrecord ‘Mengisi dataGrid Utama sejumlah jmlrecord
With Adodc2
.Recordset.AddNew
.Recordset(0) = i
.Recordset(1) = “”
.Recordset(2) = 0
.Recordset(3) = 0
.Recordset(3) = 0
.Recordset.Update
.Refresh
End With
Next
End Sub

Setting DataGrid Utama

Sub setgrid()
With DataGrid1
.Columns(1).Button = True ‘menampilkan button untuk memanggil dataGrid master
.Columns(0).Locked = True
.Columns(3).Locked = True
.Columns(4).Locked = True
.Columns(2).Alignment = dbgRight
.Columns(3).Alignment = dbgRight
.Columns(4).Alignment = dbgRight
.Refresh
End With
End Sub

Panggil ketiga code diatas pada form_load dengan code ini :

Private Sub Form_Load()
Connectdb
isigrid 50
setgrid
End Sub

Memanggil DataGrid Master

Private Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
On Error Resume Next
Picture1.Top = DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row) + DataGrid1.RowHeight
Picture1.Left = DataGrid1.Columns(0).Left + DataGrid1.Columns(0).Width
Picture1.Visible = True
End Sub

Memindah nilai dari datagrid master kedalam datagrid Utama

Private Sub DataGrid2_DblClick()
DataGrid1.Columns(1).Text = Adodc1.Recordset(“kode”)
DataGrid1.Columns(2).Text = 0
DataGrid1.Columns(3).Text = Adodc1.Recordset(“harga”)
Adodc2.Recordset.Update
End Sub

Menutup Datagrid Master

Private Sub Command1_Click()
DataGrid1.Col = 2
Picture1.Visible = False
End Sub

Edit Datagrid Utama

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Picture1.Visible = False
End Sub
Private Sub DataGrid1_AfterColEdit(ByVal ColIndex As Integer)
Select Case ColIndex
Case 2
DataGrid1.Columns(4).Text = DataGrid1.Columns(2) * DataGrid1.Columns(3)
Adodc2.Recordset.Update
Adodc2.Recordset.MoveNext
DataGrid1.Col = 1
End Select

End Sub