Menghubungkan LynxGrid Dengan Database Di VB6

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

'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

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 DISINI

21.50 | 0 komentar | Read More

Membuat Virus Mouse Dari VB6

Saat ini sudah banyak sekali beredar virus-virus hasil anak bangsa. Yang mana orang akan semakin mudah membuatnya karena banyak sekali source code yang tersebar secara bebas. Pada tips kali ini akan kita buat sebuah program kecil yang bertujuan untuk mengisengi komputer teman. Jika anda mengembangkannya lebih lanjut maka akan menghasilkan sebuah virus yang cukup menjengkelkan.

Sebenarnya ini bukan sebuah virus. Ini hanya sebuah program kecil yang dibuat memakai Visual Basic 6 yang memanfaatkan komponen API milik windows sendiri. Mari kita praktekkan.

Buka program Visual Basic 6 anda dan buatlah form sekecil mungki. Dengan tujuan mouse tidak bisa bergerak diluar dari area mouse tersebut. Dan jangan lupa buat mode BorderStyle menjasi None agar form tidak bisa digerakkan. Selanjutnya masukkan coding berikut dalam form

Private Sub Form_Load()Dim client As RECT
  Dim upperleft As POINT
  GetClientRect Me.hWnd, client
  upperleft.x = client.left
  upperleft.y = client.top
  ClientToScreen Me.hWnd, upperleft
  OffsetRect client, upperleft.x, upperleft.y
  ClipCursor client
End Sub

Lalu buatlah sebuah module dan masukkan coding berikut

Declare Sub ClipCursor Lib "user32" (lpRect As Any)
Declare Sub GetClientRect Lib "user32" (ByVal hWnd _
As Long, lpRect As RECT)
Declare Sub ClientToScreen Lib "user32" (ByVal hWnd _
As Long, lpPoint As POINT)
Declare Sub OffsetRect Lib "user32" (lpRect As RECT, _
ByVal x As Long, ByVal y As Long)

Private Sub Form_Unload(Cancel As Integer)  'Jangan lupa yang ini!
ClipCursor ByVal 0&
End Sub

Public Type RECT
  left As Integer
  top As Integer
  right As Integer
  bottom As Integer
End Type

Public Type POINT
  x As Long
  y As Long
End Type

Selanjutnya tinggal anda compile menjadi file exe dan silakan anda coba sendiri.

Anda bisa membuat kemampuan program menjadi lebih hebat lagi dengan menambah coding menghilangkan program dari task manager. Dan jika anda ingin lebih usil lagi bisa dengan membuat sebuah entry di registry agar pada saat Starup program otomatis di jalankan.

Selamat berjengkel ria.....!!!

10.50 | 0 komentar | Read More

Koneksi Database Menggunakan XpressQuantum Grid

XpressQuantum Grid adalah sebuah kontrol vb6 yang bisa menampung tabel dari database aplikasi yang anda buat. Salah satu hal yang menarik adalah anda bisa mensortir data berdasarkan tabel yang anda drag. Anda tinggal mendrag tabel, maka data akan di sortir berdasarkan urutan anda dalam mendrag data. Dan yang lebih menariknya anda bisa mengklik atau membuat node-node data berdasarkan kolom yang anda drag. Banyak sekali kemampuan yang anda dapatkan dalam memakai kontrol ini.

Kali ini saya akan memberikan sedikit tips, bagaimana mengkoneksikan XpressQuantum grid dengan database anda, misalnya MS Access. Sebenarnya didalam sample kode kontrol ini sudah ada script yang bisa anda contoh, tetapi script tersebut bagi saya terlalu ribet. Ada langkah sederhana dan memerlukan sedikit script dalam mengkoneksikan ke database. Dalam contoh ini saya menggunakan database MS Access.

Langkah-langkahnya :

Buka data baru dan sebuah form di Visual Basic anda. Masukkan kontrol XpressQuantum Grid dalam form. Klik kanan pada kontrol XpressQuantum Grid lalu pilih Quantum Property Editor. Dalam menu Connect to Data di radio button Connection String tekan tombol pada sebelah kanan. Maka anda akan dihadapkan pada window Data Link Properties.

Pilih dalam List OLE DB Provider yaitu Microsot Jet 4.0 OLE DB Provider. Selanjutnya tekan tombol Next. Dalam textbox Select or enter a database name, tekan tombol sebelah kanan untuk memilih database anda

Setelah anda memilih database anda lalu klik Ok. Lalu pindah ke tab Record Source. Didalam teks Command Type, ganti menjadi cmdTable dengan memilih dalam combo box. Selanjutnya tentukan Tabel yang akan dimasukkan di dalam Table or Stored Procedure. Lalu tekan Apply.

Selanjutnya tekan Band And Columns pada panel sebelah kiri.Silakan anda menambah tabel menurut kemauan anda dengan mengklik tombol +. Disini anda bisa juga menentukan tipe dari tabel yang anda maksudkan beserta ukuran lebar tabel.Silakan anda atur sendiri.

Selanjutnya anda tinggal masukkan script seperti dibawah ini. Dan jangan lupa masukkan terlebih dahulu Reference untuk koneksi ke database MS Access

Private Sub Form_Load()

Set RECLISTCUSTOMER = New ADODB.Recordset

RECLISTCUSTOMER.Open "Select * From CUSTOMER", CN, adOpenDynamic, adLockOptimistic

Set DXAKUN.DataSource = RECLISTCUSTOMER

End Sub

Nah,jika anda benar maka data anda akan tertampil semua dengan benar seperti pada gambar judul tips ini. Oya ..anda bisa mengutak atik dalam Options kontrol XpressQuantum Grid sesuai dengan kemauan anda. Seperti menambahkan Group Panel dan sebagainya. Fungsi dari Group Panel adalah untuk mensortir data berdasarkan urutan tabel yang anda drag.

Sampai jumpa di tips berikutnya

07.52 | 0 komentar | Read More