这样写应该是每问题的: var sqL_str:string; if edit1.text<>'' then sql_str:='select * from kehuxinxi where (1=1) 'and(客户名称='+edit1.text+')'; if edit1.text='' then sql_str:='select * from kehuxinxi where (1=1) khquery.close; khquery.sql.text:=sql_str khquery.open;
khquery.close; khquery.sql.clear; khquery.sql.add('SELECT * from kehuxinxi WHERE (1=1)'); tj:=''; if Trim(edit1.text)<>'' then tj:=tj+'and(客户名称=:KhName)'; khquery.sql.add(tj); khquery.ParamByName('KhName').Asstring:=Edit1.text; khquery.open;
var sqL_str:string;
if edit1.text<>'' then
sql_str:='select * from kehuxinxi where (1=1) 'and(客户名称='+edit1.text+')';
if edit1.text='' then
sql_str:='select * from kehuxinxi where (1=1)
khquery.close;
khquery.sql.text:=sql_str
khquery.open;
khquery.sql.clear;
khquery.sql.add('SELECT * from kehuxinxi WHERE (1=1)');
tj:='';
if Trim(edit1.text)<>'' then
tj:=tj+'and(客户名称=:KhName)';
khquery.sql.add(tj);
khquery.ParamByName('KhName').Asstring:=Edit1.text;
khquery.open;