本文整理自网络，侵删。
delphi 万能模糊查询
var
S_sql:string;
begin
S_sql:='';
if KH_BH.Text<>'' then
begin
S_sql:=S_sql+' and BH like''%'+KH_BH.Text+'%''';
end;
if KH_GYS.Text<>'' then
begin
S_sql:=S_sql+' and GYS like''%'+KH_GYS.Text+'%''';
end;
if KH_DH.Text<>'' then
begin
S_sql:=S_sql+' and DH like''%'+KH_DH.Text+'%''';
end;
if KH_CZ.Text<>'' then
begin
S_sql:=S_sql+' and CZ like''%'+KH_CZ.Text+'%''';
end;
if KH_LXR1.Text<>'' then
begin
S_sql:=S_sql+' and LXR like''%'+KH_LXR1.Text+'%''';
end;
if KH_DH1.Text<>'' then
begin
S_sql:=S_sql+' and DH1 like''%'+KH_DH1.Text+'%''';
end;
if KH_DH2.Text<>'' then
begin
S_sql:=S_sql+' and DH2 like''%'+KH_DH2.Text+'%''';
end;
if KH_LXR2.Text<>'' then
begin
S_sqL:=S_sql+' and LXR2 like''%'+KH_LXR2.Text+'%''';
end;
if KH_DZ.Text<>'' then
begin
S_sql:=S_sql+' and DZ like''%'+KH_DZ.Text+'%''';
end;
with dm1.customer1 do
begin
close;
sql.Clear;
sql.Add('select * from customer where 1=1 '+S_sql+'order by id desc');
open;
end;
end;
相关阅读 >>
Delphi 如何使用findfirst搜索不同的文件类型？
Delphi twebbrowser 响应回车键(ewb响应正常，无需额外代码)
更多相关阅读请进入《Delphi》频道 >>
