Data Edit Grid Versi 1

Baca Juga

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 :

1. 2 buah dataGrid
2. 2 buah Adodc
3. 1 buah Picture (untuk menampung datagrid Master dan command)
   
4. 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

Link Download Source Code Data Edit grid versi 1 :
http://www.ziddu.com/download/7538951/281109.rar.html (tidak valid)

Reupload : >> Revisi Data Edit Grid 1