定义sql
var
sql:string;
查询语句
DataModule1.worksdata.CommandText:='select * from 送气工 where '+sql+'';
查询多条件判断
if(flag = false) thenbegin
if(ComboBox2.Text = '等于') then
begin
sql:=''+trim(ComboBox1.Text)+' = '''+trim(Edit1.Text)+'''';
end
else if(ComboBox2.Text = '包含') then
begin
sql:=''+trim(ComboBox1.Text)+' like '''+'%'+trim(Edit1.Text)+'%'+'''';
end;
end
else if(flag =true) thenbegin
if(ComboBox2.Text = '等于') then
begin
if(ComboBox3.Text = '并且') then
begin
sql:=sql+ 'and' +' ' + ''+trim(ComboBox1.Text)+' = '''+'%'+trim(Edit1.Text)+'%'+'''';
end
else if(ComboBox3.Text = '或者') then
begin
sql:=sql+ 'or' +' ' + ''+trim(ComboBox1.Text)+' = '''+'%'+trim(Edit1.Text)+'%'+'''';
end
else if(ComboBox3.Text = '排除') then
begin
sql:=sql+ 'and' +' ' +''+trim(ComboBox1.Text)+' <> '''+'%'+trim(Edit1.Text)+'%'+'''';
end;
end
else if(ComboBox2.Text = '包含') then
begin
if(ComboBox3.Text = '并且') then
begin
sql:=sql+ 'and' +' ' + ''+trim(ComboBox1.Text)+' like '''+'%'+trim(Edit1.Text)+'%'+'''';
end
else if(ComboBox3.Text = '或者') then
begin
sql:=sql+ 'or' +' ' + ''+trim(ComboBox1.Text)+' like '''+'%'+trim(Edit1.Text)+'%'+'''';
end
else if(ComboBox3.Text = '排除') then
begin
sql:=sql +'and'+' '+''+trim(ComboBox1.Text)+' not like '''+'%'+trim(Edit1.Text)+'%'+'''';
end;
end;
end;