Home » Delphi » Component, Database, Delphi, Reader Request, Sample Apps, Tips & Tricks » Contoh Program Membuat Nomor Urut Di DBGrid Dengan Delphi

Contoh Program Membuat Nomor Urut Di DBGrid Dengan Delphi

July 24, 2012

Posted by Joko Rivai under Component, Database, Delphi, Reader Request, Sample Apps, Tips & Tricks

1 Comment

Latar Belakang

Seseorang bertanya ke saya, tentang menampakkan nomor urut ke DBGrid. Saya balik bertanya, bukankah Anda bisa menggenerate nomor urut via SQL? Dia bilang, Wah, bang, kalau tiap delete atau insert data musti diload ulang SQLnya, lemot jadinya. Saya sarankan dia untuk menggunakan TDBGridEh dari EhLibrary, namun rupanya pilihan dia memang bukan pada 3rd party component, tapi pada DBGrid standar bawaan Delphi.

Nah, kita akali kondisi di atas dengan DBGrid biasa.

Pertama, saya anggap kita menggunakan MyTable atau ADOTable.

Klik kanan komponen ini dan klik Field Editor. Di jendela Field Editor yang tampil, klik kanan lagi dan pilih New Field…

Isikan property field baru seperti gambar berikut:

Klik OK.

Nah, kini di DBGrid, klik kanan dan pilih Column Editor. Klik kanan pada jendela Column Editor yang tampil dan klik Add. Klik column yang baru, set property FieldName menjadi “no_urut” (field yang dibuat di atas), set property ReadOnly menjadi True dan property Color menjadi ClBtnFace. Terakhir, seret komponen ini ke posisi paling atas (agar di DBGrid, dia menjadi kolom pertama paling kiri).

Waktunya koding.

Klik ADOTable/MyTable di form. Isi event OnCalcFields dengan kode berikut:


procedure TForm3.MyTable1CalcFields(DataSet: TDataSet);
begin
 DataSet.FieldByName('no_urut').AsInteger := DataSet.RecNo;
end;

EDIT:
Entah kenapa, RecNo baris pertama bisa bernilai -1. Mari ubah kode di atas menjadi:


procedure TForm3.MyTable1CalcFields(DataSet: TDataSet);
var rno: integer;
begin
 rno := DataSet.RecNo;
 if rno <1 then rno := 1;
 DataSet.FieldByName('no_urut').AsInteger := rNo;
end;

Maksud kode di atas adalah, setiap terjadi perubahan pada dataset, field “no_urut” akan berisi urutan data pertama sampai terakhir.

Kini jalankan program kita.