在dbgrid中的最左边怎样显示行号!记录数!

Question

各位大虾:请问一下在dbgrid中的最左边怎样显示行号,也可以是记录数,急呀,求求大家了!我是菜
鸟!(行号可不在数据库表中)

Answer 1

怎样在DbGrid的左边，实现像EXCEL那样的自动编号？这些编号与表无关
unit Unit1;interfaceuses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 Grids, DBGrids, StdCtrls, Buttons, Db, DBTables, ExtCtrls, jpeg;
const ROWCNT=20;type
    tmygrid=class(tdbgrid)
    protected
      procedure Paint;override;
      procedure DrawCell(ACol:Integer;ARow:Integer;ARect:TRect;AState:TGridDrawState);override;
    public
      constructor create(AOwner:TComponent);override;
      destructor  destroy;override;
    end; TForm1 = class(TForm)
   BitBtn1: TBitBtn;
   DataSource1: TDataSource;
   Table1: TTable;
   procedure BitBtn1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;var
 Form1: TForm1;
 mygrid:tmygrid;
implementation{$R *.DFM}    {tmygrid}
    constructor tmygrid.create(AOwner:TComponent);
    begin
       inherited create(Owner);
       RowCount:=ROWCNT;
    end;    destructor tmygrid.destroy;
    begin
      inherited;
    end;    procedure tmygrid.Paint;
    begin
      RowCount:=ROWCNT;
      if dgIndicator in options then
         ColWidths[0]:=30;
      inherited;
    end;    procedure tmygrid.DrawCell(ACol:Integer;ARow:Integer;ARect:TRect;AState:TGridDrawState);
    begin
      inherited;
      if (ARow>=1) and (ACol=0) then
         Canvas.TextRect(ARect,ARect.Left,ARect.Top,IntToSTr(ARow));
   end;procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 mygrid:=tmygrid.create(Self);
 mygrid.parent:=self;
 mygrid.left:=0;
 mygrid.top:=0;
 mygrid.Height:=300;
 mygrid.DataSource:=DataSource1;
end;end. http://dev.csdn.net/article/53/53439.shtm  DBGrid应用全书(一) 
http://dev.csdn.net/article/53/53440.shtm  DBGrid使用全书(二)
http://dev.csdn.net/article/53/53441.shtm  DBGrid使用全书(三) 
http://dev.csdn.net/article/53/53442.shtm  DBGrid使用全书(四)
http://dev.csdn.net/article/53/53443.shtm  DBGrid使用全书(五)    

Answer 2

这个我看了!那是动态建立的dbgrid我想要自己建的!大哥大姐帮帮忙了!