Delphi数据集过滤技巧

2016-01-29 14:09 237 1 收藏

Delphi数据集过滤技巧,Delphi数据集过滤技巧

【 tulaoshi.com - Delphi 】

 
 当我们在操作数据集时,往往需要对数据进行筛眩例如:一个名为Customer的数据表,它具有CustNo、CustName、Country、Address、Phone、State、TaxRate等字段,如果只想查看国别为China或顾客号大于1000的顾客记录,就需要对数据集进行过滤。经总结,有下面这些过滤方法:
    一、利用TTable和TQuery的Filter属性
    1.在设计时设置Filter属性
    例如,设置Filter为:Country=′China′然后改变Filtered属性为True(注意,Filtered为True时过滤才有效)。则只能看到对应的Country字段内容为‘China’的记录。
    设置Filter时可以使用的操作符有:<、>、<=、>=、=、<>、AND、OR、NOT。
    例如,设置Filter为:CustNo>=1000andCustNo<=5000,则只能看到顾客号在1000与5000之间的顾客记录。
    2.在程序运行期间进行动态过滤
    要在程序运行时改变Filter属性,这包括两种情况:
    (1)操作符右边为常量,例如:Table1Filter:=′State′+′=′+′′′HI′′′;
   注意:字符串常量必须用三对单引号括起来。
    (2)操作符右边不为常量,可能是通过一个变量指定的值,或由一输入框给出的值。这时需要用到Format函数。其代码形式为:Table1Filter:=Format(′State′+′=′+′′′%S′′′,[StateValue]);其中StateValue为已经赋值的一个字符串变量,也可以为其他形式,例如:Edit1Text。
    二、用ApplyRange筛选数据集的记录
    执行下面这段代码,将只能看到顾客号在1000至5000之间的顾客记录。组成该例程的几个过程为:        
    ApplyRange,SetRangeStart,SetRangeEnd。
    Table1SetRangeStart;
    Table1[′CustNo′]:=1000;
    Table1SetRangeEnd;
    Table1[′CustNo′]:=5000;
    Table1ApplyRange;
    注意:该过程只适用于索引的字段。如果想基于非索引字段筛选,则不妨使用一点小花招:建立假索引。实现的方法为:Table1.IndexFieldNames:=字段名;Delphi还提供了简单的调用SetRangeStart、SetRangeEnd和ApplyRange的方法,例如:Table1.SetRange([Edit1.Text],[Edit2.Text]);
    三、用OnFilterRecord事件筛选OnFilterRecord事件允许按非键控字段建立筛选程序,例如:
  procedure TForm1.Table1FilterRecord(DataSet:TDataSet;varAccept:Boolean);
  begin
  Accept:=DataSet[′State′]=′CA′;
  end;
    四、用TQuery控件的SQL语句
    1.SQL语句中不包含变量和参数
  Select*fromCustomer
  WhereCustNo>=1000and CustNo<=5000
    2.SQL语句中包含参数
  Select*fromCustomer
  WhereCustNo>=:CustNo
  在运行期间给参数CustNo赋值。
     3.SQL语句中包含变量
      这时向TQuery控件添加SQL语句的代码应当这样写:
   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add(Format(′Select*fromCustomer′+′′+′whereState=′+′′′%S′′′,[StateValue]));
   Query1.Open;在上面的四种方法中,第四种功能最强大,使用最灵活。( 

来源:http://www.tulaoshi.com/n/20160129/1492647.html

延伸阅读
  ◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL: var xpanel,ypanel,xlabel,ylabel:integer; PANEL...
function GetKbStatus():string; //返回当前键盘状态,包括NumLoce、Caps Lock、Insert //每个状态信息占两个字符,顺序为:NumLoce、Caps Lock、Insert //Copy Right 549@11:29 2003-7-22 var Status:string;     KeyStates:TKeyboardState; begin   GetKeyboardState(KeyStates);  ...
◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL: var xpanel,ypanel,xlabel,ylabel:integer; PAN...
标签: Delphi
  Delphi作为一门新起的Windows编程语言,由于其集众多的优秀特性于一身,因而越来越得到广大编程人员和发烧友的青睐。以下十则技巧涉及的面比较广泛,希望能够对Delphi的爱好者有所裨益。 1.类似于vb.中的doevents功能。 大家或许发现,在Delphi中没有类似于vb.中的doevents函数,这样有的时候,我们将无法使Windows响应...
标签: Delphi
一、选择数据库 1.问题 常用的桌面型数据库,如Access、Visual FoxPro等,使用比较简单,也可以管理多媒体信息。但由于数据库引擎不够强大,在管理少量多媒体数据时尚能正常运行,当数据量增大到一定程度后,数据库的反应就会变得异常缓慢,其性能也大幅下降。在达到某个临界点时,甚至还会出现数据库处理能力和待处理数据...

经验教程

214

收藏

50
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部