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

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

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.05.2010, 15:40   #1
RamireZ
Студент
Пользователь
 
Аватар для RamireZ
 
Регистрация: 30.05.2008
Сообщений: 61
Вопрос связывание таблиц

Здрасте. Постараюсь поконкретнее описать проблему.
Работаю с компонентами AdoQuery.
У меня есть 2 таблицы- одна содержит названия учреждений(mainQuery),вторая-предписания к ним(predp_Query).В каждой таблице есть ссылка на тип учреждения(table_id), а связывал я их с помощью полей num_id в первой и link_id во второй.
Т.е например:
MainQuery:
Код HTML:
table_id   Num_id           Nazvanie
     1       1             больница
     1       2             поликлинника
     2       1             Клуб
predp_Query:
Код HTML:
table_id      link_id         predp
     1           1       Предписание больницы
     2           1       Предписание клуба
Так вот, сейчас необходимо сделать поиск по таблице predp_Query так, чтобы при поиске по названию предписания выводилось название предписания(напр:Предписание больницы) и само учреждение(напр:Клуб). Что то вот не представлюя вообще каким образом и в какой компонент и как все это выводить. Кому не сложно подскажите.
Хотелось бы , чтобы при щелчке на результате перносился бы в главную форму и фокус получило бы нужное учреждение.Названия учреждений хранятся в DBLookupListBox'e
Приведу кусок кода который отвечает за примерно те же манипуляции, только не с подчиненными таблицами, а внутри себя

Код:
FindForm.DBGrid1.DataSource:=DataModule1.DataSource1;
if (ComboBox1.ItemIndex=0) or (ComboBox1.ItemIndex=1) then
with DataModule1 do
begin
  MainQuery.SQL.Clear;
  MainQuery.SQL.Add('SELECT *');
  MainQuery.SQL.Add('FROM Ychrejden');
  MainQuery.SQL.Add('WHERE Nazvanie LIKE "'+Edit1.Text+'%"');
  MainQuery.Open
end;
FindForm.ShowModal;
Внутри FindForm находиться DBGrid с DataSource от MainQuery
RamireZ вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Связывание таблиц skev48 Microsoft Office Excel 4 21.03.2010 23:58
Связывание таблиц skev48 Microsoft Office Access 7 21.03.2010 23:55
Связывание таблиц stscolt БД в Delphi 0 21.03.2010 11:29
связывание таблиц vaso1983 БД в Delphi 0 17.05.2009 21:33
Связывание таблиц FoxPro в Access 2002 Nessa Microsoft Office Access 2 04.11.2007 09:54