社区
Delphi
帖子详情
我想在DBGrid1中的indicator中显示table中的数据记录数,如:1、2、3?如何操作?
yuefengzzh
2002-03-25 12:57:09
DBGrid1是通过DataSource2连接到table1上的。当table1取得数据时,如何在DBGrid1中的indicator那一栏中显示数据的编号,如1、2、3、4、5……,请问如何做?
...全文
43
4
打赏
收藏
我想在DBGrid1中的indicator中显示table中的数据记录数,如:1、2、3?如何操作?
DBGrid1是通过DataSource2连接到table1上的。当table1取得数据时,如何在DBGrid1中的indicator那一栏中显示数据的编号,如1、2、3、4、5……,请问如何做?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
王集鹄
2002-04-01
打赏
举报
回复
这并不是一个很好的方法
如果行数太大,处理会很慢,显示也不全
建议你用其他控件把行数放在DBGrid的左边显示
王集鹄
2002-04-01
打赏
举报
回复
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
Table1: TTable;
DataSource1: TDataSource;
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure DataSource1DataChange(Sender: TObject; Field: TField);
private
{ Private declarations }
FBookmark: string;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses
Registry;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
vRect: TRect;
I, J, R: Integer;
begin
if FBookmark <> TDBGrid(Sender).DataSource.DataSet.Bookmark then Exit;
J := TDBGrid(Sender).DataSource.DataSet.RecNo;
if J < 0 then Exit;
R := TDrawGrid(Sender).Row;
vRect := TDrawGrid(Sender).CellRect(0, R);
TDrawGrid(Sender).Canvas.Brush.Color := clBlue;
TDrawGrid(Sender).Canvas.Font.Color := clWhite;
TDrawGrid(Sender).Canvas.TextOut(vRect.Left + 1, vRect.Top + 1, Format('%.2d', [J]));
for I := R - 1 downto 1 do begin
Dec(J);
vRect := TDrawGrid(Sender).CellRect(0, I);
TDrawGrid(Sender).Canvas.Brush.Color := TDrawGrid(Sender).FixedColor;
TDrawGrid(Sender).Canvas.TextOut(vRect.Left, vRect.Top + 1, Format('%.2d', [J]));
end;
J := TDBGrid(Sender).DataSource.DataSet.RecNo;
for I := R + 1 to TDrawGrid(Sender).RowCount - 1 do begin
Inc(J);
vRect := TDrawGrid(Sender).CellRect(0, I);
TDrawGrid(Sender).Canvas.Brush.Color := TDrawGrid(Sender).FixedColor;
TDrawGrid(Sender).Canvas.TextOut(vRect.Left, vRect.Top + 1, Format('%.2d', [J]));
end;
end;
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
FBookmark := TDataSource(Sender).DataSet.Bookmark;
Caption := IntToStr(TDataSource(Sender).DataSet.RecNo);
end;
end.
yuefengzzh
2002-03-25
打赏
举报
回复
在哪个事件里做,具体如何做呀?我想知道呀?
谢谢?
wolfAone
2002-03-25
打赏
举报
回复
使用计算字段赋值,RecordCount这样就是记录很多的时候会很慢.
基于C/C++开发的单目控制机械臂的上位机程序+视觉识别和关节角反解+源码(高分优秀项目)
基于C/C++开发的单目控制机械臂的上位机程序+视觉识别和关节角反解+源码,适合毕业设计、课程设计、项目开发。项目源码已经过严格测试,可以放心参考并在此基础上延申使用~ 基于C/C++开发的单目控制机械臂的上位机程序+视觉识别和关节角反解+源码,适合毕业设计、课程设计、项目开发。项目源码已经过严格测试,可以放心参考并在此基础上延申使用~ 基于C/C++开发的单目控制机械臂的上位机程序+视觉识别和关节角反解+源码,适合毕业设计、课程设计、项目开发。项目源码已经过严格测试,可以放心参考并在此基础上延申使用~ 基于C/C++开发的单目控制机械臂的上位机程序+视觉识别和关节角反解+源码,适合毕业设计、课程设计、项目开发。项目源码已经过严格测试,可以放心参考并在此基础上延申使用~
setuptools-68.2.1-py3-none-any.whl
Python库是一组预先编写的代码模块,旨在帮助开发者实现特定的编程任务,无需从零开始编写代码。这些库可以包括各种功能,如
数
学运算、文件
操作
、
数
据
分析和网络编程等。Python社区提供了大量的第三方库,如NumPy、Pandas和Requests,极大地丰富了Python的应用领域,从
数
据
科学到Web开发。Python库的丰富性是Python成为最受欢迎的编程语言之一的关键原因之一。这些库不仅为初学者提供了快速入门的途径,而且为经验丰富的开发者提供了强大的工具,以高效率、高质量地完成复杂任务。例如,Matplotlib和Seaborn库在
数
据
可视化领域内非常受欢迎,它们提供了广泛的工具和技术,可以创建高度定制化的图表和图形,帮助
数
据
科学家和分析师在
数
据
探索和结果展示
中
更有效地传达信息。
springboot 学生信息管理系统.zip
学生管理系统是一个典型的基于 Spring Boot 的应用程序,旨在帮助学校、教育机构或培训机构管理学生信息、课程安排、成绩等。下面我将介绍一个简单的学生管理系统的设计和实现,基于 Spring Boot 框架。 功能特点 学生信息管理 添加、编辑、删除学生信息。 查询学生信息,支持按姓名、学号等条件查询。
setuptools-0.9.8-py2.py3-none-any.whl
Python库是一组预先编写的代码模块,旨在帮助开发者实现特定的编程任务,无需从零开始编写代码。这些库可以包括各种功能,如
数
学运算、文件
操作
、
数
据
分析和网络编程等。Python社区提供了大量的第三方库,如NumPy、Pandas和Requests,极大地丰富了Python的应用领域,从
数
据
科学到Web开发。Python库的丰富性是Python成为最受欢迎的编程语言之一的关键原因之一。这些库不仅为初学者提供了快速入门的途径,而且为经验丰富的开发者提供了强大的工具,以高效率、高质量地完成复杂任务。例如,Matplotlib和Seaborn库在
数
据
可视化领域内非常受欢迎,它们提供了广泛的工具和技术,可以创建高度定制化的图表和图形,帮助
数
据
科学家和分析师在
数
据
探索和结果展示
中
更有效地传达信息。
利用python的pyautogui函
数
实现简单的自动化
操作
1.安装python3.4以上版本,并配置环境变量(目前有装3.9遇到坑的,我个人用的3.7.6) 教程:https://www.runoob.com/python3/python3-install.html 2.安装依赖包 方法:在cmd
中
(win+R 输入cmd 回车)输入 pip install pyperclip 回车 pip install xlrd 回车 pip install pyautogui==0.9.50 回车 pip install opencv-python -i https://pypi.tuna.tsinghua.edu.cn/simple 回车 pip install pillow 回车 这几步如果哪步没成功,请自行百度 如 pip install opencv-python失败 3.把每一步要
操作
的图标、区域截图保存至本文件夹 png格式(注意如果同屏有多个相同图标,回默认找到最左上的一个,因此怎么截图,截多大的区域,是个学问,如输入框只截
中
间空白部分肯定是不行的,宗旨就是“唯一”) 4.在cmd.xls 的sheet1
中
,配置每一步的指令,如指
Delphi
5,392
社区成员
262,732
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章