请教各位高手,如何将记录号加到dbgrid 中?

请教各位高手,如何将记录号加到dbgrid 中? Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061223091242150.html
下面我的dbgrid中显示的代码,如何将记录号加到dbgrid   列中,谢谢了!  
  qq1:=tadoquery.Create(self);  
      qq1.Connection:=conn;  
      with   qq1   do  
      begin  
          close;  
          sql.Clear;  
          sql.Add('select   id,haoma   as   号码,guishu   as   归属地,tongxunming   as   通讯公司   from   haoma   ');  
          open;  
      end;  
  datasource1.DataSet:=qq1;  
      dbgrid1.DataSource:=datasource1;

id   不就是记录号么

id   只是数据库中的一个自动编号,不一定是从1开始,按依次加1的顺序往下走的

{覆盖DrawCell事件,显示行序号   NO   }  
  procedure   TDBGridEh.DrawCell(ACol:Integer;ARow:Integer;ARect:TRect;AState:TGridDrawState);  
  var  
      i,DBRow,lLeft:integer;  
      iCol,iRow:integer;     //全局变量  
  begin  
      inherited;  
   
      {是否开启显示行号功能!}  
      if   fShowRecNo=True   then  
      begin  
          if   Assigned(DataLink)   and  
                  DataLink.Active   then   //没有open  
          begin  
              if   (ARow>=1)   and  
                      (ACol=0)   then{行标头之内}  
              begin  
                  i                           :=   0;//偏移值  
                  lLeft                   :=   0;//居中显示  
                  DBRow                   :=   self.DataSource.DataSet.RecNo;//当前数据集所在的行标   rec   no  
                  if   DataSource.DataSet.RecNo=-1   then{新增记录状态}  
                  begin  
                      DBRow   :=   DataSource.DataSet.RecordCount+1;//当前行标取记录总数+1  
                  end;  
                  i             :=   DBRow   -   self.Row   ;//计算表格TopRow和数据集所在行的偏移值(显示实际数据集行号)  
                  lLeft     :=   (ARect.Right   -   ARect.Left)   div   2   -   Canvas.TextWidth(IntToSTr({DataLink.ActiveRecord}ARow+i))   div   2;//居中显示  
                  Canvas.TextRect(ARect,ARect.Left+lLeft,ARect.Top,IntToSTr({DataLink.ActiveRecord}ARow+i));//输出行号  
              end;  
          end;  
      end;  
  end;

 
      完整的有个控件,使用非常简单!  
       
      留下Email,我发给你.或加我QQ:67016879  
   
 

1、在DBGRID中增加一列,列名的抬头比如说是'序号'  
  2、代码:  
   
  procedure   TForm1.DBGrid1DrawColumnCell(Sender:   TObject;   const   Rect:   TRect;  
      DataCol:   Integer;   Column:   TColumn;   State:   TGridDrawState);  
  begin  
        if   DataSource1.DataSet.RecNo   >   0   then  
      begin  
          if   WideUpperCase(Column.Title.Caption)   =   '序号'   then  
              DBGrid1.Canvas.TextOut(Rect.Left   +   2,   Rect.Top,   IntToStr(DataSource1.DataSet.RecNo));  
      end;  
  end;  
 

好麻烦.

结贴

转载于:https://www.cnblogs.com/delphi2007/archive/2008/10/20/1314918.html

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
©️2021 CSDN 皮肤主题: 编程工作室 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值