Data Edit Grid Versi 1

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

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

Note : link diatas tidak memuat file dimaksud, akan saya revisi di versi berikutnya, Mohon maaf atas ketidak nyamanan ini. terima kasih (-08 Januari 2010-)

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Data Edit Grid Versi 1, Diterbitkan oleh scodeaplikasi pada Sabtu, 28 November 2009. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.