CSDN论坛 > C++ Builder > VCL组件使用和开发

DBGrid的用法 [问题点数:20分,结帖人techlink]

Bbs1
本版专家分:11
结帖率 100%
CSDN今日推荐
Bbs7
本版专家分:21317
Blank
红花 2005年2月 C++ Builder大版内专家分月排行榜第一
2004年12月 C++ Builder大版内专家分月排行榜第一
Blank
黄花 2010年9月 C++ Builder大版内专家分月排行榜第二
2005年1月 C++ Builder大版内专家分月排行榜第二
Blank
蓝花 2005年3月 C++ Builder大版内专家分月排行榜第三
Bbs1
本版专家分:11
Bbs5
本版专家分:3890
Bbs5
本版专家分:3479
Bbs1
本版专家分:11
匿名用户不能发表回复!
其他相关推荐
DBGrid 单行修改、单列修改、选中一行但可编辑
1.QQ:513187410 2.保证无毒 3.简单,方便,实用 4.实例可以自行改用 5.如有非法,本人无法律责任,由改动代码人负责! 6.需要更多本人作品,查找标签“朱建强” 7.请下载,杀毒后再使用!
将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中遍历多选列(TBookmark使用)
sloop := 0; while sloop
在DBGrid中实现多选功能。
1、首先把DBGrid->options-dgMulitSelect设为True.  dgRowSelect也设为True,此属性设为true后,DBGrid将不能编辑,如何实现能否编辑代码如下要先引用 uses DBGrids单元procedure TfrmXJCGHD.CheckBox1Click(Sender: TObject);begin  inherited;  if check
IntraWeb使用技巧集
 1。打开新窗体 begin     If WebApplication.FindComponent(需要打开form的名称)         TIWAppForm(WebApplication.FindComponent(需要打开form的名称)).Show;     End Else Begin        TIWEditfm(需要打开form的名称).Create(WebAppli
在DBGrid中可选中行而又可进入编辑状态
如何在DBGrid中选中行,而又让它可以进入编辑状态?   也许你会问我这有什么用?呵呵,做数据库应用的兄弟们会深有感触,当用DBGrid显示的字段过多时,用户不得不拉动最下面的滚动条,去看最右边的东西,如果没有设置DBGrid->Options[dgRowSelect],那么,拉到最右边之后,很有可能看串行的;如果设置了DBGrid->Options[dgRowSelect],则在拉到最右边之
Delphi中实现DBGrid列宽度自动调整
      发现一些ERP的软件的查询,查询出来结果之后,有的字段列宽过大,这时候要通过右键--初始化表格设置 这样的方式来调整表格的列宽。这样操作让人觉得麻烦,突然在网上看到这样的一篇文章,记下来备用。来源:http://www.yesky.com/423/1882423.shtml 大多数程序设计的爱好者选择并使用Delphi来编写软件,都是被其中丰富而功能强大的VCL控件所吸引。
delphi DBGrid排序的两种方法(自己代码中,测试成功的)
在delphi有些第三方控件确实有自带的排序功能,可是对于原始的DBGrid控件不存在自动排序功能,下面是两种不同显示的排序方法。我自己写成函数,可以调用。(自己程序中测试成功的)
delphi 对指定DBGrid进行排序。
procedure TFrom1.DBG1TitleClick(Column: TColumn); var   i:integer; begin   if Pos('◆',Column.Title.Caption)>0 then begin      if Pos(' DESC',Q1.Sort)>0 THEN BEGIN         Q1.Sort:=Column.FieldNa
在DBGRID里添加行序号
//  1. create new blank field in dbgrid //  2. rename the title with No //  3. put this code in OnDrawColumncell //  4. Now your Grid has a row number procedure TForm1.DBGrid1DrawColum
关闭
关闭