Mewarnai Baris di DBGRID

Suatu ketika saya diminta oleh User membuat program Antrian untuk Bengkel Toyota. Kemudian saya panggil seorang programmer Delphi dari Purwakarta untuk membantu menggarap Project ini. Dia masih mahasiswa tapi keuletannya luar biasa. Akhirnya diapun datang ke kantor setelah ku telepon dan menyanggupi project tersebut, sambil untuk menggali ilmu perdelphian. Kalo mentok saya juga ikut membantu.

Singkat cerita program antriannya selesai dibuat. Ada yang untuk server dan untuk client, ada pula program untuk picking antrian, yaitu ketika pelanggan memasuki bengkel. Jadi ada 3 Program.
1. Program untuk CS/Service Advisor
2. Program untuk Server didisplay di TV dan dipasang Speaker
3. Program Untuk Get in, usernya adalah Satpam/Security dan dibuat touchscreen

Program antrian ini memuat feature
1. Multi user, karena CS Service/SA banyak dan masing-masing disetting nomor counternya
2. Tidak akan bentrok antara pemanggilan Pelanggan, karena pada saat speaker bunyi memanggil antrian seorang Pelanggan maka tombol panggil untuk user lain disable.

Singkat cerita dipasang TV dan speaker di ruangan tempat penerimaan service dan implementasi 3 hari berjalan sukses.

Permintaan berikutnya Manager Bengkel nya pun meminta kelengkapan, untuk mengetahui pelanggan yang terlat ataupun ada display berapa lama pelanggan menunggu. Beliau berkeinginan jika pelanggan menunggu lebih dari 10 menit maka diberikan tanda merah di program aplikasi.

Wah otomatis harus sedikit merubah source, dimana DBGRID yang saya pakai untuk baris tertentu harus berwarna merah untuk penanda pelanggan yang sudah lama gak dipanggil-panggil.


Setelah browsing dinternet rupanya bisa. Beginlah caranya agar DBGRID baris tertentu berwarna merah/warna lain terserah

1. Klik DBGRIDnya
2. Ke Object Inspector, pilih tab event, double klik onDrawColumnCell
3. Tuliskan kode berikut (Sample aja)



procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);


var lamajam,lamamenit:Integer;
begin
  try
     lamajam:=StrToInt(FormatDateTime('hh',TDBGrid(Sender).DataSource.DataSet.FieldByName('LAMATUNGGU').AsDateTime));
     lamamenit:=StrToInt(FormatDateTime('nn',TDBGrid(Sender).DataSource.DataSet.FieldByName('LAMATUNGGU').AsDateTime));

    if ((lamajam > 0) or (lamamenit > 10)) then
    begin
     TDBGrid(sender).Canvas.Brush.Color := clRed;
     TDBGrid(sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;
  except
  end;



Itu adalah contoh intinya kalo untuk merubah baris tertentu menjadi berwarna merah algoritmanya adalah


 if (kriteria) then
    begin
     TDBGrid(sender).Canvas.Brush.Color := clRed;
     TDBGrid(sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;

Diletakan pada event DBGRID onDrawColumnCell, selamat mencoba

Demikianlah sharing dari saya, klo ada pertanyaan atau tanggapan silakan dikomentari