Warnai DBGrid

DB Grid adalah suatu komponen yang fungsinya untuk menampilkan isi database dari data yang kita input. Normal dari warna tampilan cell (baris) DBGrid adalah putih.
Namun jika tampilan pada DBGrid semuanya sama dan kebetulan banyak cell pada DBGrid tentunya kita akan mudah bosan jika lama-lama memandang ke Tabel tersebut (DBGgrid), Untuk itu agar para user tidak bosan terhadap tampilan tabel tersebut, kita bisa membuat tampilan DBGrid (Tabel) menjadi Kombinasi Warna Sehingga user akan lebih mudah mengecek dari tabel tersebut.

Caranya adalah sebagai berikut :

• Klik Komponen DBGrid kemudian pada Object Inspector Pilih Events trus pilih event DrawColumnCell klik 2 X (dua kali)
• Kemudian  masukan kode berikut ini :

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DBGrid1.DataSource.DataSet.RecNo mod 2 =0 then
DBGrid1.Canvas.Brush.Color := clskyBlue; //pilih warnanya
DBGrid1.DefaultDrawColumnCell(rect, datacol, column, state);
end;

• Kalau sudah selesai coba compile aplikasi dengan menekan tombol F9 di keyboard

Catatan :
Sesuain nama komponen DBGrid dengan nama DBGrid yang teman – teman gunakan. kalau didalam contoh ini saya tidak merubah nama dari komponen DBGrind sehingga namanya tetap DBGrid1.
Ok itu saja dulu,,, kalau ada yang salah saya mohon maaf karena saya juga masih dalam pembelajaran. Semoga Bermanfaat ya… !!!