Menggunakan Header Control Pada DBGrid

Malas membaca? Langsung Download Source Code + Exe.

Posting ini buat menjawab pertanyaan seorang rekan Delphier.

FixedRow pada DBGrid default bawaan Delphi memang terlihat membosankan. Nah kita coba membuat tampilan yang lebih menarik.

Langkah-Langkahnya:

1. 1. Buat Form baru. Tambahkan sebuah panel (page Standard) dan kosongkan property Caption.
      
   2. Tambahkan sebuah Header Control (page Win32) ke dalam panel tersebut. Set property Height menjadi 25, property Cursor menjadi crHandPoint, dan property Style menjadi hsButtons. Tambahkan juga sebuah ImageList (page Win32) ke form.
       
      Klik ganda ImageList1, tambahkan beberapa gambar berukuran 16 x 16 pixel.
      
   3. Kini Tambahkan sebuah DBGrid (page Data Controls) ke dalam Panel1. Set property Align ke alClient.
       
      Lihat property Options milik DBGrid1, set property dgTitles ke False:
       
      dan hasilnya, tampilan form sekarang menjadi:
       
   4. Klik ganda pada DBGrid, tambahkan Column sesuai kebutuhan.
      
      Klik ganda juga pada HeaderControl1, tambahkan Section  sesuai kebutuhan.
      
      Atur property Width untuk tiap Column pada DBGrid1, sesuaikan dengan property Width untuk tiap Section pada HeaderControl1.
       
   5. Set property Images milik HeaderControl1 ke ImageList1. Kemudian klik ganda HeaderControl1. Klik salah satu Section dan atur property ImageIndex dengan gambar yang sesuai:
      
      Lakukan dengan Section yang lain.
   6. Klik pada HeaderControl1 dan klik tab Events pada Object Inspector. Klik ganda pada event OnSectionClick:
      
      Masukkan kode seperti berikut:

procedure TForm1.HeaderControl1SectionClick(HeaderControl: THeaderControl;
  Section: THeaderSection);
begin
  ShowMessage('Anda mengklik pada: '+ Section.Text);
end;

1. Jalankan program.
   

Bagaimana? Menarik?
Selanjutnya tinggal mengatur DataSource dan Dataset untuk DBGrid buat menampilkan data dari database. Selamat melanjutkan.

Berikut referensi yang mungkin membantu Anda:

• http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_23318783.html
• http://www.scalabium.com/smdbgrid.htm

Download Source Code + Exe – [ 347 KB ]

File ini sesungguhnya adalah file .zip. Jadi setelah didownload harus diganti ekstensi filenya dari .ppt ke .zip. Jangan lupa discan dulu sebelum diekstrak.