CSDN论坛 > Delphi > 数据库相关

DBGRID中的问题 [问题点数:0分]

Bbs2
本版专家分:212
结帖率 100%
CSDN今日推荐
匿名用户不能发表回复!登录|注册
其他相关推荐
【delphi】DBGrid中插入图片
procedure TMainFrm.GridFriendDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;  State: TGridDrawState);var  Picture:TPicture;begin  TDBGrid (Sender).DefaultDrawColu
DataSnap DBGrid DateTimePicker 组合输入日期值
对于DataSnap三层数据库软件,对于日期格式要求比较严格,如日期采用“yyyy-MM-dd”格式,人工输入时,常会出现错误,将“2014-01-01”会错误录入成“2014-1-1”。为了避免用户录入错误。在DBGrid录入时,通过DateTimePicker规范录入格式,起到减少错误的效果。笔者通过参考网上的例子,通过DateTimePicker与DBGrid两控件的结合,将DateTime
在DBGrid中加入Checkbox
最近因为一个项目的原因想在DBGrid加入Checkbox,当然同样的功能Ehlib已经有一个控件DBGridEh已经实现。但是我不太喜欢它因为它太复杂了,而我又是一个比较赖的人,于是就想一个简单一点的方法,后来在橙子的博客发现了一段代码,拿来一试,呵呵搞定!我们开始吧1、新建一个项目,在其中加入ADOConnection1,ADOQuery1,DataSetProvider1, ClientDa
将DBGrid中的数据快速导出到Excel的控件
发布原因:<br>在网上找了很久也没找到个好用的,不是慢,就是要依赖Excel(必须按装),又找呀找,才找到一个http://blog.csdn.net/xiangding/archive/2003/10/27/16918.aspx,但试了一下,不能用,不知是我用法不对还是本身有问题(由于没有给出使用示例),后来找到http://developer.51cto.com/art/200510/7494.htm这个不错,但他又让我装ehlid,不爽,所以对其做了修改,其它也就是去了个加页脚的地方,很爽,有进度条,导完后如果按安装了Excel则直接打开,如果没有的话就不管了,自已想办法打开吧!<br><br>特点:<br>一、不需安装Excel即可导出。<br>二、有进度条。<br>三、最多可以导出多少条,我没试,我试了5万条没有问题,时间也就是只需1-5分钟(我电脑较慢)。<br>四、不需安装组件。<br><br>使用方法(注:别忘了uses DBGridToExcel;):<br>procedure TForm1.btn1Click(Sender: TObject);<br>var<br> DBGridToExcel: TDBGridToExcel;<br> ExcelFileName: string;<br>begin<br> DBGridToExcel := TDBGridToExcel.Create(nil);<br> try<br> DBGridToExcel.TitleName := '入网车辆统计报表';<br> DBGridToExcel.BeginDate := '开始日期:2005-07-01';<br> DBGridToExcel.EndDate := '结束日期:2005-07-18';<br> DBGridToExcel.UserName := '系统管理员';<br> DBGridToExcel.DBGrid := dbgrd1;<br> DBGridToExcel.ShowProgress := True;<br> if ExcelFileName = '' then<br> begin<br> ExcelFileName := 'c:\1.xls';<br> with TSaveDialog.Create(nil) do<br> begin<br> Filter := 'Microsoft Excel xls文件|*.xls';<br> DefaultExt := 'xls';<br> if not Execute then<br> Exit<br> else<br> ExcelFileName := FileName;<br> end;<br> end;<br> DBGridToExcel.FileName := ExcelFileName;<br> DBGridToExcel.Open := False;<br> DBGridToExcel.ExportToExcel;<br> finally<br> DBGridToExcel.Free;<br> end;<br>end;<br>
Delphi中的DBGrid如何实现使用鼠标滚轮上下滚动
首先,往窗体上加入一个ApplicationEvents组件,此组件位于additional选项卡内。 然后重写appliEvents组件的OnMessage方法: procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if (DBGrid1.Focu
delphi dbgrid行颜色改变
把 dgRowSelect 设为True, 在option里面. // DBGrid1的OnDrawColumnCell事件 if ((State = [gdSelected]) or (State=[gdSelected,gdFocused])) then     begin       DBGrid1.Canvas.Font.Color :=ClYellow;    
delphi DBGrid自动适应列宽(转)
比如有一个名称字段设置的长度是50,在DBGRID里面显示1条记录,这个名称只有3个字,要让DBGRID自动把这个字段的宽度缩到3个字宽。 uses Math; function DBGridRecordSize(mColumn: TColumn): Boolean; { 返回记录数据网格列显示最大宽度是否成功 } begin Result := False;
取DBGRID内一个单元格内的值
type  TDBGridEx = class(TDBGrid)    function GetValue(row, col: integer):Variant;  end;function TDBGridEx.GetValue(row, col: integer): Variant;begin  // TDBGrid有行列索引,但它们是protected的  self.Row := row;  
Delphi中如何点击DBgrid中的一行,而获取选中行的各字段的值
你点中它就已经选中了该条记录,直接取就可以了。 如你用query1连的:           s:=query1.fieldbyname(name).asstring;     就是取的当前记录的值了。  
delphi Dbgrid 根据值的不同显示不同颜色
DBGrid1DrawColumnCell 事件中: if Column.FieldName='STATUS' then begin if dm.qry1.FieldByName('STATUS').AsInteger=1 then begin dbgrid1.Canvas.Font.Colo
关闭