说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

筛选数据-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
筛选数据-Delphi资料

·设定范围·

所谓范围,就是指定一个上下界,筛选出落在上下界内的一组连续记录。为方便说明,我们先生成一个

项目,并在Form1中放入如下组件:

组件名 属性

Table1 DatabaseName:=DBDEMOS

TableName:=Customer.db

DataSource1 DataSet:=Table1

DBGrid1 DataSource:=DataSource1

本例中我们使用了Delphi自带的别名'DBDEMOS'下的一个数据库:Customer.db,这是一个记录顾客基

本信息的数据库。当我们把Table1的Active属性置为True时,在DBGrid1中会显示出该库的内容。下面我们

往Form1中放入一个Button1,编写Button1的OnClick事件如下:

procedure TForm1.Button1Click(Sender: TObject);

begin

with Table1 do

begin

KeyExclusive:=True;// 为True时不包括边界值,为False时包括边界值,缺省为False;

SetRangeStart;

Fieldbyname('CustNo').AsString:='1000'; //设定范围上界

SetRangeEnd;

FieldbyName('CustNo').AsString:='2000'; //设定范围下界

ApplyRange; //使范围生效

end;

end;

以上是设定范围的很典型的一组语句。运行程序,单击按钮后,顾客号在1000至2000之间的顾客记录被

筛选了出来。范围一旦被设定,在整个应用程序执行过程中都是有效的。当然,我们可以调用CancelRange

方法来暂时使范围失效,以后需要范围生效时,可直接调用ApplyRange方法,而不需要再次设定范围的上下

界。另外,我们可以调用EditRangeStart和EditRangeEnd的方法来改变范围的上下界。

使用范围的唯一条件是,设定范围的字段必须已建索引。对没有建立索引的字段使用范围是不允许的。

·使用过滤器·

过滤器筛选出来的记录可以是连续的,也可以是非连续的。过滤器不受索引的限制,而且即使有索引,

过滤器也不依赖,也就是说,过滤出来的记录是未经排序的。过滤器的使用非常简单,可以直接在Table组

件的Filter属性中写入包含过滤条件的字符串,并把Filtered属性置为True来启动过滤器。在上例中,我

们可以在Table1的Filter的属性框内写入:(CustNo>1000) and (CustNo<2000)

当我们把Table1的

Filtered属性置为True时,DBGrid1内将显示出顾客号在1000至2000之间的顾客记录。当过滤条件比较复

杂时,我们可以通过编写Table1的OnFilterRecord事件来实现。例如:

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);

begin

Accept:=(DataSet[′CustNo′]>1000) and (DataSet[′CustNo′]<2000) and (DataSet[′

Country′]=′US′);

end;

运行程序,所有CustNo在1000至2000之间并且Country='US'的顾客记录被筛选了出来。在

OnFilterRecord事件中,我们可以使用条件分支语句或者循环语句,因而非常灵活,便于完成条件很复杂

的记录筛选工作。和范围一样,过滤器一旦设定,就将维持到应用程序的结束。当然,我们可以将Filtered

属性置为False来使过滤器失效。

和范围相比,过滤器方便灵活,而且不受索引限制,但正是因为没有索引支持,当记录数量比较大时,

过滤器的速度会受影响。因此

范围和过滤器各有各的适用场合。

·使用查询·

即通过TQuery组件来使用SQL语句实现记录的筛选。大家可能对这种方法比较熟悉,这里只做简单说明

,如上例中的记录筛选用一条很简单的SQL语句就能实现:

Select * from Customer

Where (CustNo>1000) and (CustNo<2000)

使用SQL语言可以实现条件很复杂的筛选,当记录数量很大或条件很复杂时,应尽量使用SQL语言来查询

和前两种方法相比,使用查询更加灵活多变,适应性更强,而且也不受索引的限制。但这种通过SQL语

句的筛选是一次性的。当调用TQuery的Open方法(或Active:=true)后,TQuery返回查询结果集,之后就

失去了对结果集的范围限制。当结果集中的某些记录发生改变(如某条记录的Custom变为3000),不满足筛

选条件时,这种方法不能马上察觉,必须再次调用TQuery的Open方法才能实现。

实现应用程序的文件拖放功能-Delphi资料 死循环的控制权转让-Delphi资料 添加桌面快捷-Delphi资料 统计中英文字个数-Delphi资料 为 应 用 程 序 添 加 口 令-Delphi资料 应用软件加入全面的功能权限控制-Delphi资料 用Delphi编写安装程序 用Delphi实现超级链接 用Delphi实现子目录级的文件查询 用Delphi自制英语复读机 用DEPHI为应用软件建立注册机制-Delphi资料 优化delphi5.0秘籍大曝光 元件的handle的建立-Delphi资料 元件卷动的改进-Delphi资料 在delhpi程序中获取网络资源信息-Delphi资料 在Delphi中操作快捷方式 在DLL中实现文件的拷贝-Delphi资料 在Report Builder中增加自定义函数-Delphi资料 在Win2000 Beta下安装Delphi 在Word插入字符-Delphi资料 注册表中几个对编程特别有用的地方-Delphi资料 资源文件在DELPHI中的使用 自制替换指定串函数-Delphi资料 API函数快速入门API函数简介-VB资料 API函数快速入门怎样在VB中声明和使用API函数 API函数在VB开发中的应用 API函数在VB中的应用 API实现完美的图片出现效果-VB资料 ListView控件特效-VB资料 Office 95 API 的企业开发者指南-VB资料 SENDMESSAGE函数巧应用 -VB资料 天使的旁边是魔鬼 数据集排序问题 哪里有 MS viso 下载,谢! 用DATAREPORT设计报表,这个怎样设计? ASP写的计数器程序问题 天女散分:process basename 中文叫什么,进程什么名? 数据库句柄清除问题 请问我用JBuilder + weblogic61 编写的 EJB,在我拿到别的地方部署,是不是只拿 XEjb.jar和客户端 就行了? 如何让两个byte类型的变量a和b进行异或(^)操作,然后将结果存入另一个byte中? 我也来一个关于ACCESS的问题,高分请教。在线等待 CDC问题:怎样从屏幕尺寸转换到厘米呢?反之呢? VC中如何给动态产生的控件写事件方法?在线等! 》》怎么没有人解决这个问题呀,谁解决,我给分!!!!! 为什么快捷方式不能用? ★★★有没有像“delphi属性编辑框”一样的控件或是源码(100-1000分)★★★ 谁有RealPlay格式详细信息 500分求救! 请问大家那里有jrun 4下载 如何自己析构单文档模板? MASM32中标号的疑问 这个错误该如何改 关于在OUTLOOK中如何自创模板的问题? com系列丛书那里有卖 一个关于鼠标事件的简单问题 为什么我在JSP中能得到TEXT文本中的数据,却得不到在SELECT中的数据呢? 求救!为什么我的ACESS数据库文件会莫名其妙的达到25M,我还没输任何数据呢?而生成MDE后只有500K? 我要一个功能强大的弹出日历 Viva La Costa Rica! 我再也不看Chinese Team的比赛了! 如何做jar包呢?还有如何做bak呢?大家救救我吧。 《inside the c++ object model》问题 这句是什么意思??? 问一个Win2000Server域用户客户端登陆问题。 小问题:在线等待:) 如何删除一个ini文件中的关键项目?急 求救!为什么我的ACESS数据库文件会莫名其妙的达到25M,我还没输任何数据呢?而生成MDE后只有500K? 求教关于c++builder的图象预处理的源代码。50分!!还有金钱相送! access的问题 郁闷!!关于数据窗口一个奇怪的问题!! 如何实现断点续传 寻求《软驱监控程序》!!!!!!!!!!!!!!价格面议 用imp恢复数据库,要做什么准备呀? 刚才给分失败,重新散分! 关于SQLserver数据库和MDB数据库的句语问题!!! IE数据保密大全,如何禁止以下功能?菜单,工具栏,收藏夹,鼠标右键,PRINTSCREEN键,键盘快捷键 帮忙:DCOM 无法使用任何配置的协议与计算机 慨n 通信? 查询问题 请教bean中填写方法问题,高手帮忙啊!!!!! 昨天回家遇到打劫,被暴打一顿 本人有一个数据窗口对象中的一个字段,其为DDDW型的,可是在它的选项页中却怎么也不能显示出我想设置的名字显示出来,却总是显示保存在表中 在线求助,当场送分。 用MASM编译DOS程序经常有问题啊!? 从秦代到清代共经历了多少年?急.... 水里什么动物吃黄鳝 求助:谁有中国人祖先的故事(不要传说和亚当夏娃的,最好要黄帝或炎帝的),必须缩短到30字以内,记住一定是30字以内,要标题目. 做不到以上条件,不 给 分,高悬赏题呢,快来答啊! 计算题:汽车在公路上匀速行驶的距离是2km ,它受到的阻力是2000N,它的牵引力是多大?牵引力做功是多少焦耳? 做黄鳝汤选用多大的黄鳝呢 传说中的“神农尝百草”,发明医药,成为中华原始农业和医药业的创始人的是谁? 我的音响保险丝是1.5A的我用了5A的会怎么样 自来水里放出来的,是长鱼吗?我们喝滴是长江水. 根据下列粒子的结构示意图,(1)属于相对稳定结构的是_______(填序号下同),其中失去最外层电子达到稳定结构的是____,得到电子达到稳定结构的是____.(2)在化学反应中容易得到电子的是_ 电器115V,1.5A功率是多少瓦? 鳝鱼离开水为什么不死? 根据下列四种粒子的结构示意图回答问题(填序号).(1)属于同种元素粒子的是___;(2)属于原子的是___,属于稀有气体元素的粒子是___;(3)属于粒子的是___,在化学反 真金不怕火炼指的是金的那种性质 质量相等的HCl和NaOH反应,为什么盐酸会过量如果是36.5g,那不是NaOH过量了吗 根据下列五种微粒的结构示意图,回答下列问题: A选项去掉.在把D项改为+16圆圈外面是2和8和6,问,在BCDE的选项中具有相似化学性质的是 比较中国农耕经济和西方海洋贸易的特点答案要具体点哦,最好有一两百字 一定质量的氢氧化钠固体,变质前后与相同质量分数的稀盐酸反应,变质前消耗盐酸的量( )变质后消耗盐酸量(填大于,小于或等于)我听不懂,这道题是初三的 下列四种粒子的结构示意图中,最容易失去电子的粒子是()A (+11)2 8 1 B (+8)2 8C (+10)2 8D (+16)2 8 6老师让自己暑假学的化学,好多都不懂,多多指教 真金不怕火炼,是金在高温下也不与( )反应说明金的( )性质非常真金不怕火炼,是金在高温下也不与( )反应说明金的( )性质非常稳定 六氟磷酸铵的性质 某粒子(原子或离子)的结构示意图为,请回答下列问题:1)若m=11,则该粒子所对应元素的符号为____________;  (2)若该粒子带两个单位负电荷,且n=8,则该粒子的符号为____________;  (3 农耕经济占主导地位的文化会形成哪些特征 磷酸铵受热分解的产物是哪些 需要具体的反应方程式.哈 许多瓶盖的外缘常有一些竖条纹,这样做是为了增大摩擦力;用手握住瓶子,让瓶身保持竖直,如果增大握力,则瓶子受到的摩擦力不变.看过解析摩擦力为何不变,是因为当瓶子在竖直方向静止时, “真金不怕火炼"说明了什么道理?要具体简洁,不超过20个字 把盐放到水里,有没有消毒的作用? 二十四水合硫酸铝铵晶体加热分解到400度时的化学方程式4.53g硫酸铝铵晶体加热分解,最终剩余0.51gAl2O3固体 什么是农耕经济 给锦鲤杀菌的食盐水浓度?家里养了几条红鲤鱼,观赏用,放在鱼缸里,大约7、8厘米长,但是不幸得病了,需要用食盐水消毒杀菌.请教养鱼的前辈,大约一升水加多少食盐消毒?消毒时间是多少?我的 硫酸铝铵如何制氢氧化铝 “烈火见真金”、“ 真金不怕火炼”、“ 沙里淘金”,来自黄金的哪些性质? 可以在淡水鱼的水里加点盐杀菌吗 12水合硫酸铝铵加热先失水吗 玉不琢不成器 例句求 玉不琢不成器 的解释和例句 用毛巾消毒,我可以放开水后加点盐吗, 下列粒子结构示意图中,表示原子的是( ) 玉不琢不成器运用了什么论证方法 在我国古代的传说中“神农氏教民播种五谷”“嫘祖发明养蚕缫丝”的故事.这些神话传说反映出中华文明的核心是:A.农耕文明 B.和谐平等的社会秩序 C.神话传说 D.游牧文明 用铁粉比用氧化钙来干燥的好处 下列俗语与物质的化学性质无关的是 A火上浇油 B百炼成钢 C玉不琢不成器 D死灰复燃 祖先的故事 水银的危害?睡觉时,不小心将夹在腋下的体温计弄断了,有少量水银流出粘在了皮肤上,会不会对身体产生不利影响呢?还有水银还有什么危害? “玉不琢,不成器;人不学,还有一些相近的名句,越多越好. 关于我们祖先的故事 水银有什么危害小时候有一次我家的温度计碎了,水银出来了,我还玩了很长时间那,不知道当时对我产生么危害了.会不会对现在得我有危害. 保险(熔断器)的电流以及电压参数保险一般都大大的标着电流、电压(例如220VF5A),那么请问,保险的耐压值在保险工作时,起到什么作用呢?换句话说,如果选择耐压值不当,会有什么安全隐患 宇宙中有摩擦力吗?真空中有摩擦力吗? 某粒子的结构示意图为+13 2)8)下列说法不正确的是A该元素原子的原子核外有两个电子层B该元素是一种金属元素C该离子是阳离子D该粒子具有稳定结构为什么不选A?而且D为什么不正确? 秦朝一共存在多少年? 惯性和摩擦力的问题一张纸片上有一块橡皮,慢慢的拉纸片,橡皮会随着纸片一起运动快速的拉,纸片被抽走,橡皮则落在原地.就像抽走桌布,桌子上的物体不动一样两次分别是什么原因? 有关下列四种粒子的结构示意图的说法中正确的是A.①该粒子属于原子B.②该粒子的原子核外有18个电子B选项哪里有错 求 某户进行电路旧线改造后将保险丝的规格由5A换成了8A维持路线允许同时接入用电器的功率比原来增加了( ) A1100W B1760W C660W D2860W 宇宙里有摩擦力吗? 某粒子的结构示意图为(+12))2)8),下列说法不正确的是A.该元素的原子核外有2个电子层B该元素是金属元素C该粒子是阳离子D该粒子具有稳定的结构 NAOH可以和H2S反应生成什么 化学方程式. 惯性、摩擦力与什么有关? 某元素的一种粒子的结构示意图为下图所示,下列说法中,错误的是:A 该粒子属于原子B 该元素在化合物中显+1价C 该元素的1个离子含有11个电子D 该元素的原子在化学反应中容易失电子 我觉得 秦朝历经多少年秦朝历经了多少年?从哪一年到哪一年? cao caoh2 caco3中谁能与二氧化碳 水反应哪个与这两个都能反应 太空中有没有摩擦力
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘