delphi Xe7 Dbgrid前面增加一列显示行号

g58521547

于 2021-04-29 23:07:05 发布

阅读量1.1k

点赞数

分类专栏： VCL 文章标签： delphi

本文链接：https://blog.youkuaiyun.com/g58521547/article/details/116278688

版权

本文介绍了如何在Delphi XE7的DBGrid组件前添加一列显示行号。一种方法是通过编辑ClientDataset，添加一个内部计算的字段，并在OnGetText事件中设置行号；另一种方法是在DBGrid的DrawColumnCell事件中利用TextOut方法绘制行号。需要注意的是，如果需要将数据导出到Excel，行号的处理方式有所不同。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

dbgrid-->datasource-->clientdataset, 如果在数据库的表中没有行号这个字段的话，要在dbgrid前面一列增加一列显示行号1，2，3.。。。

可以如下操作，个人觉得比较简单：

按照步骤：1.clientdataset字段编辑器双击打开，先把数据库中要显示的字段都添加进来addall fields, 然后增加一个字段id,类型fieldkind为fkInternalCalc (fkcalculate不行会出错），

然后在这个字段的onGetText事件中写上如下：

procedure TfmMain.cdsViewidGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
    text:=inttostr(self.cdsView.RecNo);
    displaytext:=true;
end;

2.在dbgrid中可以正常使用这个字段了。

作为备忘。

------------------

另外一只方法，就是直接在dbgrid的drawcolumncell事件中，使用textout方法。

先在dbgrid的字段编辑器新加一列，fieldname字段名空着不和任何实际的数据库字段关联。

然后在drawcolumncell事件中：if column.Title.Caption='NO' then //添加一个自动序号
self.DBGrid1.Canvas.TextOut(rect.Left+2,rect.Top,inttostr(self.cdsList.RecNo));

注意这个语句