Delphi like 查询（转载）

Delphi与SQL模糊查询（转载）

http://www.cnblogs.com/shawnloong/archive/2010/11/11/1874806.html

1．用变量进行模糊查询
对数据进行模糊查询主要用SQL语句LIKE来实现。该语句放在Where语句的后面，使用标识符“%”、“”、“[]”、“[^]”对数据进行模糊查询。
例如，对姓名为“王”，并且姓名为两个字的学生信息。
Select * FROM MR_Student where 姓名 like '林’
例如，查询数学成绩在70~79之间的学生信息。
Select * FROM MR_Student where 数学 like ‘7[0123456789]’
例如，查询除三年级二班的所有学生信息。
Select * FROM MR_Student where 班级 like ‘三年[^二]_’
例如，查询三年级的所有学生信息。
Select * FROM MR_Student where 班级like ‘三*’
下面对姓名进行模糊查询，只要在“姓名”文本框中输入名字中的任意一个字，便可以查找相关人员的信息。
操作步骤如下：
（1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDateTimePicker、TDataSource、TButton和TDBGrid等组件。
（2）主要程序代码如下：
with ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add(‘Select * FROM MR_Student where 姓名 like ‘+’’’’+’%’+Trim(edit1.Text)+’%’+’’’’);
open;
end;
上面的SQL语句也可以写成如下形式：
SQL.Add(‘Select * FROM MR_Student where 姓名 like ‘’%’+Trim(edit1.Text)+’%’’’);

2．使用参数进行模糊查询
在Delphi中进行模糊查询时，可以用TADOQuery组件来向SQL语句中传递参数。
其格式为：“Like:参数名”。
利用TADOQuery组件的ParamByName方法将值传递给参数。

• 注意：在Like后面必须加空格。
  下面用TADOQuery组件进行参数传递，并对数据进行模糊查询。
  操作步骤如下：
  （1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDateTimePicker、TDataSource、TButton和TDBGrid等组件。
  （2）主要程序代码如下：
  with ADOQuery1 do
  begin
  close;
  SQL.Clear;
  SQL.Add(‘Select * FROM MR_Student where 姓名 like :aa’);
  Parameters.ParamByName(‘aa’).Value:=’%’+trim(Edit1.text)+’%’;
  open;
  end;

3．复杂模糊查询
在对信息进行模糊查询的时候，也可以通过逻辑运算符（AND、OR、NOT）插入其他的查询条件来提高查询的速度。
下面是模糊查询和其他查询方法相结合而形成的复杂模糊查询。
操作步骤如下：
（1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDateTimePicker、TDataSource、TButton、TComboBox和TDBGrid等组件。
（2）主要程序代码如下：
if CheckBox1.Checked=true then
Str := ’ and 班级=’+’’’’+ComboBox1.Text+’’’’
else
ComboBox1.Enabled := False;
with ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add(‘Select * FROM MR_Student where 姓名 like ‘’%’+Trim(edit1.Text)+’%’’’+Str);
open;
end;