Запрос и ComboBox

[Luna_13]

Привет, помогите пожалуйста с запросом
У меня есть ComboBox в нем две строки "Экстренно" и "Планово"
Мне надо чтобы при выборе одной из строк, отображались записи где встречается одна из этих строк.
Все работает один раз, я выбираю например Экстренно - мне отображает пациентов доставленных экстренно, но когда я после этого выбираю Планово, все остается как было
Как сделать, чтобы то значение убиралось и заново все показывало?

procedure TGlavn.ComboBox9Change(Sender: TObject);
   begin
       if not CheckBox1.Checked then Exit;
             if ComboBox9.Text='Экстренно' then
                 Query2.Close;
               Query2.SQL.Clear;
     Query2.SQL.Add('Select * from Diagnoz.db where Ekstrenno_Planovo  LIKE "%Экстренно%" ');
                Query2.Open;
              if  ComboBox9.Text='Планово' then
                      Query2.Close;
                       Query2.SQL.Clear;
               Query2.SQL.Add('Select * from Diagnoz.db where Ekstrenno_Planovo LIKE "%Планово%" ');
                   Query2.Open;
   end;

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

[mihali4]

Попробуйте заменить строку
if ComboBox9.Text='Планово' then
просто на ELSE...
Ну и посмотрите по шагам, что там происходит.

Да, и еще. Учитесь не ставить лишние операторы. Ваши два оператора:
Query2.SQL.Clear;
Query2.SQL.Add('Select * from Diagnoz.db where Ekstrenno_Planovo LIKE "%Экстренно%" ');
равноценны одному:
Query2.SQL.Text:='Select * from Diagnoz.db where Ekstrenno_Planovo LIKE "%Экстренно%" ';

[s.Creator]

procedure TGlavn.ComboBox9Change(Sender: TObject);
begin
  if not CheckBox1.Checked then Exit;
    if ComboBox9.Text='Экстренно' then
    begin
      Query2.Close;
      Query2.SQL.Clear;
      Query2.SQL.Add('Select * from Diagnoz.db where Ekstrenno_Planovo  LIKE "%Экстренно%" ');
      Query2.Open;
    end
    else //   if  ComboBox9.Text='Планово' then
    begin
      Query2.Close;
      Query2.SQL.Clear;
      Query2.SQL.Add('Select * from Diagnoz.db where Ekstrenno_Planovo LIKE "%Планово%" ');
      Query2.Open;
    end;
end;

или так

procedure TGlavn.ComboBox9Change(Sender: TObject);
begin
  if not CheckBox1.Checked then Exit;
	
	Query2.Close;
	Query2.SQL.Clear;
	Query2.SQL.Add('Select * from Diagnoz.db where Ekstrenno_Planovo  LIKE "%' + ComboBox9.Text + '%" ');
	Query2.Open;
end;

[Yurk@]

Luna_13, обьясните плиз смысл строки:

if not CheckBox1.Checked then Exit;

...чё-то я никак не найду смысла !

[mihali4]

Это означает, что если "галка" не стоит, то ничего делать не надо, а просто выйти - EXIT.
Можно было сделать и по-другому:
if CheckBox1.Checked then
begin
//а сюда вставить весь обработчик
end;

[Luna_13]

Спасибо
работает :-)))))

[Luna_13]

Здесь обошлась с помощью else

А как быть если у меня в ComboBox 4 значения?
if
if
if
else
не работает так...

подскажите что можно сделать пожалуйста

[mihali4]

Есть же оператор CASE...

[s.Creator]

смотри второй вариант:

Код:

procedure TGlavn.ComboBox9Change(Sender: TObject);
begin
  if not CheckBox1.Checked then Exit;
	
	Query2.Close;
	Query2.SQL.Clear;
	Query2.SQL.Add('Select * from Diagnoz.db where Ekstrenno_Planovo  LIKE "%' + ComboBox9.Text + '%" ');
	Query2.Open;
end;

[Luna_13]

Сообщение от s.Creator

смотри второй вариант:
Код:

procedure TGlavn.ComboBox9Change(Sender: TObject);
begin
  if not CheckBox1.Checked then Exit;	
	Query2.Close;
	Query2.SQL.Clear;
	Query2.SQL.Add('Select * from Diagnoz.db where Ekstrenno_Planovo  LIKE "%' + ComboBox9.Text + '%" ');
	Query2.Open;
end;

так не работает...