Cara Membuat Nomor Urut Pada DBGrid Delphi

Cara Membuat Nomor Urut DBGrid, dalam sebuah kasus pembuatan sebuah nomor urut biasanya mengalami kendala apalagi mereka yang baru mengenal bahasa pemrograman delphi. Jika dalam database boleh dikatakan sangat mudah karena kita tinggal melakukan setting saja pada kolom yang akan diisikan dengan nomor urut tersebut dan secara otomatis disaat melakukan penyimpanan data akan mengurutkan dengan sendirinya.

Langkah-Langkah Buat Nomor Urut DBGrid

Pada delphi berbeda dengan database, disini kita harus menuliskan sourcecode kode program agar dapat menampilkan nomor urut tersebut khususnya pada komponen DBGrid. Berikut salah satu cara membuatnya agar database yang ditampilkan pada DBgrid terdapat nomor urutnya.

Baca : Komponen Pendukung Pemrograman Delphi.

1. Buka program yang sedang dibuat dan arahkan pada DbGrid yang ada.
2. Lihat pada Object Inspector pilih Events

3. Setelah itu tuliskan kode program dibawah ini tepat dibawah begin
if DataSource1.DataSet.RecNo > 0 then
begin
if Column.Title.Caption = 'Nomor Urut' then
DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource1.DataSet.RecNo));
end;
lebih lengkapnya maka akan terlihat seperti dibawah ini
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DataSource1.DataSet.RecNo > 0 then
begin
if Column.Title.Caption = 'Nomor Urut' then
DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource1.DataSet.RecNo));
end;
end;
4. Setelah selesai simpan dan lihat hasilnya.

Sekian tutorial mengenai pembuatan nomor urut pada DBGrid Delphi semoga dapat memberikan wawasan baru dalam dunia pemrograman.