Skip to main content

Warna pada DBGrid sesuai data

Pertanyaan :
Bagaimana memberi warna pada DBGrid sesuai dengan data yang telah kita tentukan, misalnya warna biru pada record dengan data Population lebih besar dari 2,5 juta ?
Jawaban :
Caranya cukup mudah, Anda tinggal menambahkan kode berikut ini pada event OnDrawColumncell dari DBGrid.:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
     if Table1.FieldByName('Population').AsInteger > 25000000      then
     TDBGrid(Sender).Canvas.Brush.Color := $00E9D358;
     TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
Apabila Anda ingin mengganti dengan field (kolom) lain, Anda tinggal mengganti tulisan "Population" di atas dengan nama field yang Anda inginkan beserta tipe datanya.
Contoh :
Table1.FieldByName('Continent').AsString = 'South America'

Popular posts from this blog

Instal Router menggunakan Mikrotik RouterOS

MikroTik RouterOS™ adalah sistem operasi dan yang dapat digunakan untuk menjadikan komputer manjadi router network yang handal, mencakup berbagai fitur lengkap untuk network dan wireless. Kemudian di extrack dan kemudian burn ke CD itu file ISO nya. 1. Install Mikrotik OS – Siapkan PC, minimal Pentium I juga gak papa RAM 64,HD 500M atau pake flash memory 64 – Di server / PC kudu ada minimal 2 ethernet, 1 ke arah luar dan 1 lagi ke Network local – Burn Source CD Mikrotik OS masukan ke CDROM – Boot dari CDROM – Ikuti petunjuk yang ada, gunakan syndrom next-next dan default – Install paket2 utama, lebih baiknya semua packet dengan cara menandainya (mark) – Setelah semua paket ditandai maka untuk menginstallnya tekan “I” – Lama Install normalnya ga sampe 15menit, kalo lebih berarti gagal, ulangi ke step awal – Setelah diinstall beres, PC restart akan muncul tampilan login 2. Setting dasar mikrotik Langkah awal dari semua langkah konfigurasi mikrotik adalah setting ip Hal ini bertujuan ag...
Read more

Membuat group pada laporan

Dengan menggunakan komponen TQRGroup Anda dapat mengelompokkan data berdasarkan kondisi tertentu. Misalnya Anda ingin mengelompokkan nama Company dari tabel Customter.db berdasarkan nama Company yang mempunyai huruf awal yang sama. Untuk itu Anda bisa mencoba contoh di bawah ini: Buat sebuah proyek baru dan tambahkan sebuah report. Tambahkan komponen TTable pada report. Ubah property DatabaseName menjadi DBDEMOS, TableName menjadi Customer dan IndexName menjadi ByCompany. Aktifkan tabel dengan mengatur property Active menjadi True. Tambahkan ...
Read more

Koneksi MySQL dengan Zeos di delphi

ZeosLib adalah sebuah komponen tambahan di delphi yang bisa menangani koneksi kebeberapa database seperti MySQL, SQLLite, Oracle. Namun saya disini hanya akan membahas Koneksi Zeos dengan MySQL tanpa melakukan setting pada Properti di Delphi seperti dibawah ini Untuk melakukan dengan Zeos pastikan Zeos sudah terinstal di Dephi anda, jika sudah terinstal akan tampil pada Pallet Komponen seperti dibawah ini Cara Membuat Koneksi Zeos dengan MySQL    1. Buka delphi anda dan tambahkan komponen ZConnection kedalam Form. seperti gambar dibawah ini 2. Ketikkan Code berikut : INIFiles dibawah USES 3. Setelah itu Double Klik pada Form dan ketikkan code berikut ini di   var settingdatabase : TIniFile; begin settingdatabase := TIniFile.Create(ExtractFilePath(Application.ExeName)+'SettingDatabase.ini'); if (ZConnection.Connected) then    ZConnection.Disconnect;     ZConnection.HostName := settingdatabase.ReadString('koneksi','Hostname',''); //...
Read more