Поиск в БД

[Анжеликааа]

Здравствуйте!
у меня БД InterBase

такой запрос на создание таблицы

select IZDELIE.NAZVANIE, IZDELIE.KATEGORIA, CEX.ID_CEX, CEX.NAZWANIE, BRIGAD.ID_BRIGAD
 from IZDELIE, CEX, BRIGAD
WHERE IZDELIE.ID_BRIGAD = BRIGAD.ID_BRIGAD AND CEX.ID_BRIGAD = BRIGAD.ID_BRIGAD

Мне необходимо осуществить поиск по двум столбцам
IZDELIE.KATEGORIA и CEX.NAZWANIE

пишу код на поиск

procedure TForm4.BitBtn1Click(Sender: TObject);
begin
if (Form4.ComboBox1.Text = 'Категория')
then begin
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('Select * From IZDELIE where  IZDELIE.KATEGORIA LIKE'+#39+'%'+Edit1.Text+'%'+#39);
IBQuery1.Open;
end
else if (Form4.ComboBox1.Text = 'Цех')
then begin
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('Select * From CEX where CEX.NAZWANIE LIKE'+#39+'%'+Edit1.Text+'%'+#39);
IBQuery1.Open;
end;

end;

Но ноль реакции у dbgrid
Помогите!

[Stilet]

такой запрос на создание таблицы

Это не создание таблицы.

Но ноль реакции у dbgrid

Всмысле он пуст или в нем ничего не поменялось?

[Анжеликааа]

Сообщение от Stilet

Это не создание таблицы.

Всмысле он пуст или в нем ничего не поменялось?

Он отображает данные.
Ничего не поменялось.

[Stilet]

Хм...
Я бы сделал так:
1) Прошелся отладкой по коду, что выше приведен. Доходит ли вообще до Open.
2) Если доходит то изменил бы запрос, дописав first 1 перед * в запросе. Если этот запрос сработет то выведется одна единственная строка. Так можно узнать что сам запрос отрабатывает и грид к нему подключен корректно.

[Анжеликааа]

Вы программист со стажем, а я всего лишь студентка, для меня откладка эта темный лес

[Stilet]

Проблема в том, что по вышеприведенному коду можно только гадать что происходит.
Ошибок в нем я не вижу, поэтому и предложил отладку.
Ладно. Пойдем лесом:

if (Form4.ComboBox1.Text = 'Категория')
then begin
ShowMessage('Выбираем по категории');
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('Select * From IZDELIE where  IZDELIE.KATEGORIA LIKE'+#39+'%'+Edit1.Text+'%'+#39);
IBQuery1.Open;
end
else if (Form4.ComboBox1.Text = 'Цех')
then begin
ShowMessage('Выбираем по цеху');
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('Select * From CEX where CEX.NAZWANIE LIKE'+#39+'%'+Edit1.Text+'%'+#39);
IBQuery1.Open;
end;

Запусти. Какое из сообщений вывалится?

[Анжеликааа]

Нажимаю на Категорию, сообщение о категории и столбец с цехом становится пустым.
Нажимаю на Цех, выскакивает сообщение о цехе и столбец с категорией и названием изделия становятся пустыми

[Stilet]

А это потому что у тебя был запрос связывающий две таблицы, а потом ты переключилась на запрос с только одной таблицей.
Тебе нужно делать так:

procedure TForm4.BitBtn1Click(Sender: TObject);
begin

IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('select IZDELIE.NAZVANIE, IZDELIE.KATEGORIA, CEX.ID_CEX, ');
IBQuery1.SQL.Add('CEX.NAZWANIE, BRIGAD.ID_BRIGAD');
IBQuery1.SQL.Add(' from IZDELIE, CEX, BRIGAD');
IBQuery1.SQL.Add('WHERE IZDELIE.ID_BRIGAD = BRIGAD.ID_BRIGAD ');
IBQuery1.SQL.Add('AND CEX.ID_BRIGAD= BRIGAD.ID_BRIGAD');

if (Form4.ComboBox1.Text = 'Категория')then 
 IBQuery1.SQL.Add(' and IZDELIE.KATEGORIA LIKE '+QuotedStr('%'+Edit1.Text+'%')) else
if (Form4.ComboBox1.Text = 'Цех')
 IBQuery1.SQL.Add(' and CEX.NAZWANIE LIKE '+QuotedStr('%'+Edit1.Text+'%'));

IBQuery1.Open;
end;

end;

[Анжеликааа]

Не работает этот код.
Если осуществлять поиск по Цеху, то выводит пустую таблицу.

Если осуществлять поиск по Критерию, то при вводе названия данного из второй строки выводит первую и так наоборот с первой строкой. А если ввести данное из третьей строки, то выводит пустую таблицу.

[Stilet]

Тогда я пас. Надо проект смотреть чтоб понять что там не выходит.