Langkah-Langkah Buat Nomor Urut DBGrid

Langkah-Langkah Buat Nomor Urut DBGrid

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.

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.