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

怎么判断DBGrid中是否有数据? [问题点数:20分,结帖人abcd4321]

Bbs1
本版专家分:26
结帖率 100%
CSDN今日推荐
Bbs3
本版专家分:924
Bbs6
本版专家分:9301
Bbs4
本版专家分:1462
Bbs2
本版专家分:135
Bbs2
本版专家分:466
Bbs2
本版专家分:466
Bbs6
本版专家分:8837
匿名用户不能发表回复!
其他相关推荐
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中的一行,而获取选中行的各字段的值
你点中它就已经选中了该条记录,直接取就可以了。 如你用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
在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
将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>
DBGrid控件大全(一)
  DbGrid控件的标题栏弹出菜单procedure TFrmOrderPost.DbgOrderPostMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var  CurPost:TPoint;begin  GetCursorPos(CurPost)
c++builder 6.0 将DBGrid中的数据导出到Word和Excel
因为需求,所以自学了c++,没有人带着还是有点慢!遇到很多问题网上很难找到资料,幸好在这网站遇到好多热心人!! 我我也在网上找到了几个不错的资料,需要的朋友可以 去我的资源下载! 今天这代码是从网上看到的,我正好需要,我把他整理了一下下!! 代码来自:点击打开链接 主要方法// 导出excel void __fastcall DBGrid2Excel(TDBGrid *dbg, Str
DBgrid大全1
在 Delphi 语言的数据库编程中,DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实,我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程,我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色,以及相关的字体的大小和风格。   以下的示例程序演示了对 DBGrid 各属性的设置,使 Delphi 显示的表格就
在代码中如何判断DataSet中是否有记录
把从数据库表中查询出的数据填入DataSet的对象ds后,不能用ds.Tables["XXX"].Rows.Count>0,或ds.Tables["XXX"].Rows[0][0] != null作为判断ds中是否有记录的依据,经代码调试会发现,不论是情况(1) 还是情况(2) ds.Tables["XXX"].Rows.Count的值都是1,且虽然情况(1)中显示的查询结果是NULL
Delphi中DBgrid控件数据库点击某列按序排列
Delphi中DBgrid控件数据库点击某列按序排列 procedure Tmainform.DBGrid2TitleClick(Column: TColumn); var i : integer; begin   for i:= 1 to DBGrid2.Columns.Count do   begin     //恢复所有标题字体为默认     DBGrid2.Columns
关闭