LynxGrid OCX For VB6 Full Source Project
Salah satu kontrol dalam menampilkan data di visual basic 6 yang cukup menarik digunakan adalah LynxGrid. Lynxgrid mampu menampilkan data berdasarkan kriteria tertentu yang anda tetapkan. Mendukung penggunaan checkbox,button, binding control combobox, textbox dan masih banyak lagi. Kontrol ini mendukung theme atau skin yang bisa anda customise menurut selera anda.
Salah satu hal yang paling saya sukai adalah mampu mengedit data dalam tabel yang terbuka. Akan tetapi kontrol ini masih memiliki bug. Salah satunya jika anda menempatkan kontrol ini di atas suatu kontrol yang lain, misal di picture box, maka kontrol Lynxgrid akan menampilkan data sangat lambat sekali.
Tetapi kontrol LynxGrid ini masih layak untuk anda gunakan dalam pembuatan aplikasi anda. Kontrol LynxGrid selalu di update oleh pembuatnya yaitu Morgan Haueisen. Banyak sekali fitur-fitur yang sekiranya bisa anda gunakan
Fitur LynxGrid :
- Mampu mengganti warna cell Row maupun Column
- Gradasi warna antar Row
- Sorting tabel berdasarkan Asc maupun Desc
- Gruping data berdasarkan kriteria tertentu
- Mampu menampilkan format progress bar
- Pemilihan skin yang beragam
- Formating Cell berdasarkan kriteria tertentu
- Pewarnaan Cell berdasarkan kriteria tertentu, dan masih banyak lagi yang lainnya.
Pada tips ini akan kita coba untuk menampilkan data dari database MS Access ke dalam Kontrol LynxGrid. Ada beberapa prosedur yang bisa anda jalankan. Silakan anda kembangkan sendiri agar mencapai hasil yang maksimal menurut selera anda
Buka Visual Basic 6 anda, dan buatlah sebuah Module. Masukkan coding berikut
'Batas coding module--------------------------------------------------------------------------
Public CN As New ADODB.Connection
Public lRow As Long
Public Icol As Long
Public Sub KONEKSI()
On Error GoTo ErrorConnection
Set CN = New ADODB.Connection
CN.CursorLocation = adUseClient
CN.Provider = "Microsoft.Jet.OLEDB.4.0"
CN.Open App.Path & "/data.mdb"
ErrorConnection:
If Err.Number = 3709 Then
MsgBox "Gagal berkoneksi dengan database !!!", vbExclamation, "Koneksi Gagal"
End
End If
Public lRow As Long
Public Icol As Long
Public Sub KONEKSI()
On Error GoTo ErrorConnection
Set CN = New ADODB.Connection
CN.CursorLocation = adUseClient
CN.Provider = "Microsoft.Jet.OLEDB.4.0"
CN.Open App.Path & "/data.mdb"
ErrorConnection:
If Err.Number = 3709 Then
MsgBox "Gagal berkoneksi dengan database !!!", vbExclamation, "Koneksi Gagal"
End
End If
'Akhir Batas coding module------------------------------------------------------------------------
Tujuan pembuatan module ini agar anda senantiasa leluasa mengubah database, bersadarkan path atau kondisi database tertentu.
Selanjutnya buat sebuah form, dan masukkan kontrol LynxGrid. Ceri nama kontrol tersebut sebagai 'LXDATA'. Lalu masukkan coding berikut :
Private Sub Form_Load()
PANGGIL
Set RECPINJAM = New ADODB.Recordset
RECPINJAM.Open "Select * From PEMINJAMAN WHERE STATUS='" & "Belum" & "' AND ID='" & TXTID & "'", CN, adOpenDynamic, adLockOptimistic
LXDATA.ClearAll
With LXDATA
.AddColumn "Kode Barang", 1800, lgAlignLeftCenter
.AddColumn "Nama Barang", 3200, lgAlignLeftCenter
.AddColumn "Merk", 2000, lgAlignLeftCenter
.AddColumn "Jumlah", 800, lgAlignCenterCenter, lgNumeric
.AddColumn "Kondisi", 2000, lgAlignLeftCenter
.AddColumn "Diterima", 1000, lgAlignCenterCenter, lgBoolean
.Redraw = True
End With
PANGGIL
Set RECPINJAM = New ADODB.Recordset
RECPINJAM.Open "Select * From PEMINJAMAN WHERE STATUS='" & "Belum" & "' AND ID='" & TXTID & "'", CN, adOpenDynamic, adLockOptimistic
LXDATA.ClearAll
With LXDATA
.AddColumn "Kode Barang", 1800, lgAlignLeftCenter
.AddColumn "Nama Barang", 3200, lgAlignLeftCenter
.AddColumn "Merk", 2000, lgAlignLeftCenter
.AddColumn "Jumlah", 800, lgAlignCenterCenter, lgNumeric
.AddColumn "Kondisi", 2000, lgAlignLeftCenter
.AddColumn "Diterima", 1000, lgAlignCenterCenter, lgBoolean
.Redraw = True
End With
With RECPINJAM
For lngI = 1 To RECPINJAM.RecordCount
LXDATA.AddItem .Fields("Kode_Barang") & vbTab & _
.Fields("Nama_Barang") & vbTab & _
.Fields("Merk") & vbTab & _
.Fields("Jumlah") & vbTab & _
.Fields("Kondisi") & vbTab & _
.Fields("Angka") & vbTab & _
.Fields("Status")
.MoveNext
Next lngI
End With
End If
End Sub
Jika anda benar maka data akan tertampil seperti dalam gambar ini.
Itulah cara termudah dalam menampilkan data dari database. Silakan anda kembangkan sendiri.
Untuk mendownload kontrol LynxGrid silakan Klik
===========================================
CARA DOWNLOAD
1. klik link donwload
2. anda akan di arahkan ke link adf.ly seperti gambar di bawah ini
3. klik tulisan SKIP AD warna kuning di pojok kanan atas
4. kemudian anda akan di arahkan lagi ke link adfoc.us seperti gambar di bawah ini
5. klik tulisan SKIP yang ada di pojok akan atas seperti yang saya lingkari
6. kemudian anda akan diarahkan ke link yang dituju
7. selamat men-download
6. kemudian anda akan diarahkan ke link yang dituju
7. selamat men-download
.jpg)
