Поиск по полю выбора

здравствйте,помогите,пожалуйста организовать поиск по полю выбора

0

а более развернуто сформулировать можете?

0

у меня бд "автосалон" и есть таблица проданные автомобили,где столбец I (покупатель) это поле выбора.я делаю сложный поиск для таблицы. вот код(мне надо в 11 checkbox).как у меня написано,выходит ошибка.
begin
if CheckBox1.Checked then
begin
t:='(N'+ComboBox1.Text + Edit1.Text+')';
end;
if CheckBox2.Checked then
begin
if length(t)<>0 then t:=t+' and ';
t:=t+'(MarkaP='''+Edit2.Text+'*'')';
end;
if CheckBox3.Checked then
begin
if length(t)<>0 then t:=t+' and ';
t:=t+'(StranaP='''+Edit3.Text+'*'')';
end;
if CheckBox4.Checked then
begin
if length(t)<>0 then t:=t+' and ';
t:=t+'(GodV'+combobox2.text+Edit4.Text+' )';
end;
if CheckBox5.Checked then
begin
if length(t)<>0 then t:=t+' and ';
t:=t+'(ObemP'+combobox3.text+Edit5.Text+ ')'
end;
if CheckBox6.Checked then
begin
if length(t)<>0 then t:=t+' and ';
t:=t+'(KPPP='''+Edit6.Text+'*'')';
end;
if CheckBox7.Checked then
begin
if length(t)<>0 then t:=t+' and ';
t:=t+'(KuzP='''+Edit7.Text+'*'')';
end;
if CheckBox8.Checked then
begin
if length(t)<>0 then t:=t+' and ';
t:=t+'(OsobennostP='''+Edit8.Text+'*'')' ;
end;
if CheckBox9.Checked then
begin
if length(t)<>0 then t:=t+' and ';
t:=t+'(SostP='''+Edit9.Text+'*'')';
end;
if CheckBox10.Checked then
begin
if length(t)<>0 then t:=t+' and ';
t:=t+'(CenaP'+combobox4.text+Edit10.Text +')'
end;
if CheckBox11.Checked then
begin
Form1.DataSource3.DataSet:=Form1.Query1;
Form1.Query1.Close;
Form1.Query1.SQL.Clear;
Form1.Query1.SQL.Add('Select * from prodazha ');
if length(t)<>0 then t:=t+ ' and ';
Form1.Query1.SQL.Add ('I Like '''+edit11.text+'%''');
Form1.Query1.Open;
end;
try
Form1.Query1.Filter:=t;
Form1.Query1.Filtered:=CheckBox1.Checked or CheckBox2.Checked or CheckBox3.Checked or CheckBox4.Checked or CheckBox5.Checked or CheckBox6.Checked or CheckBox7.Checked or CheckBox8.Checked or CheckBox9.Checked or CheckBox10.Checked or CheckBox11.Checked;
except
Form1.Query1.Filtered:=False;
end;

if form1.Query1.RecordCount=0 then
begin messageDlg('поиск не дал результатов!!!',mtInformation,[mbOK],0);
Form1.Query1.Filtered:=false;
end;
form4.close;
end;

0

11 чекбоксов?
а если бы было 150?

перепишите код на нормальный

0

ну блин,мне так сказали сделать,помогите пожалуйста с полем выбора

0