如何根据计算字段筛选纪录?(200分)

  • 主题发起人 主题发起人 DreamTiger
  • 开始时间 开始时间
D

DreamTiger

Unregistered / Unconfirmed
GUEST, unregistred user!
有一个生物学蛋白质序列数据库:(Access做),包含一个memo字段:
Sequence:Memo;
蛋白质的质量SeqWeight,蛋白质的等电点SeqPI可以根据这个序列
计算出来,当然这些计算是不能通过SQL内建的SUM、AVERAGE等函数
实现的。现在需要在搜索的时候对质量和等电点做约束条件,SQL应
该怎么写?我指的是不另建一个临时库的情况下。
另一个问题:(其实跟上面的相关的)对于一个搜索到的结果,比如
query1,我如何用query2对query1中的纪录再次筛选。


 
可以做嵌套查询,不过Access可能不行,用Oracle或DB2吧。
select ... from ...
where ..条件
(
select ...
)
 
用以下查询:
select * from "database"
where
substring(SeqPI from "Num1" for "Num2")="XXX..." and
substring(SeqWeight from "num1" for "num2")="XXX..."

使用嵌套查询:
select * from "database"
where
substring(SeqPI from "Num1" for "Num2")="XXX..." and
SeqWeight = (select seqweight from "database" where ... )
当然,你说seqweight在memo中,你可用substring这个函数截取他们


 
用filter即可对已有的记录集再次筛选。
 
select * from "database"
where
substring(SeqPI from "Num1" for "Num2")="XXX..." and
substring(SeqWeight from "num1" for "num2")="XXX..."

这时候连SeqPI都没有计算出来,怎么筛选啊?不灵,试过了。说找不到
SeqPI,呵呵。

Filter也一样,说没有SeqPI。
 
不知你的SeqPi和SeqWeight是怎么计算出来的,借用上面的算法吧。
select * from (select substr(Sequence,1,10) as SeqPi,
substr(Sequence,11,20) as SeqWeight from uDB ) NewQ
where NewQ.SeqPi='XXX...' and NewQ.SeqWeight='XXX...'
以上语句在Oracle中肯定可以,Access我没用过。你试一试吧....
 
SeqPI和SeqWeight不是Sequence的序列一部分,也就是说,必须通过
外部函数才能计算得到。或者可以这么说,SeqPI和SeqWeight是两个
计算字段,现在我希望得到的是SeqWeight在10000到20000之间的纪录。
(不考虑SeqPI)。这种查询怎么做?如果必须用临时表也行!
 
在放一个Clientdataset,用Provider把查询的结果给它,可以象操作表一样操作
Clientdataset,试试看.
 
按照wgzhang的方法试验了一下,果然如此,感谢感谢!
又学了一招。
DreamTiger,改用Clientdataset吧!
 
Tquery.filter就可以了
 
当我们在操作数据集时,往往需要对数据进行筛眩例如:一个名为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;在上面的四种方法中,第四种功能最强大,使用最灵活。
 
to 郑宇轩:
你的办法对 计算字段 好象都不能用。你有什么好办法解决吗?望告!
 
wgzhang:用了ClientDataset,以后发布的时候是否必须带上MIDAS所需的dll?
另外,你说得象操作表一样操作是什么意思?比如说我象对这些结果进
行二次查询,query语句中的from写什么?是不是只能用ClientDataset
的Filter?
郑宇轩:我是对计算字段进行分析,所以用你的方法不行。不知有没有什么别的方法?
 
>用了ClientDataset,以后发布的时候是否必须带上MIDAS所需的dl?
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=178686
检索一下Cliedtdataset,有很多这方面的问题.
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部