Klik Kanan

Membuat Alias Baru

Salah satu hal yang sering terjadi saat memindah aplikasi yang Anda buat dari satu komputer ke komputer lain adalah masalah nama alias. Seperti yang telah Anda ketahui, nama alias digunakan untuk menunjukkan letak database yang digunakan. Jika Anda memindah aplikasi ke komputer lain tanpa membuat sebuah alias baru maka akan muncul pesan ".......unknown database........". Untuk mencegah hal tersebut Anda dapat menambahkan sedikit kode untuk membuat alias secara langsung (on the fly). Jadi saat...

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 > ...

Memberi Warna Record Aktif Pada TDBGrid

Mungkin Anda ingin memberi warna record aktif pada TDBGrid dengan warna yang lain (tidak sama dengan warna record yang tidak atif). Untuk itu tambahkan kode berikut ini pada even DBGrid.OnDrawColumnCell : type TCustomDBGridCracker = class(TCustomDBGrid); procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin with TCustomDBGridCracker(Sender) do if DataLink.ActiveRecord = Row - 1 then ...