Memberi Nomor di BGgrid Delphi

Hello semua para pecinta pemrograman delphi. kali saya akan shere bagaimana cara memberikan penomoran pada DBGrid deplhi.

penomoran ini tidak harus menggunakan database. karena kebanyakan saya melihat penomoran di dbgrid delphi dengan cara menggunakan database. dan nomor dbgrid harus berdasarkan database. sedangkan menurut saya, nomor di dbgrid hanyalah untuk menampilkan momor urut sesuai data yang terdapat pada dbgrid delphi tersebut.

jadi dengan menggunakan penomoran ini, kita tidak harus memperhitungkan databse, karenan penomoran sesui dengan data yang ada di dbgrid:

oke, sudah cukup penjelasannya mengenai memberi nomor di dbgrid delphi:
silahkan desain form seperti dibawah ini:

tambahkan komponen dbgrid, adoquery dan DataSaurce
komoponen adoquery saya gunakan hanya untuk menpilkan data.
atur koneksi pada AdoQuery dan DataSaurce sehingga data tampil di dbgrid.(lihat sini jika belum bisa)
selanjutnya klik 2x dbgridnya sehingga muncul seperti ini:

setelah itu tambahkan field dengan field name No.
klik dbgrid, event dan dauble klik  OnDrawColumnCell
letakan kode dibawah ini di procedure OnDrawColumnCell:

  if DBGrid1.DataSource.DataSet.RecNo>0 then
  begin
    if Column.Title.Caption='No.' then
    DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,IntToStr(DBGrid1.DataSource.DataSet.RecNo));
  end; 

setelah itu jalankan aplikasinya...
bagaimana?
mudah bukan selamat mencoba!!!

Share this post