Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi и базы данных
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 4.67
NovAID
1 / 1 / 1
Регистрация: 02.11.2013
Сообщений: 153
#1

Работа с Radiogroup и поиском по критериям - Delphi БД

02.05.2014, 19:01. Просмотров 1386. Ответов 33
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: if not Table1.Locate('Название', Edit1.Text, [loCaseInsensitive,
    loPartialKey]) then
1: if not Table1.Locate('Потребляемая энергия', Edit1.Text, [loCaseInsensitive,
    loPartialKey]) then
2: if not Table1.Locate('Используемое топливо', Edit1.Text, [loCaseInsensitive,
    loPartialKey]) then
3: if not Table1.Locate('Местоположение', Edit1.Text, [loCaseInsensitive,
    loPartialKey]) then
    ShowMessage('Запись не найдена');
     end;
end.
Я знаю что это не правильно полностью и сам делфи мне это говорит,но помогите пожалуйста исправить на правильный вариант и объясните пожалуйста
http://www.cyberforum.ru/delphi-database/thread446987.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.05.2014, 19:01
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Работа с Radiogroup и поиском по критериям (Delphi БД):

RadioGroup
Подскажите как сделать такое задание: Разработать приложение, которое хранит...

RadioGroup
Подскажите, пожалуйста, как в RadioGroup присваивать значения из таблицы Otveti...

поиск с RadioGroup
всем привет, извините если такая тема есть просто срочна нужна помощь. надо...

RadioGroup в Delphi
Подскажите пожалуйста почему у мена идет подсчет балов неправильно Программа...

Проблема с RadioGroup
У меня есть RadioGroup, в нем 4 записи.При выборе пользователем одной изи...

33
NovAID
1 / 1 / 1
Регистрация: 02.11.2013
Сообщений: 153
02.05.2014, 21:15  [ТС] #21
Цитата Сообщение от andrey_k3 Посмотреть сообщение
покажи весь код процедуры RadioGroup1Click
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
      0:
        begin
          IndexDefs.Clear;
          AddIndex('index_name', 'fld1', [ixCaseInsensitive],'');
          IndexName:='';
          IndexFieldNames:= 'fld1';
        end;
      1:
        begin
          IndexDefs.Clear;
          AddIndex('index_name', 'fld2', [ixCaseInsensitive],'');
          IndexName:='';
          IndexFieldNames:= 'fld2';
        end;
      2:
        begin
          IndexDefs.Clear;
          AddIndex('index_name', 'fld3', [ixCaseInsensitive],'');
          IndexName:='';
          IndexFieldNames:= 'fld3';
        end;
      3:
        begin
          IndexDefs.Clear;
          AddIndex('index_name', 'fld4', [ixCaseInsensitive],'');
          IndexName:='';
          IndexFieldNames:= 'fld4';
        end;
    end;
end;
 
end.
0
andrey_k3
128 / 128 / 41
Регистрация: 17.10.2013
Сообщений: 333
02.05.2014, 21:18 #22
потерял
Delphi
1
2
3
4
5
6
7
8
with Table1 do
  begin
    Active:= False;
    case RadioGroup1.ItemIndex of
      ...
    end;
    Active:= True;
  end;
т.е.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
with Table1 do
  begin
    Active:= False;
    case RadioGroup1.ItemIndex of
      0:
        begin
          IndexDefs.Clear;
          AddIndex('index_name', 'fld1', [ixCaseInsensitive],'');
          IndexName:='';
          IndexFieldNames:= 'fld1';
        end;
      1:
        begin
          IndexDefs.Clear;
          AddIndex('index_name', 'fld2', [ixCaseInsensitive],'');
          IndexName:='';
          IndexFieldNames:= 'fld2';
        end;
      2:
        begin
          IndexDefs.Clear;
          AddIndex('index_name', 'fld3', [ixCaseInsensitive],'');
          IndexName:='';
          IndexFieldNames:= 'fld3';
        end;
      3:
        begin
          IndexDefs.Clear;
          AddIndex('index_name', 'fld4', [ixCaseInsensitive],'');
          IndexName:='';
          IndexFieldNames:= 'fld4';
        end;
    end;
    Active:= True;
  end;
1
NovAID
1 / 1 / 1
Регистрация: 02.11.2013
Сообщений: 153
02.05.2014, 21:22  [ТС] #23
index_name', 'fld1-4 - заменят на имя которое у меня в БД?
0
andrey_k3
128 / 128 / 41
Регистрация: 17.10.2013
Сообщений: 333
02.05.2014, 21:26 #24
index_name - можно оставить как есть, каждый раз информация об индексах удаляется (IndexDefs.Clear;), а поля - да, замени на свои
1
NovAID
1 / 1 / 1
Регистрация: 02.11.2013
Сообщений: 153
02.05.2014, 21:28  [ТС] #25
Цитата Сообщение от andrey_k3 Посмотреть сообщение
index_name - можно оставить как есть, каждый раз информация об индексах удаляется (IndexDefs.Clear, а поля - да, замени на свои
теперь жалуется на таблицу
0
andrey_k3
128 / 128 / 41
Регистрация: 17.10.2013
Сообщений: 333
02.05.2014, 21:33 #26
какой текст ошибки? можно скриншотом
1
NovAID
1 / 1 / 1
Регистрация: 02.11.2013
Сообщений: 153
02.05.2014, 21:35  [ТС] #27
вот такая ошибка
0
Миниатюры
Работа с Radiogroup и поиском по критериям  
andrey_k3
128 / 128 / 41
Регистрация: 17.10.2013
Сообщений: 333
02.05.2014, 21:50 #28
ругается на то, что таблица занята... попробуй заменить Active:= False и Active:= True на Close и Open соответственно
1
NovAID
1 / 1 / 1
Регистрация: 02.11.2013
Сообщений: 153
02.05.2014, 21:52  [ТС] #29
Цитата Сообщение от andrey_k3 Посмотреть сообщение
ругается на то, что таблица занята... попробуй заменить Active:= False и Active:= True на Close и Open соответственно
ваще не запускается и жалуется на это
0
andrey_k3
128 / 128 / 41
Регистрация: 17.10.2013
Сообщений: 333
02.05.2014, 22:03 #30
хм... даже интересно... давай так - скинь исходники, я ближе к ночи на виртуалке делфи подниму и посмотрю, а то пишу на основе хелпа, охота "пощупать"
0
NovAID
1 / 1 / 1
Регистрация: 02.11.2013
Сообщений: 153
02.05.2014, 22:05  [ТС] #31
вот пожалуйста)
0
Вложения
Тип файла: rar прога.rar (524.6 Кб, 2 просмотров)
andrey_k3
128 / 128 / 41
Регистрация: 17.10.2013
Сообщений: 333
03.05.2014, 13:09 #32
выстави ключ для поля, после этого сортировка заработает (я код не трогал)
1
Миниатюры
Работа с Radiogroup и поиском по критериям  
NovAID
1 / 1 / 1
Регистрация: 02.11.2013
Сообщений: 153
03.05.2014, 19:12  [ТС] #33
Цитата Сообщение от andrey_k3 Посмотреть сообщение
выстави ключ для поля, после этого сортировка заработает (я код не трогал)
ключ только к этому полю ,если да то все равно жалуется на таблицу

Добавлено через 31 минуту
Цитата Сообщение от andrey_k3 Посмотреть сообщение
выстави ключ для поля, после этого сортировка заработает (я код не трогал)
Огромное спасибо, все заработало ,а можете еще помочь?
0
andrey_k3
128 / 128 / 41
Регистрация: 17.10.2013
Сообщений: 333
03.05.2014, 22:03 #34
попробую
1
03.05.2014, 22:03
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.05.2014, 22:03
Привет! Вот еще темы с решениями:

Библиотека книг (с поиском одновременно по нескольким критериям)
Нужно сделать библиотеку книг на лазарусе. Она должна содержать назву книги,...

Работа с RadioGroup
Доброго времени суток. Подскажите пожалуйста кто знает: Я делаю тестер и у...

Работа с RadioGroup
Подскажите можно ли в RadioGroup выбрать несколько вариантов? Если нет то...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
34
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru