P
p2p
Unregistered / Unconfirmed
GUEST, unregistred user!
我进行模糊查询的时候老是问题，没有出错，只是查询不了数据来，为什么会这样的啊。
procedure TForm1.Button4Click(Sender: TObject);
var
str1,str2,str3:string;
begin
str:=inputbox('查询条件','请输入你的查询:','代号');
with query1 do
begin
close;
sql.clear;
sql.Add('select * from item where 代号 like:num and 主板 like:name and 内存 like:ram' );
parambyname('num').AsString :='%'+str1+'%' ;
parambyname('name').AsString :='%'+str2+'%' ;
parambyname('ram').AsString :='%'+str3+'%' ;
open;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
str1,str2,str3:string;
begin
str:=inputbox('查询条件','请输入你的查询:','代号');
with query1 do
begin
close;
sql.clear;
sql.Add('select * from item where 代号 like:num and 主板 like:name and 内存 like:ram' );
parambyname('num').AsString :='%'+str1+'%' ;
parambyname('name').AsString :='%'+str2+'%' ;
parambyname('ram').AsString :='%'+str3+'%' ;
open;
end;
end;