如何实现“模糊查询”？

[txmaster]

我正在开发一个小软件，被一个问题难住了，向高手们请教：
比如说：数据库中有这么几条记录：
10 ……
15 ……
20 ……
当用户输入为“12”时，如何能查到记录“10”？
当用户输入为“13”时，如何能查到记录“15”？
望有同志救我于水火之中！
我现在只能给28分。
谢谢！

[zzy73]

利用GotoNearest和FindNearest进行不精确查找

[cobi]

按照你的提法，首先你应当用程序代码控制你的规则，也就是：
(假设‘12’是字符型)
tmptxt := edit1.txt (用户输入)
if copy(length(tmptxt),tmptxt) < '3' then
begin
tmptxt := copy(1,tmptxt) + '0';
table1.gotokey(tmptxt);
end else
begin
...
end;

大概的思路就是这样。

[王集鹄]

//....

var
I, J, T: Integer;
begin
I := StrToIntDef(Edit1.Text, 0);
T := 0;
Table1.First;
while not Table1.Eof do begin
J := Table1.FieldByName('Field1').AsInteger;
if Abs(J - I) < (T - I) then T := J;
Table1.Next;
end;
Caption := IntToStr(T);
end;

//....

[hety]

你用like试试
select * from table where bianhao like '1%'

[zzy73]

用GOTOKEY 和FINDKEY 要么查找成功，要么查找失败，因为查找的是特定一个精确匹配值。
不精确查找则查找决不会失败，它总是给用户查找出一个结果来。
我看到你表中没有12，13要给出10，15的结果，那就用GotoNearest和FindNearest进行不精确查找好了。

[kuangning]

procedure Tgetphonr_frm.Edit1Change(Sender: TObject);
var
temp_s : String ;
begin
temp_s := edit1.text + '%' ;
PhoneQuery.SQL.Text := 'SELECT distinct * FROM p_phparam where phonecode like '+''''+temp_s+'''' ;
Try
PhoneQuery.Active := True ;
except
end ;
end;

[txmaster]

可能我没有把问题说清楚。如果只是以一个字段来查找那倒没有什么困难的了——有这么多朋友提出了好办法。
可惜，我真正的问题是：
用四个字段进行查询。GOGONEARST，FINDNEARST全都不灵。
如：
Query1.locate('Name;Sex;Age;Source',vararrayof['txmaster','man','25','12'],[]);
如何在下列数据中找到正确的？（第1条记录）
Name Sex Age Source ……
txmaster man 25 10
txmaster man 25 15
txmaster man 25 20
txmaster man 25 25
救救我吧！

[baxiu]

给你一个思路！
select top 1 name,sex,age,source from table
where name+char(1)+sex+char(1)+age+char(1)+source
>='txmaster'+' '(补足字段长度的空格，后面一样)+char(1)+'man '+char(1)+'25 'char(1)+'10 '
可查出比条件大的最近记录。<=可查小的最近记录。
前提是所有字段是char类型。怎么取舍这两条记录我还没找到好办法！
可以考虑一下。
sql server7.0可以用，2000没试，有人说不行！

[baxiu]

刚试过了，2000也可以，条件中的char(1)可加可不加！
你试试吧，可能回有帮助！

[xinhe]

with query1 do
begin
close;
sql.clear
add('select * from 表 where like "1%");
open;
end;

[xinhe]

也可以写成
with query1 do
begin
close;
sql.clear;
add('select * from 表 where like :x+"%");
parambyname(x).asstring:=copy(edit1.text,1,1);
open;
end;

[txmaster]

不好意思！问题我已经自己解决了。
但分还是要送的。大家分分吧。