Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.01.2011, 09:40   #1
ара
Форумчанин
 
Регистрация: 11.04.2007
Сообщений: 106
По умолчанию про RadioButton

Доброго времени суток! Помогите разобраться!
Есть небольшое приложение на Delphi и БД. Есть 3 RadioButton, выбирая одну из этих кнопок - выбираем разные условия поиска в БД.
Вообщем получается задействовать только две кнопки, третью добавить не могу... как - то так

Код:
procedure TInventForm.SearchButtonClick(Sender: TObject);
begin
 if RadioButton1.Checked then
  begin
   DataModule3.InvNumQuery.Active:=false;
   DataModule3.InvNumQuery.SQL.Clear;
   DataModule3.InvNumQuery.SQL.Add('SELECT *');
   DataModule3.InvNumQuery.SQL.Add('FROM inventar');
   DataModule3.InvNumQuery.SQL.Add('WHERE inv_numb Like '''+ Edit1.Text+'''');
   DataModule3.InvNumQuery.Active:=true;
   InvNumForm.ShowModal;
  end

    else
      if RadioButton2.Checked then
        begin
          DataModule3.InvNumQuery.Active:=false;
          DataModule3.InvNumQuery.SQL.Clear;
          DataModule3.InvNumQuery.SQL.Add('SELECT *');
          DataModule3.InvNumQuery.SQL.Add('FROM inventar');
          DataModule3.InvNumQuery.SQL.Add('WHERE predmet Like '''+ Edit1.Text+'''');
          DataModule3.InvNumQuery.Active:=true;
          InvNumForm.ShowModal;
        end ;


  end;
ара вне форума Ответить с цитированием
Старый 29.01.2011, 09:47   #2
vovk
!=
Участник клуба
 
Аватар для vovk
 
Регистрация: 08.09.2008
Сообщений: 1,751
По умолчанию

легче воспользоватся Tradiogroup
потом конструкция
Код:
Case radiogroup1.itemindex of
0:
begin

end;
1:
begin

end;
.....
else
begin

end;
end;
vovk вне форума Ответить с цитированием
Старый 29.01.2011, 11:02   #3
ара
Форумчанин
 
Регистрация: 11.04.2007
Сообщений: 106
По умолчанию

Спасибо! Тема закрыта
ара вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Turbo Pascal] - задачи про подбрасывание монеты и про определение истины. Sent Tools Помощь студентам 10 28.10.2010 18:11
RadioButton 29_kapaT Компоненты Delphi 1 10.05.2010 03:30
radiobutton xxxn00bxxx Общие вопросы C/C++ 8 25.02.2010 08:06
radiobutton Bon'ka Компоненты Delphi 4 16.05.2009 21:56
RadioButton Pavelok Общие вопросы Delphi 3 14.05.2009 14:05