CSDN论坛 > Delphi > VCL组件开发及应用

在DBGRID中如何插入记录号子? [问题点数:0分]

Bbs1
本版专家分:19
结帖率 100%
CSDN今日推荐
匿名用户不能发表回复!
其他相关推荐
delphi中实现dbgrid数据的显示随edit文本框的内容而选中
procedure TForm1.Edit1Change(Sender: TObject); begin ClientDataSet1.Locate('班级编号',trim(edit1.Text),[lopartialkey]); end;
如何用DBGrid实现排序
我找到了使用 ADOQUERY 控件实现的方法,可做参考: 巧用DBGrid控件的Sort属性实现“点击标题栏自动排序功能 很多朋友在使用DBGrid控件时,抱怨没有点击标题栏便可自动排序的功能,实际上通过ADOQuery或其它数据集组件的Sort属性配合DBGrid的OnTitleClick事件,可以方便地实现此功能。因为Sort属性可以让活动数据集按指定的字段进行排序,也可以选择排序方式(
Delphi中如何点击DBgrid中的一行,而获取选中行的各字段的值
你点中它就已经选中了该条记录,直接取就可以了。 如你用query1连的:           s:=query1.fieldbyname(name).asstring;     就是取的当前记录的值了。  
如何在DBGrid中实现某一列的单元格进入编辑状态,其它列的单元格保持只读状态
方法 (1) for   i:=0   to   DBGrid1.Columns.Count-1   do     begin          DbGird.Columns[i].ReadOnly   :=   True;//全部只读     end;          DbGird.Columns[1].ReadOnly   :=   False;第二列可编辑~~   方法 (2)
Delphi DBGrid总结
在 Delphi 语言的数据库编程中,DBGrid 是显示数据的主要手段 之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实,我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编 程,我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色,以及相关的字体的大小和风格。     以下的示例程序演示了对 DBGrid 各属性的 设置,使 Delphi
Delphi中如何动态更改DBGrid的颜色
在Delphi中如何动态更改DBGrid的颜色    DBGrid控件是一个有许多用户接口的显示数据库的控件,以下的程序告诉您如何根据显示的内容改变字体的显示颜色。例如,如果一个城市的人口大于200万,我们就让它显示为蓝色。使用的控件事件为DBGrid.OnDrawColumeCell. procedureTForm1.DBGrid1DrawColumnCell(Sender: T
DBGrid 各属性的设置
<br />在 Delphi 语言的数据库编程中,DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实,我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程,我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色,以及相关的字体的大小和风格。<br />    以下的示例程序演示了对 DBGrid 各属性的设置,使 Delphi 显示的表格就像网页中的表格一样漂亮美观。<br />    示例程序的运行:<br />    在
delphi Dbgrid 根据值的不同显示不同颜色
DBGrid1DrawColumnCell 事件中: if Column.FieldName='STATUS' then begin if dm.qry1.FieldByName('STATUS').AsInteger=1 then begin dbgrid1.Canvas.Font.Colo
DataSnap DBGrid DateTimePicker 组合输入日期值
对于DataSnap三层数据库软件,对于日期格式要求比较严格,如日期采用“yyyy-MM-dd”格式,人工输入时,常会出现错误,将“2014-01-01”会错误录入成“2014-1-1”。为了避免用户录入错误。在DBGrid录入时,通过DateTimePicker规范录入格式,起到减少错误的效果。笔者通过参考网上的例子,通过DateTimePicker与DBGrid两控件的结合,将DateTime
Delphi DBGrid中嵌套按钮
procedure TManageProjForm.dbgrdhProjectDrawColumnCell(Sender: TObject;   const Rect: TRect; DataCol: Integer; Column: TColumnEh;   State: TGridDrawState); var   btnName,IconName:string;   i :inte
关闭