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

DBGrid控件在显示数据时的问题? [问题点数:20分,结帖人qiu_sj]

Bbs1
本版专家分:30
结帖率 100%
CSDN今日推荐
Bbs1
本版专家分:30
Bbs5
本版专家分:2260
Bbs1
本版专家分:0
匿名用户不能发表回复!
其他相关推荐
在DBGrid中加入Checkbox
最近因为一个项目的原因想在DBGrid加入Checkbox,当然同样的功能Ehlib已经有一个控件DBGridEh已经实现。但是我不太喜欢它因为它太复杂了,而我又是一个比较赖的人,于是就想一个简单一点的方法,后来在橙子的博客发现了一段代码,拿来一试,呵呵搞定!我们开始吧1、新建一个项目,在其中加入ADOConnection1,ADOQuery1,DataSetProvider1, ClientDa
Delphi excel 复制粘贴到dbgrid
uses   Clipbrd function SplitString(const Source,ch:String):TStringList; var temp:String; i:Integer; begin Result:=TStringList.Create; //如果是空自符串则返回空列表 if Source='' then exit; temp:=Source;
delphi7 dbgrid中加入COMBOBOX
在DBGrid 网 格 中 实 现 下 拉 列 表, 设 置 好DBGrid 中 该 字 段 的PickList  字 符 串 列 表、 初 始 的 序 号 值DropDownRows 即 可。 以 职 工 信 息 库 中  的 籍 贯 字 段( 字 符 串 类 型) 为 例, 具 体 设 计 步 骤 如 下:  1、 在 窗 体 上 放 置Table1、DataSource1、DBGrid
delphi Dbgrid 根据值的不同显示不同颜色
DBGrid1DrawColumnCell 事件中: if Column.FieldName='STATUS' then begin if dm.qry1.FieldByName('STATUS').AsInteger=1 then begin dbgrid1.Canvas.Font.Colo
DbGridToExcel(Delphi)
procedure TFrm_func.DbGridToExcel(ADg: TDBGrid); var   xlApp, xlSheet, szValue: Variant;   ARow, iLoop: word;   FSaveDialog: TSaveDialog; begin   if ADg.DataSource.DataSet.IsEmpty then   begin
DataSnap DBGrid DateTimePicker 组合输入日期值
对于DataSnap三层数据库软件,对于日期格式要求比较严格,如日期采用“yyyy-MM-dd”格式,人工输入时,常会出现错误,将“2014-01-01”会错误录入成“2014-1-1”。为了避免用户录入错误。在DBGrid录入时,通过DateTimePicker规范录入格式,起到减少错误的效果。笔者通过参考网上的例子,通过DateTimePicker与DBGrid两控件的结合,将DateTime
delphi中实现dbgrid数据的显示随edit文本框的内容而选中
procedure TForm1.Edit1Change(Sender: TObject); begin ClientDataSet1.Locate('班级编号',trim(edit1.Text),[lopartialkey]); end;
Delphi DBGRID中 根据不同的字段值显示不同的小图标
问题简介: 在DBGRID中显示图片,或者根据不同的字段值显示不用的小图片,有两种方法: 1>、使用DBGridEH设置相应的属性; 2>、使用代码,自己在DrawColumnCell事件中进行重画;   1 、使用DBGridEH设置相应的属性 在数据单元格中显示不
Delphi DBGrid使用大全
Delphi DBGrid使用大全 Delphi DBGrid使用大全   delphi中TDBGrid的使用 2010-06-24 10:03 procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;Stat
在delphi中,从dbgrid导出数据保存成excel文件
实验了,很好用function TForm1.ExportDBGrid(DBGrid: TDBGrid; SheetName: string): boolean;//直接保存,不显示EXCEL<br />var<br />c, r, i, j: integer;<br />app: Olevariant;<br />TempFileName, ResultFileName: string;<br />begin<br />try<br />    result := True;<br />      app
关闭