Question

delphi中的查询按钮怎么转换为模糊查询？？

case radiogroup1.ItemIndex of
0:begin
adodataset1.Filtered:=false;//属性失效
adodataset1.Filter:='Number='+''''+edit1.Text+''''; //用来过滤不需要的数据
adodataset1.Filtered:=true; //''''表示一个单引号
end;
1:begin
adodataset1.Filtered:=false; //属性失效
adodataset1.Filter:='name='+''''+edit2.Text+''''; //用来过滤不需要的数据
adodataset1.Filtered:=true;//''''表示一个单引号
end;
2:begin
adodataset1.Filtered:=false; //属性失效
adodataset1.Filter:='sex='+''''+edit3.Text+''''; //用来过滤不需要的数据
adodataset1.Filtered:=true;//''''表示一个单引号
end;
3:begin
adodataset1.Filtered:=false; //属性失效
adodataset1.Filter:='speciality='+''''+edit4.Text+''''; //用来过滤不需要的数据
adodataset1.Filtered:=true;//''''表示一个单引号
end;
4:begin
adodataset1.Filtered:=false; //属性失效
adodataset1.Filter:='class='+''''+edit5.Text+''''; //用来过滤不需要的数据
adodataset1.Filtered:=true;//''''表示一个单引号
end;
5:begin
adodataset1.Filtered:=false; //属性失效
adodataset1.Filter:='keti='+''''+edit6.Text+''''; //用来过滤不需要的数据
adodataset1.Filtered:=true;//''''表示一个单引号
end;
6:begin
adodataset1.Filtered:=false; //属性失效
adodataset1.Filter:='zhidaojiaoshi='+''''+edit7.Text+''''; //用来过滤不需要的数据
adodataset1.Filtered:=true;//''''表示一个单引号

end;
end;
end;

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏20（财富值+成长值）

Answer 1

不用filter，直接使用完整的SQL的select命令。

Answer 2

like ''%'+edit1.text+'%'' 前后模糊查询