小
小女人
Unregistered / Unconfirmed
GUEST, unregistred user!
我在我的软件上放了一个ADOQuery组件,我在上面做了一个查询,我的sql是这样写的
procedure TForm2.Button1Click(Sender: TObject);
var
s:string;
begin
s:=edit1.Text;
with ADOQuery1 do
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add('select * from hnit where addess='''+s+'''');
ADOQuery1.Open;
if ADOQuery1.Eof=false then
StatusBar1.SimpleText:='找到了关于'+edit1.text+'的记录'
else
MessageDlg('没有您要查找的记录',mtwarning,[mbok],0);
end;
end;
可是这样只有记录完全匹配才会找到,我想如何才能让edit1.txt的值是addess字段的
一部分时就可以找到它?
procedure TForm2.Button1Click(Sender: TObject);
var
s:string;
begin
s:=edit1.Text;
with ADOQuery1 do
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add('select * from hnit where addess='''+s+'''');
ADOQuery1.Open;
if ADOQuery1.Eof=false then
StatusBar1.SimpleText:='找到了关于'+edit1.text+'的记录'
else
MessageDlg('没有您要查找的记录',mtwarning,[mbok],0);
end;
end;
可是这样只有记录完全匹配才会找到,我想如何才能让edit1.txt的值是addess字段的
一部分时就可以找到它?