TDBGrid Line Number / Satır Numarası gösterme hk.

[uparlayan]

Merhaba,

Tablodaki verileri gösterirken kullandığımız, Delphi ile standart olarak gelen TDBGrid bileşeninde her bir satırın sıra numarasını nasıl gösterebiliriz?

Not: Burada bahsettiğim şey tablonun primary keyini göstermek DEĞİL, verinin bulunduğu satırın sıra numarası.

Saygılar

[SimaWB]

dbgrid'e kendin bir field ekle ve title.caption'ını mesela SIRA_NO yap. Ayrıca tasarım esnasında dbgrid'e tablonun tüm field'lerı ekle.
Daha sonra dbgrid'in OnDrawColumnCell olayını aşağıdaki gibi kodlarsan istediğin olur:

Kod: Tümünü seç

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 = 'SIRA_NO' then
      DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, IntToStr(DataSource1.DataSet.RecNo));
  end;
end;

[aslangeri]

s.a
tablona bir calculated alan ekleyip ona recno yu atayıp dbgridde gösterbilirsin.
kolay gelsin.

[conari]

query ise sql 2005 ve üzerinde row_number() fonksiyonunu cümlenizde kullanabilirsiniz.

[orhancc]

Kod: Tümünü seç

ADOTable1.RecNo