Delphi - Menambahkan Nomor Record Pada DBGrid

Tuesday, February 26, 2008

Jika anda menggunakan komponen DBGrid pada Delphi untuk menampilkan data dari sebuah table,
anda bisa menambahkan/menampilkan nomor record tersebut pada komponen DBGrid di Delphi. Caranya sebagai berikut :





  • Saya menggunakan sebuah table bernama TBarang di database MySQL yang pernah saya buat
    sebelumnya.


  • Buat sebuah project baru di Delphi. Tambahkan sebuah komponen ADOTable, sebuah DataSource, dan sebuah komponen DBGrid.


  • Hubungkan komponen ADOTable dengan database MySQL dengan cara men-set property ConnectionString-nya ke datasource database MySQL. Jika anda belum tahu caranya, klik disini.


  • Kemudian set property TableName ADOTable1 menjadi TBarang.


  • Dobel klik ADOTable1, pada kotak Field Editor yang muncul klik kanan kemudian pilih Add all fields


  • Set property DataSource1 menjadi ADOTable1.


  • Set property DBGrid1 menjadi DataSource1.


  • Dobel klik DBGrid1, pada kotak Colection Editor yang muncul klik kanan kemudian pilih Add all fields


  • Tambahkan sebuah field baru pada DBGrid1 untuk nomor record, dengan cara klik kanan pada kotak Colection Editor kemudian pilih Add kemudian drag field baru tersebut ke posisi teratas pada kotak Colection Editor. set property Title ==> Caption-nya menjadi No.



  • Tambahkan kode perintah berikut ini pada event OnCreate komponen Form1 di code editor delphi :





if not adotable1.Active then

adotable1.Open;



  • dan kode perintah berikut ini pada event OnDrawColumnCell komponen DBGrid1 di code editor delphi :



if DataSource1.DataSet.RecNo > 0 then

begin
if Column.Title.Caption = 'No' then

DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource1.DataSet.RecNo));

end;



Jalankan program dengan menekan F9. disana akan terlihat nomor record dikolom paling kiri pada komponen DBGrid.

1 comments:

f123d said...

thanks buat infonya.
tp kenapa ya nilai dri "datasource1.dataset.recno" itu selalu -1?

jadi kalo saya cb hapus "if DataSource1.DataSet.RecNo > 0", maka yg saya dapatkan di kolom No itu, adalah -1 semua..

thanks again
Fred

Recent Comments

Tags Cloud

Blogumulus by Roy Tanck and Amanda Fazani