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

『如何输入条件,查询后,增加在DBGrid里面』 [问题点数:0分]

Bbs1
本版专家分:35
结帖率 100%
CSDN今日推荐
Bbs2
本版专家分:160
Blank
红花 2004年1月 Web 开发大版内专家分月排行榜第一
Bbs5
本版专家分:2842
Bbs1
本版专家分:20
Bbs2
本版专家分:379
Bbs2
本版专家分:284
匿名用户不能发表回复!
其他相关推荐
Dbgrid使用技巧(上)
    在 Delphi 语言的数据库编程中,DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实,我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程,我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色,以及相关的字体的大小和风格。    以下的示例程序演示了对 DBGrid 各属性的设置,使 Delphi 显
Dbgrid使用技巧(下)
二、建立项目,实现功能 1.新建一项目,并为表单添加相关控件,各控件主要属性如下表: 2.建立各Click的事件代码 Button1(打开表)的Click事件代码如下: procedure TForm1.Button1Click(Sender: TObject); begin   Table1.Open; // 打开Table1关联的表Student end; Button2(关闭表单)的Clic
dbgrid中移动焦点到指定的行和
http://tech.ccidnet.com/art/1077/20051115/808371_1.html   dbgrid中移动焦点到指定的行和   发布时间:2006.08.15 19:54     来源:plwww    作者: dbgrid是从TCustomGrid继承下来
将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某列具有下拉列表框,下拉另一个DataSet的数据
//mxb列1添加下拉框项;mxb.Columns[1].PickList.;whilenotdataset.eofdobeg;mxb.Columns[1].PickList.;dataset.next;;end;;mxb.Columns[1].expanded=;//mxb列的按钮类型;mxb.Columns[1].ButtonSty;mxb.Column //mxb列
delphi Dbgrid 根据值的不同显示不同颜色
DBGrid1DrawColumnCell 事件中: if Column.FieldName='STATUS' then begin if dm.qry1.FieldByName('STATUS').AsInteger=1 then begin dbgrid1.Canvas.Font.Colo
Delphi 同时使用 dbgrid ,dbgrideh 的冲突
同时使用 dbgrid ,dbgrideh 的冲突(Incompatible types) 声明:该篇转载自百度空间http://hi.baidu.com/382943850/blog/item/a5c17cd87687d23632fa1cec%2Ehtml 解决方法:修改引用的顺序 Windows, Messages, SysUtils,Variants,Classes
sql in查询结果按照in的条件排序返回
SELECT id, title, downloa_num, image_1, xindong_jishu, url_1, click_num, describes FROM aups_t014 WHERE aups_t014.status_ = 'use' AND id IN ( 49, 30, 46, 60, 47, 106, 29, 31, 33 )  ORDER BY INSTR
DBgrid中遍历多选列(TBookmark使用)
sloop := 0; while sloop
刷新dbgrid 而不失去当前行位置
http://www.delphishare.com/?/1207-1-0-1-1.html http://delphi.about.com/od/delphitips2008/qt/dbgrid_row_pos.htm google翻译并整理 我们有一个Delphi的数据库应用程序,上面有个DBGrid和一个数据集:   DBGrid是用来显示来自数据集(查询或表)的数据,根据设计,当
关闭