社区
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……,请问如何做?
...全文
54
4
打赏
收藏
我想在DBGrid1中的indicator中显示table中的数据记录数,如:1、2、3?如何操作?
DBGrid1是通过DataSource2连接到table1上的。当table1取得数据时,如何在DBGrid1中的indicator那一栏中显示数据的编号,如1、2、3、4、5……,请问如何做?
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用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这样就是记录很多的时候会很慢.
DB
Grid
各属性的设置
在 Delphi 语言的
数
据
库编程
中
,
DB
Grid
是
显示
数
据
的主要手段之一。但是
DB
Grid
缺省的外观未免显得单调和缺乏创意。其实,我们完全可以在我们的程序
中
通过编程来达到美化
DB
Grid
外观的目的。通过编程,我们可以改变
DB
Grid
的表头、网格、网格线的前景色和背景色,以及相关的字体的大小和风格。 以下的示例程序演示了对
DB
Grid
各属性的设置,使 Delphi
显示
的表格就像网...
db
grid
列宽_如何自动修复
DB
Grid
列宽
db
grid
列宽 Designed to enable a user to view and edit data in a tabular
grid
, the
DB
Grid
provides various ways of customizing the way it represents "its" data. With so much flexibility, a Delphi develo...
delphi
DB
Grid
Eh
在一列
数
据
单元被重绘以前,你可以改变绘 制字体,背景色,对齐方式,图像索引,文本或检查框。还可在picklist
中
添加提示信息,也要求 是一行为一个值,并设tooltip为true,那么,运行时当鼠标移动到该
数
据
单元格时在
显示
图片的同时还
显示
提示信息,怎么样,功能够强大吧!然后在Footers 编辑器
中
添加一个或多个
显示
列,
显示
列可以是字段值累加和、
记录
数
合计、字段值或静态文件等集合类型,可以在设计时在ValueType属性
中
设置,也可 在运行时通过设置Footers.ValueType指定其类型。
Qt网格组件Data
Grid
:如何在网格
中
输入新行
QtitanData
Grid
是一款适用于Qt的商业化Data
Grid
组件,它使得表格
数
据
可以直接面向终端用户。这个组件吸收了用户界面结构
显示
表格方面所有的现代化技术的精华,是目前Qt市场上唯一一款拥有如此高级功能和出色性能的网格组件。这个Qt
数
据
网格组件使用纯C++创建,运行速度极快,处理大
数
据
和超大
数
据
集的效果突出。QtitanData
Grid
完全集成了QtDesigner,因而极易适应其他相似的开发环境,保证100%兼容Qt GUI。 点击下载QtitanData
Grid
最新试用版 该示例
显示
了如
让你的
DB
Grid
竖着站(1)
申明:本源代码非本人所写,只是粘贴他人作品,目的是为了推广!{*********************************************************************************}{File Name.......:
DB
V
Grid
s.zipFile Description: Implementation of a Verti
ca
l
DB
Grid
ba
Delphi
5,928
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章