Tutorial Pemrograman Delphi : Menambahkan Nomor Record Pada DBGrid

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

• Gunakan sebuah table bernama TBarang di database MySQL yang pernah dibuat 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.
• 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.