Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 07.04.2014, 09:06
DmitS DmitS вне форума
Прохожий
 
Регистрация: 07.04.2014
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию DBLookupCombobox

Всем привет! Есть два DBLookupCombobox. В первом номер класса, во втором ученики. Можно сделать так, чтобы при выборе класса в первом боксе, во втором выпадали ученики этого класса? У первого комбобокса в датасете: select * from KLASS WHERE KLASS.NUM_KLASS=:UCHASHIESYA.NUM_KLASS.
Ответить с цитированием
  #2  
Старый 07.04.2014, 23:49
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Издевался над таблицей KLASS где есть два поля - NUM_KLASS и UCHASHIESYA (у вас они похоже в разных местах лежат)

Сначало добавил пару ADOQuery и столько же DataSource, подключил их к DBLookupCombobox: для первого KeyFiled = NUM_KLASS, для второго поле с учениками (условно UCHASHIESYA). При запуске код такой
Код:
...
AdoQuery1.SQL.Add('select distinct NUM_KLASS from KLASS union select NUM_KLASS from KLASS order by NUM_KLASS');
AdoQuery2.SQL.Add('select * from KLASS');
AdoQuery1.Open;
AdoQuery2.Open;
...
ну и клик по первому комбо
Код:
procedure TfrmMain.DBLookupComboBox1Click(Sender: TObject);
begin
AdoQuery2.Close;
AdoQuery2.SQL.Clear;
AdoQuery2.SQL.Add('select * from KLASS where NUM_KLASS=''' + (Sender as TDBLookupComboBox).Text + '''');
AdoQuery2.Open;
end;
Проверил - работает
Ответить с цитированием
  #3  
Старый 10.04.2014, 16:45
DmitS DmitS вне форума
Прохожий
 
Регистрация: 07.04.2014
Сообщения: 4
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Попробовал так, ошибка: Несоответствие типов данных в выражении условия отбора.
Ответить с цитированием
  #4  
Старый 07.04.2014, 23:54
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Можно. Вам просто надо подчинить второй датасет первому задав верное ключевое поле.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:57.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025