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

筛选数据-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方法才能实现。

林仕鼎:架构设计与架构师 跨平台工具火拼:Icenium与PhoneGap Build谁属王者? 索尼终于想明白了:PlayStation生态走向开放 高达10亿美元,Facebook为什么要收购Waze? Cocos2D-X成全球第二大游戏引擎 仅次于Unity 亲爱的苹果,能不能别让应用太廉价? 陈晓影:一位女海归曲折的拓荒故事 IDG李丰:在中国,创业公司最好是一个One Man Company Google Drive新增“保存到Drive”按钮功能 可自行添加 腾讯CDC创始人唐沐加盟小米 总经理陈妍接任 老板我想辞职:因为小米100万元征集一张壁纸 移动周报:GitHub上最火的Android开源项目 免费才是王道:盘点开发者须知的25个免费数据可视化工具 Pivotal获通用电气1.05亿美元支持 或将改变大数据和物联网的游戏规则 大掌门与阿里云和解:云生态系统呼之欲出 刘有涛:恩信科技云计算大潮中扬帆起航 Cloudera释放Impala 1.0:与Hadoop完全整合,各方面完爆Hive 云通讯平台:让你的应用会说话 触宝用户过亿,CEO王佳梁常说的词是“创新” 全国电脑健康日启动 360搭建电脑维修开放平台 C语言实现归并排序 360石晓虹:针对移动Apps的DDoS攻击将成重大威胁 更社交化:谷歌将推出Google Play平台服务 C语言对磁盘文件进行快速排序 传Google已关闭短信搜索服务 PayPal首席安全官:靠密码验证身份即将寿终正寝 DRM你又赢了:其API纳入HTML5标准 豌豆荚王俊煜:洗白白其实是一个计划外的产物 抢Google等巨头生意,纽约大学小伙挖掘并出售自己数据 noBackend:前端优先的开发模式 C、CPP const 详解 请高手帮帮我!!!! jbuilder4的enterprise setup需要weblogic51,但我的是weblogic6,应该怎样才能让jbuilder支持6啊? 关于数据库的并发操作 谁知道哪里有vb下载? 哪有可下载的AUTOCAD2000 如何用VB实现存折的打印???? 请教给TImage加滚动条的问题 我和她在一起的话,会开心吗 请大家看看这条语句有什么错? 关于isdn在win2000下共享的问题 各位水友,有力的出力,没力的看看,拜托 请从位高手帮小弟解决一个棘手的问题……………………多谢!!!!!!! ALLTEC(荔枝)兄弟,兄弟我接帖太快 :( 請這邊來. ★★★ 救命啊! VC 用ODBC访问 Access 数据库的问题 guo->你在www.linuxforum.net中叫什么?有个guoemail是你吗? 软件发布:市场摊位租赁管理系统Ver1.0 软件发布:量和单位转换软件(免费版) 软件发布:五笔快打 在listview中的各个记录listitem中,有没有双击记录的事件 软件发布:伏羲服装鞋业购销存管理系统 软件发布:进销存商务管理pcft-jxc 征集各地童谣.唤醒儿时记忆! 今天我请客! 有关vb调用excel的问题! 有没有关于BDE的单独的分发程序? VB中报表预览打印能不能实现象EXCEL中一样的“按比例缩放”?如何实现? 单机版流量统计 关于Delphi6的安装问题 动态计算公式怎么实现?? 常用的英文字体是什么? 在通信过程中怎样做到防监听、防篡改? 各位大虾现欲用java开发一套网上投票表决系统 应该看什么书?用什么开发工具?(一定给分!) 关于winsock的问题,急急 怎样使用VB6中TREEVIEW控件? 我真的要疯了! 这里有很多Delphi6的控件! 如何在ASP中传递多个参数?displaymsg.asp?page=1在后面我还想加另外一个参数 有没有喜欢画漫画的? 如何得到ActiveX控件的窗口句柄 请问mif文件格式以及、读写方法?高分求解 sco unix的root口令忘了,谢谢. 在PowerBuilder中使用Microsoft Web浏览器控件 ,这个控件在ole中怎么没有啊? 急盼有人答复!!!!!! 急!急!编译exe时出现:link errors提示 具体提示:create of executable file failed? 小笨笨一问 年年岁岁花相似,岁岁年年人不同 VC++初学者的几个大烦恼!(苦呀,谁来拯救我这个VC小兵?) 请教在DELPHI中调用API发送EMAIL的问题!!!!! 有谁知道没有封闭25端口的美国ISP的地址信息??? 水园的过去现在未来 -- 座谈一下 哭笑沉默怒骂攻击噌分拉关系白脸黑脸等等都欢迎 高分求购速达软件单据编辑的DBGrid组件或设计思想! 用方程和式子做,最好再简单的讲一下方法.张师傅加工一批零件,原计划每天加工50个,为了提前10天完成,他实际每天加工75个,张师傅实际多少天完成任务? 有意者,进.位少年选手,顺风跑90米用10秒;同样的风速下,逆风跑70米,也用10秒钟,无风时,他跑100米需要 时间. 已知角a等于,2角b,小a的余角的三倍等于角b的补角,求角a,b的度数, 1.如图a、b,是学校游泳池的平面图.比例尺都是1:1000.请观察这两个游泳池,并计算这两个游泳池的实际面积.如果你去游泳,现a有40人,b有100人,你准备到那个池中去游泳?(两问皆需算式) 育才小学一年级有300人,二年级学生人数是一年级的六分之五,又是全校学生人数的五分之一,全校有多少人?张阿姨买了一套服装一共用去380元,其中裤子的价钱是上衣的价钱的三分之二,裤子比 已知一个角等于它的余角的一半,求这个角的度数 下列结论错误的是()A.长度之比为1:2:3的三角形是直角三角形B.三个边长之比为3:4:5的三角形是直角三角形C.三个边长之比为8:16:17的三角形是直角三角形D.三个角度之比为1:1:2的三 小学六年级语文,数学题,急啊!谁帮帮我.回答得好我会加分的.数学:找规律:4,2,1,2分之1,4分之1,(),(),() 8分之1,32分之1,4分之1,16分之1,(),(),()应用题:1,一个长方形的宽是7分之5 (要求:保证正确,要有答和综合算式)果园里有一些苹果,上午运走了三分之一,下午运走了120千克,这时已经运走的占全部苹果质量的八分之三,这批苹果一共有多少千克?新学期运来一批课本, 某公司托运物品,质量为a(a 1.有一堆圆锥形的沙土,底面周长37.68m,高5m,把这些土在宽15.7m的路上铺4cm厚,可以铺多少米?2.一个圆柱形玻璃容器的底面直径为12cm,它的里面装有一部分水,水中浸没着一个高9cm的圆锥形铁块,当 两袋大米共重120千克,从甲袋取出20%,乙袋取出3分之1,这时甲袋剩下的大米是原来两袋重量的2分之1.从乙袋取出大米多少千克? 在RT三角形ABC中,角C=90度,AD平行BC,角ABE=2角CBE,求证ED=2ABBD把角ABC分为角CBE和EBA,BE延长到D点,AD平行与三角形ABC底边BC,ADB也构成一个钝角三角形另外,不能用三角函数做,只能用几何 有浓度为30%的硫酸溶液若干,加了一定量的水后,稀释成浓度为24%的硫酸溶液,再加入同样多的水后,浓度将变成百分之几?能不能给我再详细点、我一定给多分。 (1)一个圆柱体比一个与它等底等高的圆锥体积12cm,这个圆锥体体积是多少立方厘米?( 应用题)(2)一个圆锥的底面周长扩大到原来的2倍,高不变,体积扩大到原来( )倍.(填空题)(3) 问一个初二的数学题,要解法! ! !有一个三位数,现将最左边的数字移到最右边,则比原来的数小45;又知百位数字的9倍比去掉百位数字后形成的两位数小3,试求原来的三位数是多少?要具体的解 )六(3)班男生人数比女生人数少20%,该班女生人数是男生人数的百分之几?男生人数是女生人数的百分之几?(急、、、、、) 难一点的小学六年级奥数题 小学三年级一题有多种解法的数学题 三个不同的整数a,b,m之间有如下关系b×m=a,能否说整数a一定能被整数b整除?简要说明理由 六年级奥数题呀 难一点 求助:三年级一道数学题的解法.有两个一样的信箴,如果一个信封里放1 张信纸,还剩50张信纸;如果每个信封放3张信纸,还剩50个信封.请问:有几个信封,有几张信纸?不要设未知数. 一张长方形铁板的宽是30cm,四个角各减去一个小正方形,做成一个高5cm的长方体容器,容积的300ml(铁皮厚度忽略不计),这张铁皮原来的面积的多少?(每一个数据怎么得来的都说清楚,我不懂) 求世界上的最难奥数题比较难的就行! 今年的8月份有5个星期日,4个星期一,那么今年的8月1日是星期几?我的方法是从31是星期日,倒推到3号是第一个星期日,那么1号就知道了.请问有没有更简便的方法? 学校的仪器室地面长4米、宽3米,有边长30厘米的A种方砖每块5元和边长40厘米的B种方砖每块8元,在可以拼接的情况下,用哪种方砖密铺地面比较便宜? 世界上最难的数学题是什么? 请帮忙解题:一个小学二年级的数学题2个小铅球比一个大铅球重1千克,8个小铅球比5个大铅球轻1千克,算一算,大小铅球各重多少千克?这是二年级的数学题,不能用方程解,但需要列出算式. ①一道应用题牙膏出口处直径为6毫米,小红每次刷牙都挤出1厘米唱的牙膏.这支牙膏可用30次.该品牌牙膏推出的新包装只是将出口处直径改为5毫米,小红还是按习惯每次挤出1厘米长的牙膏.这 世界上最难的数学题有哪些公认的难题 小学五年级数学奥数题的答案?1.( )÷12=1:( )=3/( )=0.5=( )%2.把0.13万改写成以“一”为单位的数是( ),读作( ).3.在括号里填上合适的单位名称.(1)一个鸡蛋重50 1)一汽车销售公司,今年2月份销售了300辆a型汽车,3月份销售a型汽车的数量比2月份下降了24%,预计4月份的销售要比3月份下降1.3个人百分点.问:4月份比2月份销售情况下降了百分十几?2)甲、乙 已知A、B、C、D、E、F六人分别看了5 、5、 6、 8、 8、 10场演出,每场演出的票价不变,成人票价是儿童票价的2倍,且均为整数元,已知这六人买票共支出1026元,求成人票单价 1.边长为自然数,面积为105的长方形.不同的长方形共有几种? 1、一项工程,甲乙两队合做每天能完成全部工程的40分之9,甲队单独做3天,乙队再单独做5天后,可以完成全部工程的8分之7,如果由乙队独做,需要多少天可以完成?2、一项工程,甲乙两人合做4天后, 1.甲乙俩车从相距450千米的俩地出发,相向而行,经过2.5小时俩车相遇.已知甲车比乙车一车每小时快10千米,求俩车的速度各是多少.2.小红读1本书,上午读了10分之1,下午比上午多读6页,这时已读的 几道小学五年级奥数题1、把一个小数的小数部分扩大4倍,这个小时就变成6.6,把这个小数部分扩大8倍,就变成例如9.2,原来这个小数是( )2、从1、2、3、4、5、6中选出四个数字组成一个四位 1.一个圆锥和一个圆柱的高相等,并且圆锥的底面直径是圆柱底面直径的6倍,求圆锥的体积是圆柱体积的多少倍?2.一个圆锥和一个圆柱的体积之比是9:5,底面积之比是4:3.求圆锥与圆柱高之比 超难的小学六年级数学题根据2/3=1-1/3,2/15=1/3-1/5,1/3+1/15=(1-1/3+1/3-1/5)*1/2,1/a(a+n)=(1/a-1/a+n)*1/n 求1/4+1/28+1/70+1/130等于多少 1、花生的出油率是30%,300千克花生可榨油多少千克?2、2.五年级2班今天有49人到校上课,出勤率为98%,全班共有学生多少人?3.风速在森林地带可比平原减低30%,如果风在森林地带速度每秒是4. 一条公路上有1、2两路公交车.3分钟后是1路车,7分钟后是2路车.小明从家出发走到公路边等车,那么小明等到哪路车的可能性更大? 题是这样的:有五只猴子,他们去摘桃子,把摘来的桃子放在一起了,晚上第一只猴子想起来要分,就把这堆桃子平均分为了5份,还剩一个,他就给吃了,过了一会,第二个猴子想起来了,又把第一只猴 几道小学五年级数学题1.办公桌抽屉的长是30厘米,宽50厘米,高15厘米.如果一张办公桌有2个这样的抽屉,做一张桌子需要木板( )平方米.2.“环球”牌涂料分大桶、小桶两中规格包装,大桶8升, 桌上摆有4张卡片,分别写有3、5、6、2并反扣在桌上.任意抽2张,如果组成的两位数是单数就算小明赢,否则就算小红赢,这样公平吗?为什么?我算了出来但总觉得不对, 超难小学六年级奥数题 一项工作,甲单独做要用10小时,乙单独做要用15小时,甲做完三分之一后,两人合作,还需要几小时完成? 六年级上册数学基础训练一道数学题(可能性)举一个例子,说明所发生事件的可能性是不相等的,应该分别是十分之一、五分之二和二分之一. 一个长方体的木料,长1米,将其截成三段变成三个小长方体.表面积比原来增加20平方分米.原来木料体积是多少? 求十道五年级奥数题加答案题目短一点 小学六年级数学题,是统计与可能性部分的,会的请进! (共3道,共15分,每道5分.)1.袋子里有红球和白球若干个,摸到红球的可能性是十分之七,如果把其中一个红球换成白球,摸到红球的可能性就 解比例:4:5=(x+5):10简算题:11*11*11-11*11-10 36*1111+8888*8大哥大姐帮帮忙!1 急.写出详细的算式,不用解题思路.一、填空.(每空0.(1)800706502读作(),四舍五入到“万”位约是( ).(2)250平方千米=( )公顷 1又1/6时是( )小时( )分(3)1.2=72/( )=( )%.(4)一 事件发生的可能性有( ) 某市居民生活用电基本价格为每度0.40元若每月用电量超过a度,则超过部分按基本电价的70%.(1)某用户5月份用电84度共交电费30.72元,求a的值.(2)若电费平均每度0.36元,6月份用电多少度某市 1.张大伯家有一堆小麦,堆成了圆锥形,张大伯量的其底面周长是9.42m,高是2m,这堆小麦体积是多少立方米?如果每立方米小麦的质量为700kg,这堆小麦有多少千克?2.小红去食品店买肉罐头,她看到有 五(1)班和五(2)班同学到扫卫生,没办负责打扫整个操场的一半,五一班完成了本班任务的 四分之三 ,五二班完成了本班任务的得五分之四,两个班分别打扫了操场的几分之几? 某市居民生活用电基本价格为每度0.40元若每月用电量超过a度,则超过部分按基本电价的70%.(1)某用户5月份用电84度共交电费30.72元,求a的值.(2)若电费平均每度0.36元,6月份用电多少度某市 要算式,不要方法6.某装订车间的三个工人要将一批书打包后送往邮局(要求每个包内所装书的册数同样多).第一次他们领来这批书的十二分之七,结果打了14个包还多35本.第二次他们把剩下的 (1)体育课上,某班全体男生分成甲、乙两组进行投篮练习,结束后发现:全体男生的平均投篮数是3个;如果乙组再多投7个,那么乙组男生的平均投篮数是4个.已知甲组7名男生共投了20个球.求 已知角A=2角B,角A的余角的3倍等于角B的余角,求角A,角B的度数
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn